X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Freadrtns.F;h=c13b16eb290efa4d2954062cbfe57464333021e1;hb=87128dda6cd087e5baee8bfe7453c2d9c879fa54;hp=eb7e462ebe30e12077abeea8b3ea0923ab04de46;hpb=24bbf0f3f06452c69bf4b69b4a9ba620e0260d7b;p=unres.git

diff --git a/source/wham/src/readrtns.F b/source/wham/src/readrtns.F
index eb7e462..c13b16e 100644
--- a/source/wham/src/readrtns.F
+++ b/source/wham/src/readrtns.F
@@ -92,6 +92,8 @@
       call readi(controlcard,'CONSTR_DIST',constr_dist,0)
       write (iout,*) "with_dihed_constr ",with_dihed_constr,
      & " CONSTR_DIST",constr_dist
+      refstr = index(controlcard,'REFSTR').gt.0
+      pdbref = index(controlcard,'PDBREF').gt.0
       call flush(iout)
       return
       end