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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教Fortran下如何给二维或三维数组赋初值，谢谢
51/1返回列表
查看: 4083  |  回复: 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

至尊木虫 (职业作家)
引用回帖:
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的回帖
查看全部 4 个回答

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的回帖
查看全部 4 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 280求调剂 +7 咕噜晓晓 2026-03-18 8/400 2026-03-21 01:27 by JourneyLucky
[考研] 274求调剂 +10 S.H1 2026-03-18 10/500 2026-03-20 23:51 by JourneyLucky
[考研] 一志愿中海洋材料工程专硕330分求调剂 +8 小材化本科 2026-03-18 8/400 2026-03-20 23:16 by JourneyLucky
[考研] 一志愿武汉理工材料工程专硕调剂 +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[考研] 药学383 求调剂 +3 药学chy 2026-03-15 5/250 2026-03-20 22:11 by 云游重阳
[考研] 265求调剂 +12 梁梁校校 2026-03-19 13/650 2026-03-20 21:01 by 无际的草原
[考研] 求调剂 +3 eation27 2026-03-20 3/150 2026-03-20 19:32 by JourneyLucky
[基金申请] 学校已经提交到NSFC，还能修改吗？ 40+4 babangida 2026-03-19 8/400 2026-03-20 15:58 by babero
[考研] 材料学硕318求调剂 +5 February_Feb 2026-03-19 5/250 2026-03-19 23:51 by 23Postgrad
[考研] 一志愿中国海洋大学，生物学，301分，求调剂 +5 1孙悟空 2026-03-17 6/300 2026-03-19 23:46 by zcl123
[考研] 266求调剂 +5 阳阳哇塞 2026-03-14 10/500 2026-03-19 15:08 by 阳阳哇塞
[考研] 302求调剂 +10 呼呼呼。。。。 2026-03-17 10/500 2026-03-18 12:45 by Linda Hu
[考研] 材料专硕326求调剂 +6 墨煜姒莘 2026-03-15 7/350 2026-03-17 17:10 by ruiyingmiao
[考研] 一志愿苏州大学材料工程（085601）专硕有科研经历三项国奖两个实用型专利一项省级立项 +6 大火山小火山 2026-03-16 8/400 2026-03-17 15:05 by 无懈可击111
[考研] 机械专硕325，寻找调剂院校 +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[考研] 304求调剂 +5 素年祭语 2026-03-15 5/250 2026-03-16 17:00 by 我的船我的海
[考研] 304求调剂 +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by 我的船我的海
[考研] 0703化学调剂 290分有科研经历，论文在投 +7 腻腻gk 2026-03-14 7/350 2026-03-16 10:12 by houyaoxu
[考研] 327求调剂 +6 拾光任染 2026-03-15 11/550 2026-03-15 22:47 by 拾光任染
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
信息提示
关闭
请填处理意见
关闭