应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教Fortran下如何给二维或三维数组赋初值，谢谢
北京石油化工学院2026年研究生招生接收调剂公告
41/1返回列表
查看: 4104  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

songjunann

铜虫 (小有名气)

[求助] 请教Fortran下如何给二维或三维数组赋初值，谢谢

请教一下定义数组 a=
[1  2   3
4  5  6]
的fortran语句，谢谢
是integer :: a(2,3)
DATA  a /1,2,3，4,5,6/吗 ？Fortran给二维数组赋初值，是按行的顺序吗，先第一行，再第二行？

如果对三维数组b（2*3*2的数组）呢？
b(:,:,1)=[1  2   3
              4  5  6]
b(:,:,2)=[1  2   3
              4  5  6]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-10-27 18:34:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
songjunann(金币+10): 3Q 2011-10-27 19:09:32
余泽成(金币+2): 谢谢参与应助！ 2011-10-27 21:47:36
余泽成: 专家考核存档 2011-10-27 21:49:34
Fortran 的矩阵是列优先的，因此，第一个应该是：

DATA a /1, 4, 2, 5, 3, 6/

第二个应该是

DATA b/1, 4, 2, 5, 3, 6,1, 4, 2, 5, 3, 6/
赞一下(2人) 回复此楼
2楼2011-10-27 18:42:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

songjunann

铜虫 (小有名气)
★
jjdg(金币+1): 感谢参与 2011-10-28 00:49:14
引用回帖:
2楼: Originally posted by snoopyzhao at 2011-10-27 18:42:06:
Fortran 的矩阵是列优先的，因此，第一个应该是：

DATA a /1, 4, 2, 5, 3, 6/

第二个应该是

DATA b/1, 4, 2, 5, 3, 6,1, 4, 2, 5, 3, 6/

谢谢，如果是
b(:,:,1)=[1  2   3
              4  5  6]
b(:,:,2)=[7  8   9
              10  11  12] ，
那么DATA b/1, 4, 2, 5, 3, 6,7,10,8,11,9,12/
赞一下(1人) 回复此楼
3楼2011-10-27 19:08:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
引用回帖:
3楼: Originally posted by songjunann at 2011-10-27 19:08:51:
谢谢，如果是
b(:,:,1)=[1  2   3
              4  5  6]
b(:,:,2)=[7  8   9
              10  11  12] ，
那么DATA b/1, 4, 2, 5, 3, 6,7,10,8,11,9,12/

是这样的……
回复此楼
4楼2011-10-27 19:25:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 songjunann 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 377求调剂 +5 by.ovo 2026-04-05 5/250 2026-04-05 21:45 by 醉翁wl
[考研] 086000生物与医药298调剂求助 +9 元元青青 2026-03-31 12/600 2026-04-05 21:03 by 学员8dgXkO
[考研] 复试调剂 +8 春日来信- 2026-04-03 8/400 2026-04-05 18:58 by 蓝云思雨
[考研] 296求调剂 +3 汪！？！ 2026-04-05 5/250 2026-04-05 17:38 by 蓝云思雨
[考研] 328分调剂 +6 门men 2026-04-04 6/300 2026-04-05 13:40 by imissbao
[考研] 298分 070300求调剂 +15 zwen03 2026-04-02 15/750 2026-04-05 12:52 by Hdyxbekcb
[考研] 数一英一274机械调剂 +5 星陨流霞 2026-04-04 6/300 2026-04-05 11:38 by arrow8852
[考研] 材料专硕322分 +11 哈哈哈吼吼吼哈 2026-04-02 11/550 2026-04-04 23:37 by 永字号
[考研] 321求调剂 +13 认真求上学 2026-04-02 13/650 2026-04-04 18:23 by macy2011
[考研] 考研调剂 +4 zybz冲冲冲 2026-04-03 6/300 2026-04-04 13:08 by zybz冲冲冲
[考研] 一志愿沪985，326分求调剂 +3 刘墨墨 2026-04-03 3/150 2026-04-04 11:16 by 悲伤的芋头
[考研] 281求调剂 +10 aaawhy 2026-04-03 10/500 2026-04-03 21:42 by lbsjt
[考研] 化工调剂303分，过四级 +28 栖梧待风 2026-04-02 28/1400 2026-04-03 21:40 by qlm5820
[考研] 工科341分调剂 +3 洛多罗 2026-04-03 3/150 2026-04-03 14:20 by 1753564080
[考研] 专硕085601求调剂 +7 suyifei 2026-04-03 8/400 2026-04-03 14:00 by 欣喜777
[考研] 建环，能源，土木老师路过看一看！！！ +5 嘿嘿uu 2026-04-01 5/250 2026-04-03 11:47 by znian
[考研] 材料与化工（0856）304求B区调剂 +8 邱gl 2026-03-30 16/800 2026-04-01 17:58 by 邱gl
[考研] 0855机械初试280求调剂 +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[考研] 求调剂：一志愿：南京大学 专业：0705 总分320 ，本科985，四六级已过 +3 lfy760306 2026-03-31 3/150 2026-04-01 01:57 by Creta
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
信息提示
关闭
请填处理意见
关闭