[cig-commits] r8584 - seismo/2D/SPECFEM2D/trunk

walter at geodynamics.org walter at geodynamics.org
Fri Dec 7 15:58:33 PST 2007


Author: walter
Date: 2007-12-07 15:58:32 -0800 (Fri, 07 Dec 2007)
New Revision: 8584

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
fixed a few warnings due to tab formatting in specfem2D.F90.

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-09-12 16:49:36 UTC (rev 8583)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:58:32 UTC (rev 8584)
@@ -1878,8 +1878,8 @@
                hprime_zz,hprimewgll_zz,wxgll,wzgll, &
                ibegin_bottom,iend_bottom,ibegin_top,iend_top, &
                jbegin_left,jend_left,jbegin_right,jend_right, &
-	       nspec_inner, ispec_inner_to_glob, .false. &	      
-	       )
+               nspec_inner, ispec_inner_to_glob, .false. &	      
+               )
    endif
 
 ! assembling potential_dot_dot for acoustic elements (receive)
@@ -2026,8 +2026,8 @@
                e1,e11,e13,dux_dxl_n,duz_dzl_n,duz_dxl_n,dux_dzl_n, &
                dux_dxl_np1,duz_dzl_np1,duz_dxl_np1,dux_dzl_np1,hprime_xx,hprimewgll_xx, &
                hprime_zz,hprimewgll_zz,wxgll,wzgll,inv_tau_sigma_nu1,phi_nu1,inv_tau_sigma_nu2,phi_nu2,Mu_nu1,Mu_nu2,N_SLS, &
-	       nspec_inner, ispec_inner_to_glob, .false. &
-	       )
+               nspec_inner, ispec_inner_to_glob, .false. &
+               )
 
 ! assembling accel_elastic for elastic elements (receive)
 #ifdef USE_MPI



More information about the cig-commits mailing list