登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 曲江气象 于 2013-8-3 11:37 编辑
求高手解决FORTRAN问题:
$debug
parameter(m=35,n=15,n1=10,n2=11,mm=m-5)
real tzr1(m,n1),tzr2(m,n1),tzr3(m,n2),tzr4(m,n1),tzr5(m,n1),
*tzr6(m,n1),tzr7(m,n1),tzr8(m,n1),tzr9(m,n2),tzr10(m,n1),
*tzr11(m,n1),tzr12(m,n1),tzr13(m,n1),tzr14(m,n1),tzr15(m,n2)
real ttzr1(m,n1),ttzr2(m,n1),ttzr3(m,n2),ttzr4(m,n1),ttzr5(m,n1),
*ttzr6(m,n1),ttzr7(m,n1),ttzr8(m,n1),ttzr9(m,n2),ttzr10(m,n1),
*ttzr11(m,n1),ttzr12(m,n1),ttzr13(m,n1),ttzr14(m,n1),ttzr15(m,n2)
real tzx1(m),tzx2(m),tzx3(m),tzx4(m),tzx5(m),
*tzx6(m),tzx7(m),tzx8(m),tzx9(m),tzx10(m),
*tzx11(m),tzx12(m),tzx13(m),tzx14(m),tzx15(m)
real at(n),bt(n),tzx(m,n),st(m,n)
real rzx(m,n),rrzx(m,n),szx(m,n),sszx(m,n)
real ar(n),br(n),sr(m,n),as(n),bs(n),ss(m,n),sc(m,n),wr(n),r0(n)
real y(m),yd(m-1),a(n),b(n),yds(n),scs(n),F(n)
real yy(m-1,n),yyd(m-1,n),zqv(m-1,n),pzqv(n),qspv(n)
open(10,file='tzr1.dat')
read(10,*) ((tzr1(i,j),j=1,n1),i=1,m)
close(10) .
.
.
.
.
.
一读数据文件就出错了,请高手指点{:soso_e183:}
|