X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FMP.F;h=724b5fb06738836d09657f27c3cc9b2144ea85d0;hb=c7a96454a5265471d175bbe066071ac41c8b55c3;hp=b08897c9e2edb968ca7dd3d833c382d64ad3f8e5;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/unres/src_MD/MP.F b/source/unres/src_MD/MP.F
index b08897c..724b5fb 100644
--- a/source/unres/src_MD/MP.F
+++ b/source/unres/src_MD/MP.F
@@ -34,6 +34,7 @@ c  determine # of nodes and current node
       endif
       Nprocs=nodes
       MyRank=me
+      write (*,*) "nodes",nodes," rank",me
 C Determine the number of "fine-grain" tasks
       call getenv_loc("FGPROCS",cfgprocs)
       read (cfgprocs,'(i3)') nfgtasks