workink EVDW i EES for PP,SB,PSB- warning energies differ as corrections made for...

[unres4.git] / source / unres / data / control_data.f90

diff --git a/source/unres/data/control_data.f90 b/source/unres/data/control_data.f90
index 1e2bbf9..e0e69b9 100644 (file)
--- a/source/unres/data/control_data.f90
+++ b/source/unres/data/control_data.f90
@@ -29,11 +29,12 @@
 ! commom.control
 !      common /cntrl/
       integer :: modecalc,iscode,indpdb,indback,indphi,iranconf,&
-       icheckgrad,iprint,i2ndstr,mucadyn,constr_dist,symetr
+       icheckgrad,iprint,i2ndstr,mucadyn,constr_dist,symetr,shield_mode,&
+       tubemode,genconstr,afmlog,selfguide
       logical :: minim,refstr,pdbref,overlapsc,&
        energy_dec,sideadd,lsecondary,read_cart,unres_pdb,&
        vdisulf,searchsc,lmuca,dccart,extconf,out1file,&
-       gnorm_check,gradout,split_ene
+       gnorm_check,gradout,split_ene,with_theta_constr,protein,ions,nucleic
 #ifdef CLUSTER
       integer :: iopt,nend,nstart,outpdb,outmol2 !cluster
       logical :: punch_dist,print_dist,lside,lprint_cart,lprint_int,&
@@ -50,7 +51,7 @@
 !-----------------------------------------------------------------------------
 ! common.spitele
 !      common /splitele/
-      real(kind=8) :: r_cut,rlamb
+      real(kind=8) :: r_cut,rlamb,r_cut_ele,rlamb_ele
 !-----------------------------------------------------------------------------
 ! common.time1
 !     FOUND_NAN - set by calcf to stop sumsl via stopx