PRO cnvrt_ip_html
;
; reads in the image processing conversion table and
; generates an html file
;
; SCCS variables for IDL use
;
; REVISION HISTORY:
; Karl Battams 2 Nov 2005 - Add swap_if_little_endian keyword for opening binary data files
;
; @(#)cnvrt_ip_html.pro 1.3 11/02/05 :NRL Solar Physics
;
dir = GETENV('NRL_LIB')+'/lasco/convert/'
OPENR,lu,dir+'cnvrt_ip.dat',/GET_LUN,/swap_if_little_endian
OPENW,luout,dir+'cnvrt_ip.html',/GET_LUN
code=''
desc=''
num=0
PRINTF,luout,'
PRINTF,luout,'Image Processing Letter Codes'
PRINTF,luout,''
PRINTF,luout,''
PRINTF,luout,''
PRINTF,luout,''
PRINTF,luout,'Image Processing Codes
PRINTF,luout,' | '
PRINTF,luout,'
'
PRINTF,luout,'
PRINTF,luout,'| '
PRINTF,luout,' | '
PRINTF,luout,' | '
PRINTF,luout,' |
'
PRINTF,luout
PRINT,'NUMBER LETTER CODE DESCRIPTION'
REPEAT BEGIN
READF,lu,num,code,desc,format='(i2,2x,a1,2x,a)'
PRINT,num,code,desc,format='(i4,10x,a1,10x,a)'
PRINTF,luout,num,code,desc,format='(i4,10x,a1,10x,a)'
ENDREP UNTIL EOF(lu)
PRINTF,luout,'
'
PRINTF,luout,''
FREE_LUN,lu
FREE_LUN,luout
RETURN
END