; an IDL routine to verify MROH files
;	Jan 18, 1990   K.Simmons
;	based on the CRUISE.PRO routine initiated by 
;	Neil White and Wayne Pryor
data=intarr(36,128)			;This cmd period sector siz matrix
STR='' & ext='.MROH'			;Input file name and extrnsion
READ,'File name (as EUV_181000_84)',STR
OPENR,1,STR+ext
readf,1,str				;Two info lines at beginning
readf,1,str				; give time tags
in_rec=intarr(1536)			;Current MROH length
temp=intarr(16)				;16 values per line
for i=0,95 do begin			;96 lines
    readf,1,"$(16(Z2,1x))",temp		;read Hex values
    ;PRINT,TEMP
    IF I EQ 0 THEN IN_REC=TEMP ELSE IN_REC=[IN_REC,TEMP]  ;store them
    endfor
print,"Done"				;Inform user
pixels=bytarr(30)			;Sort based on Fixed Pattern Noise Tab
;pixels=(5,6,7,8,20,21,22,23,99,100,111,112,113,114,115,116,122,123)
pixels(0)=5
pixels(1)=6
pixels(2)=7
pixels(3)=8
pixels(4)=9
pixels(5)=20
pixels(6)=21
pixels(7)=22
pixels(8)=23
pixels(9)=99
pixels(10)=100
pixels(11)=101
pixels(12)=110
pixels(13)=111
pixels(14)=112
pixels(15)=113
pixels(16)=114
pixels(17)=115
pixels(18)=116
pixels(19)=122
pixels(20)=123
for i=1,35 do begin
    for j=0,20 do begin
	data(i,pixels(j))=in_rec(((i-1)*21+j)*2)+ $
			  (in_rec((((i-1)*21+j)*2)+1))*256
    endfor
endfor
end