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~~CalledByGraph proc~io_error io_error proc~conv_get_seedname conv_get_seedname proc~conv_get_seedname->proc~io_error proc~conv_read_spn conv_read_spn proc~conv_read_spn->proc~io_error proc~conv_read_spn_fmt conv_read_spn_fmt proc~conv_read_spn_fmt->proc~io_error proc~conv_write_spn conv_write_spn proc~conv_write_spn->proc~io_error program~w90spn2spn w90spn2spn program~w90spn2spn->proc~conv_get_seedname program~w90spn2spn->proc~conv_read_spn program~w90spn2spn->proc~conv_read_spn_fmt program~w90spn2spn->proc~conv_write_spn

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