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

diff --git a/source/wham/src-M/wham_multparm.F b/source/wham/src-M/wham_multparm.F
index de73250..7cade99 100644
--- a/source/wham/src-M/wham_multparm.F
+++ b/source/wham/src-M/wham_multparm.F
@@ -58,7 +58,7 @@ c NaNQ initialization
       call flush(iout)
       call molread(*10)
       call flush(iout)
-      if (constr_dist.gt.0) call read_dist_constr
+      if ((constr_dist.gt.0).and.(genconstr.eq.0)) call read_dist_constr
 #ifdef MPI 
       write (iout,*) "Calling proc_groups"
       call proc_groups
@@ -87,9 +87,11 @@ c NaNQ initialization
         call promienie
         call read_compar
         call read_ref_structure(*10)
+      if ((constr_dist.gt.0).and.(genconstr.gt.0)) call gen_dist_constr 
         call proc_cont
         call fragment_list
       endif
+
 C      if (constr_dist.gt.0) call read_dist_constr
       write (iout,*) "Begin read_database"
       call flush(iout)