; OSPEX script created Thu Feb 03 16:48:33 2005 by OSPEX writescript method.                                                                                       
;                                                                                                                                                                  
pro ospex_script_leah, obj=obj                                                                                                                                     
if not is_class(obj,'SPEX',/quiet) then obj = ospex()                                                                                                              
obj-> set, $                                                                                                                                                       
 spex_specfile= 'C:\Documents and Settings\lhaga\My Documents\2002 April 21\Spectroscopy\Brian\hsi_spectrum_20020421_002220_161ex1100i_d4_pu-enabled_8-8-2004.fits'
obj-> set, $                                                                                                                                                       
 spex_drmfile= 'C:\Documents and Settings\lhaga\My Documents\2002 April 21\Spectroscopy\Brian\hsi_srm_20020421_002220_d4_a013_pu-enabled.fits'                     
obj-> set, spex_fit_reverse= 1                                                                                                                                     
obj-> set, spex_fit_start_method= 'previous_iter'                                                                                                                  
obj-> set, spex_erange= [6.0000000D, 300.00000D]                                                                                                                   
obj-> set, spex_fit_time_interval= [['21-Apr-2002 00:32:23.999', $                                                                                                 
 '21-Apr-2002 00:32:43.999'], ['21-Apr-2002 00:32:43.999', '21-Apr-2002 00:33:03.999'], $                                                                          
 ['21-Apr-2002 00:33:03.999', '21-Apr-2002 00:33:24.000'], ['21-Apr-2002 00:33:24.000', $                                                                          
 '21-Apr-2002 00:33:43.999'], ['21-Apr-2002 00:33:43.999', '21-Apr-2002 00:34:03.999'], $                                                                          
 ['21-Apr-2002 00:34:03.999', '21-Apr-2002 00:34:23.999'], ['21-Apr-2002 00:34:23.999', $                                                                          
 '21-Apr-2002 00:34:43.999'], ['21-Apr-2002 00:34:43.999', '21-Apr-2002 00:35:03.999'], $                                                                          
 ['21-Apr-2002 00:35:03.999', '21-Apr-2002 00:35:23.999'], ['21-Apr-2002 00:35:23.999', $                                                                          
 '21-Apr-2002 00:35:44.000'], ['21-Apr-2002 00:35:44.000', '21-Apr-2002 00:36:03.999'], $                                                                          
 ['21-Apr-2002 00:36:03.999', '21-Apr-2002 00:36:23.999'], ['21-Apr-2002 00:36:23.999', $                                                                          
 '21-Apr-2002 00:36:43.999'], ['21-Apr-2002 00:36:43.999', '21-Apr-2002 00:37:03.999'], $                                                                          
 ['21-Apr-2002 00:37:03.999', '21-Apr-2002 00:37:23.999'], ['21-Apr-2002 00:37:23.999', $                                                                          
 '21-Apr-2002 00:37:43.999'], ['21-Apr-2002 00:37:43.999', '21-Apr-2002 00:38:04.000'], $                                                                          
 ['21-Apr-2002 00:38:04.000', '21-Apr-2002 00:38:23.999'], ['21-Apr-2002 00:38:23.999', $                                                                          
 '21-Apr-2002 00:38:43.999'], ['21-Apr-2002 00:38:43.999', '21-Apr-2002 00:39:03.999'], $                                                                          
 ['21-Apr-2002 00:39:03.999', '21-Apr-2002 00:39:24.000'], ['21-Apr-2002 00:39:24.000', $                                                                          
 '21-Apr-2002 00:39:43.999'], ['21-Apr-2002 00:39:43.999', '21-Apr-2002 00:40:03.999'], $                                                                          
 ['21-Apr-2002 00:40:03.999', '21-Apr-2002 00:40:24.000'], ['21-Apr-2002 00:40:24.000', $                                                                          
 '21-Apr-2002 00:40:43.999'], ['21-Apr-2002 00:40:43.999', '21-Apr-2002 00:41:03.999'], $                                                                          
 ['21-Apr-2002 00:41:03.999', '21-Apr-2002 00:41:23.999'], ['21-Apr-2002 00:41:23.999', $                                                                          
 '21-Apr-2002 00:41:44.000'], ['21-Apr-2002 00:41:44.000', '21-Apr-2002 00:42:03.999'], $                                                                          
 ['21-Apr-2002 00:42:03.999', '21-Apr-2002 00:42:23.999'], ['21-Apr-2002 00:42:23.999', $                                                                          
 '21-Apr-2002 00:42:44.000'], ['21-Apr-2002 00:42:44.000', '21-Apr-2002 00:43:03.999'], $                                                                          
 ['21-Apr-2002 00:43:03.999', '21-Apr-2002 00:43:23.999'], ['21-Apr-2002 00:43:23.999', $                                                                          
 '21-Apr-2002 00:43:43.999'], ['21-Apr-2002 00:43:43.999', '21-Apr-2002 00:44:04.000'], $                                                                          
 ['21-Apr-2002 00:44:04.000', '21-Apr-2002 00:44:23.999'], ['21-Apr-2002 00:44:23.999', $                                                                          
 '21-Apr-2002 00:44:43.999'], ['21-Apr-2002 00:44:43.999', '21-Apr-2002 00:45:04.000'], $                                                                          
 ['21-Apr-2002 00:45:04.000', '21-Apr-2002 00:45:23.999'], ['21-Apr-2002 00:45:23.999', $                                                                          
 '21-Apr-2002 00:45:43.999'], ['21-Apr-2002 00:45:43.999', '21-Apr-2002 00:46:03.999'], $                                                                          
 ['21-Apr-2002 00:46:03.999', '21-Apr-2002 00:46:24.000'], ['21-Apr-2002 00:46:24.000', $                                                                          
 '21-Apr-2002 00:46:43.999'], ['21-Apr-2002 00:46:43.999', '21-Apr-2002 00:47:03.999'], $                                                                          
 ['21-Apr-2002 00:47:03.999', '21-Apr-2002 00:47:23.999'], ['21-Apr-2002 00:47:23.999', $                                                                          
 '21-Apr-2002 00:47:43.999'], ['21-Apr-2002 00:48:03.999', '21-Apr-2002 00:48:23.999'], $                                                                          
 ['21-Apr-2002 00:48:23.999', '21-Apr-2002 00:48:44.000'], ['21-Apr-2002 00:48:44.000', $                                                                          
 '21-Apr-2002 00:49:03.999'], ['21-Apr-2002 00:49:03.999', '21-Apr-2002 00:49:23.999'], $                                                                          
 ['21-Apr-2002 00:49:23.999', '21-Apr-2002 00:49:43.999'], ['21-Apr-2002 00:49:43.999', $                                                                          
 '21-Apr-2002 00:50:04.000'], ['21-Apr-2002 00:50:04.000', '21-Apr-2002 00:50:23.999'], $                                                                          
 ['21-Apr-2002 00:50:23.999', '21-Apr-2002 00:50:43.999'], ['21-Apr-2002 00:50:43.999', $                                                                          
 '21-Apr-2002 00:51:04.000'], ['21-Apr-2002 00:51:04.000', '21-Apr-2002 00:51:23.999'], $                                                                          
 ['21-Apr-2002 00:51:23.999', '21-Apr-2002 00:51:43.999'], ['21-Apr-2002 00:52:43.999', $                                                                          
 '21-Apr-2002 00:53:03.999'], ['21-Apr-2002 00:53:03.999', '21-Apr-2002 00:53:24.000'], $                                                                          
 ['21-Apr-2002 00:53:24.000', '21-Apr-2002 00:53:43.999'], ['21-Apr-2002 00:53:43.999', $                                                                          
 '21-Apr-2002 00:54:03.999'], ['21-Apr-2002 00:54:03.999', '21-Apr-2002 00:54:23.999'], $                                                                          
 ['21-Apr-2002 00:54:23.999', '21-Apr-2002 00:54:44.000'], ['21-Apr-2002 00:54:44.000', $                                                                          
 '21-Apr-2002 00:55:03.999'], ['21-Apr-2002 00:55:03.999', '21-Apr-2002 00:55:23.999'], $                                                                          
 ['21-Apr-2002 00:55:23.999', '21-Apr-2002 00:55:44.000'], ['21-Apr-2002 00:55:44.000', $                                                                          
 '21-Apr-2002 00:56:03.999'], ['21-Apr-2002 00:56:03.999', '21-Apr-2002 00:56:23.999'], $                                                                          
 ['21-Apr-2002 00:57:23.999', '21-Apr-2002 00:57:43.999'], ['21-Apr-2002 00:57:43.999', $                                                                          
 '21-Apr-2002 00:58:03.999'], ['21-Apr-2002 00:58:03.999', '21-Apr-2002 00:58:23.999'], $                                                                          
 ['21-Apr-2002 00:58:23.999', '21-Apr-2002 00:58:43.999'], ['21-Apr-2002 00:58:43.999', $                                                                          
 '21-Apr-2002 00:59:03.999'], ['21-Apr-2002 00:59:03.999', '21-Apr-2002 00:59:24.000'], $                                                                          
 ['21-Apr-2002 00:59:24.000', '21-Apr-2002 00:59:43.999'], ['21-Apr-2002 00:59:43.999', $                                                                          
 '21-Apr-2002 01:00:03.999'], ['21-Apr-2002 01:00:03.999', '21-Apr-2002 01:00:23.999'], $                                                                          
 ['21-Apr-2002 01:00:23.999', '21-Apr-2002 01:00:44.000'], ['21-Apr-2002 01:00:44.000', $                                                                          
 '21-Apr-2002 01:01:03.999'], ['21-Apr-2002 01:02:03.999', '21-Apr-2002 01:02:23.999'], $                                                                          
 ['21-Apr-2002 01:02:23.999', '21-Apr-2002 01:02:43.999'], ['21-Apr-2002 01:02:43.999', $                                                                          
 '21-Apr-2002 01:03:04.000'], ['21-Apr-2002 01:03:04.000', '21-Apr-2002 01:03:23.999'], $                                                                          
 ['21-Apr-2002 01:03:23.999', '21-Apr-2002 01:03:43.999'], ['21-Apr-2002 01:03:43.999', $                                                                          
 '21-Apr-2002 01:04:04.000'], ['21-Apr-2002 01:04:04.000', '21-Apr-2002 01:04:23.999'], $                                                                          
 ['21-Apr-2002 01:04:23.999', '21-Apr-2002 01:04:43.999'], ['21-Apr-2002 01:04:43.999', $                                                                          
 '21-Apr-2002 01:05:03.999'], ['21-Apr-2002 01:05:03.999', '21-Apr-2002 01:05:24.000'], $                                                                          
 ['21-Apr-2002 01:05:24.000', '21-Apr-2002 01:05:43.999'], ['21-Apr-2002 01:06:43.999', $                                                                          
 '21-Apr-2002 01:07:03.999'], ['21-Apr-2002 01:07:03.999', '21-Apr-2002 01:07:23.999'], $                                                                          
 ['21-Apr-2002 01:07:23.999', '21-Apr-2002 01:07:44.000'], ['21-Apr-2002 01:07:44.000', $                                                                          
 '21-Apr-2002 01:08:03.999'], ['21-Apr-2002 01:08:03.999', '21-Apr-2002 01:08:23.999'], $                                                                          
 ['21-Apr-2002 01:08:23.999', '21-Apr-2002 01:08:43.999'], ['21-Apr-2002 01:08:43.999', $                                                                          
 '21-Apr-2002 01:09:03.999'], ['21-Apr-2002 01:09:03.999', '21-Apr-2002 01:09:23.999'], $                                                                          
 ['21-Apr-2002 01:09:23.999', '21-Apr-2002 01:09:43.999'], ['21-Apr-2002 01:09:43.999', $                                                                          
 '21-Apr-2002 01:10:04.000'], ['21-Apr-2002 01:10:04.000', '21-Apr-2002 01:10:23.999'], $                                                                          
 ['21-Apr-2002 01:11:43.999', '21-Apr-2002 01:12:03.999'], ['21-Apr-2002 01:12:03.999', $                                                                          
 '21-Apr-2002 01:12:24.000'], ['21-Apr-2002 01:12:24.000', '21-Apr-2002 01:12:43.999'], $                                                                          
 ['21-Apr-2002 01:12:43.999', '21-Apr-2002 01:13:03.999'], ['21-Apr-2002 01:13:03.999', $                                                                          
 '21-Apr-2002 01:13:23.999'], ['21-Apr-2002 01:13:23.999', '21-Apr-2002 01:13:44.000'], $                                                                          
 ['21-Apr-2002 01:13:44.000', '21-Apr-2002 01:14:03.999'], ['21-Apr-2002 01:14:03.999', $                                                                          
 '21-Apr-2002 01:14:23.999'], ['21-Apr-2002 01:14:23.999', '21-Apr-2002 01:14:44.000'], $                                                                          
 ['21-Apr-2002 01:14:44.000', '21-Apr-2002 01:15:03.999'], ['21-Apr-2002 01:15:03.999', $                                                                          
 '21-Apr-2002 01:15:23.999'], ['21-Apr-2002 01:15:23.999', '21-Apr-2002 01:15:43.999'], $                                                                          
 ['21-Apr-2002 01:15:43.999', '21-Apr-2002 01:16:04.000'], ['21-Apr-2002 01:16:04.000', $                                                                          
 '21-Apr-2002 01:16:23.999'], ['21-Apr-2002 01:16:23.999', '21-Apr-2002 01:16:43.999'], $                                                                          
 ['21-Apr-2002 01:16:43.999', '21-Apr-2002 01:17:04.000'], ['21-Apr-2002 01:17:04.000', $                                                                          
 '21-Apr-2002 01:17:23.999'], ['21-Apr-2002 01:17:23.999', '21-Apr-2002 01:17:43.999'], $                                                                          
 ['21-Apr-2002 01:17:43.999', '21-Apr-2002 01:18:03.999'], ['21-Apr-2002 01:18:03.999', $                                                                          
 '21-Apr-2002 01:18:24.000'], ['21-Apr-2002 01:18:24.000', '21-Apr-2002 01:18:43.999'], $                                                                          
 ['21-Apr-2002 01:18:43.999', '21-Apr-2002 01:19:03.999'], ['21-Apr-2002 01:19:03.999', $                                                                          
 '21-Apr-2002 01:19:23.999'], ['21-Apr-2002 01:19:23.999', '21-Apr-2002 01:19:43.999'], $                                                                          
 ['21-Apr-2002 01:19:43.999', '21-Apr-2002 01:20:03.999'], ['21-Apr-2002 01:20:03.999', $                                                                          
 '21-Apr-2002 01:20:23.999'], ['21-Apr-2002 01:20:23.999', '21-Apr-2002 01:20:44.000'], $                                                                          
 ['21-Apr-2002 01:20:44.000', '21-Apr-2002 01:21:03.999'], ['21-Apr-2002 01:21:03.999', $                                                                          
 '21-Apr-2002 01:21:23.999'], ['21-Apr-2002 01:21:23.999', '21-Apr-2002 01:21:43.999'], $                                                                          
 ['21-Apr-2002 01:21:43.999', '21-Apr-2002 01:22:03.999'], ['21-Apr-2002 01:22:03.999', $                                                                          
 '21-Apr-2002 01:22:23.999'], ['21-Apr-2002 01:22:23.999', '21-Apr-2002 01:22:43.999'], $                                                                          
 ['21-Apr-2002 01:22:43.999', '21-Apr-2002 01:23:04.000'], ['21-Apr-2002 01:23:04.000', $                                                                          
 '21-Apr-2002 01:23:23.999'], ['21-Apr-2002 01:23:23.999', '21-Apr-2002 01:23:43.999'], $                                                                          
 ['21-Apr-2002 01:23:43.999', '21-Apr-2002 01:24:03.999'], ['21-Apr-2002 01:24:03.999', $                                                                          
 '21-Apr-2002 01:24:24.000'], ['21-Apr-2002 01:24:24.000', '21-Apr-2002 01:24:43.999'], $                                                                          
 ['21-Apr-2002 01:24:43.999', '21-Apr-2002 01:25:03.999'], ['21-Apr-2002 01:25:03.999', $                                                                          
 '21-Apr-2002 01:25:24.000'], ['21-Apr-2002 01:25:24.000', '21-Apr-2002 01:25:43.999'], $                                                                          
 ['21-Apr-2002 01:25:43.999', '21-Apr-2002 01:26:03.999'], ['21-Apr-2002 01:26:03.999', $                                                                          
 '21-Apr-2002 01:26:23.999'], ['21-Apr-2002 01:26:23.999', '21-Apr-2002 01:26:44.000'], $                                                                          
 ['21-Apr-2002 01:26:44.000', '21-Apr-2002 01:27:03.999'], ['21-Apr-2002 01:27:03.999', $                                                                          
 '21-Apr-2002 01:27:23.999'], ['21-Apr-2002 01:27:23.999', '21-Apr-2002 01:27:44.000'], $                                                                          
 ['21-Apr-2002 01:27:44.000', '21-Apr-2002 01:28:03.999'], ['21-Apr-2002 01:28:03.999', $                                                                          
 '21-Apr-2002 01:28:23.999'], ['21-Apr-2002 01:28:23.999', '21-Apr-2002 01:28:43.999'], $                                                                          
 ['21-Apr-2002 01:28:43.999', '21-Apr-2002 01:29:04.000'], ['21-Apr-2002 01:29:04.000', $                                                                          
 '21-Apr-2002 01:29:23.999'], ['21-Apr-2002 01:29:23.999', '21-Apr-2002 01:29:43.999'], $                                                                          
 ['21-Apr-2002 01:29:43.999', '21-Apr-2002 01:30:04.000'], ['21-Apr-2002 01:30:04.000', $                                                                          
 '21-Apr-2002 01:30:23.999'], ['21-Apr-2002 01:30:23.999', '21-Apr-2002 01:30:43.999'], $                                                                          
 ['21-Apr-2002 01:31:03.999', '21-Apr-2002 01:31:24.000'], ['21-Apr-2002 01:31:24.000', $                                                                          
 '21-Apr-2002 01:31:43.999'], ['21-Apr-2002 01:31:43.999', '21-Apr-2002 01:32:03.999'], $                                                                          
 ['21-Apr-2002 01:32:03.999', '21-Apr-2002 01:32:23.999']]                                                                                                         
obj-> set, spex_bk_sep= 1                                                                                                                                          
obj-> set, spex_bk_eband=[[3.00000, 6.00000], [6.00000, 12.0000], [12.0000, 25.0000], $                                                                            
 [25.0000, 50.0000], [50.0000, 100.000], [100.000, 300.000]]                                                                                                       
obj-> set, this_band=0, this_time=['21-Apr-2002 00:28:07.999', '21-Apr-2002 00:31:07.999']                                                                         
obj-> set, this_band=1, this_time=['21-Apr-2002 00:27:56.000', '21-Apr-2002 00:30:55.999']                                                                         
obj-> set, this_band=2, this_time=['21-Apr-2002 00:28:44.000', '21-Apr-2002 00:34:07.999']                                                                         
obj-> set, this_band=3, this_time=['21-Apr-2002 00:30:55.999', '21-Apr-2002 00:37:48.000']                                                                         
obj-> set, this_band=4, this_time=['21-Apr-2002 00:30:03.999', '21-Apr-2002 00:37:19.999']                                                                         
obj-> set, this_band=5, this_time=['21-Apr-2002 00:30:27.999', '21-Apr-2002 00:40:47.999']                                                                         
obj-> set, fit_function= 'vth_noline+line+line+line+3pow'                                                                                                          
obj-> set, fit_comp_params= [0.0347273, 1.54348, 771.911, 6.82643, 0.100000, 1.00000e-020, $                                                                       
 7.98444, 0.100000, 1.00000e-020, 10.0000, 0.100000, 1.84553, 1.50000, 12.6240, 6.10842, $                                                                         
 400.000, 2.00000]                                                                                                                                                 
obj-> set, fit_comp_minima= [1.00000e-020, 0.500000, 1.00000e-020, 1.00000, 0.0100000, $                                                                           
 1.00000e-020, 1.00000, 0.0100000, 1.00000e-020, 1.00000, 0.0100000, 1.00000e-020, $                                                                               
 0.500000, 1.00000, 0.500000, 10.0000, 0.500000]                                                                                                                   
obj-> set, fit_comp_maxima= [1.00000e+020, 50.0000, 1.00000e+020, 1.00000e+006, $                                                                                  
 1.00000e+006, 1.00000e+020, 1.00000e+006, 1.00000e+006, 1.00000e+020, 1.00000e+006, $                                                                             
 1.00000e+006, 1.00000e+020, 12.0000, 20000.0, 12.0000, 20000.0, 12.0000]                                                                                          
obj-> set, fit_comp_free_mask= [1.00000, 1.00000, 1.00000, 1.00000, 0.000000, 0.000000, $                                                                          
 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 1.00000, 0.000000, 1.00000, 1.00000, $                                                                          
 0.000000, 0.000000]                                                                                                                                               
obj-> set, spex_autoplot_units= 'Flux'                                                                                                                             
obj-> set, spex_eband= [[3.00000, 6.00000], [6.00000, 12.0000], [12.0000, 25.0000], $                                                                              
 [25.0000, 50.0000], [50.0000, 100.000], [100.000, 300.000]]                                                                                                       
obj -> restorefit, $                                                                                                                                               
 file='C:\Documents and Settings\lhaga\My Documents\2002 April 21\Spectroscopy\ospex_results_leah.fits'                                                            
end