| 查看: 789 | 回复: 21 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【讨论】数组定义的问题
|
|||
|
比如 SUBROUTINE GETTRN REAL FRICTH(1),FRICTB(1) 意思是定义两个数组？ 数组长度为1 的时候，是不是可调数组？ |
回复此楼» 猜你喜欢
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有7人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
18楼2009-06-20 15:21:02
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
★ ★ ★ ★ ★ ★
rjjy(金币+1,VIP+0):谢谢交流！ 6-17 23:07
calf5983(金币+3,VIP+0):非常感谢 6-18 08:19
woshilsh(金币+2,VIP+0):thanks 6-18 19:19
rjjy(金币+1,VIP+0):谢谢交流！ 6-17 23:07
calf5983(金币+3,VIP+0):非常感谢 6-18 08:19
woshilsh(金币+2,VIP+0):thanks 6-18 19:19
|
看你用的是哪个编译器了，呵呵。 一般的CVF，如果主程序传递给子程序该数组的话，该数组时可调的，否则将报错。 不过Gfortran下编译时可以调节的，建议你测试下下面的这个程序，就明白了。 IMPLICIT REAL*8(A-H,O-Z) DIMENSION A(10) CALL SUB( A) call subb() END SUBROUTINE SUB(B ) IMPLICIT REAL*8(A-H,O-Z) DIMENSION B(1) DO I=1,10 WRITE(*,*) B(I) ENDDO RETURN END SUBROUTINE SUBb() IMPLICIT REAL*8(A-H,O-Z) DIMENSION Bc(1) DO I=1,10 WRITE(*,*) Bc(I) ENDDO RETURN END |
2楼2009-06-17 22:03:18
sitonyl
铁杆木虫 (文坛精英)
- 应助: 33 (小学生)
- 金币: 12935.9
- 红花: 3
- 帖子: 10448
- 在线: 338.8小时
- 虫号: 722261
- 注册: 2009-03-14
- 性别: GG
- 专业: 导航、制导与传感技术
3楼2009-06-18 01:11:25
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2009-06-18 13:54:54