corrected rst file

[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 7f0dc87..1b4e429 100644 (file)
--- a/source/unres/data/control_data.f90
+++ b/source/unres/data/control_data.f90
@@ -29,7 +29,8 @@
 ! 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
       logical :: minim,refstr,pdbref,overlapsc,&
        energy_dec,sideadd,lsecondary,read_cart,unres_pdb,&
        vdisulf,searchsc,lmuca,dccart,extconf,out1file,&
@@ -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
@@ -85,7 +86,7 @@
       integer,parameter :: MaxMoveType = 4
 !-----------------------------------------------------------------------------
 ! Max. number of processors.
-      integer,parameter :: maxprocs=2048
+!      integer,parameter :: maxprocs=2048
 !el      integer,parameter :: maxprocs=4200
 !-----------------------------------------------------------------------------
 !-----------------------------------------------------------------------------