X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fmolread_zs.F;h=431680df45ddbd689bd5060d605f932c11e881ed;hb=34b56f82298df0d9781948908b2d93415838d88e;hp=87a34953ecd4fd1559fb7dffbfe4e260c4f08629;hpb=6faa406438bff5968dc4a386929745cfaf554352;p=unres.git

diff --git a/source/wham/src/molread_zs.F b/source/wham/src/molread_zs.F
index 87a3495..431680d 100644
--- a/source/wham/src/molread_zs.F
+++ b/source/wham/src/molread_zs.F
@@ -96,6 +96,7 @@ C Convert sequence to numeric code
       write(iout,*) 'NNT=',NNT,' NCT=',NCT
 c Read distance restraints
       if (constr_dist.gt.0) then
+        if (refstr) call read_ref_structure(*11)
         call read_dist_constr
         call hpb_partition
       endif
@@ -119,6 +120,7 @@ c Read distance restraints
       endif
       write (iout,'(a)')
       return
+   11 stop "Error reading reference structure"
       end
 c-----------------------------------------------------------------------------
       logical function seq_comp(itypea,itypeb,length)