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

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

    !暗黙の型宣言禁止
    implicit none

    !入力変数
    character(*), intent(in)      :: cfgfile
    integer, intent(in), optional :: myrank
    
    !NAMELIST から情報取得
    NAMELIST /debugset/ DebugOn
    
    open (10, FILE=cfgfile)
    read(10, NML=debugset)
    close(10)

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

    if (present(myrank)) then 
      cpurank = myrank 
    end if
    
  end subroutine debugset_init