Returns the last element in the list and removes it. Is equivialent to: value = list_routinestat_get(list, list_routinestat_size(list)) call list_routinestat_del(list, list_routinestat_size(list))
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(list_routinestat_type), | intent(inout) | :: | list |
FUNCTION list_routinestat_pop(list) RESULT(value) # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" !! Returns the last element in the list and removes it. # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" !! Is equivialent to: # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" !! value = list_routinestat_get(list, list_routinestat_size(list)) # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" !! call list_routinestat_del(list, list_routinestat_size(list)) # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" TYPE(list_routinestat_type), intent(inout) :: list # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" TYPE(routine_stat_type), POINTER :: value # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" IF(.not. ASSOCIATED(list%arr)) & # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" DBCSR_ABORT("list_routinestat_pop: list is not initialized.") # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" IF(list%size < 1) & # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" DBCSR_ABORT("list_routinestat_pop: list is empty.") # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" value => list%arr(list%size)%p%value # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" deallocate(list%arr(list%size)%p) # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" list%size = list%size - 1 # 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_routinestat.F" END FUNCTION list_routinestat_pop