A couple more tweaks to get output just right.

ESMCI · Jan 8, 2016 · 3878373 · 3878373
1 parent 5aa4bd1
commit 3878373
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/tests/performance/pioperformance.F90 b/tests/performance/pioperformance.F90
@@ -329,7 +329,8 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
 #ifdef VARDOUBLE
                    nvarmult = nvarmult+2
 #endif
-                   print *, 'RESULT: write ',rearr_name(rearr), piotypes(k), ntasks, nvars, &
+                   write(*,'(a15,a9,i10,i10,i10,f20.10)') &	
+                   'RESULT: write ',rearr_name(rearr), piotypes(k), ntasks, nvars, &
                                      nvarmult*nvars*nframes*gmaplen*4.0/(1048576.0*wall(2))
 #ifdef BGQTRY
   call print_memusage()
@@ -465,7 +466,9 @@ subroutine pioperformancetest(filename, piotypes, mype, npe_base, &
 #ifdef VARDOUBLE
                    nvarmult = nvarmult+2
 #endif
-                   print *, 'RESULT: read ',rearr_name(rearr), piotypes(k), ntasks, nvars, nvarmult*nvars*nframes*gmaplen*4.0/(1048576.0*wall(2))
+                   write(*,'(a15,a9,i10,i10,i10,f20.10)') &
+                        'RESULT: read ',rearr_name(rearr), piotypes(k), ntasks, nvars, &
+			           nvarmult*nvars*nframes*gmaplen*4.0/(1048576.0*wall(2))
 #ifdef BGQTRY 
   call print_memusage()
 #endif