X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.CHAIN;h=c33eaee90b523a6681efb60617067794d8535647;hb=5722c4e038d43e97095a107ea4e836898c816253;hp=ea1c17a6291b25bec21ce617e5fe775ffda3dbeb;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git diff --git a/source/unres/src_MD-M/COMMON.CHAIN b/source/unres/src_MD-M/COMMON.CHAIN index ea1c17a..c33eaee 100644 --- a/source/unres/src_MD-M/COMMON.CHAIN +++ b/source/unres/src_MD-M/COMMON.CHAIN @@ -8,7 +8,8 @@ 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