error_handler 模块子程序

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

参数

类型 意图可选 属性 名称
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

源代码

        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