handle_generic_error Subroutine

  1. mimic_errors.F90
  2. mimic_errors
  3. handle_generic_error

private subroutine handle_generic_error(iounit, message)

Handler to treat any other kind of errors

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: iounit

I/O unit to write error to
character(len=*), intent(in) :: message

Error message

Contents

Source Code

handle_generic_error

Source Code

    subroutine handle_generic_error(iounit, message)

        !> I/O unit to write error to
        integer, intent(in) :: iounit
        !> Error message
        character(len=*), intent(in) :: message

        write(unit=iounit, fmt=*) "Unexpected problem!"
        write(unit=iounit, fmt=*) message

    end subroutine handle_generic_error