157    SUBROUTINE neighbor_list_iterator_create(iterator_set, nl, search, nthread)  argument
159          DIMENSION(:), POINTER                           :: iterator_set  local
176       ALLOCATE (iterator_set(0:mthread - 1))
179          ALLOCATE (iterator_set(il)%neighbor_list_iterator)
181          iterator => iterator_set(il)%neighbor_list_iterator
202       iterator_set(:)%last = 0
234                iterator => iterator_set(il)%neighbor_list_iterator
246    SUBROUTINE neighbor_list_iterator_release(iterator_set)  argument
248          DIMENSION(:), POINTER                           :: iterator_set  local
258       iterator => iterator_set(0)%neighbor_list_iterator
270       mthread = SIZE(iterator_set)
272          DEALLOCATE (iterator_set(il)%neighbor_list_iterator)
274       DEALLOCATE (iterator_set)
286    SUBROUTINE nl_set_sub_iterator(iterator_set, ikind, jkind, iatom, mepos)  argument
288          DIMENSION(:), POINTER                           :: iterator_set  local
308       iterator => iterator_set(me)%neighbor_list_iterator
352    FUNCTION neighbor_list_iterate(iterator_set, mepos) RESULT(istat)
354          DIMENSION(:), POINTER                           :: iterator_set  local
366       IF (SIZE(iterator_set) .NE. 1 .AND. .NOT. PRESENT(mepos)) &
378       last = iterator_set(0)%last
380          iterator_set(me)%neighbor_list_iterator = iterator_set(last)%neighbor_list_iterator
382       iterator => iterator_set(me)%neighbor_list_iterator
433       iterator_set(:)%last = me
444    FUNCTION nl_sub_iterate(iterator_set, mepos) RESULT(istat)
446          DIMENSION(:), POINTER                           :: iterator_set  local
465       iterator => iterator_set(me)%neighbor_list_iterator
554    SUBROUTINE get_iterator_info(iterator_set, mepos, &  argument
557          DIMENSION(:), POINTER                           :: iterator_set  local
569       IF (SIZE(iterator_set) .NE. 1 .AND. .NOT. PRESENT(mepos)) &
577       iterator => iterator_set(me)%neighbor_list_iterator
603    SUBROUTINE get_iterator_task(iterator_set, task, mepos)  argument
605          DIMENSION(:), POINTER                           :: iterator_set  local
610          CALL get_iterator_info(iterator_set, mepos=mepos, ikind=task%ikind, jkind=task%jkind, &
617          CALL get_iterator_info(iterator_set, ikind=task%ikind, jkind=task%jkind, &