Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character, | intent(in) | :: | message | |||
integer, | intent(in) | :: | error | |||
integer, | intent(out), | optional | :: | status | ||
character, | intent(in), | optional | :: | module | ||
character, | intent(in), | optional | :: | procedure |
module subroutine error_handler( message, error, status, &
module, procedure )
character(*), intent(in) :: message
integer, intent(in) :: error
integer, intent(out), optional :: status
character(*), intent(in), optional :: module
character(*), intent(in), optional :: procedure
end subroutine error_handler