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

diff --git a/source/unres/data/control_data.F90 b/source/unres/data/control_data.F90
index e4fb4e9..541a507 100644
--- a/source/unres/data/control_data.F90
+++ b/source/unres/data/control_data.F90
@@ -30,14 +30,14 @@
 !      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
+       tubemode,genconstr,afmlog,selfguide,scelemode,tor_mode,oldion
       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,&
        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