Definition at line 326 of file dc_args.f90.
◆ dcargsopen0()
| subroutine dc_args::open::dcargsopen0 |
( |
type(args), intent(out) | arg | ) |
|
Initialize ARGS derived type variable
Initializes ARGS derived type variable.
When using ARGS derived type variable, please perform initialization first with this subroutine.
This subroutine stores command line argument information obtained using IARGC and GETARG in lower-level subroutines into argument arg.
- Parameters
-
| [out] | arg | ARGS derived type variable to initialize |
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: