BLOCK DATA DDRAW IMPLICIT REAL (A-H,O-Z) REAL VANRAD, ATMRAD, XMASS CHARACTER*6 ATSYMB COMMON /EXMASS/ XMASS( 200) COMMON /ATSYMB/ ATSYMB( 200) COMMON /COLORS/ ICOLAT( 200) COMMON /VANRAD/ VANRAD(200) COMMON /ATMRAD/ ATMRAD(200) COMMON /VALNCE/ MAXVAL(200) C DATA ATSYMB/ . 'H', 'HE', 'LI', 'BE', 'B', 'C', 'N', 'O', 'F', 'NE', 1 'NA', 'MG', 'AL', 'SI', 'P', 'S', 'CL', 'AR', 'K', 'CA', 2 'SC', 'TI', 'V', 'CR', 'MN', 'FE', 'CO', 'NI', 'CU', 'ZN', 3 'GA', 'GE', 'AS', 'SE', 'BR', 'KR', 'RB', 'SR', 'Y', 'ZR', 4 'NB', 'MO', 'TC', 'RU', 'RH', 'PD', 'AG', 'CD', 'IN', 'SN', 5 'SB', 'TE', 'I', 'XE', 'CS', 'BA', 'LA', 'CE', 'PR', 'ND', 6 'PM', 'SM', 'EU', 'GD', 'TB', 'DY', 'HO', 'ER', 'TM', 'YB', 7 'LU', 'HF', 'TA', 'W', 'RE', 'OS', 'IR', 'PT', 'AU', 'HG', 8 'TL', 'PB', 'BI', 'PO', 'AT', 'RN', 'FR', 'RA', 'AC', 'TH', 9 'PA', 'U', 'NP', 'PU', 'AM', 'CM', 'BK', 'CF', 'XX', 'D', . '00', 'X', 'Z', 'DP', 'LP', '+', '-', '++', '--', 'ME', 1 'ET','IPR','BUT', 'PH', 'CH','CH2','CH3', 'OH','GLY','ALA', 2 'VAL','LEU','ILE','PHE','PRO','SER','THR','MET','CYS','TRP', 3 'ASN','GLN','ASP','GLU','TYR','LYS','ARG','HIS', 'TV', 'R', 4 'DD', 'CB','H2O','HOH', 6*' ', 5 '..', 49*' '/ C DATA VANRAD/ . 0.37, 0.93, 1.34, 0.90, 0.82, 0.77, 0.75, 0.73, 0.72, 1.31, 1 1.54, 1.30, 1.18, 1.11, 1.06, 1.02, 0.99, 1.74, 1.96, 1.74, 2 1.44, 1.36, 1.34, 1.27, 1.26, 1.26, 1.25, 1.24, 1.38, 1.31, 3 1.26, 1.22, 1.19, 1.16, 1.14, 1.89, 2.11, 1.92, 1.62, 1.48, 4 1.46, 1.39, 1.36, 1.34, 1.34, 1.37, 1.53, 1.48, 1.44, 1.41, 5 1.38, 1.35, 1.33, 2.09, 2.25, 1.98, 1.69, 1.65, 1.65, 1.64, 6 1.63, 1.66, 1.85, 1.61, 1.59, 1.59, 1.58, 1.57, 1.56, 1.70, 7 1.56, 1.58, 1.46, 1.39, 1.37, 1.35, 1.36, 1.38, 1.50, 1.49, 8 1.48, 1.47, 1.46, 1.46, 1.45, 2.14, 2.40, 2.40, 2.40, 1.65, 9 1.65, 7*1.42, 2*-10.0, . 9*-10.00, 0.77, H 8*0.75, 1.37, 1.50, I 10*1.50, J 8*1.50, -10., 0.77, L -10.,1.0,-10.,-10., 6*-10.0, Z 50*-10.00 / C DATA ATMRAD/ . 0.37, 0.93, 1.34, 0.90, 0.82, 0.77, 0.75, 0.73, 0.72, 1.31, 1 1.54, 1.30, 1.18, 1.11, 1.06, 1.02, 0.99, 1.74, 1.96, 1.74, 2 1.44, 1.36, 1.34, 1.27, 1.26, 1.26, 1.25, 1.24, 1.38, 1.31, 3 1.26, 1.22, 1.19, 1.16, 1.14, 1.89, 2.11, 1.92, 1.62, 1.48, 4 1.46, 1.39, 1.36, 1.34, 1.34, 1.37, 1.53, 1.48, 1.44, 1.41, 5 1.38, 1.35, 1.33, 2.09, 2.25, 1.98, 1.69, 1.65, 1.65, 1.64, 6 1.63, 1.66, 1.85, 1.61, 1.59, 1.59, 1.58, 1.57, 1.56, 1.70, 7 1.56, 1.58, 1.46, 1.39, 1.37, 1.35, 1.36, 1.38, 1.50, 1.49, 8 1.48, 1.47, 1.46, 1.46, 1.45, 2.14, 2.40, 2.40, 2.40, 1.65, 9 1.65, 7*1.42, 2*0.30, . 9*0.30, 0.77, H 8*0.75, 2*1.60, I 10*1.60, J 8*1.60, 0.30,0.77, L 0.30,1.0,0.30,0.30, 6*0.30, Z 50*0.30 / C DATA MAXVAL / . 1, 0, 1, 2, 3, 4, 3, 2, 1, 0, . 1, 2, 3, 4, 3, 2, 1, 0, 1, 2, . 10*6, . 6, 3, 4, 3, 2, 1, 0, 499, 499, 499, . 60*499, . 10*499, H 8*499, 2*2, I 10*2, J 8*2, 2*499, L 10*499, Z 50*499 / * DATA XMASS / 1.0078250, 4.0026, 6.939, 9.0122, . 10.811, 12.0, 14.067, 15.9994, 18.9984, 20.183, 3 22.9898, 24.312, 26.9815, 28.086, . 30.9738, 32.064, 35.453, 39.948, 4 39.102, 40.08, 44.956, 47.90, 50.942, . 51.996, 54.938, 55.847, 58.933, 58.71, . 63.54, 65.37, . 69.72, 72.59, 74.922, 78.96, 79.909, . 83.80, 85.47, 87.62, 88.905, 91.22, . 92.906, 95.94, . 98.00, 101.07, 102.905, 106.4, 107.870, . 112.40, 114.82, 118.69, 121.75, 127.60, . 126.904, 131.30, 6 132.905, 137.34, 138.91, 140.12, 140.907, . 144.24, 147.00, 150.35, 151.96, 157.25, . 158.924, 162.50, 164.930, 167.26, 168.934, . 173.04, 174.97, 178.49, 180.948, 183.85, . 186.2, 190.2, 192.2, 195.09, 196.967, . 200.59, 204.37, 207.19, 208.980, 210.00, . 210.00, 222.00, 114*0.000 / * DATA ICOLAT . /15, 13, . 13,13, 13, 1, 4, 2, 3,13, . 13,13, 13, 4,13, 7, 3,13, . 13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13, 3,13, . 13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13, 3,13, . 13,13, . 13,13,13,13,13,13,13,13,13,13,13,13,13,13, . 13,13,13,13,13,13,13,13,13,13,13,13,13,13, 3,13, . 13,13, . 13,13,13,13,13,13,13,13,13,13,13,13,13,13, . 13,13,13,13,13,13,13,13,13,13,13,13,13,13, 3,13, . 3, 1, 1, 1, 1, 1, 1, 3, 3, 7, 7, 1, 3, 3, 2, 2, 3, 4, 4, 4, . 4*13, 58*13 / * END