X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Freadrtns.F;h=431392b0ced1fe0399b255478aa1b2e73342541a;hb=ff639b60bc8a1c011c8fed81bc1f82e4b35f4e2a;hp=3d308b466bd04c67f99e34faa8bca2dc6e096d2a;hpb=5c94ca5cd3617ec465795a5cb6c312d2c5e6748b;p=unres.git

diff --git a/source/wham/src/readrtns.F b/source/wham/src/readrtns.F
index 3d308b4..431392b 100644
--- a/source/wham/src/readrtns.F
+++ b/source/wham/src/readrtns.F
@@ -96,6 +96,7 @@
       call readi(controlcard,'CONSTR_HOMOL',constr_homology,0)
       write (iout,*) "with_homology_constr ",with_dihed_constr,
      & " CONSTR_HOMOLOGY",constr_homology
+      read_homol_frag = index(controlcard,"READ_HOMOL_FRAG").gt.0
       refstr = index(controlcard,'REFSTR').gt.0
       pdbref = index(controlcard,'PDBREF').gt.0
       dyn_ss=(index(controlcard,'DYN_SS').gt.0)