free Subroutine

private elemental subroutine free(self)

Free dynamic memory.

Type Bound

command_line_arguments_group

Arguments

Type IntentOptional Attributes Name
class(command_line_arguments_group), intent(inout) :: self

CLAsG data.

Calls

proc~~free~~CallsGraph proc~free flap_command_line_arguments_group_t::command_line_arguments_group%free proc~free_object flap_object_t::object%free_object proc~free->proc~free_object

Source Code

  elemental subroutine free(self)
  !< Free dynamic memory.
  class(command_line_arguments_group), intent(inout) :: self !< CLAsG data.

  ! object members
  call self%free_object
  ! command_line_arguments_group members
  if (allocated(self%group)) deallocate(self%group)
  if (allocated(self%cla)) then
    call self%cla%free
    deallocate(self%cla)
  endif
  self%Na          = 0_I4P
  self%Na_required = 0_I4P
  self%Na_optional = 0_I4P
  self%is_called   = .false.
  endsubroutine free