X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=ec978e7ab817305b4ebe88cb2ffbef91d410a597;hb=4bb2cdc2f60d154b9170e189d6a36992128e81f9;hp=7db117dffc2a2839a175465ae8c4310d2163f895;hpb=e3a8e8d61d7f6f11117e3b4b70e551f04f198b1c;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index 7db117d..ec978e7 100644
--- a/source/unres/src_MD/initialize_p.F
+++ b/source/unres/src_MD/initialize_p.F
@@ -1375,6 +1375,7 @@ c------------------------------------------------------------------------------
       include 'COMMON.IOUNITS'
       include 'COMMON.SETUP'
       include 'COMMON.CONTROL'
+c      write(2,*)"hpb_partition: nhpb=",nhpb
 #ifdef MPI
       call int_bounds(nhpb,link_start,link_end)
       if (.not. out1file) 
@@ -1386,5 +1387,6 @@ c------------------------------------------------------------------------------
       link_start=1
       link_end=nhpb
 #endif
+c      write(2,*)"hpb_partition: link_start=",nhpb," link_end=",link_end
       return
       end