;+
; Name : readout.pro
; Author: Andy Phillips mssl 1991
; Purpose: read in set of pha stats to arrays, for analysis by 
;		dispout_pha,plotout_pha,reduce_pha
; Classification: BDA, Housekeeping, PHA, Spikes correction
; History: jan 1992 written atp
;
;
;-
openr,1,'output.dat'
filename = strarr(1000)
phachan = intarr(1000)
chanid = strarr(1000)
phacen = fltarr(1000)
phafwhm = fltarr(1000)
phachi = fltarr(1000)
dummy = ' '
; skip 1st record. as text only
for i = 0,6 do begin
  readf,1,dummy
 
  endfor
;stop

for i = 0,999 do begin
    readf,1,dummy
     filename(i) = dummy
    readf,1,dummy
     phachan(i) = fix(dummy)
    readf,1,dummy
     chanid(i) = dummy
    readf,1,dummy
     phacen(i) = float(dummy)
    readf,1,dummy
     phafwhm(i) = float(dummy)
    readf,1,dummy
     phachi(i) = float(dummy)
    readf,1,dummy
    print,i
   if (EOF(1) eq 1) then i = 1000
   endfor
end