| 查看: 2977 | 回复: 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 ] |
回复此楼» 猜你喜欢
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有72人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
-
招聘 金属平磨液，抛光液研发工程师
已经有3人回复
-
时间戳又变了8-15
已经有23人回复
-
filecode=后面第一个是大写字母
已经有7人回复
-
filecode
已经有12人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有13人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
nano_xinxin
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 919.1
- 散金: 311
- 红花: 1
- 帖子: 189
- 在线: 33小时
- 虫号: 927575
- 注册: 2009-12-14
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2010-09-04 09:46:05
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
3楼2010-09-04 11:14:23
4楼2010-09-05 20:22:26
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
