1 real*8 dihang,etot,bvar,bene,rene,rvar,avedif,difmin,
2 & ebmin,ebmax,ebmaxt,cutdif,dij,dihang_in
3 integer ibank,is,jbank,ibmin,ibmax,nbank,nconf,iuse,nstep,icycle,
4 & iseed,ntbank,ntbankm,iref,nconf_in,indb,ilastnstep,
5 & bvar_nss,bvar_ss,bvar_ns,bvar_s,
6 & nss_in,iss_in,jss_in,nadd
7 common/varin/dihang_in(mxang,maxres,mxch,mxio),nss_in(mxio),
8 & iss_in(maxss,mxio),jss_in(maxss,mxio)
9 common/minvar/dihang(mxang,maxres,mxch,mxio),etot(mxio),rmsn(mxio)
10 & ,pncn(mxio),nss_out(mxio),
11 & iss_out(maxss,mxio),jss_out(maxss,mxio)
13 * bvar(mxang,maxres,mxch,mxio),bene(mxio),rene(mxio),
14 * brmsn(mxio),rrmsn(mxio),
15 * bpncn(mxio),rpncn(mxio),
16 * rvar(mxang,maxres,mxch,mxio),ibank(mxio),is(mxio),
17 * avedif,difmin,ebmin,ebmax,ebmaxt,dele,difcut,cutdif,
19 * jbank(mxio),dij(mxio,mxio),ibmin,ibmax,
20 * nbank,ntbank,ntbankm,nconf,iuse,nstep,icycle,iseed,iref,
21 * nconf_in,ilastnstep,nadd
22 common/bank_disulfid/ bvar_nss(mxio),bvar_ss(2,maxss,mxio),
23 * bvar_ns(mxio),bvar_s(maxss,mxio)
24 common/mvstat/ movenx(mxio),movernx(mxio),
25 & nstatnx(0:mxmv,3),nstatnx_tot(0:mxmv,3),indb(mxio,9),
27 common/send2/isend2(mxio),iff_in(maxres,mxio2),
28 & dihang_in2(mxang,maxres,mxch,mxio2),