| 
本帖最后由 曲江气象 于 2013-8-3 11:37 编辑
x
登录后查看更多精彩内容~您需要 登录 才可以下载或查看,没有帐号?立即注册 
  
 
  求高手解决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:}
 
 
 
 |