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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教Fortran下如何给二维或三维数组赋初值，谢谢
北京石油化工学院2026年研究生招生接收调剂公告
41/1返回列表
查看: 4103  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +3 chenxrlkx 2026-04-05 3/150 2026-04-05 20:18 by barlinike
[考研] 262求调剂 +5 天下第一文 2026-04-04 6/300 2026-04-05 18:46 by liuying2007
[考研] 298求调剂 +3 manman511 2026-04-05 3/150 2026-04-05 18:09 by kk112233
[考研] 材料专硕 调剂 +14 CXN123456 2026-04-03 14/700 2026-04-05 17:18 by Hdyxbekcb
[考研] 328分调剂 +6 门men 2026-04-04 6/300 2026-04-05 13:40 by imissbao
[考研] 一志愿江南大学085501机械工程专硕326分，本科佳木斯大学 +5 顾若浮生 2026-04-03 9/450 2026-04-05 09:57 by 1753564080
[考研] 325求调剂 +4 春风不借意 2026-04-04 4/200 2026-04-04 22:08 by 啵啵啵0119
[考研] 283求调剂 +4 mcbbc 2026-04-03 5/250 2026-04-04 20:51 by imissbao
[考研] 342求调剂 +3 Liang7111 2026-04-04 5/250 2026-04-04 19:47 by dongzh2009
[考研] 五邑大学土木工程招调剂生2026 +3 wyutj 2026-03-31 4/200 2026-04-03 18:21 by zengxj_7201
[考研] 372分材料与化工（085600）一志愿湖南大学求调剂 +3 蓝笺片 2026-04-03 4/200 2026-04-03 17:58 by Jimmyandyou
[考研] 求调剂！生物与医药专硕 +4 逆转陆先生 2026-04-01 5/250 2026-04-03 08:33 by Jaylen.
[考研] 08开头看过来！！！ +4 wwwwffffff 2026-03-31 6/300 2026-04-02 11:42 by 均值回归
[考研] 372求调剂 +3 jj涌77 2026-04-02 3/150 2026-04-02 09:57 by olim
[考研] 材料求调剂 +10 呢呢妮妮 2026-04-01 13/650 2026-04-02 09:17 by olim
[考研] 070300化学279求调剂 +15 哈哈哈^_^ 2026-03-31 17/850 2026-04-01 21:37 by 给你你注意休息
[硕博家园] 博一被送出联培感觉不适应怎么办 +3 全村的狗 2026-03-31 3/150 2026-04-01 10:44 by 328838485
[考研] 求调剂，一志愿北林食品与营养095500，301分，已过六级，有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 335求调剂 +3 321* 2026-03-31 4/200 2026-04-01 00:00 by 321*
[考研] 复试调剂 +7 双马尾痞老板2 2026-03-31 7/350 2026-03-31 19:49 by Dyhoer
信息提示
关闭
请填处理意见
关闭