debuging WHAM for constrains DEBUG ON

[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..de73250 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) 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)