Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

[unres.git] / source / unres / src_MD-M-newcorr / COMMON.BANK

diff --git a/source/unres/src_MD-M-newcorr/COMMON.BANK b/source/unres/src_MD-M-newcorr/COMMON.BANK
new file mode 100644 (file)
index 0000000..5b0fb34
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/COMMON.BANK
@@ -0,0 +1,29 @@
+      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)