[cig-commits] [commit] devel: Fix bug in MPI mode. (de54f29)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/a7da6467b6d122c0472513444ce29f2e16a04648...de54f292fc495b3e612e883ea9c3ad063282a6e9

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

commit de54f292fc495b3e612e883ea9c3ad063282a6e9
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Wed Jan 7 00:10:11 2015 -0500

    Fix bug in MPI mode.
    
    MPI_INT is a C type; Fortran should use MPI_INTEGER.


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

de54f292fc495b3e612e883ea9c3ad063282a6e9
 src/specfem2D/pml_init.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/specfem2D/pml_init.F90 b/src/specfem2D/pml_init.F90
index a4d4a62..cc57296 100644
--- a/src/specfem2D/pml_init.F90
+++ b/src/specfem2D/pml_init.F90
@@ -675,7 +675,7 @@ end subroutine pml_init
   if (PML_parameter_adjustment) then
     call MPI_ALLREDUCE (averagex_source, averagex_source_sum, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ier)
     call MPI_ALLREDUCE (averagez_source, averagez_source_sum, 1, MPI_DOUBLE_PRECISION, MPI_SUM, MPI_COMM_WORLD, ier)
-    call MPI_ALLREDUCE (NSOURCES, NSOURCES_glob, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD, ier)
+    call MPI_ALLREDUCE (NSOURCES, NSOURCES_glob, 1, MPI_INTEGER, MPI_SUM, MPI_COMM_WORLD, ier)
   endif
 #endif