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