! common /cntrl/
integer :: modecalc,iscode,indpdb,indback,indphi,iranconf,&
icheckgrad,iprint,i2ndstr,mucadyn,constr_dist,symetr,shield_mode,&
- tubemode,genconstr,afmlog,selfguide,scelemode
+ tubemode,genconstr,afmlog,selfguide,scelemode,tor_mode,oldion,DRY_MARTINI
logical :: minim,refstr,pdbref,overlapsc,&
energy_dec,sideadd,lsecondary,read_cart,unres_pdb,&
vdisulf,searchsc,lmuca,dccart,extconf,out1file,&
- gnorm_check,gradout,split_ene,with_theta_constr,protein,ions,nucleic
+ gnorm_check,gradout,split_ene,with_theta_constr,protein,ions,nucleic,&
+ raw_psipred
#ifdef CLUSTER
- integer :: iopt,nend,nstart,outpdb,outmol2 !cluster
+ integer :: iopt,nend,nstart,outpdb,outmol2,nclust !cluster
logical :: punch_dist,print_dist,lside,lprint_cart,lprint_int,&
caonly,efree,from_bx,from_cx,from_cart ! cluster
#else
!-----------------------------------------------------------------------------
! common.spitele
! common /splitele/
- real(kind=8) :: r_cut,rlamb,r_cut_ele,rlamb_ele
+ real(kind=8) :: r_cut,rlamb,r_cut_ele,rlamb_ele,r_cut_mart,rlamb_mart,&
+ r_cut_ang,graddelta
!-----------------------------------------------------------------------------
! common.time1
! FOUND_NAN - set by calcf to stop sumsl via stopx