dc_args::strict Interface Reference

Public Member Functions
subroutine	dcargsstrict0 (arg, severe)

Detailed Description

Definition at line 354 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsstrict0()

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

Perform option check

Performs option validation.

Among command line argument options, if any option that is not configured by DCArgsOption subroutine exists, a warning is returned. If .true. is specified for severe, an error is returned and the program terminates. Before calling this subroutine, please call DCArgsOption, DCArgsDebug, and DCArgsHelp subroutines.

By applying this subroutine to an ARGS derived type variable, you can check whether the options given as command line arguments are correctly recognized by the program.

Parameters

[in,out]	arg	ARGS derived type variable
[in]	severe	If .true., return error and terminate (optional)

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

---

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

• dc_utils/dc_args.f90