X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fwham_multparm.F;h=de73250c65e586b8e18a634fc21b0cd0957913ae;hb=dd6b6b032024dfa86d8ed7622a72194c45b97cce;hp=e80a39d8ec9729c2ca55157495e95f4c28087d19;hpb=c45326004a77063de99e919c46db1a8bba1d3eba;p=unres.git

diff --git a/source/wham/src-M/wham_multparm.F b/source/wham/src-M/wham_multparm.F
index e80a39d..de73250 100644
--- a/source/wham/src-M/wham_multparm.F
+++ b/source/wham/src-M/wham_multparm.F
@@ -58,6 +58,7 @@ c NaNQ initialization
       call flush(iout)
       call molread(*10)
       call flush(iout)
+      if (constr_dist.gt.0) call read_dist_constr
 #ifdef MPI 
       write (iout,*) "Calling proc_groups"
       call proc_groups
@@ -88,8 +89,8 @@ c NaNQ initialization
         call read_ref_structure(*10)
         call proc_cont
         call fragment_list
-        if (constr_dist.gt.0) call read_dist_constr
       endif
+C      if (constr_dist.gt.0) call read_dist_constr
       write (iout,*) "Begin read_database"
       call flush(iout)
       call read_database(*10)