assoc_list_reset Subroutine

public subroutine assoc_list_reset(a)

Arguments

Type IntentOptional Attributes Name
type(assoc_list_t), intent(inout) :: a

Contents

Source Code

assoc_list_reset

Source Code

subroutine assoc_list_reset(a)
type(assoc_list_t), intent(inout) :: a

  if (allocated(a%key)) then
     deallocate(a%key)
  endif
  if (allocated(a%value)) then
     deallocate(a%value)
  endif
  a%nslots = 0
  a%nitems = 0

end subroutine assoc_list_reset