Definition at line 315 of file dc_args.f90.
◆ dcargsget0()
| subroutine dc_args::dcargsget::dcargsget0 |
( |
type(args), intent(inout) | arg, |
|
|
character(*), dimension(:), pointer | argv ) |
オプションでないコマンドライン引数を取得
コマンドライン引数のうち, オプションではないものを argv に返します.
argv は文字型配列のポインタです. 引数として与える場合には必ず空状態にして与えてください.
- Parameters
-
| [in,out] | arg | ARGS 型変数 |
| [out] | argv | オプションでない引数を受け取る文字型配列のポインタ |
Definition at line 1048 of file dc_args.f90.
1052 implicit none
1053 type(ARGS), intent(inout) :: arg
1054 character(*), pointer :: argv(:)
1055 integer :: i, cmd_argv_max
1056 character(len = *), parameter :: subname = 'DCArgsGet'
1057 continue
1058 if (.not. arg % initialized) then
1059 call messagenotify(
'W', subname,
'Call Open before Help in dc_args.')
1060 call dcargsopen(arg)
1061 end if
1062 cmd_argv_max = size(cmd_argv_list)
1063 allocate(argv(cmd_argv_max))
1064 do i = 1, cmd_argv_max
1065 argv(i) = cmd_argv_list(i)
1066 end do
logical function, public present_and_true(arg)
character(string) function, public joinchar(carray, expr)
References dc_string::joinchar(), and dc_present::present_and_true().
The documentation for this interface was generated from the following file: