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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教Fortran下如何给二维或三维数组赋初值，谢谢
41/1返回列表
查看: 4078  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 268求调剂 +5 好运连绵不绝 2026-03-12 5/250 2026-03-17 10:12 by Sammy2
[考研] 271求调剂 +11 生如夏花… 2026-03-11 13/650 2026-03-17 09:02 by 雾散后相遇lc
[考研] 341求调剂 +5 捣蛋猪猪 2026-03-11 5/250 2026-03-17 06:56 by Muziwl
[考研] 考研化学学硕调剂，一志愿985 +3 张vvvv 2026-03-15 5/250 2026-03-16 20:25 by 张vvvv
[考研] 0854控制工程 359求调剂 可跨专业 +3 626776879 2026-03-14 9/450 2026-03-16 17:42 by 626776879
[考研] 285求调剂 +6 ytter 2026-03-12 6/300 2026-03-16 15:05 by njzyff
[考研] 一志愿华中师范071000，325求调剂 +6 RuitingC 2026-03-12 6/300 2026-03-16 14:50 by 可淡不可忘
[考研] 070303 总分349求调剂 +3 LJY9966 2026-03-15 5/250 2026-03-16 14:24 by xwxstudy
[考研] 277材料科学与工程080500求调剂 +3 自由煎饼果子 2026-03-16 3/150 2026-03-16 14:10 by 运气yunqi
[考研] 290求调剂 +5 孔志浩 2026-03-12 10/500 2026-03-16 09:01 by 余晖&
[考研] 311求调剂 +5 牛乳糖的卡卡 2026-03-10 5/250 2026-03-14 00:05 by JourneyLucky
[考研] 332求调剂 +3 zjy101327 2026-03-11 6/300 2026-03-13 22:48 by JourneyLucky
[考研] 一志愿中科院，化学方向，295求调剂 +4 一氧二氮 2026-03-11 4/200 2026-03-13 22:35 by JourneyLucky
[考研] 308求调剂 +5 是Lupa啊 2026-03-11 5/250 2026-03-13 22:13 by JourneyLucky
[考研] 求调剂（材料与化工327） +4 爱吃香菜啦 2026-03-11 4/200 2026-03-13 22:11 by JourneyLucky
[考研] 一志愿西南交大，材料专硕317求调剂 +5 lx8568 2026-03-11 5/250 2026-03-13 21:43 by peike
[考研] 328化工专硕求调剂 +4 。，。，。，。i 2026-03-12 4/200 2026-03-13 14:44 by JourneyLucky
[考研] 材料301分求调剂 +5 Liyouyumairs 2026-03-12 5/250 2026-03-13 14:42 by JourneyLucky
[考研] 290求调剂 +3 ADT 2026-03-13 3/150 2026-03-13 10:19 by peike
[考博] 26申博求助 +3 跳跃饼干 2026-03-10 4/200 2026-03-10 21:15 by Tntcnn
信息提示
关闭
请填处理意见
关闭