PRO TSTCAL

NF = 10
TAB= LONARR(4000, NF)

FOR I=0, NF-1 DO BEGIN
	FOR j=0, 3999 DO BEGIN
		TAB(j,i)=Float(I)*4000 +j
	ENDFOR
ENDFOR
for i = 0, nf-1 do print,tab[0,i]
  FNOM='tst.bin'
	OPENW, Unit, Fnom, /GET_LUN
	WRITEU, Unit, Nf, Tab
	CLOSE, Unit
	FREE_LUN, Unit

END