      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
