From 6f95af5d4a04ea311fb1e784ce812f133dc8f2e5 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Wed, 8 Aug 2018 12:57:57 +0200 Subject: [PATCH 1/1] NMRpeak_partition after hpb_partition --- source/unres/src_MD-M/readrtns_CSA.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.9.5