Class debugset
In: setup/debugset.f90

デバグ設定モジュール

Methods

DebugOn   debugset_init  

Included Modules

dc_trace dc_message

Public Instance methods

DebugOn
Variable :
DebugOn :logical
: デバッグ出力スイッチ
debugset_init( cfgfile )
Subroutine :
cfgfile :character(*), intent(in)

NAMELIST から情報を得て, デバッグ出力スイッチの切替えを行う.

This procedure input/output NAMELIST#debugset .

[Source]

  subroutine debugset_init(cfgfile)
    !
    !NAMELIST から情報を得て, デバッグ出力スイッチの切替えを行う.
    !

    !モジュール読み込み
    use dc_message,    only: MessageNotify

    !暗黙の型宣言禁止
    implicit none

    !入力変数
    character(*), intent(in) :: cfgfile

    !NAMELIST から情報取得
    NAMELIST /debugset/ DebugOn
    
    open (10, FILE=cfgfile)
    read(10, NML=debugset)
    close(10)

    !デバッグモードなら dc_trace を ON にする
!    if ( DebugOn ) call SetDebug

    write(*,*) "DebugSet, DebugOn ", DebugOn

  end subroutine debugset_init

[Validate]