24小时热门版块排行榜    

查看: 565  |  回复: 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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 招08考数学 +6 laoshidan 2026-03-20 15/750 2026-03-24 16:22 by laoshidan
[考研] 085602 289分求调剂 +4 WWW西西弗斯 2026-03-24 4/200 2026-03-24 16:13 by 星空星月
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考研] 299求调剂 +7 某某某某位 2026-03-21 7/350 2026-03-24 15:24 by cuifj
[考研] 321求调剂 +4 Ymlll 2026-03-24 4/200 2026-03-24 14:44 by sprinining
[考研] 306求0703调剂一志愿华中师范 +9 纸鱼ly 2026-03-21 10/500 2026-03-24 11:36 by 544594351
[考研] 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
[考研] 07化学280分求调剂 +4 722865 2026-03-23 4/200 2026-03-24 00:01 by chixmc
[考研] 一志愿重庆大学085700资源与环境,总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] 化学308分求调剂 +3 你好明天你好 2026-03-23 3/150 2026-03-23 20:11 by macy2011
[考研] 328求调剂,英语六级551,有科研经历 +7 生物工程调剂 2026-03-17 12/600 2026-03-23 18:18 by YMU施老师
[考研] 0854电子信息求调剂 324 +3 Promise-jyl 2026-03-23 3/150 2026-03-23 13:43 by wangkm
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
[考研] 求调剂材料学硕080500,总分289分 5+3 @taotao 2026-03-19 21/1050 2026-03-23 10:17 by 冠c哥
[考研] 280分求调剂 一志愿085802 +4 PUMPT 2026-03-22 7/350 2026-03-22 22:13 by 星空星月
[考研] 307求调剂 +11 冷笙123 2026-03-17 11/550 2026-03-22 20:16 by edmund7
[考研] 268求调剂 +9 简单点0 2026-03-17 9/450 2026-03-21 15:37 by lature00
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +5 西南交通专材355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[考研] 材料,纺织,生物(0856、0710),化学招生啦 +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
信息提示
请填处理意见