24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2626  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

nano_xinxin

金虫 (小有名气)

[交流] 【求助】求指点,在Fortran里面,怎样实现“数组维度可调”的数组?

我刚开始学习 Fortran 语言编程,最近在编程时,遇到一个问题,因为要在程序里面涉及一个do 循环,希望通过控制 do 循环的循环变量 I ,来调用一个维度可以改变的三维数组(第一维度已经确定),例如数组 A (I ,:,:) .
        例如,我希望:
     ..............
   
     real(8) , allocatable  ::   A ( : ,: ,:)
         ..............

   I=1 时, A (1 ,: ,:) 数组元素是一个4*3(四乘三) 的二维矩阵;
   I=2 时, A (2 ,:,:) 数组元素是一个3*5 的二维矩阵;
     ..............
         I=N时, A (N ,: ,:) 数组元素 是一个X*Y的二维矩阵.
     ..............
        
        请问,怎样定义、赋值、调用这样一个维度可以改变的动态数组?(三个维度同时改变或者只改变第二、第三维度?)
     
     谢谢!

[ Last edited by nano_xinxin on 2010-9-2 at 19:26 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

好好做人,认真做事
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)


nano_xinxin(金币+8):谢谢啦,我试试看,再想一想 2010-09-04 20:25:39
余泽成(金币+1):谢谢参与应助! 2010-09-04 22:26:04
你这个只能自己定义数据类型了。
我的想法是:
CODE:
type a
integer i
integer, dimension(:,:), pointer :: arr
end type a

[ Last edited by hakekill on 2010-9-4 at 11:15 ]
3楼2010-09-04 11:14:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

nano_xinxin

金虫 (小有名气)

不会吧,没人甩我
好好做人,认真做事
2楼2010-09-04 09:46:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liubin1984

木虫 (著名写手)

不纠结的男人

nano_xinxin(金币+10):谢谢 2010-09-07 22:10:49
引用回帖:
Originally posted by 250748574 at 2010-09-05 20:22:26:
谢谢发帖

我想的是用子例行程序,用SUBROTINE(A,I,J,K)
                                    其中A是程序名,ijk就是其维度,用子例行程序应该能解决。
路漫漫其修远兮,吾将上下而求索
5楼2010-09-07 17:53:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nano_xinxin

金虫 (小有名气)

引用回帖:
Originally posted by liubin1984 at 2010-09-07 17:53:25:

我想的是用子例行程序,用SUBROTINE(A,I,J,K)
                                    其中A是程序名,ijk就是其维度,用子例行程序应该能解决。

谢谢你!
    我仔细思考了一下,用子例行程序 SUBROTINE   XX(A,I,J,K) 的话,假设 XX 是程序名, A 是返回的矩阵,调用的时候,通过改变 I,J,K 的值,的确可以改变 A 的数组维度(需重新定义A)。但是,在调用的时候,首先要定义 A 的矩阵维度,当改变I,J,K 的时候,相当于又要重新定义一个矩阵A*,等价于在调用之前要定义N个不同维度的矩阵A1,A2,...,AN,即通过调用该 子例行程序 SUBROTINE   XX(A,I,J,K) ,只是起到了一个定义多个矩阵维度不同的矩阵这样一个功能,实际上数组名 A 已经发生了变化。
    我设想的是在数组名 A 不变的情况下,怎样实现改变其数组维度。
    感谢你的帮助!
好好做人,认真做事
6楼2010-09-07 22:10:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 071000生物学,一志愿深圳大学296分,求调剂 +3 TIckLw 2026-04-06 3/150 2026-04-06 23:12 by 52305043001
[考研] 考研调剂 +7 15615482637 2026-04-04 7/350 2026-04-06 22:56 by chenzhimin
[考研] 求调剂 +11 熊二想上岸 2026-04-04 11/550 2026-04-05 22:21 by 醉翁wl
[考研] 可跨专业调剂 +3 周的得地 2026-04-04 6/300 2026-04-04 22:21 by barlinike
[考研] 求生物学调剂 +14 15172915737 2026-04-01 14/700 2026-04-04 20:13 by babysonlkd
[考研] 求调剂 +6 朔朔话 2026-04-02 7/350 2026-04-04 19:16 by 蓝云思雨
[考研] 一志愿东北大学085901土木专硕345求调剂 +3 zxt11111 2026-04-04 3/150 2026-04-04 14:21 by 土木硕士招生
[考研] 土木304求调剂 +4 兔突突突, 2026-03-31 4/200 2026-04-04 13:34 by 1753564080
[考研] 22408,264求调剂 +3 ywh729 2026-04-03 4/200 2026-04-04 11:04 by ywh729
[考研] 400分求调剂 +3 尴尬且挠头 2026-04-04 3/150 2026-04-04 08:41 by jp9609
[考研] 调剂 +5 asdasdassda 2026-04-03 6/300 2026-04-03 20:27 by 岸上的一条鱼
[考研] 求调剂机会 +5 意染ivy 2026-04-03 5/250 2026-04-03 15:13 by qoooooo614
[考研] 266分,一志愿电气工程,本科材料,求材料专业调剂 +9 哇呼哼呼哼 2026-04-02 9/450 2026-04-03 12:05 by 1753564080
[考研] 一志愿深大085601材料工程专业(专硕)300分可以调剂去哪 +8 10160315 2026-04-02 8/400 2026-04-03 09:36 by hypershenger
[考研] 085900土木水利336分求调剂 +4 Zhangjiangj 2026-03-31 6/300 2026-04-02 11:40 by 1753564080
[考研] 266求调剂 +4 学员97LZgn 2026-04-02 4/200 2026-04-02 09:52 by yulian1987
[考研] 304求调剂 +12 素年祭语 2026-03-31 15/750 2026-04-01 22:41 by peike
[考研] 265求调剂 +11 yelck 2026-04-01 12/600 2026-04-01 19:12 by 549790059
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 0855机械初试280求调剂 +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
信息提示
请填处理意见