dc_args::debug Interface Reference

Public Member Functions
subroutine	dcargsdebug0 (arg)

Detailed Description

Definition at line 342 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsdebug0()

subroutine dc_args::debug::dcargsdebug0

(

type(args), intent(inout)

arg

)

デバッグオプションの自動設定

デバッグオプションの自動設定を行います.

-D もしくは –debug が指定された際, 自動的に dc_trace#SetDebug を呼び出すよう arg を設定します.

Parameters

[in,out]

arg

ARGS 型変数

Definition at line 667 of file dc_args.f90.

    use dc_types, only: string
    use dc_string, only: stoa, stoi
    use dc_trace, only: setdebug
    use dc_message, only: messagenotify
    implicit none
    type(ARGS), intent(inout) :: arg
    logical :: OPT_debug
    character(STRING) :: VAL_debug
    character(len = *), parameter  :: subname = 'DCArgsDebug'
  continue
    if (.not. arg % initialized) then
      call messagenotify('W', subname, 'Call Open before Debug in dc_args.')
      call dcargsopen(arg)
    end if
    call option(arg, stoa('-D', '--debug'), opt_debug, val_debug, &
      & help="call dc_trace#SetDebug (display a lot of messages for debug). " // &
      & "VAL is unit number (default is standard output)")
    if (opt_debug) then
      if (trim(val_debug) == '') then
        call setdebug
      else
        call setdebug(stoi(val_debug))
      end if
    end if
    return

---

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

• dc_utils/dc_args.f90