X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Freadrtns_CSA.F;fp=source%2Funres%2Fsrc-HCD-5D%2Freadrtns_CSA.F;h=eeaf74c547e1a97a0ab796e0371c252d014a334e;hb=ba90a41f4674924a0bdc00452b59506a2acfa54a;hp=e5f0b411d557e7054e7fb9499ed310fe202af934;hpb=ab695e2bb5e28825f160d84875b68d48c5c0f493;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