;this procedure is designed to print the mass extracted
pro plot_all_ext
;on_error,1
;set up string arrays with hard wired values to pass to
;routines cell number, cell name, extractor id, number of extractors
cell_c=strarr(9,4)
cell_c(1,*)=['1','Sparging/venting','7','1']
cell_c(3,*)=['3','Co-Solvent Mobilization','5','3']
cell_c(4,*)=['4','Complex Sugar (Cyclodextrin)','5','3']
cell_c(5,*)=['5','Surfactant Mobilization','5','3']
cell_c(6,*)=['6','Surfactant Solubilization','5','3']
cell_c(7,*)=['7','Steam','7','1']
cell_c(8,*)=['8','Micro Emulsion','5','3']
cell_c(2,*)=['2','In Well Aeration','7','1']
cell_c(0,*)=['f','Co_solvent Solubilization','5','3']
chem=strarr(27,11)
chem(0,*)=[ 'und','undecane','0','0','0','1','1','1','1','0','1']; cell 3,4,5,6,8
chem(1,*)=[ 'dec','decane','0','0','0','0','1','1','1','0','1']; cell 4,5,6,8
chem(2,*)=[ 'nap','napthelene','0','0','0','1','1','1','1','0','1']; cell 3,4,5,6,8
chem(3,*)=[ 'tmb','1,3,5-trimethylbenzene','1','0','0','0','0','1','1','0','1']; cell f,5,6,8
chem(4,*)=[ 'tol','toulene','0','0','0','0','1','1','1','0','0'];cell 4,5, 6
chem(5,*)=[ 'dcb','dichlorobenzene','1','0','0','1','1','1','1','0','0']; cell f,3,4,5,6
chem(6,*)=[ 'o_xyl','ortho-xylene','0','0','0','0','1','1','1','0','0']; cell 4,5,6
chem(7,*)=[ 'n_dec','n-decane','1','0','0','0','0','0','0','0','0']; cell f
chem(8,*)=[ 'n_und','n_undecane','1','0','0','0','0','0','0','0','0']; cell f
chem(9,*)=[ 't_dec','total decane','0','0','0','1','0','0','0','0','1']; Cell 3, 8
chem(10,*)=[ 'tot_xyl','total xylene','0','0','0','1','0','0','0','0','0']; Cell 3
chem(11,*)=[ 'tcb', 'trichlorobenzene','0','0','0','0','0','0','0','0','1']; cell 8
chem(12,*)=[ 'dodec','dodecane','0','0','0','0','0','0','0','0','1'];cell 8
chem(13,*)=[ 'aot100','AOT 100','0','0','0','0','0','1','0','0','0']; cell 5
chem(14,*)=[ 'eth','ethanol','1','0','0','0','0','0','0','0','0']; cell f
chem(15,*)=[ 'pen','pentanol','1','0','0','0','0','0','0','0','1']; cell f,8
chem(16,*)=['p_xyl','para xylene','0','0','0','0','0','0','0','0','1']; cell 8
chem(17,*)=['tca','trichloroethane','0','0','0','0','4','0','0','0','0'];cell 4
chem(18,*)=['tce','trichloroethene','0','0','0','0','1','0','0','0','0'];cell 4
chem(19,*)=['tce_1_1_1', '1,1,1-trichlorethane','0','0','0','0','0','0','0','0','0'];cell
chem(20,*)=['dow','dowfax','0','0','0','0','0','0','1','0','0']; cell 6
chem(21,*)=['p_m_xyl','para+methyl xylene','1','0','0','0','1','0','0','0','0']; cell f,4
chem(22,*)=[ 'tmb_1_2_4','1,2,4-trimethylbenzene','0','0','0','0','1','0','0','0','0']; cell 4
chem(23,*)=[ 'benz','benzene','0','0','0','0','1','0','0','0','0']; cell 4
chem(24,*)=[ 'eb','ethylbenzene','0','0','0','0','1','0','0','0','0']; cell 4
chem(25,*)=[ 'tween80','tween 80','0','0','0','0','0','1','0','0','0']; cell 5
chem(26,*)=[ 'hpcd','hydroxypropylcyclodextrin','0','0','0','0','1','0','0','0','0']; cell 4
object_type = '5'
test_type = 'rt'
;produce the ploting routine
; subscript i is for the cell
; subscript j is for the chemical
for i=6,6 do begin
for j=6, 6 do begin
print, chem(j,i+2)
if chem(j,i+2) eq 0 then goto, finish
c_id_p=cell_c(i,0)
c_des_p=cell_c(i,1)
ext_loc=cell_c(i,2)
n_extractors=cell_c(i,3)
chem_p=chem(j,0)
chem_name_p=chem(j,1)
plot_ew,c_id_p,c_des_p,chem_p,chem_name_p,ext_loc,n_extractors
wshow,0,1
;wprint,0,printer_name='EPSON Stylus COLOR 1520'
f_name='e:\serdp\plots\'+string(test_type)+cell_c(i,0)+chem(j,0)+'.emf'
f_name2='d:\Projects\html_report\'+string(test_type)+cell_c(i,0)+chem(j,0)+'.bmp'
status=wwrite_meta(0,Filename=f_name)
status=wwrite_dib(0,Filename=f_name2)
;wait,4;0
finish:
endfor
endfor
end