error_handler Module Subroutine

public module subroutine error_handler(message, error, status, module, procedure)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: message
integer, intent(in) :: error
integer, intent(out), optional :: status
character(len=*), intent(in), optional :: module
character(len=*), intent(in), optional :: procedure

Source Code

        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