| 查看: 3153 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有5人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有6人回复
-
延安大学回应“副教授留绝笔信”：确已离世，正核实举报内容
已经有5人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有23人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Matlab的熟练用户或者大神看过来，两个随机变量存在相互关系的简单问题。重金求助！
已经有1人回复
- 【求助】matlab带有变量的矩阵求导
已经有4人回复
- 【交流/求助】第一次发帖，请教蓝白筛选后质粒回收的问题
已经有0人回复
- 【求助】一道算法题目
已经有6人回复
- 【求助成功】murn.f用ifort编译完运行时不能正确执行
已经有2人回复
- 【求助】一个求积分的fortran程序，请高手指点（还是在物理区问好些）
已经有4人回复
- 【求助】溶胶凝胶法制备TiO2，粒径太大，求牛人指点
已经有3人回复
- 【求助/交流】种子液中出现晶体，求指点
已经有3人回复
- 【求助】癸酰乙醛能用HPLC分析吗
已经有0人回复
- 硕博家园求助汇总贴（发求助贴的可PM版主）
已经有1人回复
- 【求助】关于拟合得到体弹性模量&自旋极化&LDA+U等问题，望大家指点指点
已经有4人回复
- 【求助】太阳能极限效率计算程序中的积分运算
已经有0人回复
- 【求助】求短日照处理在林木育苗及草坪草方面的文章
已经有1人回复
- 【求助】关于共形映射的问题，不甚感激！
已经有12人回复
- 【求助】高人能给指点下不？【已解决】
已经有3人回复
- 【分享】羊皮卷国语语音，疗伤心灵的神药【已搜索无重复】
已经有2人回复
- 【求助】请问下面MATLAB程序哪儿不对呢
已经有9人回复
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
3楼2010-09-04 11:14:23
nano_xinxin
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 919.1
- 散金: 311
- 红花: 1
- 帖子: 189
- 在线: 33小时
- 虫号: 927575
- 注册: 2009-12-14
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2010-09-04 09:46:05
liubin1984
木虫 (著名写手)
不纠结的男人
- 应助: 1 (幼儿园)
- 金币: 2635.1
- 散金: 827
- 红花: 3
- 帖子: 2874
- 在线: 447小时
- 虫号: 627659
- 注册: 2008-10-16
- 性别: GG
- 专业: 粉末冶金与粉体工程
5楼2010-09-07 17:53:25
nano_xinxin
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 919.1
- 散金: 311
- 红花: 1
- 帖子: 189
- 在线: 33小时
- 虫号: 927575
- 注册: 2009-12-14
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
|
谢谢你！ 我仔细思考了一下，用子例行程序 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
