program read PARAMETER ( NI = 192, NJ = 94, nv=9) real t(ni,nj,15,nv) open(11,file='prcp2009.gr',form='unformatted', 1 access='direct',recl=ni*nj*15*9*4) open(31,file='prcp2009.gr2',form='unformatted', 1 access='sequential') do im=1, 12 read(11,rec=im) 1 ((((t(i,j,iv,k),i=1,ni),j=1,nj),iv=1,15),k=1,nv) do iv=1,15 do k=1,nv write(31) ((t(i,j,iv,k),i=1,ni),j=1,nj) end do end do end do stop end