52 lines
2.2 KiB
Fortran
52 lines
2.2 KiB
Fortran
C
|
|
C=======================================================================
|
|
C
|
|
SUBROUTINE ATDATA
|
|
C
|
|
C This routine contains the atomic mass and the density of all the
|
|
C elements,and the equivalence between their atomic number and
|
|
C chemical symbol.
|
|
C
|
|
C Value Z = 0 added for empty spheres. The values entered in this
|
|
C case are arbitrary and set to the corresponding Z = 1 value
|
|
C divided by 1836 (the ratio of the mass of the proton and electron).
|
|
C
|
|
C Last modified : 25 Apr 2013
|
|
C
|
|
USE XMRHO_MOD , XM_AT => XMAT, RHO_AT => RHOAT
|
|
REAL XMAT(0:99),RHOAT(0:99)
|
|
C
|
|
C
|
|
DATA XMAT/0.00055,1.00794,4.00260,6.941,9.01218,10.81,12.011,14.00
|
|
&67,15.9994,18.998403,20.179,22.98977,24.305,26.98154,28.0855,30.97
|
|
&376,32.06,35.453,39.948,39.0983,40.08,44.9559,47.88,50.9415,51.996
|
|
&,54.9380,55.847,58.9332,58.69,63.546,65.38,69.72,72.59,74.9216,78.
|
|
&96,79.904,83.80,85.4678,87.62,88.9059,91.22,92.9064,95.94,98.,101.
|
|
&07,102.9055,106.42,107.8682,112.41,114.82,118.69,121.75,127.60,126
|
|
&.9045,131.29,132.9054,137.33,138.9055,140.12,140.9077,144.24,145.,
|
|
&
|
|
* 150.36,151.96,157.25,158.9254,162.50,164.9304,
|
|
* 167.26,168.9342,173.04,174.967,178.49,180.9479,
|
|
* 183.85,186.207,190.2,192.22,195.08,196.9665,
|
|
* 200.59,204.383,207.2,208.9804,209.,210.,222.,
|
|
* 223.,226.0254,227.0278,232.0381,231.0359,
|
|
* 238.0289,237.0482,244.,243.,247.,247.,251.,252./
|
|
C
|
|
DATA RHOAT/0.0007,0.0708,0.122,0.533,1.845,2.34,2.26,0.81,1.14,1.1
|
|
&08,1.207,0.969,1.735,2.6941,2.32,1.82,2.07,1.56,1.40,0.860,1.55,2.
|
|
&980,4.53,6.10,7.18,7.43,7.860,8.9,8.876,8.94,7.112,5.877,5.307,5.7
|
|
&2,4.78,3.11,2.6,1.529,2.54,4.456,6.494,8.55,10.20,11.48,12.39,12.3
|
|
&9,12.00,10.48,8.63,7.30,7.30,6.679,6.23,4.92,3.52,1.870,3.5,6.127,
|
|
&6.637,6.761,6.994,7.20,7.51,5.228,7.8772,8.214,8.525,8.769,9.039,9
|
|
&.294,6.953,9.811,13.29,16.624,19.3,20.98,22.53,22.39,21.41,18.85,1
|
|
&3.522,11.83,11.33,
|
|
* 9.730,9.30,0.0,4.4,0.0,5.,10.05,11.70,15.34,
|
|
* 18.92,20.21,19.80,13.64,13.49,14.,0.0,0.0/
|
|
C
|
|
DO J=0,99
|
|
XM_AT(J)=XMAT(J)
|
|
RHO_AT(J)=RHOAT(J)
|
|
ENDDO
|
|
C
|
|
END
|