dc_args::dcargsdebug Interface Reference

Private Member Functions
subroutine	dcargsdebug0 (arg)

Detailed Description

Definition at line 243 of file dc_args.f90.

Member Function/Subroutine Documentation

dcargsdebug0()

subroutine dc_args::dcargsdebug::dcargsdebug0 ( type(args), intent(inout)  arg )

private

Definition at line 521 of file dc_args.f90.

    !
    ! デバッグオプションの自動設定を行います. 
    !
    ! -D もしくは --debug が指定された際, 自動的に
    ! dc_trace#SetDebug を呼び出すよう *arg* を設定します.
    !
    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