dc_args::dcargsget Interface Reference

Private Member Functions
subroutine	dcargsget0 (arg, argv)

Detailed Description

Definition at line 259 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsget0()

subroutine dc_args::dcargsget::dcargsget0 ( type(args), intent(inout)  arg, character(*), dimension(:), pointer  argv  )

private

Definition at line 789 of file dc_args.f90.

    !
    ! コマンドライン引数のうち, オプションではないものを
    ! *argv* に返します.
    !
    ! *argv* は文字型配列のポインタです.
    ! 引数として与える場合には必ず空状態して与えてください.
    !
    use dc_types, only: string
    use dc_string, only: stoa, stoi, printf, concat, joinchar
    use dc_present, only: present_and_true
    use dc_message, only: messagenotify
    implicit none
    type(args), intent(inout) :: arg
    character(*), pointer :: argv(:) !(out)
    integer :: i, cmd_argv_max
    character(len = *), parameter  :: subname = 'DCArgsGet'
  continue
    if (.not. arg % initialized) then
      call messagenotify('W', subname, 'Call Open before Help in dc_args.')
      call dcargsopen(arg)
    end if
    cmd_argv_max = size(cmd_argv_list)
    allocate(argv(cmd_argv_max))
    do i = 1, cmd_argv_max
      argv(i) = cmd_argv_list(i)
    end do

---

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

• dc_utils/dc_args.f90