[cig-commits] r11666 - seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Mon Mar 31 09:56:25 PDT 2008
Author: dkomati1
Date: 2008-03-31 09:56:25 -0700 (Mon, 31 Mar 2008)
New Revision: 11666
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90
Log:
added case above 60%
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90 2008-03-31 16:16:00 UTC (rev 11665)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/UTILS/estimate_best_values_runs/estimate_best_values_runs.f90 2008-03-31 16:56:25 UTC (rev 11666)
@@ -245,7 +245,17 @@
else if(percent >= 80.d0) then
write(*,"(' ',i5,' ',f6.2,'% ',i3,' ',i4,' ',f6.2,' ',f6.2,'% **very good**')") &
6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
+ goto 777
+ else if(percent >= 70.d0) then
+ write(*,"(' ',i5,' ',f6.2,'% ',i3,' ',i4,' ',f6.2,' ',f6.2,'% **not bad**')") &
+ 6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
+ goto 777
+
+ else if(percent >= 60.d0) then
+ write(*,"(' ',i5,' ',f6.2,'% ',i3,' ',i4,' ',f6.2,' ',f6.2,'% **possible**')") &
+ 6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
+
else
write(*,"(' ',i5,' ',f6.2,'% ',i3,' ',i4,' ',f6.2,' ',f6.2,'%')") &
6*NPROC_XI**2,100.d0*6*NPROC_XI**2/dble(MAX_NUMBER_OF_PROCS),NPROC_XI,NEX_XI,mem_per_core,percent
More information about the cig-commits
mailing list