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