Definition at line 287 of file dc_args.f90.
◆ dcargsclose0()
| subroutine dc_args::dcargsclose::dcargsclose0 |
( |
type(args), intent(inout) | arg | ) |
|
構造型 ARGS 変数の終了処理
ARGS 型の変数の終了処理を行います.
- Parameters
-
| [in,out] | arg | 終了処理する ARGS 型変数 |
Definition at line 462 of file dc_args.f90.
464 implicit none
465 type(ARGS), intent(inout) :: arg
466 integer :: i
467 continue
468 if (arg % initialized) then
469 if ( associated( arg % opt_table ) ) then
470 do i = 1, size(arg % opt_table)
471 deallocate(arg % opt_table(i) % options)
472 end do
473
474 deallocate(arg % opt_table)
475 end if
476
477 deallocate(arg % cmd_opts_list)
478 deallocate(argstr_table)
479 deallocate(cmd_argv_list)
480 deallocate(cmd_opts_list)
481
483 end if
The documentation for this interface was generated from the following file: