rk_class_status Subroutine

private subroutine rk_class_status(me, istatus, message)

Get the status of an integration.

Type Bound

rk_class

Arguments

Type IntentOptional Attributes Name
class(rk_class), intent(in) :: me
integer, intent(out), optional :: istatus

status code (<0 means an error)
character(len=:), intent(out), optional, allocatable :: message

status message

Called by

proc~~rk_class_status~~CalledByGraph proc~rk_class_status rklib_module::rk_class%rk_class_status program~rklib_example rklib_example program~rklib_example->proc~rk_class_status

Source Code

    subroutine rk_class_status(me,istatus,message)
        class(rk_class),intent(in) :: me
        integer,intent(out),optional :: istatus !! status code (`<0` means an error)
        character(len=:),allocatable,intent(out),optional :: message !! status message
        if (present(istatus)) istatus = me%istatus
        if (present(message)) message = trim(rklib_error_messages(me%istatus))
    end subroutine rk_class_status