DIMENSION IFBUF(504) COMMON/FBUF/FBUF(504) EQUIVALENCE (IFBUF,FBUF)