pro rd_toast, year, month, day,toastb,toasto,toastc,toastftls,lat,lon

	;This program should serve as a basic reader for the TOAST binary
	;file (NTOAST and LTOAST)
	;Filenames are currently hardcodded in place for this simple reader
	;program.
	;To run program, compile it:  .r rd_TOAST_binary.pro
	;To execute use: RD_TOAST,2025,06,01,toastb,toasto,toastc,lat,lon

	yyyy=strtrim(string(year,format='(i4)'),2)
        mm=strtrim(string(month,format='(i2.2)'),2)
        dd=strtrim(string(day,format='(i2.2)'),2)


; generate lat and lon values for the data
        lon=dindgen(360) 
	lat=dindgen(181)-90


;read in NTOAST Blended file
	name='/data/www/data/smcd1/ozone/NTOAST/BLENDED_BIN/20250601/NTOAST-CrIS-OMPS_v1r0_n20n20_s202506010000000_e202506012359599_c202506020809346.bin'
        toastb=fltarr(360,181)
;        openr,1,name,/swap_if_little_endian
	openr,1,name
        readu,1,toastb
        close,1


;read in OMPS binary file (12 profile layers. Layer 13=total profile)
	name='/data/www/data/smcd1/ozone/NTOAST/OMPS_BIN/20250601/NTOAST-UV_v1r0_n20_s202506010000000_e202506012359599_c202506020809324.bin'
        toasto=fltarr(360,181,13)
;        openr,1,name,/swap_if_little_endian
	openr,1,name
        readu,1,toasto
        close,1

;read in CRIS binary file (12 profile layers. Layer 13=total profile)
        name='/data/www/data/smcd1/ozone/NTOAST/CRIS_BIN/20250601/NTOAST-IR_v1r0_n20_s202506010000000_e202506012359599_c202506020809152.bin'
        toastc=fltarr(360,181,13)
;        openr,1,name,/swap_if_little_endian
	openr,1,name
        readu,1,toastc
        close,1
	
;read in CRIS_FTLS binary file 
        name='/data/www/data/smcd1/ozone/NTOAST/BLENDED_BIN/20250601/NTOAST-CrIS-OMPS_v1r0_n20n20_s202506010000000_e202506012359599_c202506020809346.bin'
	toastftls=fltarr(360,181)
;        openr,1,name,/swap_if_little_endian
        openr,1,name
        readu,1,toastftls
        close,1

	end