ErrorModule Module

  1. ErrorModule.F90
  2. ErrorModule

A (under development) module to do handle error passing.


Uses


Contents

Interfaces

Derived Types

Functions

Subroutines


Interfaces

public interface Error_t

  • private function Error_t_init() result(return_value)

    Default constructor for an error type.

    Arguments

    None

    Return Value type(Error_t)

    The newly constructed error type


Derived Types

type, public :: Error_t

A type that can be passed around to accumulate errors.

Constructor

private function Error_t_init()

Default constructor for an error type.

Functions

public function CheckMPIError(this, error_description, mpi_error, immediate_cleanup_in) result(error_occurred)

Routine to call to check if an MPI error has occurred.

Arguments

Type IntentOptional AttributesName
type(Error_t), intent(inout) :: this

The error variable to be set.
character(len=*), intent(in) :: error_description

Some string describing the details of the error.
integer, intent(in) :: mpi_error

The error variable produced by mpi.
logical, intent(in), optional :: immediate_cleanup_in

If true, the cleanup error handler is called.

Return Value logical

True if an error has occurred, false otherwise.

public function CheckAllocError(this, error_description, alloc_error, immediate_cleanup_in) result(error_occurred)

Routine to call if an alloc error has occurred.

Arguments

Type IntentOptional AttributesName
type(Error_t), intent(inout) :: this

This the error variable to be set.
character(len=*), intent(in) :: error_description

Some string describing the details of the error.
integer, intent(in) :: alloc_error

The error variable produced by alloc.
logical, intent(in), optional :: immediate_cleanup_in

If true, the cleanup error handler is called.

Return Value logical

True if an error has occurred, false otherwise.

public function ErrorOccurred(this) result(occurred)

Check if an error has occurred or not.

Arguments

Type IntentOptional AttributesName
type(Error_t), intent(in) :: this

The error variable to check.

Return Value logical

True if an error has occurred, false otherwise.


Subroutines

public subroutine SetGenericError(this, error_description, immediate_cleanup_in)

Routine to call if a generic error has occurred.

Arguments

Type IntentOptional AttributesName
type(Error_t), intent(inout) :: this

The error variable to be set.
character(len=*), intent(in) :: error_description

Some string describing the details of the error.
logical, intent(in), optional :: immediate_cleanup_in

If true, the cleanup error handler is called.

public subroutine PrintError(this)

Print out that an error has occurred.

Arguments

Type IntentOptional AttributesName
type(Error_t), intent(in) :: this

The error to print out.

public subroutine Cleanup(this)

As a last case resort, this will print an error message and quit.

Arguments

Type IntentOptional AttributesName
type(Error_t), intent(in) :: this

The error which has caused the need to cleanup the program.