untrapped_error Subroutine

public subroutine untrapped_error(err)

Arguments

Type	Intent	Optional	Attributes		Name
type(w90_error_type),	intent(in)			::	err

Source Code

  subroutine untrapped_error(err)
    type(w90_error_type), intent(in) :: err
    ! this routine should never be called, so write to stderr and call "stop" in desparation
    if (err%code == code_deactivated) return
    write (0, *) "UNTRAPPED ERROR: ", err%code
    write (0, *) "UNTRAPPED ERROR: ", err%message
    stop
  end subroutine untrapped_error