error Subroutine

private subroutine error(msg)

FIXME : Add documentation

Arguments

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

Contents

Source Code

error

Source Code

  subroutine error (msg)
    implicit none
    character(*), intent (in) :: msg

    print *, "shmem error: "//msg
    call coredump
    stop
  end subroutine error