block.f

! This file is part of stda.
!
! Copyright (C) 2013-2019 Stefan Grimme
!
! stda is free software: you can redistribute it and/or modify it under
! the terms of the GNU Lesser General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! stda is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public License
! along with stda.  If not, see <https://www.gnu.org/licenses/>.
!
      BLOCK DATA
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)

      common /amass  / ams(107)

      data  ams /  1.00790d0,  4.00260d0,  6.94000d0,  9.01218d0,               
     110.81000d0, 12.01100d0, 14.00670d0, 15.99940d0, 18.99840d0,               
     220.17900d0, 22.98977d0, 24.30500d0, 26.98154d0, 28.08550d0,               
     330.97376d0, 32.06000d0, 35.45300d0, 39.94800d0, 39.09830d0,               
     440.08000d0, 44.95590d0, 47.90000d0, 50.94150d0, 51.99600d0,               
     554.93800d0, 55.84700d0, 58.93320d0, 58.71000d0, 63.54600d0,               
     665.38000d0, 69.73500d0, 72.59000d0, 74.92160d0, 78.96000d0,               
     779.90400d0, 83.80000d0, 85.46780d0, 87.62000d0, 88.90590d0,               
     891.22000d0, 92.90640d0, 95.94000d0, 98.90620d0, 101.0700d0,               
     9102.9055d0, 106.4000d0, 107.8680d0, 112.4100d0, 114.8200d0,               
     1118.6900d0, 121.7500d0, 127.6000d0, 126.9045d0, 131.3000d0,               
     2132.9054d0, 137.3300d0, 15*0.000d0, 178.4900d0, 180.9479d0,               
     3183.8500d0, 186.2070d0, 190.2000d0, 192.2200d0, 195.0900d0,               
     4196.9665d0, 200.5900d0, 204.3700d0, 207.2000d0, 208.9804d0,               
     518*0.000d0,   1.0079d0,  5*0.000d0/                                       

      END