init_error_handling Subroutine

  1. mimic_errors.F90
  2. mimic_errors
  3. init_error_handling

public subroutine init_error_handling(pid, error_handler)

initialiaze error handler

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: pid

process ID (preferrably MPI rank)
procedure(handle), optional pointer:: error_handler

optional external error handler

Contents

Source Code

init_error_handling

Source Code

    subroutine init_error_handling(pid, error_handler)

        !> process ID (preferrably MPI rank)
        integer, intent(in) :: pid
        !> optional external error handler
        procedure(handle), pointer, optional :: error_handler

        process_id = pid
        if (present(error_handler)) then
            custom_handler => error_handler
        endif

    end subroutine init_error_handling