u，v数据放在一个文档里，怎么用fortran分别读取

laoyueliang

u和v都是33*18，放在一个000文件里，先u后v。自己写了个程序读v读不出来，求助大神们

program exercisenew
implicit none
integer,parameter::vx=33,vy=36,ny=18
real v(vx,ny)
integer i,j,k
character*4 hr(12)
data hr/'1620','1708','1720','1808','1820','1908','1920','2008','2020','2108','2120','2208'/
do k=1,12
open(1,file='I:/data/micaps/uv/500/0904'//hr(k)//'.000')
read(1,*)
read(1,*)
read(1,*)
read(1,*)
do j=vy,19,-1
read(1,*)(v(i,j),i=1,vx)
end do
print*,v(1,19)
open(2,file='I:/uv500/v/0904'//hr(k)//'.grd',form='binary')
write(2)((v(i,j),i=1,vx),j=1,ny)
end do
close(1)
close(2)
end

lqouc

do j=vy,19,-1
read(1,*)(v(i,j),i=1,vx)
end do
这段写的太有想法了，顺序读取文件不能这么玩。
老老实实把前面的u空读出来，在顺序读v。

f117hqh

如果你不要U的话，把以下部分
do j=vy,19,-1
read(1,*)(v(i,j),i=1,vx)
end do
改成
do j=1,18
read(1,*)
end do
do j=19,vy
read(1,*)(v(i,j),i=1,vx)
end do

读取文件不要想跳着来