dc_args::close Interface Reference

Private Member Functions
subroutine	dcargsclose0 (arg)

Detailed Description

Definition at line 274 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsclose0()

subroutine dc_args::close::dcargsclose0 ( type(args), intent(inout)  arg )

private

Definition at line 368 of file dc_args.f90.

    !
    ! ARGS 型の変数の終了処理を行います. 
    !
    use dc_hash, only: dchashdelete
    implicit none
    type(args), intent(inout) :: arg
    integer :: i
  continue
    if (arg % initialized) then
      if ( associated( arg % opt_table ) ) then
        do i = 1, size(arg % opt_table)
          deallocate(arg % opt_table(i) % options)
        end do

        deallocate(arg % opt_table)
      end if

      deallocate(arg % cmd_opts_list)
      deallocate(argstr_table)
      deallocate(cmd_argv_list)
      deallocate(cmd_opts_list)

      call dchashdelete(arg % helpmsg)
    end if

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_args.f90