initialize error handling
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | process_id | process id (preferrably MPI rank) |
||
| procedure(handle), | optional | pointer | :: | error_handler | optional external error handler |
subroutine mimic_init_error_handler(process_id, error_handler)
!> process id (preferrably MPI rank)
integer, intent(in) :: process_id
!> optional external error handler
procedure(handle), pointer, optional :: error_handler
call init_error_handling(process_id, error_handler)
end subroutine mimic_init_error_handler