correction in new ions and clusterfix

[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 e084359..541a507 100644 (file)
--- a/source/unres/data/control_data.F90
+++ b/source/unres/data/control_data.F90
@@ -30,13 +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
+       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
+       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