[cig-commits] r17066 - seismo/3D/ADJOINT_TOMO/flexwin

[liuqy at geodynamics.org]

Author: liuqy
Date: 2010-08-04 07:42:45 -0700 (Wed, 04 Aug 2010)
New Revision: 17066

Modified:
   seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
Log:
Fix iwin in calculate_windows_before(aux)_quality. 'implicit none' may be needed for these subroutines


Modified: seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2010-08-03 19:30:29 UTC (rev 17065)
+++ seismo/3D/ADJOINT_TOMO/flexwin/seismo_subs.f90	2010-08-04 14:42:45 UTC (rev 17066)
@@ -380,7 +380,7 @@
   use seismo_variables
 
   do i = 1, num_win
-    call calc_criteria(obs_lp,synt_lp,npts,i_start(iwin),i_end(iwin),dt,Tshift(i),CC(i),dlnA(i))
+    call calc_criteria(obs_lp,synt_lp,npts,i_start(i),i_end(i),dt,Tshift(i),CC(i),dlnA(i))
   enddo
   end subroutine
 
@@ -390,7 +390,7 @@
   use seismo_variables
 
   do i = 1, num_win
-    call calc_criteria(obs_lp,synt_lp,npts,i_start(iwin),i_end(iwin),dt,Tshift_aux(i),CC_aux(i),dlnA_aux(i))
+    call calc_criteria(obs_lp,synt_lp,npts,i_start(i),i_end(i),dt,Tshift_aux(i),CC_aux(i),dlnA_aux(i))
 
   enddo
   end subroutine