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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-05-04 04:55:30 -0700 (Sun, 04 May 2008)
New Revision: 11915

Modified:
   seismo/2D/SPECFEM2D/trunk/compute_curl_one_element.f90
Log:
removed some white spaces


Modified: seismo/2D/SPECFEM2D/trunk/compute_curl_one_element.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/compute_curl_one_element.f90	2008-05-04 11:51:39 UTC (rev 11914)
+++ seismo/2D/SPECFEM2D/trunk/compute_curl_one_element.f90	2008-05-04 11:55:30 UTC (rev 11915)
@@ -41,7 +41,7 @@
 !========================================================================
 
 subroutine compute_curl_one_element(curl_element,displ_elastic,elastic, &
-     xix,xiz,gammax,gammaz,ibool,hprime_xx,hprime_zz,nspec,npoin, ispec)
+     xix,xiz,gammax,gammaz,ibool,hprime_xx,hprime_zz,nspec,npoin,ispec)
 
   ! compute curl in elastic elements (for rotational study)
 
@@ -75,7 +75,6 @@
   real(kind=CUSTOM_REAL) :: dux_dxi,dux_dgamma,duz_dxi,duz_dgamma
   real(kind=CUSTOM_REAL) :: duz_dxl,dux_dzl
 
-
   if(elastic(ispec)) then
 
      do j = 1,NGLLZ