list_timerenv_size Function

public function list_timerenv_size(list) result(size)

Returns the current size of the list.

Arguments

Type IntentOptional Attributes Name
type(list_timerenv_type), intent(in) :: list

Return Value integer


Contents

Source Code

list_timerenv_size

Source Code

FUNCTION list_timerenv_size(list) RESULT(size)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
   !! Returns the current size of the list.
# 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"
    INTEGER :: size
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"

# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
    IF(.not. ASSOCIATED(list%arr)) &
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
       DBCSR_ABORT("list_timerenv_size: list is not initialized.")
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"

# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
    size = list%size
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
END FUNCTION list_timerenv_size