[cig-commits] r19886 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-03-27 15:29:16 -0700 (Tue, 27 Mar 2012)
New Revision: 19886

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90
Log:
removed a few white spaces in a print statement


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90	2012-03-27 22:04:57 UTC (rev 19885)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90	2012-03-27 22:29:16 UTC (rev 19886)
@@ -738,13 +738,13 @@
       ! take the central cube into account
       ! it is counted 6 times because of the fictitious elements
       if(INCLUDE_CENTRAL_CUBE) then
-        write(IMAIN,*) '     similar volume: ', &
+        write(IMAIN,*) '  similar volume: ', &
           dble(NCHUNKS)*((4.0d0/3.0d0)*PI*(R_UNIT_SPHERE**3)+5.*(2.*(R_CENTRAL_CUBE/R_EARTH)/sqrt(3.))**3)/6.d0
       else
-        write(IMAIN,*) '     similar volume: ', &
+        write(IMAIN,*) '  similar volume: ', &
           dble(NCHUNKS)*((4.0d0/3.0d0)*PI*(R_UNIT_SPHERE**3)-(2.*(R_CENTRAL_CUBE/R_EARTH)/sqrt(3.))**3)/6.d0
       endif
-      write(IMAIN,*) '     (but not exact because the central cube is purposely inflated)'
+      write(IMAIN,*) '  (but not exact because the central cube is purposely inflated)'
     endif
   endif