io_error Subroutine

public subroutine io_error(error_msg, stdout)

Abort the code giving an error message

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: error_msg
integer :: stdout

Called by

proc~~io_error~2~~CalledByGraph proc~io_error~2 io_error proc~conv_get_seedname~2 conv_get_seedname proc~conv_get_seedname~2->proc~io_error~2 proc~conv_read_chkpt conv_read_chkpt proc~conv_read_chkpt->proc~io_error~2 proc~conv_read_chkpt_fmt conv_read_chkpt_fmt proc~conv_read_chkpt_fmt->proc~io_error~2 program~w90chk2chk w90chk2chk program~w90chk2chk->proc~conv_get_seedname~2 program~w90chk2chk->proc~conv_read_chkpt program~w90chk2chk->proc~conv_read_chkpt_fmt

Source Code

  subroutine io_error(error_msg, stdout)
    !================================================
    !
    !! Abort the code giving an error message
    !
    !================================================

    implicit none

    character(len=*), intent(in) :: error_msg
    integer :: stdout

    close (stdout)
    write (*, '(1x,a)') trim(error_msg)
    write (*, '(A)') "Error: examine the output/error file for details"
    stop 1
  end subroutine io_error