X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FMP.F;h=d0b13b1023b0c5b4ffe62db818abb975b522e4b3;hb=1441ec2b7d68b4fd94014649e4bd9574db0bfc36;hp=debe2b1064ee94439ef12da2638fd5aa0e2e87ea;hpb=79fd686e9d9aaa23e4fda802ee16379470e961d3;p=unres.git

diff --git a/source/unres/src-HCD-5D/MP.F b/source/unres/src-HCD-5D/MP.F
index debe2b1..d0b13b1 100644
--- 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)