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=e084359c1149a2269dcb9527d3dfc080a54efbae;hpb=df2469d9ac903d93889867f4e50e9bf6c428c1c6;p=unres4.git

diff --git a/source/unres/data/control_data.F90 b/source/unres/data/control_data.F90
index e084359..541a507 100644
--- 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