X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fwham.F90;h=2ad82cb7e5fec68c5d4dc7ce3bade4bbef840d4d;hb=3f6410ab3e2c02281d00f43c186d5e3c9f63b8fc;hp=fcf1d157dcb06b4272f1be1b6981df91d6627757;hpb=df2469d9ac903d93889867f4e50e9bf6c428c1c6;p=unres4.git

diff --git a/source/wham/wham.F90 b/source/wham/wham.F90
index fcf1d15..2ad82cb 100644
--- a/source/wham/wham.F90
+++ b/source/wham/wham.F90
@@ -129,8 +129,8 @@
 !write(iout,*)"before proc_cont, define frag"
         call proc_cont
         call fragment_list
-        if (constr_dist.gt.0) call read_dist_constr
       endif
+      if (constr_dist.gt.0) call read_dist_constr
       write (iout,*) "Begin read_database"
       call flush(iout)
       call read_database(*10)