24小时热门版块排行榜    

查看: 2562  |  回复: 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的回帖

nano_xinxin

金虫 (小有名气)

不会吧,没人甩我
好好做人,认真做事
2楼2010-09-04 09:46:05
已阅   回复此楼   关注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的回帖

250748574

银虫 (正式写手)

nano_xinxin(金币+1):么得办法咯,也是希望能够得到指点一下 2010-09-06 08:39:14
谢谢发帖
4楼2010-09-05 20:22:26
已阅   回复此楼   关注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的回帖
相关版块跳转 我要订阅楼主 nano_xinxin 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 中科院材料273求调剂 +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[基金申请] 国自科面上基金字体 +5 iwuli 2026-03-12 6/300 2026-03-16 13:13 by Kamiu_MK
[考研] 311求调剂 +6 冬十三 2026-03-15 6/300 2026-03-16 08:00 by wang_dand
[考研] 机械专硕调剂 +3 笨笨兔子 2026-03-12 3/150 2026-03-15 20:02 by 栗子粥?
[考研] 22408总分284求调剂 +3 InAspic 2026-03-13 3/150 2026-03-15 11:10 by zhq0425
[考研] 070305求调剂 +3 mlpqaz03 2026-03-14 4/200 2026-03-15 11:04 by peike
[考研] 材料工程327求调剂 +3 xiaohe12w 2026-03-11 3/150 2026-03-14 20:20 by ms629
[考研] 330求调剂 +3 ?酱给调剂跪了 2026-03-13 3/150 2026-03-14 10:13 by JourneyLucky
[考研] 一志愿安徽大学材料工程专硕313分,求调剂的学校 +8 Yu先生 2026-03-10 10/500 2026-03-14 01:04 by JourneyLucky
[考研] 一志愿湖师大化学289求调剂 +6 XMCMM3.14159 2026-03-10 6/300 2026-03-14 00:28 by JourneyLucky
[考研] 材料371求调剂 +9 鳄鱼? 2026-03-11 11/550 2026-03-13 22:53 by JourneyLucky
[考研] 材料与化工304求B区调剂 +5 邱gl 2026-03-11 6/300 2026-03-13 22:37 by JourneyLucky
[考研] 315求调剂 +9 小羊小羊_ 2026-03-11 10/500 2026-03-13 21:13 by SXNU李老师
[考研] 311求调剂 +3 冬十三 2026-03-13 3/150 2026-03-13 20:41 by JourneyLucky
[考研] 求调剂 +7 18880831720 2026-03-11 7/350 2026-03-13 16:10 by JourneyLucky
[考研] 土木第一志愿276求调剂,科研和技能十分丰富,求新兴方向的导师收留 +3 土木小天才 2026-03-12 3/150 2026-03-13 15:01 by JourneyLucky
[考研] 328化工专硕求调剂 +4 。,。,。,。i 2026-03-12 4/200 2026-03-13 14:44 by JourneyLucky
[考研] 工科0856专硕化学工程269能调剂吗 +10 我想读研11 2026-03-10 10/500 2026-03-13 10:14 by Yuyi.
[考研] 298求调剂 +3 Vv呀! 2026-03-10 3/150 2026-03-10 22:40 by 剑诗杜康
[考研] 求调剂材料专硕293 +6 段_(:з」∠)_ 2026-03-10 6/300 2026-03-10 18:22 by ms629
信息提示
请填处理意见