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)