24小时热门版块排行榜    

查看: 564  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085602 289分求调剂 +3 WWW西西弗斯 2026-03-24 3/150 2026-03-24 14:26 by JourneyLucky
[考研] 材料与化工328分调剂 +4 。,。,。,。i 2026-03-23 4/200 2026-03-24 11:03 by 544594351
[考研] 【考研调剂】化学专业 281分,一志愿四川大学,诚心求调剂 +12 吃吃吃才有意义 2026-03-19 13/650 2026-03-24 10:06 by NCUT_Yu
[考研] 资源与环境 调剂申请(333分) +6 holy J 2026-03-21 6/300 2026-03-24 09:51 by hengsmith
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 291求调剂 +8 hhhhxn.. 2026-03-23 8/400 2026-03-23 23:15 by peike
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 328求调剂 +4 LHHL66 2026-03-23 4/200 2026-03-23 14:55 by lbsjt
[考研] 北科281学硕材料求调剂 +8 tcxiaoxx 2026-03-20 9/450 2026-03-23 12:16 by tcxiaoxx
[考研] 求调剂材料学硕080500,总分289分 5+3 @taotao 2026-03-19 21/1050 2026-03-23 10:17 by 冠c哥
[考研] 070300,一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
[考研] 276求调剂 +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by 醉在风里
[考研] 280分求调剂 一志愿085802 +4 PUMPT 2026-03-22 7/350 2026-03-22 22:13 by 星空星月
[考研] 石河子大学(211、双一流)硕博研究生长期招生公告 +3 李子目 2026-03-22 3/150 2026-03-22 21:01 by 怎么释怀
[考研] 275求调剂 +6 shansx 2026-03-22 8/400 2026-03-22 15:27 by barlinike
[考研] 303求调剂 +5 安忆灵 2026-03-22 6/300 2026-03-22 12:46 by 素颜倾城1988
[考研] 0805材料320求调剂 +3 深海物语 2026-03-20 3/150 2026-03-21 15:46 by 无际的草原
[考研] 279求调剂 +5 红衣隐官 2026-03-21 5/250 2026-03-21 14:59 by lature00
[考研] 304求调剂 +7 司空. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[考研] 295复试调剂 +8 简木ChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
信息提示
请填处理意见