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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:55:49 -0800 (Fri, 07 Dec 2007)
New Revision: 8552

Modified:
   seismo/2D/SPECFEM2D/trunk/define_derivation_matrices.f90
Log:
fixed a glitch due to hprime being now its tranpose in define_derivation_matrices.f90.

Modified: seismo/2D/SPECFEM2D/trunk/define_derivation_matrices.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/define_derivation_matrices.f90	2007-07-04 02:24:00 UTC (rev 8551)
+++ seismo/2D/SPECFEM2D/trunk/define_derivation_matrices.f90	2007-12-07 23:55:49 UTC (rev 8552)
@@ -48,14 +48,14 @@
   do i1=1,NGLLX
     do i2=1,NGLLX
       hprime_xx(i2,i1) = lagrange_deriv_GLL(i1-1,i2-1,xigll,NGLLX)
-      hprimewgll_xx(i2,i1) = wxgll(i2) * hprime_xx(i1,i2)
+      hprimewgll_xx(i2,i1) = wxgll(i2) * hprime_xx(i2,i1)
     enddo
   enddo
 
   do k1=1,NGLLZ
     do k2=1,NGLLZ
       hprime_zz(k2,k1) = lagrange_deriv_GLL(k1-1,k2-1,zigll,NGLLZ)
-      hprimewgll_zz(k2,k1) = wzgll(k2) * hprime_zz(k1,k2)
+      hprimewgll_zz(k2,k1) = wzgll(k2) * hprime_zz(k2,k1)
     enddo
   enddo