dc_args::dcargsopen Interface Reference

Private Member Functions
subroutine	dcargsopen0 (arg)

Detailed Description

Definition at line 227 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsopen0()

subroutine dc_args::dcargsopen::dcargsopen0 ( type(args), intent(out)  arg )

private

Definition at line 337 of file dc_args.f90.

    !
    ! ARGS 型の変数を初期設定します. 
    !
    ! ARGS 型の変数を利用する際にはまずこのサブルーチンによって
    ! 初期設定を行ってください.
    !
    ! このサブルーチンは, より下層のサブルーチン内で IARGC や GETARG
    ! を用いて得られたコマンドライン引数の情報を引数 *arg*
    ! へと格納します.
    !
    use dc_message, only: messagenotify
    use dc_types, only: string
    implicit none
    type(args), intent(out) :: arg
    integer:: cmd_opts_max
    character(len = *), parameter :: subname = 'DCArgsOpen'
  continue
    if (arg % initialized) then
      call messagenotify('W', subname, 'This argument (type ARGS) is already opend.')
      return
    end if
    call buildargtable
    call sortargtable
    cmd_opts_max = size(cmd_opts_list)
    allocate(arg % cmd_opts_list(cmd_opts_max))
    arg % cmd_opts_list = cmd_opts_list
    nullify( arg % opt_table )
    arg % initialized = .true.

---

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

• dc_utils/dc_args.f90