X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.BANK;fp=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.BANK;h=0000000000000000000000000000000000000000;hp=5b0fb348b93a9c332f01c512a426315795ae2485;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30

diff --git a/source/unres/src_CSA_DiL/COMMON.BANK b/source/unres/src_CSA_DiL/COMMON.BANK
deleted file mode 100644
index 5b0fb34..0000000
--- a/source/unres/src_CSA_DiL/COMMON.BANK
+++ /dev/null
@@ -1,29 +0,0 @@
-      real*8 dihang,etot,bvar,bene,rene,rvar,avedif,difmin,
-     & ebmin,ebmax,ebmaxt,cutdif,dij,dihang_in
-      integer ibank,is,jbank,ibmin,ibmax,nbank,nconf,iuse,nstep,icycle,
-     & iseed,ntbank,ntbankm,iref,nconf_in,indb,ilastnstep,
-     & bvar_nss,bvar_ss,bvar_ns,bvar_s,
-     & nss_in,iss_in,jss_in,nadd
-      common/varin/dihang_in(mxang,maxres,mxch,mxio),nss_in(mxio),
-     &                iss_in(maxss,mxio),jss_in(maxss,mxio)
-      common/minvar/dihang(mxang,maxres,mxch,mxio),etot(mxio),rmsn(mxio)
-     &                 ,pncn(mxio),nss_out(mxio),
-     &                 iss_out(maxss,mxio),jss_out(maxss,mxio)
-      common/bank/
-     *  bvar(mxang,maxres,mxch,mxio),bene(mxio),rene(mxio),
-     *  brmsn(mxio),rrmsn(mxio),
-     *  bpncn(mxio),rpncn(mxio),
-     *  rvar(mxang,maxres,mxch,mxio),ibank(mxio),is(mxio),
-     *  avedif,difmin,ebmin,ebmax,ebmaxt,dele,difcut,cutdif,
-     *  rmscut,pnccut,
-     *  jbank(mxio),dij(mxio,mxio),ibmin,ibmax,
-     *  nbank,ntbank,ntbankm,nconf,iuse,nstep,icycle,iseed,iref,
-     *  nconf_in,ilastnstep,nadd
-      common/bank_disulfid/ bvar_nss(mxio),bvar_ss(2,maxss,mxio),
-     *                      bvar_ns(mxio),bvar_s(maxss,mxio)
-      common/mvstat/ movenx(mxio),movernx(mxio),
-     &    nstatnx(0:mxmv,3),nstatnx_tot(0:mxmv,3),indb(mxio,9),
-     &    parent(3,mxio)
-      common/send2/isend2(mxio),iff_in(maxres,mxio2),
-     &               dihang_in2(mxang,maxres,mxch,mxio2),
-     &               idata(5,mxio)