subroutine debugset_init(cfgfile)
    !=== Input
    character(*), intent(in) :: cfgfile

    !=== NAMELIST 
    NAMELIST /debugset/ DebugOn
    
    open (10, FILE=cfgfile)
    read(10, NML=debugset)
    close(10)
                                                                 !=end

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

    !=== 確認
!    write(*,*) "DebugOn", DebugOn

  end subroutine debugset_init