SUBROUTINE GLOB_ABORT(ie,s,rc)
      implicit none
      include 'mpif.h'
      integer rc,ie,ierr
      character*(*) s
      if (ie.ne.0) then
        print*,'GLOB_ABORT: '//s//' ie,rc:',ie,rc
!       write(0,*) 'GLOB_ABORT: '//s//' ie,rc:',ie,rc
        if (rc.ne.0) write(0,*) 'GLOB_ABORT: '//s//' ie,rc:',ie,rc
!       if (rc.eq.0) RETURN
        CALL MPI_ABORT(MPI_COMM_WORLD,rc,ierr)
      end if
      RETURN
      END
C
C***********************************************************************
C