set Chm(Ac,na) 89
set Chm(Ac,nm) Actinium
set Chm(Ac,wg) 227
set Chm(Ac,vdw) 0
set Chm(Ag,na) 47
set Chm(Ag,nm) Silver
set Chm(Ag,wg) 107.8682
set Chm(Ag,vdw) 1.72
set Chm(Al,na) 13
set Chm(Al,nm) Aluminum
set Chm(Al,wg) 26.9815
set Chm(Al,vdw) 1.7
set Chm(Am,na) 95
set Chm(Am,nm) Americium
set Chm(Am,wg) 243
set Chm(Am,vdw) 0
set Chm(Ar,na) 18
set Chm(Ar,nm) Argon
set Chm(Ar,wg) 39.948
set Chm(Ar,vdw) 1.88
set Chm(As,na) 33
set Chm(As,nm) Arsenic
set Chm(As,wg) 74.9216
set Chm(As,vdw) 1.85
set Chm(At,na) 85
set Chm(At,nm) Astatine
set Chm(At,wg) 210
set Chm(At,vdw) 0
set Chm(Au,na) 79
set Chm(Au,nm) Gold
set Chm(Au,wg) 196.9665
set Chm(Au,vdw) 1.66
set Chm(B,na) 5
set Chm(B,nm) Boron
set Chm(B,wg) 10.811
set Chm(B,vdw) 1.7
set Chm(Ba,na) 56
set Chm(Ba,nm) Barium
set Chm(Ba,wg) 137.327
set Chm(Ba,vdw) 0
set Chm(Be,na) 4
set Chm(Be,nm) Beryllium
set Chm(Be,wg) 9.0122
set Chm(Be,vdw) 1.7
set Chm(Bh,na) 107
set Chm(Bh,nm) Bohrium
set Chm(Bh,wg) 264
set Chm(Bh,vdw) 0
set Chm(Bi,na) 83
set Chm(Bi,nm) Bismuth
set Chm(Bi,wg) 208.9804
set Chm(Bi,vdw) 0
set Chm(Bk,na) 97
set Chm(Bk,nm) Berkelium
set Chm(Bk,wg) 247
set Chm(Bk,vdw) 0
set Chm(Br,na) 35
set Chm(Br,nm) Bromine
set Chm(Br,wg) 79.904
set Chm(Br,vdw) 1.85
set Chm(C,na) 6
set Chm(C,nm) Carbon
set Chm(C,wg) 12.0107
set Chm(C,vdw) 0
set Chm(Ca,na) 20
set Chm(Ca,nm) Calcium
set Chm(Ca,wg) 40.078
set Chm(Ca,vdw) 2.23
set Chm(Cd,na) 48
set Chm(Cd,nm) Cadmium
set Chm(Cd,wg) 112.411
set Chm(Cd,vdw) 1.58
set Chm(Ce,na) 58
set Chm(Ce,nm) Cerium
set Chm(Ce,wg) 140.116
set Chm(Ce,vdw) 0
set Chm(Cf,na) 98
set Chm(Cf,nm) Californium
set Chm(Cf,wg) 251
set Chm(Cf,vdw) 0
set Chm(Cl,na) 17
set Chm(Cl,nm) Chlorine
set Chm(Cl,wg) 35.453
set Chm(Cl,vdw) 1.75
set Chm(Cm,na) 96
set Chm(Cm,nm) Curium
set Chm(Cm,wg) 247
set Chm(Cm,vdw) 0
set Chm(Co,na) 27
set Chm(Co,nm) Cobalt
set Chm(Co,wg) 58.9332
set Chm(Co,vdw) 2.23
set Chm(Cr,na) 24
set Chm(Cr,nm) Chromium
set Chm(Cr,wg) 51.9961
set Chm(Cr,vdw) 2.23
set Chm(Cs,na) 55
set Chm(Cs,nm) Cesium
set Chm(Cs,wg) 132.9055
set Chm(Cs,vdw) 0
set Chm(Cu,na) 29
set Chm(Cu,nm) Copper
set Chm(Cu,wg) 63.546
set Chm(Cu,vdw) 1.4
set Chm(Db,na) 105
set Chm(Db,nm) Dubnium
set Chm(Db,wg) 262
set Chm(Db,vdw) 0
set Chm(Dy,na) 66
set Chm(Dy,nm) Dysprosium
set Chm(Dy,wg) 162.5
set Chm(Dy,vdw) 0
set Chm(Er,na) 68
set Chm(Er,nm) Erbium
set Chm(Er,wg) 167.259
set Chm(Er,vdw) 0
set Chm(Es,na) 99
set Chm(Es,nm) Einsteinium
set Chm(Es,wg) 252
set Chm(Es,vdw) 0
set Chm(Eu,na) 63
set Chm(Eu,nm) Europium
set Chm(Eu,wg) 151.964
set Chm(Eu,vdw) 0
set Chm(F,na) 9
set Chm(F,nm) Fluorine
set Chm(F,wg) 18.9984
set Chm(F,vdw) 0
set Chm(Fe,na) 26
set Chm(Fe,nm) Iron
set Chm(Fe,wg) 55.845
set Chm(Fe,vdw) 2.23
set Chm(Fm,na) 100
set Chm(Fm,nm) Fermium
set Chm(Fm,wg) 257
set Chm(Fm,vdw) 0
set Chm(Fr,na) 87
set Chm(Fr,nm) Francium
set Chm(Fr,wg) 223
set Chm(Fr,vdw) 0
set Chm(Ga,na) 31
set Chm(Ga,nm) Gallium
set Chm(Ga,wg) 69.723
set Chm(Ga,vdw) 1.87
set Chm(Gd,na) 64
set Chm(Gd,nm) Gadolinium
set Chm(Gd,wg) 157.25
set Chm(Gd,vdw) 0
set Chm(Ge,na) 32
set Chm(Ge,nm) Germanium
set Chm(Ge,wg) 72.64
set Chm(Ge,vdw) 0
set Chm(H,na) 1
set Chm(H,nm) Hydrogen
set Chm(H,wg) 1.0079
set Chm(H,vdw) 1.2
set Chm(He,na) 2
set Chm(He,nm) Helium
set Chm(He,wg) 4.0026
set Chm(He,vdw) 1.4
set Chm(Hf,na) 72
set Chm(Hf,nm) Hafnium
set Chm(Hf,wg) 178.49
set Chm(Hf,vdw) 0
set Chm(Hg,na) 80
set Chm(Hg,nm) Mercury
set Chm(Hg,wg) 200.59
set Chm(Hg,vdw) 1.55
set Chm(Ho,na) 67
set Chm(Ho,nm) Holmium
set Chm(Ho,wg) 164.9303
set Chm(Ho,vdw) 0
set Chm(Hs,na) 108
set Chm(Hs,nm) Hassium
set Chm(Hs,wg) 277
set Chm(Hs,vdw) 0
set Chm(I,na) 53
set Chm(I,nm) Iodine
set Chm(I,wg) 126.9045
set Chm(I,vdw) 1.98
set Chm(In,na) 49
set Chm(In,nm) Indium
set Chm(In,wg) 114.818
set Chm(In,vdw) 1.93
set Chm(Ir,na) 77
set Chm(Ir,nm) Iridium
set Chm(Ir,wg) 192.217
set Chm(Ir,vdw) 0
set Chm(K,na) 19
set Chm(K,nm) Potassium
set Chm(K,wg) 39.0983
set Chm(K,vdw) 2.75
set Chm(Kr,na) 36
set Chm(Kr,nm) Krypton
set Chm(Kr,wg) 83.8
set Chm(Kr,vdw) 2.02
set Chm(La,na) 57
set Chm(La,nm) Lanthanum
set Chm(La,wg) 138.9055
set Chm(La,vdw) 0
set Chm(Li,na) 3
set Chm(Li,nm) Lithium
set Chm(Li,wg) 6.941
set Chm(Li,vdw) 1.82
set Chm(Lr,na) 103
set Chm(Lr,nm) Lawrencium
set Chm(Lr,wg) 262
set Chm(Lr,vdw) 0
set Chm(Lu,na) 71
set Chm(Lu,nm) Lutetium
set Chm(Lu,wg) 174.967
set Chm(Lu,vdw) 0
set Chm(Md,na) 101
set Chm(Md,nm) Mendelevium
set Chm(Md,wg) 258
set Chm(Md,vdw) 0
set Chm(Mg,na) 12
set Chm(Mg,nm) Magnesium
set Chm(Mg,wg) 24.305
set Chm(Mg,vdw) 1.73
set Chm(Mn,na) 25
set Chm(Mn,nm) Manganese
set Chm(Mn,wg) 54.938
set Chm(Mn,vdw) 2.23
set Chm(Mo,na) 42
set Chm(Mo,nm) Molybdenum
set Chm(Mo,wg) 95.94
set Chm(Mo,vdw) 0
set Chm(Mt,na) 109
set Chm(Mt,nm) Meitnerium
set Chm(Mt,wg) 268
set Chm(Mt,vdw) 0
set Chm(N,na) 7
set Chm(N,nm) Nitrogen
set Chm(N,wg) 14.0067
set Chm(N,vdw) 0
set Chm(Na,na) 11
set Chm(Na,nm) Sodium
set Chm(Na,wg) 22.9897
set Chm(Na,vdw) 2.27
set Chm(Nb,na) 41
set Chm(Nb,nm) Niobium
set Chm(Nb,wg) 92.9064
set Chm(Nb,vdw) 0
set Chm(Nd,na) 60
set Chm(Nd,nm) Neodymium
set Chm(Nd,wg) 144.24
set Chm(Nd,vdw) 0
set Chm(Ne,na) 10
set Chm(Ne,nm) Neon
set Chm(Ne,wg) 20.1797
set Chm(Ne,vdw) 0
set Chm(Ni,na) 28
set Chm(Ni,nm) Nickel
set Chm(Ni,wg) 58.6934
set Chm(Ni,vdw) 1.63
set Chm(No,na) 102
set Chm(No,nm) Nobelium
set Chm(No,wg) 259
set Chm(No,vdw) 0
set Chm(Np,na) 93
set Chm(Np,nm) Neptunium
set Chm(Np,wg) 237
set Chm(Np,vdw) 0
set Chm(O,na) 8
set Chm(O,nm) Oxygen
set Chm(O,wg) 15.9994
set Chm(O,vdw) 1.52
set Chm(Os,na) 76
set Chm(Os,nm) Osmium
set Chm(Os,wg) 190.23
set Chm(Os,vdw) 0
set Chm(P,na) 15
set Chm(P,nm) Phosphorus
set Chm(P,wg) 30.9738
set Chm(P,vdw) 1.8
set Chm(Pa,na) 91
set Chm(Pa,nm) Protactinium
set Chm(Pa,wg) 231.0359
set Chm(Pa,vdw) 0
set Chm(Pb,na) 82
set Chm(Pb,nm) Lead
set Chm(Pb,wg) 207.2
set Chm(Pb,vdw) 2.02
set Chm(Pd,na) 46
set Chm(Pd,nm) Palladium
set Chm(Pd,wg) 106.42
set Chm(Pd,vdw) 1.63
set Chm(Pm,na) 61
set Chm(Pm,nm) Promethium
set Chm(Pm,wg) 145
set Chm(Pm,vdw) 0
set Chm(Po,na) 84
set Chm(Po,nm) Polonium
set Chm(Po,wg) 209
set Chm(Po,vdw) 0
set Chm(Pr,na) 59
set Chm(Pr,nm) Praseodymium
set Chm(Pr,wg) 140.9077
set Chm(Pr,vdw) 0
set Chm(Pt,na) 78
set Chm(Pt,nm) Platinum
set Chm(Pt,wg) 195.078
set Chm(Pt,vdw) 1.75
set Chm(Pu,na) 94
set Chm(Pu,nm) Plutonium
set Chm(Pu,wg) 244
set Chm(Pu,vdw) 0
set Chm(Ra,na) 88
set Chm(Ra,nm) Radium
set Chm(Ra,wg) 226
set Chm(Ra,vdw) 0
set Chm(Rb,na) 37
set Chm(Rb,nm) Rubidium
set Chm(Rb,wg) 85.4678
set Chm(Rb,vdw) 0
set Chm(Re,na) 75
set Chm(Re,nm) Rhenium
set Chm(Re,wg) 186.207
set Chm(Re,vdw) 0
set Chm(Rf,na) 104
set Chm(Rf,nm) Rutherfordium
set Chm(Rf,wg) 261
set Chm(Rf,vdw) 0
set Chm(Rh,na) 45
set Chm(Rh,nm) Rhodium
set Chm(Rh,wg) 102.9055
set Chm(Rh,vdw) 0
set Chm(Rn,na) 86
set Chm(Rn,nm) Radon
set Chm(Rn,wg) 222
set Chm(Rn,vdw) 0
set Chm(Ru,na) 44
set Chm(Ru,nm) Ruthenium
set Chm(Ru,wg) 101.07
set Chm(Ru,vdw) 0
set Chm(S,na) 16
set Chm(S,nm) Sulfur
set Chm(S,wg) 32.065
set Chm(S,vdw) 1.8
set Chm(Sb,na) 51
set Chm(Sb,nm) Antimony
set Chm(Sb,wg) 121.76
set Chm(Sb,vdw) 0
set Chm(Sc,na) 21
set Chm(Sc,nm) Scandium
set Chm(Sc,wg) 44.9559
set Chm(Sc,vdw) 2.23
set Chm(Se,na) 34
set Chm(Se,nm) Selenium
set Chm(Se,wg) 78.96
set Chm(Se,vdw) 1.9
set Chm(Sg,na) 106
set Chm(Sg,nm) Seaborgium
set Chm(Sg,wg) 266
set Chm(Sg,vdw) 0
set Chm(Si,na) 14
set Chm(Si,nm) Silicon
set Chm(Si,wg) 28.0855
set Chm(Si,vdw) 2.1
set Chm(Sm,na) 62
set Chm(Sm,nm) Samarium
set Chm(Sm,wg) 150.36
set Chm(Sm,vdw) 0
set Chm(Sn,na) 50
set Chm(Sn,nm) Tin
set Chm(Sn,wg) 118.71
set Chm(Sn,vdw) 2.17
set Chm(Sr,na) 38
set Chm(Sr,nm) Strontium
set Chm(Sr,wg) 87.62
set Chm(Sr,vdw) 0
set Chm(Ta,na) 73
set Chm(Ta,nm) Tantalum
set Chm(Ta,wg) 180.9479
set Chm(Ta,vdw) 0
set Chm(Tb,na) 65
set Chm(Tb,nm) Terbium
set Chm(Tb,wg) 158.9253
set Chm(Tb,vdw) 0
set Chm(Tc,na) 43
set Chm(Tc,nm) Technetium
set Chm(Tc,wg) 98
set Chm(Tc,vdw) 0
set Chm(Te,na) 52
set Chm(Te,nm) Tellurium
set Chm(Te,wg) 127.6
set Chm(Te,vdw) 2.06
set Chm(Th,na) 90
set Chm(Th,nm) Thorium
set Chm(Th,wg) 232.0381
set Chm(Th,vdw) 0
set Chm(Ti,na) 22
set Chm(Ti,nm) Titanium
set Chm(Ti,wg) 47.867
set Chm(Ti,vdw) 2.23
set Chm(Tl,na) 81
set Chm(Tl,nm) Thallium
set Chm(Tl,wg) 204.3833
set Chm(Tl,vdw) 1.96
set Chm(Tm,na) 69
set Chm(Tm,nm) Thulium
set Chm(Tm,wg) 168.9342
set Chm(Tm,vdw) 0
set Chm(U,na) 92
set Chm(U,nm) Uranium
set Chm(U,wg) 238.0289
set Chm(U,vdw) 1.86
set Chm(V,na) 23
set Chm(V,nm) Vanadium
set Chm(V,wg) 50.9415
set Chm(V,vdw) 2.23
set Chm(W,na) 74
set Chm(W,nm) Tungsten
set Chm(W,wg) 183.84
set Chm(W,vdw) 0
set Chm(Xe,na) 54
set Chm(Xe,nm) Xenon
set Chm(Xe,wg) 131.293
set Chm(Xe,vdw) 2.16
set Chm(Y,na) 39
set Chm(Y,nm) Yttrium
set Chm(Y,wg) 88.9059
set Chm(Y,vdw) 0
set Chm(Yb,na) 70
set Chm(Yb,nm) Ytterbium
set Chm(Yb,wg) 173.04
set Chm(Yb,vdw) 0
set Chm(Zn,na) 30
set Chm(Zn,nm) Zinc
set Chm(Zn,wg) 65.39
set Chm(Zn,vdw) 1.39
set Chm(Zr,na) 40
set Chm(Zr,nm) Zirconium
set Chm(Zr,wg) 91.224
set Chm(Zr,vdw) 0
<pre>wrong # args: should be "exit code"
    while executing
"exit"
    (in namespace eval "::request" script line 274)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/usr/local/bin/tclsh


proc InitRayonVdW {} {
    global RVdW

    set RVdW(H) 1.4
    set RVdW(He) 0.37
    set RVdW(Li) 1.8
    set RVdW(Be) 1.7
    set RVdW(B) 1.7
    set RVdW(C) 1.7
    set RVdW(N) 1.55
    set RVdW(O) 1.5
    set RVdW(F) 1.47
    set RVdW(Ne) 1.54
    set RVdW(Na) 1.7
    set RVdW(Mg) 1.7
    set RVdW(Al) 1.7
    set RVdW(Si) 1.7
    set RVdW(P) 1.7
    set RVdW(S) 1.7
    set RVdW(Cl) 1.95
    set RVdW(Ar) 1.95
    set RVdW(K) 2.23
    set RVdW(Ca) 2.23
    set RVdW(Sc) 2.23
    set RVdW(Ti) 2.23
    set RVdW(V) 2.23
    set RVdW(Cr) 2.23
    set RVdW(Mn) 2.23
    set RVdW(Fe) 2.23
    set RVdW(Co) 2.23
    set RVdW(Ni) 2.23
    set RVdW(Cu) 2.23
    set RVdW(Zn) 2.23

    return
}


proc InitMasses {} {
    global TMassesAA

    set TMassesAA(A)	71.0788
    set TMassesAA(R) 156.1875
    set TMassesAA(N) 114.1038
    set TMassesAA(D) 115.0886
    set TMassesAA(C) 103.1388
    set TMassesAA(E) 129.1155
    set TMassesAA(Q) 128.1307
    set TMassesAA(G)  57.0519
    set TMassesAA(H) 137.1411
    set TMassesAA(I) 113.1594
    set TMassesAA(L) 113.1594
    set TMassesAA(K) 128.1741
    set TMassesAA(M) 131.1926
    set TMassesAA(F) 147.1766
    set TMassesAA(P)  97.1167
    set TMassesAA(S)  87.0782
    set TMassesAA(T) 101.1051
    set TMassesAA(W) 186.2132
    set TMassesAA(Y) 163.1760
    set TMassesAA(V)  99.1326
    set TMassesAA(U) 150.0388
    set TMassesAA(O) 237.3018

    set TMassesAA(B) [expr {($TMassesAA(D)+$TMassesAA(N))/2.}]
    set TMassesAA(Z) [expr {($TMassesAA(E)+$TMassesAA(Q))/2.}]
    set TMassesAA(J) [expr {($TMassesAA(I)+$TMassesAA(L))/2.}]
    set TMassesAA(X)   0.0

    set TMassesAA(H2O)	18.01524

    return
}


proc InitChemicals {} {
    global Chm

    set Chm(H) [list 1 Hydrogen 1.0079]
    set Chm(He) [list 2 Helium 4.0026]
    set Chm(Li) [list 3 Lithium 6.941]
    set Chm(Be) [list 4 Beryllium 9.0122]
    set Chm(B) [list 5 Boron 10.811]
    set Chm(C) [list 6 Carbon 12.0107]
    set Chm(N) [list 7 Nitrogen 14.0067]
    set Chm(O) [list 8 Oxygen 15.9994]
    set Chm(F) [list 9 Fluorine 18.9984]
    set Chm(Ne) [list 10 Neon 20.1797]
    set Chm(Na) [list 11 Sodium 22.9897]
    set Chm(Mg) [list 12 Magnesium 24.305]
    set Chm(Al) [list 13 Aluminum 26.9815]
    set Chm(Si) [list 14 Silicon 28.0855]
    set Chm(P) [list 15 Phosphorus 30.9738]
    set Chm(S) [list 16 Sulfur 32.065]
    set Chm(Cl) [list 17 Chlorine 35.453]
    set Chm(Ar) [list 18 Argon 39.948]
    set Chm(K) [list 19 Potassium 39.0983]
    set Chm(Ca) [list 20 Calcium 40.078]
    set Chm(Sc) [list 21 Scandium 44.9559]
    set Chm(Ti) [list 22 Titanium 47.867]
    set Chm(V) [list 23 Vanadium 50.9415]
    set Chm(Cr) [list 24 Chromium 51.9961]
    set Chm(Mn) [list 25 Manganese 54.938]
    set Chm(Fe) [list 26 Iron 55.845]
    set Chm(Co) [list 27 Cobalt 58.9332]
    set Chm(Ni) [list 28 Nickel 58.6934]
    set Chm(Cu) [list 29 Copper 63.546]
    set Chm(Zn) [list 30 Zinc 65.39]
    set Chm(Ga) [list 31 Gallium 69.723]
    set Chm(Ge) [list 32 Germanium 72.64]
    set Chm(As) [list 33 Arsenic 74.9216]
    set Chm(Se) [list 34 Selenium 78.96]
    set Chm(Br) [list 35 Bromine 79.904]
    set Chm(Kr) [list 36 Krypton 83.8]
    set Chm(Rb) [list 37 Rubidium 85.4678]
    set Chm(Sr) [list 38 Strontium 87.62]
    set Chm(Y) [list 39 Yttrium 88.9059]
    set Chm(Zr) [list 40 Zirconium 91.224]
    set Chm(Nb) [list 41 Niobium 92.9064]
    set Chm(Mo) [list 42 Molybdenum 95.94]
    set Chm(Tc) [list 43 Technetium 98]
    set Chm(Ru) [list 44 Ruthenium 101.07]
    set Chm(Rh) [list 45 Rhodium 102.9055]
    set Chm(Pd) [list 46 Palladium 106.42]
    set Chm(Ag) [list 47 Silver 107.8682]
    set Chm(Cd) [list 48 Cadmium 112.411]
    set Chm(In) [list 49 Indium 114.818]
    set Chm(Sn) [list 50 Tin 118.71]
    set Chm(Sb) [list 51 Antimony 121.76]
    set Chm(Te) [list 52 Tellurium 127.6]
    set Chm(I) [list 53 Iodine 126.9045]
    set Chm(Xe) [list 54 Xenon 131.293]
    set Chm(Cs) [list 55 Cesium 132.9055]
    set Chm(Ba) [list 56 Barium 137.327]
    set Chm(La) [list 57 Lanthanum 138.9055]
    set Chm(Ce) [list 58 Cerium 140.116]
    set Chm(Pr) [list 59 Praseodymium 140.9077]
    set Chm(Nd) [list 60 Neodymium 144.24]
    set Chm(Pm) [list 61 Promethium 145]
    set Chm(Sm) [list 62 Samarium 150.36]
    set Chm(Eu) [list 63 Europium 151.964]
    set Chm(Gd) [list 64 Gadolinium 157.25]
    set Chm(Tb) [list 65 Terbium 158.9253]
    set Chm(Dy) [list 66 Dysprosium 162.5]
    set Chm(Ho) [list 67 Holmium 164.9303]
    set Chm(Er) [list 68 Erbium 167.259]
    set Chm(Tm) [list 69 Thulium 168.9342]
    set Chm(Yb) [list 70 Ytterbium 173.04]
    set Chm(Lu) [list 71 Lutetium 174.967]
    set Chm(Hf) [list 72 Hafnium 178.49]
    set Chm(Ta) [list 73 Tantalum 180.9479]
    set Chm(W) [list 74 Tungsten 183.84]
    set Chm(Re) [list 75 Rhenium 186.207]
    set Chm(Os) [list 76 Osmium 190.23]
    set Chm(Ir) [list 77 Iridium 192.217]
    set Chm(Pt) [list 78 Platinum 195.078]
    set Chm(Au) [list 79 Gold 196.9665]
    set Chm(Hg) [list 80 Mercury 200.59]
    set Chm(Tl) [list 81 Thallium 204.3833]
    set Chm(Pb) [list 82 Lead 207.2]
    set Chm(Bi) [list 83 Bismuth 208.9804]
    set Chm(Po) [list 84 Polonium 209]
    set Chm(At) [list 85 Astatine 210]
    set Chm(Rn) [list 86 Radon 222]
    set Chm(Fr) [list 87 Francium 223]
    set Chm(Ra) [list 88 Radium 226]
    set Chm(Ac) [list 89 Actinium 227]
    set Chm(Th) [list 90 Thorium 232.0381]
    set Chm(Pa) [list 91 Protactinium 231.0359]
    set Chm(U) [list 92 Uranium 238.0289]
    set Chm(Np) [list 93 Neptunium 237]
    set Chm(Pu) [list 94 Plutonium 244]
    set Chm(Am) [list 95 Americium 243]
    set Chm(Cm) [list 96 Curium 247]
    set Chm(Bk) [list 97 Berkelium 247]
    set Chm(Cf) [list 98 Californium 251]
    set Chm(Es) [list 99 Einsteinium 252]
    set Chm(Fm) [list 100 Fermium 257]
    set Chm(Md) [list 101 Mendelevium 258]
    set Chm(No) [list 102 Nobelium 259]
    set Chm(Lr) [list 103 Lawrencium 262]
    set Chm(Rf) [list 104 Rutherfordium 261]
    set Chm(Db) [list 105 Dubnium 262]
    set Chm(Sg) [list 106 Seaborgium 266]
    set Chm(Bh) [list 107 Bohrium 264]
    set Chm(Hs) [list 108 Hassium 277]
    set Chm(Mt) [list 109 Meitnerium 268]
    
    return
}


set data "
Actinium	N/A 	Helium	140.pm 	Rhodium	N/A
Aluminum	N/A 	Holmium	N/A 	Roentgenium	N/A
Americium	N/A 	Hydrogen	120.pm 	Rubidium	N/A
Antimony	N/A 	Indium	193.pm 	Ruthenium	N/A
Argon	188.pm 	Iodine	198.pm 	Rutherfordium	N/A
Arsenic	185.pm 	Iridium	N/A 	Samarium	N/A
Astatine	N/A 	Iron	N/A 	Scandium	N/A
Barium	N/A 	Krypton	202.pm 	Seaborgium	N/A
Berkelium	N/A 	Lanthanum	N/A 	Selenium	190.pm
Beryllium	N/A 	Lawrencium	N/A 	Silicon	210.pm
Bismuth	N/A 	Lead	202.pm 	Silver	172.pm
Bohrium	N/A 	Lithium	182.pm 	Sodium	227.pm
Boron	N/A 	Lutetium	N/A 	Strontium	N/A
Bromine	185.pm 	Magnesium	173.pm 	Sulfur	180.pm
Cadmium	158.pm 	Manganese	N/A 	Tantalum	N/A
Calcium	N/A 	Meitnerium	N/A 	Technetium	N/A
Californium	N/A 	Mendelevium	N/A 	Tellurium	206.pm
Carbon	170.pm 	Mercury	155.pm 	Terbium	N/A
Cerium	N/A 	Molybdenum	N/A 	Thallium	196.pm
Cesium	N/A 	Neodymium	N/A 	Thorium	N/A
Chlorine	175.pm 	Neon	154.pm 	Thulium	N/A
Chromium	N/A 	Neptunium	N/A 	Tin	217.pm
Cobalt	N/A 	Nickel	163.pm 	Titanium	N/A
Copper	140.pm 	Niobium	N/A 	Tungsten	N/A
Curium	N/A 	Nitrogen	155.pm 	Ununbium	N/A
Darmstadtium	N/A 	Nobelium	N/A 	Ununhexium	N/A
Dubnium	N/A 	Osmium	N/A 	Ununoctium	N/A
Dysprosium	N/A 	Oxygen	152.pm 	Ununpentium	N/A
Einsteinium	N/A 	Palladium	163.pm 	Ununquadium	N/A
Erbium	N/A 	Phosphorus	180.pm 	Ununseptium	N/A
Europium	N/A 	Platinum	175.pm 	Ununtrium	N/A
Fermium	N/A 	Plutonium	N/A 	Uranium	186.pm
Fluorine	147.pm 	Polonium	N/A 	Vanadium	N/A
Francium	N/A 	Potassium	275.pm 	Xenon	216.pm
Gadolinium	N/A 	Praseodymium	N/A 	Ytterbium	N/A
Gallium	187.pm 	Promethium	N/A 	Yttrium	N/A
Germanium	N/A 	Protactinium	N/A 	Zinc	139.pm
Gold	166.pm 	Radium	N/A 	Zirconium	N/A
Hafnium	N/A 	Radon	N/A
Hassium	N/A 	Rhenium	N/A
"
set Ld [split $data \n]
foreach l $Ld {
    regsub -all "\t" $l " " l
    regsub -all { +} [string trim $l] " " l
    set le [split $l " "]
    foreach {n v} $le {
	if {$v eq "N/A"} {set v 0} {set v [expr {[string range $v 0 end-3]/100.}]}
	set new($n) $v
    }
}


InitChemicals
InitRayonVdW
InitMasses

foreach e [lsort [array names Chm]] {
    lassign $Chm($e) na nm wg

    if {[info exists RVdW($e)]} {set vr [set RVdW($e)]} {set vr 0}
    if {[info exists new($nm)]} {set nr [set new($nm)]} {set nr 0}
    if {$vr eq $nr && $nr != 0} {
	set r $nr
    }
    set r 0
    if {$vr == 0 && $nr != 0} {set r $nr}
    if {$nr == 0 && $vr != 0} {set r $vr}
    if {$nr != 0 && $vr != 0 && $nr != $vr} {set r $nr}

    puts "set Chm($e,na) $na"
    puts "set Chm($e,nm) $nm"
    puts "set Chm($e,wg) $wg"
    puts "set Chm($e,vdw) $r"
}


exit

</pre>