error_abort Subroutine

private subroutine error_abort(s)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: s

Contents

Source Code

error_abort

Source Code

  subroutine error_abort(s)
    implicit none
    character(len=*), intent(in) :: s
    
    integer r, ierr
    
    write(0,'(a)') s
    call mpi_comm_rank(shm_info%wcomm, r, ierr)
    write(0,*) 'rank ', r, 'node id ', shm_info%id
    call mpi_abort(shm_info%wcomm, -1, ierr)
  end subroutine error_abort