subroutine chemset_init
    !=== Dependency

                                                                 !=end
    call BeginSub("chemset_init",                  fmt="%c",                        c1="Initialize parameters of chemical processes. ")
                                                                 !=begin
    !=== 原子記号
    atmsymbol = (/"H ", "He",  "Li", "Be", "B ", "C ", "N ", "O ", "F ", "Ne",  "Na", "Mg", "Al", "Si", "P ", "S ", "Cl", "Ar",  "K ", "Ca"/)
    
    !=== 原子量 (kg/mol). 値は化学便覧改訂 4 版(丸善)より
    atmwt = (/1.00794d-3, 4.002602d-3,  6.941d-3, 9.012128d-3, 10.811d-3, 12.0107d-3,  14.00674d-3, 15.9994d-3, 18.9984032d-3, 20.1797d-3,  22.989770d-3, 24.3050d-3, 26.981538d-3, 28.0855d-3,  30.973761d-3, 32.066d-3, 35.4527d-3, 39.948d-3,  39.0983d-3, 40.078d-3/) 
                                                                 !=end    

    call EndSub("chemset_init")

  end subroutine chemset_init