dc_args::dcargsstrict Interface Reference

Private Member Functions
subroutine	dcargsstrict0 (arg, severe)

Detailed Description

Definition at line 255 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsstrict0()

subroutine dc_args::dcargsstrict::dcargsstrict0 ( type(args), intent(inout)  arg, logical, intent(in), optional  severe  )

private

Definition at line 746 of file dc_args.f90.

    !
    ! オプションチェックを行います. 
    !
    ! コマンドライン引数のオプションとして指定されたものの内,
    ! DCArgsOption サブルーチンで設定されていないものが存在する
    ! 場合には警告を返します. *severe* に .true. を指定すると
    ! エラーを返して終了します.
    ! このサブルーチンを呼ぶ前に, DCArgsOption, DCArgsDebug, 
    ! DCArgsHelp サブルーチンを呼んでください.
    !
    ! 構造体 ARGS の変数に対してこのサブルーチンを適用しておく
    ! ことで, コマンドライン引数として与えたオプションが正しく
    ! プログラムが認識しているかどうかをチェックすることができます.
    !
    !
    use dc_types, only: string
    use dc_present, only: present_and_true
    use dc_message, only: messagenotify
    implicit none
    type(args), intent(inout) :: arg
    logical, intent(in), optional :: severe
    character(STRING) :: err_mess
    integer :: i
    character(len = *), parameter  :: subname = 'DCArgsStrict'
  continue
    if (.not. arg % initialized) then
      call messagenotify('W', subname, 'Call Open before Help in dc_args.')
      call dcargsopen(arg)
    end if
    do i = 1, size(arg % cmd_opts_list)
      err_mess = trim(arg % cmd_opts_list(i) % name) // ' is invalid option.'
      if (.not. arg % cmd_opts_list(i) % flag_called) then
        if (present_and_true(severe)) then
          call messagenotify('E', subname, err_mess)
        else
          call messagenotify('W', subname, err_mess)
        end if
      end if
    end do

---

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

• dc_utils/dc_args.f90