MODULE MPI_MORE

      private
      public :: GLOB_ABORT

      CONTAINS

      SUBROUTINE GLOB_ABORT(ie,s,rc)
      implicit none
      include 'mpif.h'
      integer rc,ie,ierr
      character*(*) s
      character*500 message
      if (ie.ne.0) then
 3038    format("GLOB_ABORT: ",A," ie,rc:",I0,"  ",I0)
         write(message,3038) trim(s),ie,rc

         if(rc.eq.0) then
            write(0,*)message
         else
            write(0,*)message
            call MPI_ABORT(MPI_COMM_WORLD,rc,ierr)
         endif
      end if

      RETURN
      END SUBROUTINE GLOB_ABORT

      END MODULE MPI_MORE
!***********************************************************************
!