handle_mem_error Subroutine

  1. mimic_errors.F90
  2. mimic_errors
  3. handle_mem_error

private subroutine handle_mem_error(iounit, message)

Handler to treat memory allocation issues

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: iounit

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

Error message

Contents

Source Code

handle_mem_error

Source Code

    subroutine handle_mem_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=*) "Memory allocation problem in ", message

    end subroutine handle_mem_error