1* 2* $Id$ 3* 4c 5c This include file contains atomic information. 6c 7c For each isotope of each atom we have: 8c - mass 9c - abundance 10c - nuclear spin 11c - nuclear g-factor 12c - nuclear quadrupole moment 13c 14 integer iii,jjj 15 integer atomlocator(2,118) 16 double precision atomprop(5,323) 17c 18c For each atom number in the periodic system: 19c (# of isotopes, loc. in atomprop) 20c 21 data atomlocator/ 22c 23c 1:Hydrogen 2:Helium 3:Lithium 4:Beryllium 24 & 2,1, 2,3, 2,5, 1,7, 25c 26c 5:Boron 6:Carbon 7:Nitrogen 8:Oxygen 27 & 2,8, 2,10, 2,12, 3,14, 28c 29c 9:Fluorine 10:Neon 11:Sodium 12:Magnesium 30 & 1,17, 3,18, 1,21, 3,22, 31c 32c 13:Aluminium 14:Silicon 15:Phosphorous 16:Sulphur 33 & 1,25, 3,26, 1,29, 4,30, 34c 35c 17:Chlorine 18:Argon 19:Potassium 20:Calcium 36 & 2,34, 3,36, 3,39, 6,42, 37c 38c 21:Scandium 22:Titanium 23:Vanadium 24:Chromium 39 & 1,48, 5,49, 2,54, 4,56, 40c 41c 25:Manganese 26:Iron 27:Cobalt 28:Nickel 42 & 1,60, 4,61, 1,65, 5,66, 43c 44c 29:Copper 30:Zinc 31:Gallium 32:Germanium 45 & 2,71, 5,73, 2,78, 5,80, 46c 47c 33:Arsenic 34:Selenium 35:Bromine 36:Krypton 48 & 1,85, 6,86, 2,92, 6,94, 49c 50c 37:Rubidium 38:Strontium 39:Yttrium 40:Zirconium 51 & 2,100, 4,102, 1,106, 5,107, 52c 53c 41:Niobium 42:Molybdenum 43:Technetium 44:Ruthenium 54 & 1,112, 7,113, 1,120, 7,121, 55c 56c 45:Rhodium 46:Palladium 47:Silver 48:Cadmium 57 & 1,128, 6,129, 2,135, 8,137, 58c 59c 49:Indium 50:Tin 51:Antinomy 52:Tellurium 60 & 2,145, 10,147, 2,157, 8,159, 61c 62c 53:Iodine 54:Xenon 55:Caesium 56:Barium 63 & 1,167, 9,168, 1,177, 7,178, 64c 65c 57:Lanthanum 58:Cerium 66 & 2,185, 4,187, 67c 68c 59:Praseodymium 60:Neodymiumium 61:Promethium 62:Samarium 69 & 1,191, 7,192, 1,199, 7,200, 70c 71c 63:Europium 64:Gadolinium 65:Terbium 66:Dysprosium 72 & 2,207, 7,209, 1,216, 7,217, 73c 74c 67:Holmium 68:Erbium 69:Thulium 70:Ytterbium 75 & 1,224, 6,225, 1,231, 7,232, 76c 77c 71:Lutetium 72:Hafnium 73:Tantalum 74:Tungsten 78 & 2,239, 6,241, 2,247, 5,249, 79c 80c 75:Rhenium 76:Osmium 77:Iridium 78:Platinum 81 & 2,254, 7,256, 2,263, 6,265, 82c 83c 79:Gold 80:Mercury 81:Thallium 82:Lead 84 & 1,271, 7,272, 2,279, 4,281, 85c 86c 83:Bismuth 84:Polonium 85:Astatine 86:Radon 87 & 1,285, 1,286, 1,287, 2,288, 88c 89c 87:Francium 88:Radium 89:Actinium 90:Thorium 90 & 1,290, 1,291, 1,292, 1,293, 91c 92c 91:Protoactinium 92:Uranium 93:Neptunium 94:Plutonium 93 & 1,294, 3,295, 1,298, 1,299, 94c 95c 95:Americium 96:Curium 97:Berkelium 98:Californium 96 & 1,300, 1,301, 1,302, 1,303, 97c 98c 99:Einsteinium 100:Fermium 101:Mendelevium 102:Nobelium 99 & 1,304, 1,305, 1,306, 1,307, 100c 101c 103:Lawrencium 104:Rutherfordium 105:Dubnium 106:Seaborgium 102 &1,308, 1,309, 1,310, 1,311, 103c 104c 107:Bohrium 108:Hassium 109:Meitnerium 110:Darmstadtium 105 &1,312, 1,313, 1,314, 1,315, 106c 107c 111:Roentgenium 112:Ununbium 113:Ununtrium 114:Ununquadium 108 &1,316, 1,317, 1,318, 1,319, 109c 110c 115:Ununpentium 116:Ununhexium 117:Ununseptium 118:Ununoctium 111 &1,320, 1,321, 1,322, 1,323/ 112c 113c 114c Atomic properties table (for naturaly occuring isotopes), with: 115c - Atomic mass 116c - Abundance 117c - Nuclear spin 118c - Nuclear magnetic moment (divide by spin to get nuclear g-factor) 119c - Nuclear Quadrupole Moment (Barn) 120c 121 data ((atomprop(iii,jjj),iii=1,5),jjj=1,20) / 122c 123c Hydrogen 124c 125 & 1.00782504d0, 99.9885d0, 0.5d0, 2.7928446d0, 0.0d0, !1 126 & 2.01410178d0, 0.0115d0, 1.0d0, 0.8574376d0, 0.002860d0, 127c 128c Helium 129c 130 & 3.01602931d0, 0.000137d0, 0.5d0, -2.1276240d0, 0.0d0, !3 131 & 4.00260324d0, 99.999863d0, 0.0d0, 0.0d0, 0.0d0, 132c 133c Lithium 134c 135 & 6.01512140d0, 7.59d0, 1.0d0, 0.8220467d0,-0.000808d0, !5 136 & 7.01600300d0, 92.41d0, 1.5d0, 3.2564240d0,-0.040100d0, 137c 138c Beryllium 139c 140 & 9.01218220d0, 100.0d0, 1.5d0, -1.1779000d0, 0.052880d0, !7 141c 142c Boron 143c 144 & 10.0129369d0, 19.9d0, 3.0d0, 1.8006500d0, 0.084590d0, !8 145 & 11.0093054d0, 80.1d0, 1.5d0, 2.6886370d0, 0.040590d0, 146c 147c Carbon 148c 149 & 12.0000000d0, 98.93d0, 0.0d0, 0.0d0, 0.0d0, !10 150 & 13.0033548d0, 1.07d0, 0.5d0, 0.7024110d0, 0.0d0, 151c 152c Nitrogen 153c 154 & 14.0030740d0, 99.632d0, 1.0d0, 0.4037607d0, 0.02044d0, !12 155 & 15.0001090d0, 0.368d0, 0.5d0, -0.2831892d0, 0.0d0, 156c 157c Oxygen 158c 159 & 15.9949146d0, 99.757d0, 0.0d0, 0.0d0, 0.0d0, !14 160 & 16.9991312d0, 0.038d0, 2.5d0, -1.8938000d0, -0.02558d0, 161 & 17.9991603d0, 0.205d0, 0.0d0, 0.0d0, 0.0d0, 162c 163c Fluorine 164c 165 & 18.9984932d0, 100.0d0, 0.5d0, 2.6288670d0, -0.09420d0, !17 166c 167c Neon 168c 169 & 19.9924356d0, 90.48d0, 0.0d0, 0.0d0, 0.0d0, !18 170 & 20.9938428d0, 0.27d0, 1.5d0, -0.6617960d0, 0.10155d0, 171 & 21.9913831d0, 9.25d0, 0.0d0, 0.0d0, 0.0d0/ 172c 173 data ((atomprop(iii,jjj),iii=1,5),jjj=21,38) / 174c 175c Sodium 176c 177 & 22.9897677d0, 100.0d0, 1.5d0, 2.2175200d0, 0.10400d0, !21 178c 179c Magnesium 180c 181 & 23.9859423d0, 78.99d0, 0.0d0, 0.0d0, 0.0d0, !22 182 & 24.9858374d0, 10.00d0, 2.5d0, -0.8554600d0, 0.19940d0, 183 & 25.9825937d0, 11.01d0, 0.0d0, 0.0d0, 0.0d0, 184c 185c Aluminium 186c 187 & 26.9815386d0, 100.0d0, 2.5d0, 3.6415040d0, 0.13660d0, !25 188c 189c Silicon 190c 191 & 27.9769271d0, 92.2297d0, 0.0d0, 0.0d0, 0.0d0, !26 192 & 28.9764949d0, 4.6832d0, 0.5d0, -0.5552900d0, 0.0d0, 193 & 29.9737707d0, 3.0872d0, 0.0d0, 0.0d0, 0.0d0, 194c 195c Phosphorous 196c 197 & 30.9737620d0, 100.0d0, 0.5d0, 1.1316000d0, 0.0d0, !29 198c 199c Sulphur 200c 201 & 31.9720707d0, 94.93d0, 0.0d0, 0.0d0, 0.0d0, !30 202 & 32.9714584d0, 0.76d0, 1.5d0, 0.6438210d0, -0.06780d0, 203 & 33.9678667d0, 4.29d0, 0.0d0, 0.0d0, 0.0d0, 204 & 35.9670806d0, 0.02d0, 0.0d0, 0.0d0, 0.0d0, 205c 206c Chlorine 207c 208 & 34.9688527d0, 75.78d0, 1.5d0, 0.8218736d0, -0.08165d0, !34 209 & 36.9659026d0, 24.22d0, 1.5d0, 0.6841230d0, -0.06435d0, 210c 211c Argon 212c 213 & 35.9675455d0, 0.3365d0, 0.0d0, 0.0d0, 0.0d0, !36 214 & 37.9627325d0, 0.0632d0, 0.0d0, 0.0d0, 0.0d0, 215 & 39.9623837d0, 99.6003d0, 0.0d0, 0.0d0, 0.0d0/ 216c 217 data ((atomprop(iii,jjj),iii=1,5),jjj=39,99) / 218c 219c Potassium 220c 221 & 38.9637074d0, 93.2581d0, 1.5d0, 0.3914658d0, 0.05850d0, !39 222 & 39.9639992d0, 0.0117d0, 4.0d0, -1.2980990d0, -0.07300d0, 223 & 40.9618254d0, 6.7302d0, 1.5d0, 0.2148699d0, 0.07110d0, 224c 225c Calcium 226c 227 & 39.9625906d0, 96.941d0, 0.0d0, 0.0d0, 0.0d0, !42 228 & 41.9586176d0, 0.647d0, 0.0d0, 0.0d0, 0.0d0, 229 & 42.9587662d0, 0.135d0, 3.5d0, -1.3172700d0, -0.04080d0, 230 & 43.9554806d0, 2.086d0, 0.0d0, 0.0d0, 0.0d0, 231 & 45.9536890d0, 0.004d0, 0.0d0, 0.0d0, 0.0d0, 232 & 47.9525330d0, 0.187d0, 0.0d0, 0.0d0, 0.0d0, 233c 234c Scandium 235c 236 & 44.9559100d0, 100.0d0, 3.5d0, 4.7564830d0, -0.22000d0, !48 237c 238c Titanium 239c 240 & 45.9526294d0, 8.25d0, 0.0d0, 0.0d0, 0.0d0, !49 241 & 46.9517640d0, 7.44d0, 2.5d0, -0.7884800d0, 0.30200d0, 242 & 47.9479473d0, 73.72d0, 0.0d0, 0.0d0, 0.0d0, 243 & 48.9478711d0, 5.41d0, 3.5d0, -1.1041700d0, 0.24700d0, 244 & 49.9447921d0, 5.18d0, 0.0d0, 0.0d0, 0.0d0, 245c 246c Vanadium 247c 248 & 49.9471609d0, 0.250d0, 3.0d0, 3.3474500d0, 0.21000d0, !54 249 & 50.9439617d0, 99.750d0, 3.5d0, 5.1514000d0, -0.05200d0, 250c 251c Chromium 252c 253 & 49.9460464d0, 4.345d0, 0.0d0, 0.0d0, 0.0d0, !56 254 & 51.9405098d0, 83.789d0, 0.0d0, 0.0d0, 0.0d0, 255 & 52.9406513d0, 9.501d0, 1.5d0, -0.4745400d0, -0.15000d0, 256 & 53.9388825d0, 2.365d0, 0.0d0, 0.0d0, 0.0d0, 257c 258c Manganese 259c 260 & 54.9380471d0, 100.0d0, 2.5d0, 3.4532000d0, 0.33000d0, !60 261c 262c Iron 263c 264 & 53.9396127d0, 5.845d0, 0.0d0, 0.0d0, 0.0d0, !61 265 & 55.9349393d0, 91.754d0, 0.0d0, 0.0d0, 0.0d0, 266 & 56.9353958d0, 2.119d0, 0.5d0, 0.0906229d0, 0.16000d0, 267 & 57.9332773d0, 0.282d0, 0.0d0, 0.0d0, 0.0d0, 268c 269c Cobalt 270c 271 & 58.9331976d0, 100.0d0, 3.5d0, 4.6270000d0, 0.42000d0, !65 272c 273c Nickel 274c 275 & 57.9353462d0, 68.0769d0, 0.0d0, 0.0d0, 0.0d0, !66 276 & 59.9307884d0, 26.2231d0, 0.0d0, 0.0d0, 0.0d0, 277 & 60.9310579d0, 1.1399d0, 1.5d0, -0.7500200d0, 0.16200d0, 278 & 61.9283461d0, 3.6345d0, 0.0d0, 0.0d0, 0.0d0, 279 & 63.9279679d0, 0.9256d0, 0.0d0, 0.0d0, 0.0d0, 280c 281c Copper 282c 283 & 62.9295989d0, 69.17d0, 1.5d0, 2.2233000d0, -0.22000d0, !71 284 & 64.9277929d0, 30.83d0, 1.5d0, 2.3817000d0, -0.20400d0, 285c 286c Zinc 287c 288 & 63.9291448d0, 48.63d0, 0.0d0, 0.0d0, 0.0d0, !73 289 & 65.9260347d0, 28.90d0, 0.0d0, 0.0d0, 0.0d0, 290 & 66.9271291d0, 4.10d0, 2.5d0, 0.8754790d0, 0.15000d0, 291 & 67.9248459d0, 18.75d0, 0.0d0, 0.0d0, 0.0d0, 292 & 69.9253250d0, 0.62d0, 0.0d0, 0.0d0, 0.0d0, 293c 294c Gallium 295c 296 & 68.9255800d0, 60.108d0, 1.5d0, 2.0165900d0, 0.17100d0, !78 297 & 70.9247005d0, 39.892d0, 1.5d0, 2.5622700d0, 0.10700d0, 298c 299c Germanium 300c 301 & 69.9242497d0, 20.84d0, 0.0d0, 0.0d0, 0.0d0, !80 302 & 71.9220789d0, 27.54d0, 0.0d0, 0.0d0, 0.0d0, 303 & 72.9234626d0, 7.73d0, 4.5d0, -0.8794669d0, -0.19600d0, 304 & 73.9211774d0, 36.28d0, 0.0d0, 0.0d0, 0.0d0, 305 & 75.9214016d0, 7.61d0, 0.0d0, 0.0d0, 0.0d0, 306c 307c Arsenic 308c 309 & 74.9215942d0, 100.0d0, 1.5d0, 1.4394700d0, 0.31400d0, !85 310c 311c Selenium 312c 313 & 73.9224746d0, 0.89d0, 0.0d0, 0.0d0, 0.0d0, !86 314 & 75.9192120d0, 9.37d0, 0.0d0, 0.0d0, 0.0d0, 315 & 76.9199125d0, 7.63d0, 0.5d0, 0.5350600d0, 0.76000d0, 316 & 77.9173076d0, 23.77d0, 0.0d0, 0.0d0, 0.0d0, 317 & 79.9165196d0, 49.61d0, 0.0d0, 0.0d0, 0.0d0, 318 & 81.9166978d0, 8.73d0, 0.0d0, 0.0d0, 0.0d0, 319c 320c Bromine 321c 322 & 78.9183361d0, 50.69d0, 1.5d0, 2.1063990d0, 0.31300d0, !92 323 & 80.9162890d0, 49.31d0, 1.5d0, 2.2705600d0, 0.26200d0, 324c 325c Krypton 326c 327 & 77.9203960d0, 0.35d0, 0.0d0, 0.0d0, 0.0d0, !94 328 & 79.9163800d0, 2.28d0, 0.0d0, 0.0d0, 0.0d0, 329 & 81.9134820d0, 11.58d0, 0.0d0, 0.0d0, 0.0d0, 330 & 82.9141350d0, 11.49d0, 4.5d0, -0.9706690d0, 0.25900d0, 331 & 83.9115070d0, 57.00d0, 0.0d0, 0.0d0, 0.0d0, 332 & 85.9106160d0, 17.30d0, 0.0d0, 0.0d0, 0.0d0/ 333c 334 data ((atomprop(iii,jjj),iii=1,5),jjj=100,176) / 335c 336c Rubidium 337c 338 & 84.9117940d0, 71.17d0, 2.5d0, 1.3530300d0, 0.27600d0, !100 339 & 86.9091870d0, 27.83d0, 1.5d0, 2.7512400d0, 0.13350d0, 340c 341c Strontium 342c 343 & 84.9134300d0, 0.56d0, 0.0d0, 0.0d0, 0.0d0, !102 344 & 85.9092672d0, 9.86d0, 0.0d0, 0.0d0, 0.0d0, 345 & 86.9088841d0, 7.00d0, 4.5d0, -1.0928300d0, 0.33500d0, 346 & 87.9056188d0, 82.58d0, 0.0d0, 0.0d0, 0.0d0, 347c 348c Yttrium 349c 350 & 88.9058490d0, 100.0d0, 0.5d0, -0.1374153d0, 0.0d0, !106 351c 352c Zirconium 353c 354 & 89.9047026d0, 51.45d0, 0.0d0, 0.0d0, 0.0d0, !107 355 & 90.9056439d0, 11.22d0, 2.5d0, -1.3036200d0, -0.17600d0, 356 & 91.9050386d0, 17.15d0, 0.0d0, 0.0d0, 0.0d0, 357 & 93.9063148d0, 17.38d0, 0.0d0, 0.0d0, 0.0d0, 358 & 95.9082750d0, 2.80d0, 0.0d0, 0.0d0, 0.0d0, 359c 360c Niobium 361c 362 & 92.9063772d0, 100.0d0, 4.5d0, 6.1705000d0, -0.32000d0, !112 363c 364c Molybdenum 365c 366 & 91.9068090d0, 14.84d0, 0.0d0, 0.0d0, 0.0d0, !113 367 & 93.9050853d0, 9.25d0, 0.0d0, 0.0d0, 0.0d0, 368 & 94.9058411d0, 15.92d0, 2.5d0, -0.9142000d0, -0.02200d0, 369 & 95.9046785d0, 16.68d0, 0.0d0, 0.0d0, 0.0d0, 370 & 96.9060205d0, 9.55d0, 2.5d0, -0.9335000d0, 0.25500d0, 371 & 97.9054073d0, 24.13d0, 0.0d0, 0.0d0, 0.0d0, 372 & 99.9074770d0, 9.63d0, 0.0d0, 0.0d0, 0.0d0, 373c 374c Technetium 375c 376 & 98.9070000d0, 100.0d0, 4.5d0, 5.6847000d0, -0.12900d0, !120 377c 378c Ruthenium 379c 380 & 95.9075990d0, 5.54d0, 0.0d0, 0.0d0, 0.0d0, !121 381 & 97.9052870d0, 1.87d0, 0.0d0, 0.0d0, 0.0d0, 382 & 98.9059389d0, 12.76d0, 2.5d0, -0.6413000d0, 0.07900d0, 383 & 99.9042192d0, 12.60d0, 0.0d0, 0.0d0, 0.0d0, 384 &100.9042192d0, 17.06d0, 2.5d0, -0.7189000d0, 0.45700d0, 385 &101.9043485d0, 31.55d0, 0.0d0, 0.0d0, 0.0d0, 386 &103.9054240d0, 18.62d0, 0.0d0, 0.0d0, 0.0d0, 387c 388c Rhodium 389c 390 &102.9055000d0, 100.0d0, 0.5d0, -0.0884000d0, 0.0d0, !128 391c 392c Palladium 393c 394 &101.9056340d0, 1.02d0, 0.0d0, 0.0d0, 0.0d0, !129 395 &103.9040290d0, 11.14d0, 0.0d0, 0.0d0, 0.0d0, 396 &104.9050790d0, 22.33d0, 2.5d0, -0.6420000d0, 0.66000d0, 397 &105.9034780d0, 27.33d0, 0.0d0, 0.0d0, 0.0d0, 398 &107.9038950d0, 26.46d0, 0.0d0, 0.0d0, 0.0d0, 399 &109.9051670d0, 11.72d0, 0.0d0, 0.0d0, 0.0d0, 400c 401c Silver 402c 403 &106.9050920d0, 51.839d0, 0.5d0, -0.1135700d0, 0.98000d0, !135 404 &108.9047560d0, 48.161d0, 0.5d0, -0.1306905d0, 0.0d0, 405c 406c Cadmium 407c 408 &105.9064610d0, 1.25d0, 0.0d0, 0.0d0, 0.0d0, !137 409 &107.9041760d0, 0.89d0, 0.0d0, 0.0d0, 0.0d0, 410 &109.9030050d0, 12.49d0, 0.0d0, 0.0d0, 0.0d0, 411 &110.9041820d0, 12.80d0, 0.5d0, -0.5948857d0, -0.85000d0, 412 &111.9027570d0, 24.13d0, 0.0d0, 0.0d0, 0.0d0, 413 &112.9044000d0, 12.22d0, 0.5d0, -0.6223005d0, 0.0d0, 414 &113.9033570d0, 28.73d0, 0.0d0, 0.0d0, 0.0d0, 415 &115.9047550d0, 7.49d0, 0.0d0, 0.0d0, 0.0d0, 416c 417c Indium 418c 419 &112.9040610d0, 4.29d0, 4.5d0, 5.5289000d0, 0.7990d0, !145 420 &114.9038820d0, 95.71d0, 4.5d0, 5.5408000d0, 0.8100d0, 421c 422c Tin 423c 424 &111.9048260d0, 0.97d0, 0.0d0, 0.0d0, 0.0d0, !147 425 &113.9027840d0, 0.66d0, 0.0d0, 0.0d0, 0.0d0, 426 &114.9033480d0, 0.34d0, 0.5d0, -0.9188400d0, 0.0d0, 427 &115.9017470d0, 14.54d0, 0.0d0, 0.0d0, 0.0d0, 428 &116.9029560d0, 7.68d0, 0.5d0, -1.0010500d0, 0.0d0, 429 &117.9016090d0, 24.22d0, 0.0d0, 0.0d0, 0.0d0, 430 &118.9033110d0, 8.59d0, 0.5d0, -1.0472900d0, -0.12800d0, 431 &119.9021991d0, 32.58d0, 0.0d0, 0.0d0, 0.0d0, 432 &121.9034404d0, 4.63d0, 0.0d0, 0.0d0, 0.0d0, 433 &123.9052743d0, 5.79d0, 0.0d0, 0.0d0, 0.0d0, 434c 435c Antinomy 436c 437 &120.9038212d0, 57.36d0, 2.5d0, 3.3634000d0, -0.36000d0, !157 438 &122.9042160d0, 42.64d0, 3.5d0, 2.5498000d0, -0.49000d0, 439c 440c Tellurium 441c 442 &119.9040480d0, 0.09d0, 0.0d0, 0.0d0, 0.0d0, !159 443 &121.9030500d0, 2.55d0, 0.0d0, 0.0d0, 0.0d0, 444 &122.9042710d0, 0.89d0, 0.5d0, -0.7367900d0, 0.0d0, 445 &123.9028180d0, 4.74d0, 0.0d0, 0.0d0, 0.0d0, 446 &124.9044285d0, 7.07d0, 0.5d0, -0.8882800d0, -0.31000d0, 447 &125.9033095d0, 18.84d0, 0.0d0, 0.0d0, 0.0d0, 448 &127.9044630d0, 31.74d0, 0.0d0, 0.0d0, 0.0d0, 449 &129.9062290d0, 34.08d0, 0.0d0, 0.0d0, 0.0d0, 450c 451c Iodine 452c 453 &126.9044730d0, 100.0d0, 2.5d0, 2.8132800d0, -0.71000d0, !167 454c 455c Xenon 456c 457 &123.9058942d0, 0.09d0, 0.0d0, 0.0d0, 0.0d0, !168 458 &125.9042810d0, 0.09d0, 0.0d0, 0.0d0, 0.0d0, 459 &127.9035312d0, 1.92d0, 0.0d0, 0.0d0, 0.0d0, 460 &128.9047801d0, 26.44d0, 0.5d0, -0.7779770d0, -0.39300d0, 461 &129.9035094d0, 4.08d0, 0.0d0, 0.0d0, 0.0d0, 462 &130.9050720d0, 21.18d0, 1.5d0, 0.6918610d0, -0.11400d0, 463 &131.9041440d0, 26.89d0, 0.0d0, 0.0d0, 0.0d0, 464 &133.9053950d0, 10.44d0, 0.0d0, 0.0d0, 0.0d0, 465 &135.9072140d0, 8.87d0, 0.0d0, 0.0d0, 0.0d0/ 466c 467 data ((atomprop(iii,jjj),iii=1,5),jjj=177,238) / 468c 469c Caesium 470c 471 &132.9054290d0, 100.0d0, 3.5d0, 2.5829240d0, -0.00343d0, !177 472c 473c Barium 474c 475 &129.9062820d0, 0.106d0, 0.0d0, 0.0d0, 0.0d0, !178 476 &131.9050420d0, 0.101d0, 0.0d0, 0.0d0, 0.0d0, 477 &133.9044860d0, 2.417d0, 0.0d0, 0.0d0, 0.0d0, 478 &134.9056650d0, 6.592d0, 1.5d0, 0.8379430d0, 0.16000d0, 479 &135.9045530d0, 7.854d0, 0.0d0, 0.0d0, 0.0d0, 480 &136.9058120d0, 11.232d0, 1.5d0, 0.9373650d0, 0.24500d0, 481 &137.9052320d0, 71.698d0, 0.0d0, 0.0d0, 0.0d0, 482c 483c Lanthanum 484c 485 &137.9071050d0, 0.090d0, 5.0d0, 3.7139000d0, 0.45000d0, !185 486 &138.9063470d0, 99.910d0, 3.5d0, 2.7832000d0, 0.20000d0, 487c 488c Cerium 489c 490 &135.9071400d0, 0.185d0, 0.0d0, 0.0d0, 0.0d0, !187 491 &137.9059850d0, 0.251d0, 0.0d0, 0.0d0, 0.0d0, 492 &139.9054330d0, 88.450d0, 0.0d0, 0.0d0, 0.0d0, 493 &141.9092410d0, 11.114d0, 0.0d0, 0.0d0, 0.0d0, 494c 495c Praseodymium 496c 497 &140.9076470d0, 100.0d0, 2.5d0, 4.1360000d0, -0.05890d0, !191 498c 499c Neodymiumium 500c 501 &141.9077190d0, 27.2d0, 0.0d0, 0.0d0, 0.0d0, !192 502 &142.9098100d0, 12.2d0, 3.5d0, -1.0650000d0, -0.63000d0, 503 &143.9100830d0, 23.8d0, 0.0d0, 0.0d0, 0.0d0, 504 &144.9125700d0, 8.3d0, 3.5d0, -0.6560000d0, -0.33000d0, 505 &145.9131130d0, 17.2d0, 0.0d0, 0.0d0, 0.0d0, 506 &147.9168890d0, 5.7d0, 0.0d0, 0.0d0, 0.0d0, 507 &149.9208870d0, 5.6d0, 0.0d0, 0.0d0, 0.0d0, 508c 509c Promethium 510c 511 &146.9151340d0, 100.0d0, 3.5d0, 2.6000000d0, 0.74000d0, !199 512c 513c Samarium 514c 515 &143.9119980d0, 3.07d0, 0.0d0, 0.0d0, 0.0d0, !200 516 &146.9148940d0, 14.99d0, 3.5d0, -0.8149000d0, -0.25900d0, 517 &147.9148190d0, 11.24d0, 0.0d0, 0.0d0, 0.0d0, 518 &148.9171800d0, 13.82d0, 3.5d0, -0.6718000d0, 0.07400d0, 519 &149.9172730d0, 7.38d0, 0.0d0, 0.0d0, 0.0d0, 520 &151.9197280d0, 26.75d0, 0.0d0, 0.0d0, 0.0d0, 521 &153.9222050d0, 22.75d0, 0.0d0, 0.0d0, 0.0d0, 522c 523c Europium 524c 525 &150.9197020d0, 47.81d0, 2.5d0, 3.4718000d0, 0.90300d0, !207 526 &152.9212250d0, 52.19d0, 2.5d0, 1.5331000d0, 2.41200d0, 527c 528c Gadolinium 529c 530 &151.9197860d0, 0.20d0, 0.0d0, 0.0d0, 0.0d0, !209 531 &153.9208610d0, 2.18d0, 0.0d0, 0.0d0, 0.0d0, 532 &154.9226180d0, 14.80d0, 1.5d0, -0.2591000d0, 1.27000d0, 533 &155.9221180d0, 20.47d0, 0.0d0, 0.0d0, 0.0d0, 534 &156.9239560d0, 15.65d0, 1.5d0, -0.3399000d0, 1.35000d0, 535 &157.9240190d0, 24.84d0, 0.0d0, 0.0d0, 0.0d0, 536 &159.9270490d0, 21.86d0, 0.0d0, 0.0d0, 0.0d0, 537c 538c Terbium 539c 540 &158.9253420d0, 100.0d0, 1.5d0, 2.0140000d0, 1.43200d0, !216 541c 542c Dysprosium 543c 544 &155.9242770d0, 0.06d0, 0.0d0, 0.0d0, 0.0d0, !217 545 &157.9244030d0, 0.10d0, 0.0d0, 0.0d0, 0.0d0, 546 &159.9251930d0, 2.34d0, 0.0d0, 0.0d0, 0.0d0, 547 &160.9269300d0, 18.91d0, 2.5d0, -0.4806000d0, 2.50700d0, 548 &161.9267950d0, 25.51d0, 0.0d0, 0.0d0, 0.0d0, 549 &162.9287280d0, 24.90d0, 2.5d0, 0.6726000d0, 2.64800d0, 550 &163.9291710d0, 28.18d0, 0.0d0, 0.0d0, 0.0d0, 551c 552c Holmium 553c 554 &164.9303190d0, 100.0d0, 3.5d0, 4.1730000d0, 3.58000d0, !224 555c 556c Erbium 557c 558 &161.9287750d0, 0.14d0, 0.0d0, 0.0d0, 0.0d0, !225 559 &163.9291980d0, 1.61d0, 0.0d0, 0.0d0, 0.0d0, 560 &165.9302900d0, 33.61d0, 0.0d0, 0.0d0, 0.0d0, 561 &166.9320460d0, 22.93d0, 3.5d0, -0.5665000d0, 3.56500d0, 562 &167.9323680d0, 26.78d0, 0.0d0, 0.0d0, 0.0d0, 563 &169.9354610d0, 14.93d0, 0.0d0, 0.0d0, 0.0d0, 564c 565c Thulium 566c 567 &168.9342120d0, 100.0d0, 0.5d0, -0.2316000d0, -1.20000d0, !231 568c 569c Ytterbium 570c 571 &167.9338940d0, 0.13d0, 0.0d0, 0.0d0, 0.0d0, !232 572 &169.9347590d0, 3.04d0, 0.0d0, 0.0d0, 0.0d0, 573 &170.9363230d0, 14.28d0, 0.5d0, 0.4919000d0, 0.0d0, 574 &171.9363780d0, 21.83d0, 0.0d0, 0.0d0, 0.0d0, 575 &172.9382080d0, 16.13d0, 2.5d0, -0.6776000d0, 2.80000d0, 576 &173.9388590d0, 31.83d0, 0.0d0, 0.0d0, 0.0d0, 577 &175.9425640d0, 12.76d0, 0.0d0, 0.0d0, 0.0d0/ 578c 579 data ((atomprop(iii,jjj),iii=1,5),jjj=239,289) / 580c 581c Lutetium 582c 583 &174.9407700d0, 97.41d0, 3.5d0, 2.2327000d0, 3.49000d0, !239 584 &175.9426790d0, 2.59d0, 7.0d0, 3.1900000d0, 4.97000d0, 585c 586c Hafnium 587c 588 &173.9400440d0, 0.16d0, 0.0d0, 0.0d0, 0.0d0, !241 589 &175.9414060d0, 5.26d0, 0.0d0, 0.0d0, 0.0d0, 590 &176.9432170d0, 18.60d0, 3.5d0, 0.7936000d0, 3.36500d0, 591 &177.9436960d0, 27.28d0, 0.0d0, 0.0d0, 0.0d0, 592 &178.9458122d0, 13.62d0, 4.5d0, -0.6409000d0, 3.79300d0, 593 &179.9465457d0, 35.08d0, 0.0d0, 0.0d0, 0.0d0, 594c 595c Tantalum 596c 597 &179.9474620d0, 0.012d0, 8.0d0, 0.0d0, 0.0d0, !247 598 &180.9479920d0, 99.988d0, 3.5d0, 2.3710000d0, 3.17000d0, 599c 600c Tungsten 601c 602 &179.9467010d0, 0.12d0, 0.0d0, 0.0d0, 0.0d0, !249 603 &181.9482020d0, 26.50d0, 0.0d0, 0.0d0, 0.0d0, 604 &182.9502200d0, 14.31d0, 0.5d0, 0.1177847d0, 0.0d0, 605 &183.9509280d0, 30.64d0, 0.0d0, 0.0d0, 0.0d0, 606 &185.9543570d0, 28.43d0, 0.0d0, 0.0d0, 0.0d0, 607c 608c Rhenium 609c 610 &184.9529510d0, 37.40d0, 2.5d0, 3.1871000d0, 2.18000d0, !254 611 &186.9557440d0, 62.60d0, 2.5d0, 3.2197000d0, 2.07000d0, 612c 613c Osmium 614c 615 &183.9524880d0, 0.02d0, 0.0d0, 0.0d0, 0.0d0, !256 616 &185.9538300d0, 1.59d0, 0.0d0, 0.0d0, 0.0d0, 617 &186.9557410d0, 1.96d0, 0.5d0, 0.06465185d0, 0.0d0, 618 &187.9558300d0, 13.23d0, 0.0d0, 0.0d0, 0.0d0, 619 &188.9581370d0, 16.15d0, 1.5d0, 0.6599330d0, 0.85600d0, 620 &189.9584360d0, 26.26d0, 0.0d0, 0.0d0, 0.0d0, 621 &191.9614670d0, 40.78d0, 0.0d0, 0.0d0, 0.0d0, 622c 623c Iridium 624c 625 &190.9605840d0, 37.3d0, 1.5d0, 0.1462000d0, 0.81600d0, !263 626 &192.9629170d0, 62.7d0, 1.5d0, 0.1592000d0, 0.75100d0, 627c 628c Platinum 629c 630 &189.9599170d0, 0.014d0, 0.0d0, 0.0d0, 0.0d0, !265 631 &191.9610190d0, 0.782d0, 0.0d0, 0.0d0, 0.0d0, 632 &193.9626550d0, 32.967d0, 0.0d0, 0.0d0, 0.0d0, 633 &194.9647660d0, 33.832d0, 0.5d0, 0.6095000d0, 0.0d0, 634 &195.9649260d0, 25.242d0, 0.0d0, 0.0d0, 0.0d0, 635 &197.9678690d0, 7.163d0, 0.0d0, 0.0d0, 0.0d0, 636c 637c Gold 638c 639 &196.9665430d0, 100.0d0, 1.5d0, 0.1481590d0, 0.54700d0, !271 640c 641c Mercury 642c 643 &195.9658070d0, 0.15d0, 0.0d0, 0.0d0, 0.0d0, !272 644 &197.9667430d0, 9.97d0, 0.0d0, 0.0d0, 0.0d0, 645 &198.9682540d0, 16.87d0, 0.5d0, 0.5058852d0, 0.67400d0, 646 &199.9683000d0, 23.10d0, 0.0d0, 0.0d0, 0.0d0, 647 &200.9702770d0, 13.18d0, 1.5d0, -0.5602250d0, 0.38600d0, 648 &201.9706170d0, 29.86d0, 0.0d0, 0.0d0, 0.0d0, 649 &203.9734670d0, 6.87d0, 0.0d0, 0.0d0, 0.0d0, 650c 651c Thallium 652c 653 &202.9723200d0, 29.524d0, 0.5d0, 1.6222570d0, 0.0d0, !279 654 &204.9744010d0, 70.476d0, 0.5d0, 1.6382135d0, 0.0d0, 655c 656c Lead 657c 658 &203.9730200d0, 1.4d0, 0.0d0, 0.0d0, 0.0d0, !281 659 &205.9744400d0, 24.1d0, 0.0d0, 0.0d0, 0.0d0, 660 &206.9758720d0, 22.1d0, 0.5d0, 0.5821900d0, -0.26900d0, 661 &207.9766270d0, 52.4d0, 0.0d0, 0.0d0, 0.0d0, 662c 663c Bismuth 664c 665 &208.9803740d0, 100.0d0, 4.5d0, 4.1106000d0, -0.51600d0, !285 666c 667c Polonium 668c 669 &208.9824040d0, 0.0d0, 0.5d0, 0.0d0, 0.0d0, !286 670c 671c Astatine 672c 673 &209.9871260d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !287 674c 675c Radon 676c 677 &208.9903800d0, 0.0d0, 2.5d0, 0.8388000d0, 0.31100d0, !288 678 &222.0175710d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0/ 679c 680 data ((atomprop(iii,jjj),iii=1,5),jjj=290,323) / 681c 682c Francium 683c 684 &223.0197330d0, 0.0d0, 1.5d0, 1.1700000d0, 1.17000d0, !290 685c 686c Radium 687c 688 &226.0254030d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !291 689c 690c Actinium 691c 692 &227.0277500d0, 0.0d0, 1.5d0, 1.1000000d0, 1.70000d0, !292 693c 694c Thorium 695c 696 &232.0380508d0, 100.0d0, 0.0d0, 0.0d0, 0.0d0, !293 697c 698c Protoactinium 699c 700 &231.0358800d0, 100.0d0, 1.5d0, 2.0100000d0, -1.72000d0, !294 701c 702c Uranium 703c 704 &234.0409468d0, 0.0055d0, 0.0d0, 0.0d0, 0.0d0, !295 705 &235.0439242d0, 0.7200d0, 3.5d0, -0.3500000d0, 4.93600d0, 706 &238.0507847d0, 99.2745d0, 0.0d0, 0.0d0, 0.0d0, 707c 708c Neptunium 709c 710 &237.0481678d0, 0.0d0, 2.5d0, 3.1400000d0, 3.88600d0, !298 711c 712c Plutonium 713c 714 &244.0641990d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !299 715c 716c Americium 717c 718 &243.0613750d0, 0.0d0, 2.5d0, 1.6100000d0, 4.21000d0, !300 719c 720c Curium 721c 722 &247.0703470d0, 0.0d0, 4.5d0, 0.3700000d0, 0.0d0, !301 723c 724c Berkelium 725c 726 &247.0703000d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !302 727c 728c Californium 729c 730 &251.0795800d0, 0.0d0, 0.5d0, 0.0d0, 0.0d0, !303 731c 732c Einsteinium 733c 734 &252.0829440d0, 0.0d0, 5.0d0, 0.0d0, 6.70000d0, !304 735c 736c Fermium 737c 738 &257.0950990d0, 0.0d0, 4.5d0, 0.0d0, 0.0d0, !305 739c 740c Mendelevium 741c 742 &258.0985700d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !306 743c 744c Nobelium 745c 746 &259.1009310d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !307 747c 748c Lawrencium 749c 750 &260.1053200d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !308 751c 752c Rutherfordium 753c 754 &261.1086900d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !309 755c 756c Dubnium 757c 758 &262.1137600d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !310 759c 760c Seaborgium 761c 762 &263.1182200d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !311 763c 764c Bohrium 765c 766 &262.1229300d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !312 767c 768c Hassium 769c 770 &265.1301600d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !313 771c 772c Meitnerium 773c 774 &268.1435000d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !314 775c 776c Darmstadtium 777c 778 &269.1451000d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !315 779c 780c Roentgenium 781c 782 &272.1535000d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !316 783c 784c Ununbium 785c 786 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !317 787c 788c Ununtrium 789c 790 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !318 791c 792c Ununquadium 793c 794 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !319 795c 796c Ununpentium 797c 798 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !320 799c 800c Ununhexium 801c 802 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !321 803c 804c Ununseptium 805c 806 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0, !322 807c 808c Ununoctium 809c 810 & 0.0d0, 0.0d0, 0.0d0, 0.0d0, 0.0d0/ !323 811c 812