PRO rng,w,s

ng=STRARR(6)
FOR i=0,5 DO ng(i)='$HOME/nightglow/jjng/ng'+STRING(i+1,FORMAT='(I1)')
w=FLTARR(6,572)
s=w
d=FLTARR(2,572)
c=0&r=0
FOR i=0,5 DO BEGIN
OPENR,1,ng(i)&READF,1,c,r
IF r NE 572 THEN PRINT,'File '+ng(i)+' is the wrong length'
READF,1,d&w(i,*)=d(0,*)&s(i,*)=d(1,*)
CLOSE,1
ENDFOR
w=TRANSPOSE(w)&s=TRANSPOSE(s)
RETURN
END