X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2Fcontrol_data.F90;h=36afc1acabc579b9847fd13c857ac50d61257732;hb=ae2f9918e1e5f88a78cc32b1d3a7ff90dede1207;hp=541a5075f535d728f974674f93234d43a1b152fb;hpb=021548f15344d5d7606729cb05b9b5518306432e;p=unres4.git

diff --git a/source/unres/data/control_data.F90 b/source/unres/data/control_data.F90
index 541a507..36afc1a 100644
--- 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
 !-----------------------------------------------------------------------------
 ! common.time1
 !     FOUND_NAN - set by calcf to stop sumsl via stopx