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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2007-12-18 15:14:13 -0800 (Tue, 18 Dec 2007)
New Revision: 8909

Modified:
   seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90
Log:
fixed bug in syntax of MPI_ABORT


Modified: seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90	2007-12-18 21:32:48 UTC (rev 8908)
+++ seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90	2007-12-18 23:14:13 UTC (rev 8909)
@@ -761,12 +761,10 @@
   write(*,*) 'Error detected, aborting MPI... proc '
 
   ! stop all the MPI processes, and exit
-  ! on some machines, MPI_FINALIZE needs to be called before MPI_ABORT
 #ifdef USE_MPI
   call MPI_ABORT(MPI_COMM_WORLD,30,ier)
-  call MPI_FINALIZE(ier)
-
 #endif
+
   stop 'error, program ended in exit_MPI'
 
 end subroutine exit_MPI