24小时热门版块排行榜    

查看: 2234  |  回复: 7
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

田山东

捐助贵宾 (著名写手)

[求助] fortran数组输出,行与列请教

do j1=1,n
         do j2=1,n
         write(2,*)j1,j2,real(H0(j1,j2)         
         enddo
         enddo
数组H0(N,N),这样输出的话,j1是行指标,j2是列指标吗?我想按照行输出,先输出第1行第j2列,然后依次输出。
回复此楼

» 猜你喜欢

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

everythinghasitsseason.enjoyyourlife.
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

引用回帖:
2楼: Originally posted by jingjingdou at 2012-12-27 14:21:34
这是do的嵌套循环,首先执行的是小循环,即:
      do j2=1,n
          write(2,*)j1,j2,real(H0(j1,j2)         
          enddo
此次循环执行完毕在执行外部循环,即:
do j1=1,n
         ……………… ...

好像matlab和fortran的读写方法有所不同,我用的fortran,matlab接触不多。在fortran里面,这个读写顺序应该就是上面那样没错。
顺一点,一点就好!
5楼2012-12-27 16:13:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

jingjingdou

银虫 (小有名气)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +1
田山东: 金币+2, ★★★很有帮助 2012-12-27 15:10:02
xzhdty: 金币+1, 谢谢参与 2012-12-27 21:17:16
这是do的嵌套循环,首先执行的是小循环,即:
      do j2=1,n
          write(2,*)j1,j2,real(H0(j1,j2)         
          enddo
此次循环执行完毕在执行外部循环,即:
do j1=1,n
         …………………………
enddo
数组H0(N,N)的输出即先输出第一行的所有元素(H0(1,j2)j2=1,…n),之后第二行(H0(2,j2),j2=1,…n),直至第n行所有元素。
楼主的程序是按照您所说的顺序输出的。
只是这个“real(H0(j1,j2) ”是不是少了个括号,还是另有其他含义?
顺一点,一点就好!
2楼2012-12-27 14:21:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

田山东

捐助贵宾 (著名写手)

引用回帖:
2楼: Originally posted by jingjingdou at 2012-12-27 14:21:34
这是do的嵌套循环,首先执行的是小循环,即:
      do j2=1,n
          write(2,*)j1,j2,real(H0(j1,j2)         
          enddo
此次循环执行完毕在执行外部循环,即:
do j1=1,n
         ……………… ...

我复制的时候漏掉一个),谢谢。我感觉好像不对啊。同一个矩阵,我用matlab输出和用上面的方法输出得到的结果恰好厄米。也就是说,
H(1,2)是第一列第二行了。
很奇怪,很纠结!!
everythinghasitsseason.enjoyyourlife.
3楼2012-12-27 15:11:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

田山东

捐助贵宾 (著名写手)

多谢,刚刚仔细检查了一下,我错了。你说的是对的。
everythinghasitsseason.enjoyyourlife.
4楼2012-12-27 15:14:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 15/750 2026-09-01 12:23 by icm639
[基金申请] 为什么资助数各大高校都创新高,自己申请怎么就这么难 +13 Kittylucky 2026-08-27 14/700 2026-09-01 11:06 by feng6531
[基金申请] 麻烦专家们看看评委们的意见(F口面上) +7 gdd2018 2026-08-28 12/600 2026-09-01 08:32 by 尼古拉斯小虫
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 基金未中,这种答复是模板吗? +6 zhaosm1982 2026-08-27 7/350 2026-08-31 21:18 by qdxxmc
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 看板上这么多中的,有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
信息提示
请填处理意见