X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FMP.F;h=debe2b1064ee94439ef12da2638fd5aa0e2e87ea;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=37bf5b9b8a183f18f31a4a446f41521b3ac84d94;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/unres/src_MD-M/MP.F b/source/unres/src_MD-M/MP.F
index 37bf5b9..debe2b1 100644
--- a/source/unres/src_MD-M/MP.F
+++ b/source/unres/src_MD-M/MP.F
@@ -11,7 +11,7 @@ c      real*8 text1 /'group_i '/,text2/'group_f '/,
 c     & text3/'initialb'/,text4/'initiale'/,
 c     & text5/'openb'/,text6/'opene'/
       integer cgtasks(0:max_cg_procs)
-      character*3 cfgprocs 
+      character*3 cfgprocs /"  1"/
       integer cg_size,fg_size,fg_size1
 c  start parallel processing
 c      print *,'Initializing MPI'
@@ -36,9 +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
       read (cfgprocs,'(i3)') nfgtasks
       if (nfgtasks.eq.0) nfgtasks=1
       call getenv_loc("MAXGSPROCS",cfgprocs)
+      print *,cfgprocs
       read (cfgprocs,'(i3)') max_gs_size
       if (max_gs_size.eq.0) max_gs_size=2
       if (lprn)