subroutine fileset_init
    !=== Dependency

                                                                 !=end
    !=== 暗黙の型宣言禁止
    implicit none

    !=== Work
    character(80) :: flag
                                                                 !=begin
    !=== NAMELIST
    NAMELIST /fileset/ flag, ReStartFile
                                                                 !=end

    call BeginSub("fileset_init",                  fmt="%c",                        c1="Initialize file names. ")

    open (10, FILE=cfgfile)
    read(10, NML=fileset)
    close(10)

    RegFile = "arare-"     // trim(flag) // ".nc"
    DimFile = "arare_dim-" // trim(flag) // ".nc"
    NewReStartFile = "arare-" // trim(flag) // "-restart.nc"

    !=== 確認
!    write(*,*) "cfgfile", cfgfile
!    write(*,*) ""
!    write(*,*) "RegFile", RegFile
!    write(*,*) ""
!    write(*,*) "DimFile", DimFile
!    write(*,*) ""
!    write(*,*) "ReStartFile", ReStartFile


    call EndSub("fileset_init")
    
  end subroutine fileset_init