[cig-commits] [commit] : added a missing parameter in a routine call in locate_source.f90 (1195b0d)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d

On branch  : 
Link       : https://github.com/geodynamics/specfem2d/compare/1e201257d91c794056b990a43329e05d04f77454...0000000000000000000000000000000000000000

>---------------------------------------------------------------

commit 1195b0d2f9683421da688df78900b6f1a75b3bdf
Author: Pieyre Le Loher <pieyre.le-loher at inria.fr>
Date:   Wed Nov 18 14:05:49 2009 +0000

    added a missing parameter in a routine call in locate_source.f90


>---------------------------------------------------------------

1195b0d2f9683421da688df78900b6f1a75b3bdf
 locate_source.f90 | 2 +-
 meshfem3D.f90     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/locate_source.f90 b/locate_source.f90
index 45fc5d1..19ae5c6 100644
--- a/locate_source.f90
+++ b/locate_source.f90
@@ -373,7 +373,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)
diff --git a/meshfem3D.f90 b/meshfem3D.f90
index ae4ca61..f40f45c 100644
--- a/meshfem3D.f90
+++ b/meshfem3D.f90
@@ -309,7 +309,7 @@
   endif
 
 ! read the parameter file
-  call read_parameter_file(LATITUDE_MIN,LATITUDE_MAX,LONGITUDE_MIN,LONGITUDE_MAX, &
+  call read_parameter_file_meshfem3D(LATITUDE_MIN,LATITUDE_MAX,LONGITUDE_MIN,LONGITUDE_MAX, &
         UTM_X_MIN,UTM_X_MAX,UTM_Y_MIN,UTM_Y_MAX,Z_DEPTH_BLOCK, &
         NER_SEDIM,NER_BASEMENT_SEDIM,NER_16_BASEMENT,NER_MOHO_16,NER_BOTTOM_MOHO, &
         NEX_XI,NEX_ETA,NPROC_XI,NPROC_ETA,NTSTEP_BETWEEN_OUTPUT_SEISMOS,NSTEP,UTM_PROJECTION_ZONE,DT, &