dc_args::dcargsstrict Interface Reference

Public Member Functions
subroutine	dcargsstrict0 (arg, severe)

Detailed Description

Definition at line 311 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 )

オプションチェックを行う

オプションチェックを行います.

コマンドライン引数のオプションとして指定されたものの内, DCArgsOption サブルーチンで設定されていないものが存在する 場合には警告を返します. severe に .true. を指定すると エラーを返して終了します. このサブルーチンを呼ぶ前に, DCArgsOption, DCArgsDebug, DCArgsHelp サブルーチンを呼んでください.

構造型 ARGS の変数に対してこのサブルーチンを適用しておく ことで, コマンドライン引数として与えたオプションが正しく プログラムが認識しているかどうかをチェックすることができます.

Parameters

[in,out]	arg	ARGS 型変数
[in]	severe	.true. の場合, エラーを返して終了 (省略可能)

Definition at line 996 of file dc_args.f90.

    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

References dc_present::present_and_true(), and dc_types::string.

Here is the call graph for this function:

---

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

• dc_utils/dc_args.f90