24小时热门版块排行榜    

查看: 561  |  回复: 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

新虫 (小有名气)

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

发自小木虫Android客户端
3楼2015-11-09 19:47:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

指环王jyj

新虫 (小有名气)

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

发自小木虫Android客户端
2楼2015-11-09 18:55:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 293求调剂 +4 加一一九 2026-03-24 4/200 2026-03-24 11:38 by 星空星月
[考研] 306求0703调剂一志愿华中师范 +9 纸鱼ly 2026-03-21 10/500 2026-03-24 11:36 by 544594351
[考研] 一志愿吉大化学322求调剂 +4 17501029541 2026-03-23 6/300 2026-03-24 10:21 by 戴围脖的小蚊子
[考研] 276求调剂。有半年电池和半年高分子实习经历 +9 材料学257求调剂 2026-03-23 10/500 2026-03-24 07:36 by wangy0907
[考研] 一志愿南航材料专317分求调剂 +4 炸呀炸呀炸薯条 2026-03-23 4/200 2026-03-24 07:32 by wangy0907
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
[考研] 一志愿西安交通大学材料工程专业 282分求调剂 +11 枫桥ZL 2026-03-18 13/650 2026-03-22 20:26 by edmund7
[考研] 289材料与化工(085600)B区求调剂 +3 这么名字咋样 2026-03-22 4/200 2026-03-22 17:56 by 云民大李老师
[考研] 305分求调剂(食品工程) +4 Sxy112 2026-03-21 6/300 2026-03-22 15:26 by 无懈可击111
[考研] 求调剂院校信息 +6 CX 330 2026-03-21 6/300 2026-03-22 15:25 by 无懈可击111
[考研] 一志愿华中科技大学071000,求调剂 +4 沿岸有贝壳6 2026-03-21 4/200 2026-03-22 07:21 by ilovexiaobin
[考研] 化学调剂 +5 yzysaa 2026-03-21 5/250 2026-03-21 22:12 by peike
[考研] 材料求调剂 +5 @taotao 2026-03-21 5/250 2026-03-21 20:55 by lbsjt
[考研] 求调剂 +3 .m.. 2026-03-21 4/200 2026-03-21 16:25 by barlinike
[考研] 268求调剂 +9 简单点0 2026-03-17 9/450 2026-03-21 15:37 by lature00
[考研] 材料 336 求调剂 +3 An@. 2026-03-18 4/200 2026-03-21 01:39 by JourneyLucky
[考研] 华东师范大学-071000生物学-293分-求调剂 +3 研究生何瑶明 2026-03-18 3/150 2026-03-21 01:30 by JourneyLucky
[考研] 一志愿武理材料305分求调剂 +6 想上岸的鲤鱼 2026-03-18 7/350 2026-03-21 01:03 by JourneyLucky
[考研] 304求调剂 +6 曼殊2266 2026-03-18 6/300 2026-03-21 00:32 by JourneyLucky
[考研] 0703化学调剂 +5 pupcoco 2026-03-17 8/400 2026-03-19 13:58 by houyaoxu
信息提示
请填处理意见