list_routinereport_size Function

public function list_routinereport_size(list) result(size)

Returns the current size of the list.

Arguments

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

Return Value integer


Contents


Source Code

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

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

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