aborter Subroutine

private subroutine aborter(ierrmsg)

ABORTS A PROGRAM AFTER A FATAL ERROR CONDITION IS DETECTED.

Arguments

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

Error message

Contents

Source Code

aborter

Source Code

  subroutine aborter(ierrmsg)
    implicit none
    !> Error message
    character(*), intent(in) :: ierrmsg

    write(*, 1001)
1001 format(//' %ABORTER:  ** FATAL ERROR.  ABORT SUBROUTINE CALLED **'//)
  
    write(*, 1002) ierrmsg
1002 format(1x,a,//)

    error stop
  end subroutine aborter