[cig-commits] r12796 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-09-03 16:03:02 -0700 (Wed, 03 Sep 2008)
New Revision: 12796

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90
Log:
removed useless white spaces


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90	2008-09-03 22:49:42 UTC (rev 12795)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/create_regions_mesh.F90	2008-09-03 23:03:02 UTC (rev 12796)
@@ -1280,7 +1280,7 @@
         do i=1,NGLLX
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
             if(DEBUG .and. copy_ibool_ori(i,j,k,ispec) < 1) then
-              print *,'error: copy_ibool is < 1 in debug1 of second sorting: ',copy_ibool_ori(i,j,k,ispec) 
+              print *,'error: copy_ibool is < 1 in debug1 of second sorting: ',copy_ibool_ori(i,j,k,ispec)
               call exit_MPI(myrank,'error: copy_ibool is < 1 in debug1 of second sorting')
             endif
             if(DEBUG .and. copy_ibool_ori(i,j,k,ispec) > nglob_theor) then
@@ -1328,7 +1328,7 @@
             ibool(i,j,k,ispec) = mask_ibool(copy_ibool_ori(i,j,k,ispec))
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
             if(DEBUG .and. ibool(i,j,k,ispec) < 1) then
-              print *,'error: ibool is < 1 in debug5 of second sorting: ',ibool(i,j,k,ispec) 
+              print *,'error: ibool is < 1 in debug5 of second sorting: ',ibool(i,j,k,ispec)
               call exit_MPI(myrank,'error: ibool is < 1 in debug5 of second sorting')
             endif
             if(DEBUG .and. ibool(i,j,k,ispec) > nglob_theor) then