24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1229  |  回复: 8
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

panjunxing

木虫 (著名写手)

小学生

[交流] 【求助】【紧急求助】数组调用问题【已解决】 已有1人参与

请教各位高手:FORTRAN中,如何将子程序计算所得的数组值以及这个值的具体位置在主程序调用中输出?我现在可以输出数组的具体值,但是输不出位置来,如果方便,可否举一个具体的例子?在下很着急!多谢各位!

具体如下:
设数组REAL,DEMENSION(1:10,1:10)::A
子程序通过一系列计算得到A(10,10)的所有值
主程序输出A值以及每一个值的位置

[ Last edited by 余泽成 on 2010-7-22 at 08:49 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

人生旅途,可以休息,但别忘记奔跑
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhoulon

至尊木虫 (著名写手)


panjunxing(金币+1,VIP+0):谢谢参与! 8-24 12:18
引用回帖:
Originally posted by liranchina at 2009-8-23 08:34:
do i=1,10;do j=1,10
write(*,*)i,j,a(i,j)
end do;end do
可以输出位置以及数值大小

正解
7楼2009-08-23 17:15:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

mystar

金虫 (文坛精英)


panjunxing(金币+1,VIP+0):不明白,可否再详细一些 ?REAL,DEMENSION(1:10,1:10)::A这样的数组,主程序里面怎么输出i,j的值?子程序里面有I,J的循环,但是主程序里面没有啊! 8-22 14:31
数组中的位置?

a(i,j)
do j=1,10
do i=1,10
不要使自己麻木于制度化当中,而抛弃了从前的美好事物和希望。
2楼2009-08-22 14:11:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mystar

金虫 (文坛精英)


wangen994(金币+1,VIP+0):感谢参与讨论,你的头像很漂亮 8-22 21:24
a(i,j) j=1,10, i=1,10
不要使自己麻木于制度化当中,而抛弃了从前的美好事物和希望。
3楼2009-08-22 14:12:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

★ ★
wangen994(金币+1,VIP+0):感谢参与讨论,常来啊,呵呵 8-22 21:24
panjunxing(金币+1,VIP+0):问题已解决,谢谢指点! 8-24 12:15
引用回帖:
Originally posted by panjunxing at 2009-8-22 12:55:
请教各位高手:FORTRAN中,如何将子程序计算所得的数组值以及这个值的具体位置在主程序调用中输出?我现在可以输出数组的具体值,但是输不出位置来,如果方便,可否举一个具体的例子?在下很着急!多谢各位!

...

看不懂你所说的……

你的意思是,你在主程序中可以看到 A(10,10) 中的每个数值?然后,你需要每个数值,以及每个数值对应的 i, j?

你直接写个循环就好了,每输出一个数值,顺便把它的 i, j 也输出就可以了啊……

与子程序有什么关系呢?
4楼2009-08-22 16:20:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿北京理工大学本科211材料工程294求调剂 +8 mikasa的围巾 2026-03-28 8/400 2026-03-29 12:48 by 无际的草原
[硕博家园] 招收生物学/细胞生物学调剂 +4 IceGuo 2026-03-26 5/250 2026-03-29 01:25 by griffith2014
[考研] 083000学硕274求调剂 +8 Li李鱼 2026-03-26 8/400 2026-03-28 20:33 by 加油向未来啊
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
[考研] 277跪求调剂 +5 1915668 2026-03-27 9/450 2026-03-28 09:58 by zhshch
[考研] 0703化学/290求调剂/本科经历丰富/工科也可 +9 丹青奶盖 2026-03-26 10/500 2026-03-28 07:45 by barnett0632
[考研] 085404求调剂,总分309,本科经历较为丰富 +4 来财aa 2026-03-25 4/200 2026-03-28 07:41 by 棒棒球手
[考研] 张芳铭-中国农业大学-环境工程专硕-298 +4 手机用户 2026-03-26 4/200 2026-03-28 07:17 by mmm just
[考研] 材料求调剂 一志愿哈工大总分298分,前三科223分 +5 dongfang59 2026-03-27 5/250 2026-03-28 04:53 by wxiongid
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 化学308分求调剂 +8 你好明天你好 2026-03-23 9/450 2026-03-27 14:01 by 杨光于青云
[考研] 一志愿211,335分,0856,求调剂院校和导师 +4 倾____萧 2026-03-27 5/250 2026-03-27 11:52 by zhshch
[考研] 材料求调剂 +5 .m.. 2026-03-25 5/250 2026-03-27 11:08 by 不吃魚的貓
[考研] 求调剂 +6 林之夕 2026-03-24 6/300 2026-03-27 08:38 by hypershenger
[考研] 调剂 +4 柚柚yoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[考研] 【双一流院校新能源、环境材料,材料加工与模拟招收大量调剂】 +4 Higraduate 2026-03-22 8/400 2026-03-26 20:34 by Higraduate
[考研] 各位老师您好:本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 材料考研调剂生 +3 黄粱一梦千年 2026-03-24 3/150 2026-03-24 17:00 by barlinike
[考研] 269求调剂 +4 我想读研11 2026-03-23 4/200 2026-03-23 21:25 by pswait
信息提示
请填处理意见