OPEN (1,FILE='air.198601.data',STATUS='OLD', + ACCESS='SEQUENTIAL',FORM='UNFORMATTED') do 30 id=1,nd do 30 it=1,4 do 30 k=1,17 read(1)((t(i,j,k,it),i=1,lx),j=1,ly) 30 continue close(1)