X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FCOMMON.CHAIN;h=f3438874df594e87f554252e7e2bf5ceac3408dd;hb=76e42f096fb81c8c9f7042746b20150276d03262;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..f343887 100644 --- a/source/unres/src_MD-M/COMMON.CHAIN +++ b/source/unres/src_MD-M/COMMON.CHAIN @@ -9,7 +9,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