working martini

[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 541a507..b1e824d 100644 (file)
--- a/source/unres/data/control_data.F90
+++ b/source/unres/data/control_data.F90
@@ -30,7 +30,7 @@
 !      common /cntrl/
       integer :: modecalc,iscode,indpdb,indback,indphi,iranconf,&
        icheckgrad,iprint,i2ndstr,mucadyn,constr_dist,symetr,shield_mode,&
-       tubemode,genconstr,afmlog,selfguide,scelemode,tor_mode,oldion
+       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,&
@@ -52,7 +52,8 @@
 !-----------------------------------------------------------------------------
 ! 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