!c Description: !c 原子番号及び原子量を与えるモジュール !c 原子番号 20 までしか与えていないので注意 !c !c Current Code Owner: !c sugiyama@gfd-dennou.org !c !c Copyright (C) SUGIYAMA Ko-ichiro, 2004, All rights reserved module chemprm save real(8) :: atmwt(20) integer(8), parameter :: amax = 20 character(2) :: atmsymbol(20) contains subroutine chemperm_init !!! !!!原子記号 !!! atmsymbol = (/"H ", "He", & & "Li", "Be", "B ", "C ", "N ", "O ", "F ", "Ne", & & "Na", "Mg", "Al", "Si", "P ", "S ", "Cl", "Ar", & & "K ", "Ca"/) !!! !!!分子量 (g/mol) !!! 値は化学便覧改訂 4 版(丸善)より !!! atmwt = (/1.00794d0, 4.002602d0, & & 6.941d0, 9.012128d0, 10.811d0, 12.0107d0, & & 14.00674d0, 15.9994d0, 18.9984032d0, 20.1797d0, & & 22.989770d0, 24.3050d0, 26.981538d0, 28.0855d0, & & 30.973761d0, 32.066d0, 35.4527d0, 39.948d0, & & 39.0983d0, 40.078d0/) end subroutine chemperm_init end module chemprm