use mpi_data
! use mpi_
#endif
- use control, only:initialize
+ use control, only:initialize,hpb_partition
!el use io_config, only:parmread
!
#ifndef ISNAN
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)