X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Freadrtns_CSA.F;h=eeaf74c547e1a97a0ab796e0371c252d014a334e;hb=915aca0187c1157b991cb5f13960e82e3007cca6;hp=e5f0b411d557e7054e7fb9499ed310fe202af934;hpb=95cc80884174e2d4316e46f0fb50a061a1e20f76;p=unres.git diff --git a/source/unres/src-HCD-5D/readrtns_CSA.F b/source/unres/src-HCD-5D/readrtns_CSA.F index e5f0b41..eeaf74c 100644 --- a/source/unres/src-HCD-5D/readrtns_CSA.F +++ b/source/unres/src-HCD-5D/readrtns_CSA.F @@ -1184,7 +1184,8 @@ c write (iout,*) "After read_dist_constr nhpb",nhpb 335 continue unres_pdb=.false. nres_temp=nres - call readpdb +c call readpdb + call readpdb_template(nmodel_start+1) close(ipdbin) if (nres.ge.nres_temp) then nmodel_start=nmodel_start+1