list_routinereport_isready Function

public function list_routinereport_isready(list) result(res)

Test if the given list has been initialized.

Arguments

TypeIntentOptionalAttributesName
type(list_routinereport_type), intent(in) :: list

Return Value logical


Contents


Source Code

FUNCTION list_routinereport_isready(list) RESULT(res)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinereport.F"
   !! Test if the given list has been initialized.
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinereport.F"
    TYPE(list_routinereport_type), intent(in)  :: list
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinereport.F"
    LOGICAL                                     :: res
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinereport.F"
    res = ASSOCIATED(list%arr)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinereport.F"
END FUNCTION list_routinereport_isready