From: Cezary Czaplewski Date: Wed, 8 Aug 2018 10:57:57 +0000 (+0200) Subject: NMRpeak_partition after hpb_partition X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=6f95af5d4a04ea311fb1e784ce812f133dc8f2e5;hp=61fae8832983d4a71eb8efc042d3e0ba5087740c;p=unres.git NMRpeak_partition after hpb_partition --- diff --git a/source/unres/src_MD-M/readrtns_CSA.F b/source/unres/src_MD-M/readrtns_CSA.F index a94bb53..75094a4 100644 --- a/source/unres/src_MD-M/readrtns_CSA.F +++ b/source/unres/src_MD-M/readrtns_CSA.F @@ -1023,7 +1023,6 @@ c print *, "A TU" if (constr_dist.gt.0) call read_dist_constr write (iout,*) "After read_dist_constr nhpb",nhpb if ((AFMlog.gt.0).or.(selfguide.gt.0)) call read_afminp - call NMRpeak_partition if(me.eq.king.or..not.out1file) & write (iout,*) 'Contact order:',co if (pdbref) then @@ -1088,6 +1087,7 @@ c print *, "A TU" if (nhpb.gt.0) call hpb_partition + if (peak.gt.0) call NMRpeak_partition c write (iout,*) "After read_dist_constr nhpb",nhpb c call flush(iout) if (indpdb.eq.0 .and. modecalc.ne.2 .and. modecalc.ne.4