introduction of genconstr to wham

[unres.git] / source / wham / src-M / wham_multparm.F

diff --git a/source/wham/src-M/wham_multparm.F b/source/wham/src-M/wham_multparm.F
index e80a39d..7cade99 100644 (file)
--- 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).and.(genconstr.eq.0)) call read_dist_constr
 #ifdef MPI 
       write (iout,*) "Calling proc_groups"
       call proc_groups
@@ -86,10 +87,12 @@ 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
-        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)