1个回答
2017-12-26
展开全部
! read data
implicit none
integer,parameter:: nx=20,ny=40
integer ix,iy,fx(nx,ny)
open(11,file='t.txt') ! 把 t.txt 改为你要打开的txt文件的名称
fx=0
do iy=1,ny
read(11,*) (fx(ix,iy),ix=1,nx)
end do
close(11)
stop
end
implicit none
integer,parameter:: nx=20,ny=40
integer ix,iy,fx(nx,ny)
open(11,file='t.txt') ! 把 t.txt 改为你要打开的txt文件的名称
fx=0
do iy=1,ny
read(11,*) (fx(ix,iy),ix=1,nx)
end do
close(11)
stop
end
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询