read_rec.F