Definition at line 283 of file dc_args.f90.
◆ dcargsopen0()
| subroutine dc_args::dcargsopen::dcargsopen0 |
( |
type(args), intent(out) | arg | ) |
|
構造型 ARGS 変数の初期化
ARGS 型の変数を初期設定します.
ARGS 型の変数を利用する際にはまずこのサブルーチンによって 初期設定を行ってください.
このサブルーチンは, より下層のサブルーチン内で IARGC や GETARG を用いて得られたコマンドライン引数の情報を引数 arg へと格納します.
- Parameters
-
Definition at line 427 of file dc_args.f90.
429 implicit none
430 type(ARGS), intent(out) :: arg
431 integer:: cmd_opts_max
432 character(len = *), parameter :: subname = 'DCArgsOpen'
433 continue
434 if (arg % initialized) then
435 call messagenotify(
'W', subname,
'This argument (type ARGS) is already opend.')
436 return
437 end if
438 call buildargtable
439 call sortargtable
440 cmd_opts_max = size(cmd_opts_list)
441 allocate(arg % cmd_opts_list(cmd_opts_max))
442 arg % cmd_opts_list = cmd_opts_list
443 nullify( arg % opt_table )
444 arg % initialized = .true.
The documentation for this interface was generated from the following file: