24小时热门版块排行榜    

查看: 2559  |  回复: 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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 283求调剂 +9 小楼。 2026-03-12 13/650 2026-03-16 15:08 by 加号+
[考研] 化学工程321分求调剂 +7 大米饭! 2026-03-15 7/350 2026-03-16 10:25 by 了了了了。。
[考研] 321求调剂 +4 大米饭! 2026-03-15 4/200 2026-03-16 08:41 by Linda Hu
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
[考研] 328求调剂 +3 5201314Lsy! 2026-03-13 6/300 2026-03-14 15:31 by hyswxzs
[考研] 297求调剂 +4 学海漂泊 2026-03-13 4/200 2026-03-14 11:51 by 热情沙漠
[考研] 求调剂! +4 朔朔话 2026-03-09 4/200 2026-03-14 01:38 by JourneyLucky
[考研] 一志愿安徽大学材料工程专硕313分,求调剂的学校 +8 Yu先生 2026-03-10 10/500 2026-03-14 01:04 by JourneyLucky
[考研] b区环境工程求调剂 +4 Maps1 2026-03-10 6/300 2026-03-14 00:23 by JourneyLucky
[考研] 材料专硕288分求调剂 一志愿211 +4 在家想你 2026-03-11 4/200 2026-03-13 22:49 by JourneyLucky
[考研] 材料与化工304求B区调剂 +5 邱gl 2026-03-11 6/300 2026-03-13 22:37 by JourneyLucky
[考研] 0703,333分求调剂 一志愿郑州大学-物理化学 +3 李魔女斗篷 2026-03-11 3/150 2026-03-13 22:24 by JourneyLucky
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 5/250 2026-03-13 22:06 by 星空星月
[考研] 材料工程调剂 +9 咪咪空空 2026-03-12 9/450 2026-03-13 22:05 by 星空星月
[考研] 304求调剂 +7 7712b 2026-03-13 7/350 2026-03-13 21:42 by peike
[考研] 332求调剂 +3 Zz版 2026-03-13 3/150 2026-03-13 20:36 by 18595523086
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
[考研] 0856化工原理 +6 z2839474511 2026-03-10 6/300 2026-03-13 10:41 by houyaoxu
[考研] 哈工大材料324求调剂 +6 闫旭东 2026-03-10 8/400 2026-03-10 22:49 by 星空星月
信息提示
请填处理意见