24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2607  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +13 111623 2026-04-04 15/750 2026-04-05 19:42 by 朱成玉2017
[考研] 本科211,293分请求调剂 +8 莲菜就是藕吧 2026-04-03 9/450 2026-04-05 19:12 by 蓝云思雨
[考研] 化学0703-一志愿211-338分求调剂 +7 vants 2026-04-05 7/350 2026-04-05 18:17 by cql1109
[考研] 0854求调剂 +4 assdll 2026-04-03 4/200 2026-04-04 22:17 by hemengdong
[考研] 331求调剂 +3 niby 2026-04-02 3/150 2026-04-04 19:56 by 蓝云思雨
[考研] 一志愿C9的化学工程(085602) 340分,感觉校内调剂无望,求调剂 +9 万事宜臻 2026-04-04 9/450 2026-04-04 11:49 by 啵啵啵0119
[考研] 268求调剂 +8 你好tg 2026-04-03 9/450 2026-04-04 05:08 by gswylq
[考研] 化学调剂求助 +6 LULONG1 2026-04-03 6/300 2026-04-03 23:13 by qzxyhcsy
[考研] 考研调剂 +3 15615482637 2026-04-03 3/150 2026-04-03 22:50 by ms629
[考研] 266求调剂 +18 阳阳哇塞 2026-04-01 18/900 2026-04-03 18:38 by zllcz
[考研] 372分材料与化工(085600)一志愿湖南大学求调剂 +3 蓝笺片 2026-04-03 4/200 2026-04-03 17:58 by Jimmyandyou
[考研] 315求调剂 +6 顺理成张 2026-04-03 8/400 2026-04-03 14:04 by 百灵童888
[考研] 282求调剂 +5 呼吸都是减肥 2026-03-31 5/250 2026-04-03 12:03 by 1753564080
[考研] 338求调剂,一志愿能源动力,外语是日语203 +5 zzz,,r 2026-04-02 5/250 2026-04-03 09:45 by 蓝云思雨
[考研] 348求调剂 +11 zzzzyk123 2026-04-01 11/550 2026-04-02 16:52 by Wang200018
[考研] 318求调剂,计算材料方向 +10 吸喵有害笙命 2026-04-01 11/550 2026-04-02 16:29 by oooqiao
[考研] 272求调剂,接受跨专业调剂! +4 闲鱼卢 2026-03-31 4/200 2026-04-02 11:18 by guyan1000
[考研] 一志愿北京科技,085601总分305求调剂 +9 半生瓜! 2026-04-01 11/550 2026-04-02 08:28 by Wang200018
[考研] 340求调剂 +4 希望如此i 2026-03-31 4/200 2026-03-31 16:40 by 690616278
[考研] 福建理工大学材料学院先进合金团队招收考研调剂学生 +3 大华金商都 2026-03-30 4/200 2026-03-31 01:04 by 方英俊602
信息提示
请填处理意见