24小时热门版块排行榜    

查看: 519  |  回复: 2

指环王jyj

新虫 (小有名气)

[求助] fortran二维数组读入再读出后所有元素都变成0

各位大侠,小的系初学者,被一个问题困扰了一天了。将一个二维数组(5179*4)读入后再读出,但是读出后的数组元素全变成了0,代码和文件如下,向各位诚心赐教,不胜感激!
program no_1
implicit none
integer i,j
integer,parameter::maxnod=5179
real a(maxnod,4),b(maxnod,4)

open(1,file="input.txt"
open(2,file="output.txt"


read(1,*)((a(i,j),j=1,4),i=1,maxnod)
write(2,"(4f10.2)" ((b(i,j),j=1,4),i=1,maxnod)
write(*,"(4f10.2)" ((b(i,j),j=1,4),i=1,maxnod)

stop
endfortran二维数组读入再读出后所有元素都变成0
UFV4%17571]GXEU3XF8JY0J.png
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : input.txt
  • 2015-11-09 18:27:14, 145.25 K

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

指环王jyj

新虫 (小有名气)

中间怎么自动粗线几个害羞的表情,受不了。

发自小木虫Android客户端
2楼2015-11-09 18:55:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

指环王jyj

新虫 (小有名气)

我知道了!我应该定义一句:  a=b
或者两个文件内共用一个数组

发自小木虫Android客户端
3楼2015-11-09 19:47:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 指环王jyj 的主题更新
信息提示
请填处理意见