unres src_MD-M from branch Multichain

[unres.git] / source / unres / src_MD / MP.F

diff --git a/source/unres/src_MD/MP.F b/source/unres/src_MD/MP.F
index b08897c..724b5fb 100644 (file)
--- 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