X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fwham.F90;h=78304d8b9b10fdc59308ed3bfbcebc62556a2df6;hb=b74333aa5a167dd84f48d8a9a4c7ac62058e9132;hp=2ad82cb7e5fec68c5d4dc7ce3bade4bbef840d4d;hpb=59ee3097c79b95b440ec246ae84b08555f75a832;p=unres4.git

diff --git a/source/wham/wham.F90 b/source/wham/wham.F90
index 2ad82cb..78304d8 100644
--- a/source/wham/wham.F90
+++ b/source/wham/wham.F90
@@ -15,7 +15,7 @@
       use mpi_data
 !      use mpi_
 #endif
-      use control, only:initialize
+      use control, only:initialize,hpb_partition
 !el      use io_config, only:parmread
 !
 #ifndef ISNAN
@@ -130,7 +130,10 @@
         call proc_cont
         call fragment_list
       endif
-      if (constr_dist.gt.0) call read_dist_constr
+      if (constr_dist.gt.0) then 
+         call read_dist_constr
+         call hpb_partition
+      endif
       write (iout,*) "Begin read_database"
       call flush(iout)
       call read_database(*10)