Test if the given list has been initialized.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(list_callstackentry_type), | intent(in) | :: | list |
FUNCTION list_callstackentry_isready(list) RESULT(res)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_callstackentry.F"
!! Test if the given list has been initialized.
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_callstackentry.F"
TYPE(list_callstackentry_type), intent(in) :: list
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_callstackentry.F"
LOGICAL :: res
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_callstackentry.F"
res = ASSOCIATED(list%arr)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_callstackentry.F"
END FUNCTION list_callstackentry_isready