| Class | debugset |
| In: |
setup/debugset.f90
|
デバグ設定モジュール
| Subroutine : | |
| cfgfile : | character(*), intent(in) |
NAMELIST から情報を得て, デバッグ出力スイッチの切替えを行う.
This procedure input/output NAMELIST#debugset .
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