24小时热门版块排行榜    

查看: 2237  |  回复: 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

银虫 (小有名气)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +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的回帖

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的回帖

田山东

捐助贵宾 (著名写手)

引用回帖:
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
         ……………… ...

我有个程序,里面要用到调用矩阵求逆的子函数,

call ZGETRF( N, N, TA, N, IPIV, INFO )
call ZGETRI( N, TA, N, IPIV, WORK, N, INFO )
linux下,装的interfortran,

/opt/intel/mkl/lib/intel64

这是intel64所在的目录,如果我想调用这两个库函数,该在后面加哪个命令呢?我打开这个目录看了,里面有好多,不知道该用哪个啊,是不是如果知道用哪个的话这样就可以了啊?

gfortran 222bylag.f –L/opt/intel/mkl/lib/intel64  -llibmkl_avx.so.......

  

libmkl_avx2.so                  libmkl_intel_lp64.so
libmkl_avx.so                   libmkl_intel_sp2dp.a
libmkl_blacs_ilp64.a            libmkl_intel_sp2dp.so
libmkl_blacs_intelmpi_ilp64.a   libmkl_intel_thread.a
libmkl_blacs_intelmpi_ilp64.so  libmkl_intel_thread.so
libmkl_blacs_intelmpi_lp64.a    libmkl_lapack95_ilp64.a
libmkl_blacs_intelmpi_lp64.so   libmkl_lapack95_lp64.a
libmkl_blacs_lp64.a             libmkl_mc3.so
libmkl_blacs_openmpi_ilp64.a    libmkl_mc.so
libmkl_blacs_openmpi_lp64.a     libmkl_p4n.so
libmkl_blacs_sgimpt_ilp64.a     libmkl_pgi_thread.a
libmkl_blacs_sgimpt_lp64.a      libmkl_pgi_thread.so
libmkl_blas95_ilp64.a           libmkl_rt.so
libmkl_blas95_lp64.a            libmkl_scalapack_ilp64.a
libmkl_cdft_core.a              libmkl_scalapack_ilp64.so
libmkl_cdft_core.so             libmkl_scalapack_lp64.a
libmkl_core.a                   libmkl_scalapack_lp64.so
libmkl_core.so                  libmkl_sequential.a
libmkl_def.so                   libmkl_sequential.so
libmkl_gf_ilp64.a               libmkl_vml_avx2.so
libmkl_gf_ilp64.so              libmkl_vml_avx.so
libmkl_gf_lp64.a                libmkl_vml_cmpt.so
libmkl_gf_lp64.so               libmkl_vml_def.so
libmkl_gnu_thread.a             libmkl_vml_mc2.so
libmkl_gnu_thread.so            libmkl_vml_mc3.so
libmkl_intel_ilp64.a            libmkl_vml_mc.so
libmkl_intel_ilp64.so           libmkl_vml_p4n.so
libmkl_intel_lp64.a             locale
everythinghasitsseason.enjoyyourlife.
6楼2012-12-27 21:09:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

引用回帖:
6楼: Originally posted by 田山东 at 2012-12-27 21:09:39
我有个程序,里面要用到调用矩阵求逆的子函数,

call ZGETRF( N, N, TA, N, IPIV, INFO )
call ZGETRI( N, TA, N, IPIV, WORK, N, INFO )
linux下,装的interfortran,

/opt/intel/mkl/lib/intel64
...

实话说,我不大懂你所阐述的内容,我只是在windows下用的fortran语言,刚在百度里看了下,好复杂,看不懂。只copy了一个相关的内容:
http://zhidao.baidu.com/question/189009859.html
不晓得有没有用,
顺一点,一点就好!
7楼2012-12-28 09:05:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lastfreedom

木虫 (小有名气)

引用回帖:
6楼: Originally posted by 田山东 at 2012-12-27 21:09:39
我有个程序,里面要用到调用矩阵求逆的子函数,

call ZGETRF( N, N, TA, N, IPIV, INFO )
call ZGETRI( N, TA, N, IPIV, WORK, N, INFO )
linux下,装的interfortran,

/opt/intel/mkl/lib/intel64
...

楼主去这看看,很详细,或者看手册也行
http://software.intel.com/sites/products/mkl/
8楼2012-12-28 14:07:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 田山东 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 梦想 +5 myrtle 2026-08-26 8/400 2026-09-02 02:42 by Leogzhya
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-09-02 00:19 by xiangy672
[基金申请] 面上合作单位盖章 +6 ssyjh 2026-08-27 9/450 2026-09-01 20:01 by huagongfeihu
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 17/850 2026-09-01 19:51 by 超级无敌华子
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +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
信息提示
请填处理意见