X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2FMP.F;h=724b5fb06738836d09657f27c3cc9b2144ea85d0;hb=21beec1b0c33ba639efa19f03a9d67ef5b534cab;hp=b08897c9e2edb968ca7dd3d833c382d64ad3f8e5;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;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