[cig-commits] r13008 - seismo/3D/SPECFEM3D/branches/update_temporary

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-10-09 01:24:09 -0700 (Thu, 09 Oct 2008)
New Revision: 13008

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/locate_source.f90
Log:
fixed bug in locate_source : missing argument NPROC.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/locate_source.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/locate_source.f90	2008-10-09 07:39:11 UTC (rev 13007)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/locate_source.f90	2008-10-09 08:24:09 UTC (rev 13008)
@@ -595,7 +595,7 @@
 
     ispec_selected_source_all(:,:) = -1
 
-  call gather_all_i(ispec_selected_source(ns:ne),ng,ispec_selected_source_all(1:ng,:),ng)
+  call gather_all_i(ispec_selected_source(ns:ne),ng,ispec_selected_source_all(1:ng,:),ng,NPROC)
 
   call gather_all_dp(xi_source(ns:ne),ng,xi_source_all(1:ng,:),ng,NPROC)
   call gather_all_dp(eta_source(ns:ne),ng,eta_source_all(1:ng,:),ng,NPROC)