update

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

diff --git a/source/unres/src_MD-M/MP.F b/source/unres/src_MD-M/MP.F
index 37bf5b9..debe2b1 100644 (file)
--- 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)