X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.CHAIN;h=777cc43c0b405d14819b995c402a011dbee21bf8;hb=0bb81c1c3180a2079d70af7dd534295e1e0b1e4c;hp=71db8f7a0e87058dec9b85ae33df60d323a239fd;hpb=2acc9917f7452c3a59a242e6033bea16f846cbfe;p=unres.git diff --git a/source/unres/src_MD-M/COMMON.CHAIN b/source/unres/src_MD-M/COMMON.CHAIN index 71db8f7..777cc43 100644 --- a/source/unres/src_MD-M/COMMON.CHAIN +++ b/source/unres/src_MD-M/COMMON.CHAIN @@ -9,7 +9,10 @@ common /rotmat/ t(3,3,maxres),r(3,3,maxres),prod(3,3,maxres), & rt(3,3,maxres) common /refstruct/ cref(3,maxres2+2,maxperm), - &crefjlee(3,maxres2+2), - & nsup,nstart_sup,nstart_seq,chain_rep(3,maxres2+2,maxsym), + & crefjlee(3,maxres2+2), + & chain_rep(3,maxres2+2,maxsym), + & nsup,nstart_sup,nstart_seq, & chain_length,iprzes,tabperm(maxperm,maxsym),nperm common /from_zscore/ nz_start,nz_end,iz_sc + double precision boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad + common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad