X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC%2FCOMMON.CONTROL;fp=source%2Fwham%2Fsrc-NEWSC%2FCOMMON.CONTROL;h=117850497638e81f06af3c752088ee6822b22f5c;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/wham/src-NEWSC/COMMON.CONTROL b/source/wham/src-NEWSC/COMMON.CONTROL
new file mode 100755
index 0000000..1178504
--- /dev/null
+++ b/source/wham/src-NEWSC/COMMON.CONTROL
@@ -0,0 +1,10 @@
+      integer iscode,indpdb,outpdb,outmol2,icomparfunc,pdbint,
+     & ensembles,constr_dist
+      logical refstr,pdbref,punch_dist,print_rms,caonly,verbose,
+     & merge_helices,bxfile,cxfile,histfile,entfile,zscfile,
+     & rmsrgymap,with_dihed_constr,check_conf,histout,energy_dec
+      common /cntrl/ iscode,indpdb,refstr,pdbref,outpdb,outmol2,
+     & punch_dist,print_rms,caonly,verbose,icomparfunc,pdbint,
+     & merge_helices,bxfile,cxfile,histfile,entfile,zscfile,rmsrgymap,
+     & ensembles,with_dihed_constr,check_conf,histout,constr_dist,
+     & energy_dec