pro getglad,date,h,f1304,f1356,i1304,i1356

path='~steele/phd/grg/'
s=''
init=(N_PARAMS() GT 4)

d=FLTARR(8,49)
file=date+'o1304.dat'
OPENR,n,path+file,/GET_LUN
FOR i=0,3 DO READF,n,s
READF,n,d
CLOSE,n & FREE_LUN,n
h=TRANSPOSE(d(1,*))/1E5
o1304=TRANSPOSE(d(6,*))
IF init THEN io1304=TRANSPOSE(d(7,*))

file=date+'o21304.dat'
OPENR,n,path+file,/GET_LUN
FOR i=0,3 DO READF,n,s
READF,n,d
CLOSE,n & FREE_LUN,n
o21304=TRANSPOSE(d(6,*))
IF init THEN io21304=TRANSPOSE(d(7,*))

d=FLTARR(6,49)
file=date+'o1356.dat'
OPENR,n,path+file,/GET_LUN
FOR i=0,3 DO READF,n,s
READF,n,d
CLOSE,n & FREE_LUN,n
o1356=TRANSPOSE(d(4,*))
IF init THEN io1356=TRANSPOSE(d(5,*))

file=date+'o21356.dat'
OPENR,n,path+file,/GET_LUN
FOR i=0,3 DO READF,n,s
READF,n,d
CLOSE,n & FREE_LUN,n
o21356=TRANSPOSE(d(4,*))
IF init THEN io21356=TRANSPOSE(d(5,*))

f1304=o1304+o21304
f1356=o1356+o21356

IF init THEN BEGIN
    i1304=io1304+io21304
    i1356=io1356+io21356
    ENDIF

RETURN
END