corrections

[unres.git] / source / unres / src-HCD-5D / MP.F

diff --git a/source/unres/src-HCD-5D/MP.F b/source/unres/src-HCD-5D/MP.F
index debe2b1..d0b13b1 100644 (file)
--- a/source/unres/src-HCD-5D/MP.F
+++ b/source/unres/src-HCD-5D/MP.F
@@ -36,11 +36,11 @@ c  determine # of nodes and current node
       MyRank=me
 C Determine the number of "fine-grain" tasks
       call getenv_loc("FGPROCS",cfgprocs)
-      print *,cfgprocs
+c      print *,cfgprocs
       read (cfgprocs,'(i3)') nfgtasks
       if (nfgtasks.eq.0) nfgtasks=1
       call getenv_loc("MAXGSPROCS",cfgprocs)
-      print *,cfgprocs
+c      print *,cfgprocs
       read (cfgprocs,'(i3)') max_gs_size
       if (max_gs_size.eq.0) max_gs_size=2
       if (lprn)