!c Description:
!c  原子番号及び原子量を与えるモジュール 
!c  原子番号 20 までしか与えていないので注意
!c
!c Current Code Owner: 
!c   sugiyama@gfd-dennou.org
!c
!c Histry: 
!c   Version    Date          Comment
!c   -------    ----------    --------
!c   1.0        2003-02-05    作成
!c
!c Copyright (C) SUGIYAMA Ko-ichiro, 2003, All rights reserved

module prm_chem
  save
  real(8)                    :: atmwt(20)
  integer, parameter         :: amax = 20
  character(2)               :: atmsymbol(20)
  
contains
  subroutine ChemInfo

!!!
!!!原子記号
!!!
    atmsymbol = (/"H ", "He", &
         & "Li", "Be", "B ", "C ", "N ", "O ", "F ", "Ne", &
         & "Na", "Mg", "Al", "Si", "P ", "S ", "Cl", "Ar", &
         & "K ", "Ca"/)
   
!!!
!!!分子量
!!!  値は化学便覧改訂 4 版(丸善)より. 単位は kg/mol. 
!!!
    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 ChemInfo
  
end module prm_chem

