pro lookups,field_id,platform_id,$
    instrument,field,platform,$
    cfile,mns,mxs
;============================================================
;
; Version 1.500,  August 1997
;
; This subroutine stores a table of default titling
; for the BSCAN scene. Please contact Shane Mayor to
; add to or edit the list. 
;
; INPUT: field_id.......real*4 from header(16)
;        platform_id....real*4 from header(22)
;
; OUTPUT: instrument....string holding instrument name
;         field.........string holding data field name
;         platform......string holding platform or location name
;         cfile.........filename containing RGB color table
;         mxs...........maximum color bar scale
;         mns...........minimum color bar scale
;
;=====================================================
flag = -999.

case platform_id of
8.0000: platform = ' '
8.0001: platform = 'CASA 212, N287MA'
8.0002: platform = 'NCAR C130'
8.0003: platform = 'NCAR WB57'
8.0004: platform = 'NCAR Electra'
8.0005: platform = 'Wecoma'
8.0006: platform = 'C-130 ACE-1'
8.0007: platform = 'C-130 CTW'
8.0008: platform = 'KAIYO TOCS'

9.0000: platform = ' '
9.0001: platform = 'NCAR Foothills Lab'
9.0002: platform = 'RL3, Boulder, CO'
9.0003: platform = 'Boulder, CO'
9.0004: platform = 'Jeffco Airport'
9.0005: platform = 'Marshall'
9.0006: platform = 'Table Mountain, CO'
9.0007: platform = 'Arch Cape, OR'
9.0008: platform = 'BAO Tower'
9.0009: platform = 'Braman, OK'
9.0010: platform = 'Lamont, OK'
9.0011: platform = 'Flatland, IL'
9.0012: platform = 'Erie, CO'
9.0013: platform = 'SHEBA Drift Site'
9.0014: platform = 'Barrow, AK'
else: platform = ' '
endcase

case 1 of
(field_id ge   0) and (field_id le  19): instrument = 'NAILS'
(field_id ge  20) and (field_id le  39): instrument = 'Excimer UV-DIAL'
(field_id ge  40) and (field_id le  59): instrument = 'Nd:YAG Ozone DIAL'
(field_id ge  60) and (field_id le  79): instrument = 'SABL'
(field_id ge  80) and (field_id le  99): instrument = 'HRDL'
(field_id ge 100) and (field_id le 119): instrument = 'MAPR'
(field_id ge 120) and (field_id le 139): instrument = 'ISS'
(field_id ge 140) and (field_id le 159): instrument = 'NOAA X-band RADAR'
(field_id ge 160) and (field_id le 179): instrument = 'Mini-MOPA'
(field_id ge 180) and (field_id le 199): instrument = 'NAILS - Lassen Processor'
(field_id ge 200) and (field_id le 219): instrument = 'NOAA K-band RADAR'
(field_id ge 220) and (field_id le 239): instrument = 'NOAA/ETL DABUL'
(field_id ge 240) and (field_id le 259): instrument = 'NOAA/ETL TEA-CO2 '
else: instrument = ' '
endcase

case field_id of
0: begin
   field='RELATIVE BACKSCATTER (total)' 
   mns = 0 & mxs = 100000 & cfile = 'browell_.27'
   end
1: begin 
   field='RADIAL VELOCITY (m/s)'
   mns = -10 & mxs = 10 & cfile = 'velocity.32'
   end
2: begin 
   field='RELATIVE BACKSCATTER (coherent)'
   mns =   0 & mxs = 50000 & & cfile = 'browell_.27'
   end
3: begin 
   field='NORMALIZED COHERENT POWER (NCP)' 
   mns =   0 & mxs = 1 & cfile = 'browell_.27'
   end
4: begin
   field='TOTAL SNR (dB)'                 
   mns = -25 & mxs = 25 & cfile = 'browell_.27'
   end
5: begin
   field='COHERENT SNR (dB)'
   mns = -25 & mxs = 25 & cfile = 'browell_.27'
   end
6: begin 
   field='IN-PHASE SIGNAL (COUNTS)'
   mns = -400 & mxs = 400 & cfile = 'browell_.27'
   end
7: begin
   field='QUADRATURE SIGNAL (COUNTS)'
   mns = -400 & mxs = 400 & cfile = 'browell_.27'
   end


20: begin
    field='RELATIVE BACKSCATTER (276.9 nm, ADC1)'
    mns = 0 & mxs = 1000 & cfile = 'browell_.27'
    end
21: begin 
    field='RELATIVE BACKSCATTER (291.6 nm, ADC2)'
    mns = 0 & mxs = 1000 & cfile = 'browell_.27'
    end
22: begin 
    field='RELATIVE BACKSCATTER (312.9 nm, ADC3)' 
    mns = 0 & mxs = 1000 & cfile = 'browell_.27'
    end
23: begin 
    field='RELATIVE BACKSCATTER (319.4 nm, ADC4)'
    mns = 0 & mxs = 1000 & cfile = 'browell_.27'
    end
24: begin
    field='RELATIVE BACKSCATTER (359.6 nm, ADC5)'
    mns = 0 & mxs = 1000 & cfile = 'browell_.27'
    end
25: begin
    field='OZONE (PPBV) from 276.9 and 291.6 nm'
    mns = 0 & mxs = 125 & cfile = 'browell_.27'
    end
26: begin 
    field='OZONE (PPBV) from 276.9 and 312.9 nm'
    mns = 0 & mxs = 125 & cfile = 'browell_.27'
    end
27: begin
    field='OZONE (PPBV) from 276.9 and 319.4 nm'
    mns = 0 & mxs = 125 & cfile = 'browell_.27'
    end
28: begin 
    field='OZONE (PPBV) from 291.6 and 312.9 nm'
    mns = 0 & mxs = 125 & cfile = 'browell_.27'
    end
29: begin 
    field='OZONE (PPBV) from 291.6 and 319.4 nm' 
    mns = 0 & mxs = 125 & cfile = 'browell_.27'
    end
30: begin 
    field='AEROSOL BACKSCATTER (m!e-1!n sr!e-1!n)'
    mns = 0 & mxs = 1e-5 & cfile = 'browell_.27'
    end
31: begin 
    field='BACKSCATTER RATIO (AEROSOL/RAYLEIGH)'
    mns = 0 & mxs =  25 & cfile = 'browell_.27'
    end

60: begin 
    field='DIGITIZER COUNTS (at 532 nm)' 
    mns = 0 & mxs = 4095 & cfile = 'browell_.27'
    end
61: begin 
    field='DIGITIZER COUNTS (at 532 nm)'
    mns = 0 & mxs = 4095 & cfile = 'browell_.27'
    end
62: begin 
    field='RELATIVE BACKSCATTER (in dB at 532 nm)'
    mns = -20 & mxs = 10 & cfile = 'browell_.27'
    end
63: begin
    field='RELATIVE BACKSCATTER (in dB at 532 nm)' 
    mns = -20 & mxs = 10 & cfile = 'browell_.27'
    end
64: begin 
    field='DIGITIZER COUNTS (at 1064 nm)'
    mns = 0 & mxs = 4095 & cfile = 'browell_.27'
    end
65: begin
    field='DIGITIZER COUNTS (at 1064 nm)' 
    mns = 0 & mxs = 4095 & cfile = 'browell_.27'
    end
66: begin
    field='RELATIVE BACKSCATTER (in dB at 1064 nm)'
    mns = -20 & mxs = 10 & cfile = 'browell_.27'
    end
67: begin
    field='RELATIVE BACKSCATTER (in dB at 1064 nm)' 
    mns = -20 & mxs = 10 & cfile = 'browell_.27'
    end

80: begin
    field='RADIAL VELOCITY (m/s) (post-analysis)'
    mns = -10 & mxs = 10 & cfile = 'velocity.32'
    end
81: begin 
    field='RELATIVE BACKSCATTER (total) (post-analysis)' 
    mns = 0 & mxs = 100000 & cfile = 'browell_.27'
    end
82: begin 
    field='RELATIVE BACKSCATTER (coherent) (post-analysis)'
    mns =   0 & mxs = 50000 & & cfile = 'browell_.27'
    end
83: begin 
    field='NCP (post-analysis)' 
    mns =   0 & mxs = 1 & cfile = 'browell_.27'
    end
84: begin
    field='TOTAL SNR (dB) (post-analysis)'                 
    mns = -25 & mxs = 25 & cfile = 'browell_.27'
    end
85: begin
    field='COHERENT SNR (dB) (post-analysis)'
    mns = -25 & mxs = 25 & cfile = 'browell_.27'
    end
86: begin 
    field='IN-PHASE SIGNAL (COUNTS)'
    mns = -400 & mxs = 400 & cfile = 'browell_.27'
    end
87: begin
    field='QUADRATURE SIGNAL (COUNTS)'
    mns = -400 & mxs = 400 & cfile = 'browell_.27'
    end
88: begin
    field='NCP'
    mns = 0 & mxs = 1 & cfile = 'browell_.27'
    end
89: begin 
    field='RADIAL VELOCITY (m/s)' 
    mns = -5 & mxs = 5 & cfile = 'velocity.32'
    end
90: begin 
    field='INTENSITY'
    mns =   0 & mxs = 255. & & cfile = 'browell_.27'
    end
91: begin 
    field='SW (Lassen)'
    mns =   0 & mxs = 255. & & cfile = 'browell_.27'
    end
92: begin 
    field='OP (Lassen)'
    mns =   0 & mxs = 255. & & cfile = 'browell_.27'
    end

100: begin
     field = 'POWER (dB)'
     mns =    0 & mxs =  60 & cfile = 'browell_.27'
     end
101: begin 
     field = 'POWER (dBZ)'
     mns =    0 & mxs =  35 & cfile = 'browell_.27'
     end
102: begin
     field = 'POWER (Cn2)' 
     mns =  -18 & mxs = -13 & cfile = 'browell_.27'
     end
103: begin
     field = 'RADIAL VELOCITY (m/s)' 
     mns =  -10 & mxs =  10 & cfile = 'velocity.32'
     end
104: begin
     field = 'RADIAL VELOCITY (Hz)'
     mns =  -60 & mxs =  60 & cfile = 'velocity.32'
     end
105: begin
     field = 'SPECTRAL WIDTH (m/s)'  
     mns =    0 & mxs =   5 & cfile = 'browell_.27'
     end
106: begin
     field = 'SPECTRAL WIDTH (Hz)'    
     mns =    0 & mxs =  15 & cfile = 'browell_.27'
     end
110: begin
     field = 'HORIZONTAL WIND SPEED (m/s)' 
     mns =    0 & mxs =  20 & cfile = 'browell_.27'
     end
111: begin
     field = 'HORIZONTAL WIND DIRECTION (degrees)'
     mns = -180 & mxs = 180 & cfile = 'velocity.32'
     end
112: begin
     field = 'VERTICAL WIND SPEED (m/s)'  
     mns =  -10 & mxs =  10 & cfile = 'velocity.32'
     end
113: begin
     field = 'ZONAL WIND SPEED (U, m/s)'  
     mns =  -15 & mxs =  15 & cfile = 'velocity.32'
     end
114: begin
     field = 'MERIDONAL WIND SPEED (V, m/s)' 
     mns =  -15 & mxs =  15 & cfile = 'velocity.32'
     end
115: begin
     field = 'EDDY DISSIPATION RATE (m2/s3)'
     mns =    0 & mxs =   1 & cfile = 'browell_.27'
     end
117: begin
     field = 'TEMPERATURE (C)' 
     mns =  -40 & mxs =  40 & cfile = 'browell_.27'
     end
118: begin
     field = 'RASS POWER (dB)'   
     mns =  -20 & mxs =  20 & cfile = 'browell_.27'
     end
119: begin
     field = 'RASS SPECTRAL WIDTH (m/s)'   
     mns =    0 & mxs =  15 & cfile = 'browell_.27'
     end

120: begin
     field = 'POWER (dB)' 
     mns =    0 & mxs =  60 & cfile = 'browell_.27'
     end
121: begin
     field = 'POWER (dBZ)' 
     mns =    0 & mxs =  35 & cfile = 'browell_.27'
     end
122: begin
     field = 'POWER (Cn2)'
     mns =  -18 & mxs = -13 & cfile = 'browell_.27'
     end
123: begin
     field = 'RADIAL VELOCITY (m/s)'  
     mns =  -10 & mxs =  10 & cfile = 'velocity.32'
     end
124: begin
     field = 'RADIAL VELOCITY (Hz)'
     mns =  -60 & mxs =  60 & cfile = 'velocity.32'
     end
125: begin
     field = 'SPECTRAL WIDTH (m/s)'   
     mns =    0 & mxs =   5 & cfile = 'browell_.27'
     end
126: begin
     field = 'SPECTRAL WIDTH (Hz)'   
     mns =    0 & mxs =  15 & cfile = 'browell_.27'
     end
132: begin
     field = 'VERTICAL WIND SPEED (m/s)' 
     mns =  -10 & mxs =  10 & cfile = 'velocity.32'
     end
137: begin
     field = 'TEMPERATURE (C)' 
     mns =  -40 & mxs =  40 & cfile = 'browell_.27'
     end
138: begin
     field = 'RASS POWER (dB)'   
     mns =  -20 & mxs =  20 & cfile = 'browell_.27'
     end
139: begin
     field = 'RASS SPECTRAL WIDTH (m/s)'
     mns =    0 & mxs =  15 & cfile = 'browell_.27'
     end

140: begin
     field = 'RADIAL VELOCITY (m/s)'  
     mns = -10 & mxs = 10 & cfile = 'velocity.32'
     end

160: begin
     field = 'LASSEN INTENSITY (dB)' 
     mns = 0   & mxs = 50 & cfile = 'browell_.27'
     end
161: begin
     field = 'RADIAL VELOCITY (m/s)'
     mns = -10 & mxs = 10 & cfile = 'velocity.32'
     end

180: begin
     field = 'LASSEN INTENSITY (dB)'
     mns = 0   & mxs = 50 & cfile = 'browell_.27'
     end
181: begin
     field = 'RADIAL VELOCITY (m/s)' 
     mns = -10 & mxs = 10  & cfile = 'velocity.32'
     end
182: begin
     field = 'RQ (dB)'  
     mns = 0   & mxs = 50 & cfile = 'browell_.27'
     end
183: begin
     field = 'SW (dB)'   
     mns = 0   & mxs = 250 & cfile = 'browell_.27'
     end

220: begin
     field = 'Near Parallel Channel'   
     mns = -15   & mxs = 5 & cfile = 'yellow.35'
     end
221: begin
     field = 'Near Perpendicular Channel'   
     mns = -15   & mxs = 5 & cfile = 'yellow.35'
     end
222: begin
     field = 'Far Parallel Channel'   
     mns = -15   & mxs = 5 & cfile = 'yellow.35'
     end
223: begin
     field = 'Far Perpendicular Channel'   
     mns = -15   & mxs = 5 & cfile = 'yellow.35'
     end
224: begin
     field = 'Sum of Near Channels'   
     mns = -15   & mxs = 5 & cfile = 'yellow.35'
     end
225: begin
     field = 'Sum of Near Channels'   
     mns = -15   & mxs = 5 & cfile = 'yellow.35'
     end
226: begin
     field = 'Blended Perpendicular Channels'   
     mns = -25   & mxs = 5 & cfile = 'browell_.27'
     end
227: begin
     field = 'Blended Parallel Channels'   
     mns = -25   & mxs = 5 & cfile = 'browell_.27'
     end
228: begin
     field = 'Near Traditional Depolarization Ratio'   
     mns = 0   & mxs = 0.6 & cfile = 'browell_.27'
     end
229: begin
     field = 'Near Normalized Depolarization Ratio'   
     mns = 0   & mxs = 0.6 & cfile = 'browell_.27'
     end
230: begin
     field = 'Far Traditional Depolarization Ratio'   
     mns = 0   & mxs = 0.6 & cfile = 'browell_.27'
     end
231: begin
     field = 'Far Normalized Depolarization Ratio'   
     mns = 0   & mxs = 0.6 & cfile = 'browell_.27'
     end
232: begin
     field = 'Blended Traditional Depolarization Ratio'   
     mns = 0   & mxs = 0.6 & cfile = 'browell_.27'
     end
233: begin
     field = 'Blended Normalized Depolarization Ratio'   
     mns = 0   & mxs = 0.6 & cfile = 'browell_.27'
     end

240: begin
     field = 'INTENSITY'   
     mns = 0   & mxs = 100 & cfile = 'browell_.27'
     end
241: begin
     field = 'LAG 0'   
     mns = 0   & mxs = 100 & cfile = 'browell_.27'
     end
242: begin
     field = 'RADIAL VELOCITY'   
     mns = -10   & mxs = 10 & cfile = 'velocity.32'
     end
243: begin
     field = 'SQI'   
     mns = 0   & mxs = 250 & cfile = 'browell_.27'
     end
244: begin
     field = 'I'   
     mns = -512   & mxs = 512 & cfile = 'velocity.32'
     end
245: begin
     field = 'Q'   
     mns = -512   & mxs = 512 & cfile = 'velocity.32'
     end
246: begin
     field = 'RAW INTENSITY'   
     mns = 0   & mxs = 100 & cfile = 'browell_.27'
     end
else: begin
      field = ' ' 
      mns = 0 & mxs = 512 & cfile = 'browell_.27'
      end

ENDCASE

return
END