24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1792  |  回复: 2

kathy2008

木虫 (正式写手)

[交流] 【求助】求转置矩阵却得到与原矩阵一样的矩阵【已完结】 已有2人参与

求转置矩阵那一部分的子程序是
*       TRANSPOSE THE MATRIX C0
*
        SUBROUTINE TRANS(N,C0,ND)
        IMPLICIT REAL*8(A-H,O-Z)
        DIMENSION C0(ND,ND)
        DOUBLE PRECISION T
*         
*
          DO 28 I=1,N
           DO 29 J=1,N
            T=C0(I,J)
            C0(I,J)=C0(J,I)
            C0(J,I)=T         
   29     CONTINUE
   28    CONTINUE
         RETURN
         END

难道有问题?请高手指点。

[ Last edited by nono2009 on 2010-11-27 at 09:19 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+2):鼓励应助 2010-11-25 07:27:34
你换了两次,源程序应该修改为:




把第二重循环终端控制参数 N 修改为 I  即可。

[ Last edited by maomao1210 on 2010-11-22 at 14:53 ]
2楼2010-11-22 14:50:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kathy2008

木虫 (正式写手)

非常感谢你的解答。

引用回帖:
Originally posted by maomao1210 at 2010-11-22 14:50:36:
你换了两次,源程序应该修改为:




把第二重循环终端控制参数 N 修改为 I  即可。

[ Last edited by maomao1210 on 2010-11-22 at 14:53 ...

非常感谢你的解答。
3楼2010-11-25 13:02:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 kathy2008 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂 +8 不逢春 2026-04-05 9/450 2026-04-06 10:43 by lqwchd
[考研] 材料与化工专硕306分找合适调剂 +6 沧海轻舟e 2026-04-06 6/300 2026-04-06 10:02 by lqwchd
[考研] 324求调剂 +3 k可乐 2026-04-05 4/200 2026-04-06 09:54 by 蓝云思雨
[考研] 086000生物与医药求调剂 +3 老天眷顾之人 2026-03-31 3/150 2026-04-05 22:24 by syh9288
[考研] 272分求调剂 +4 wangyile2233 2026-04-02 4/200 2026-04-05 22:21 by 286640313
[考研] 296求调剂 +3 汪!?! 2026-04-05 4/200 2026-04-05 20:13 by 啵啵啵0119
[考研] 288环境专硕,求调材料方向 +13 lllllos 2026-04-04 14/700 2026-04-04 23:34 by lqwchd
[考研] 302求调剂一志愿华中师范大学 +8 小江小江江江 2026-04-02 8/400 2026-04-04 19:50 by 蓝云思雨
[考研] 求调剂 +6 朔朔话 2026-04-02 7/350 2026-04-04 19:16 by 蓝云思雨
[考研] 考研调剂 +3 Draa 2026-04-03 3/150 2026-04-03 17:37 by hgwz7468
[考研] 生物学硕341求调剂 +4 你笑起来像云朵 2026-04-03 4/200 2026-04-03 10:32 by macy2011
[考研] 085600,320分求调剂 +6 大馋小子 2026-04-02 6/300 2026-04-02 21:54 by dongzh2009
[考研] 一志愿武汉理工0856,初试334 +3 26考研材料 2026-04-02 3/150 2026-04-02 21:22 by dongzh2009
[考研] 土木304求调剂 +4 兔突突突, 2026-04-02 5/250 2026-04-02 21:16 by 兔突突突,
[考研] 260求调剂 +6 朱芷琳 2026-04-02 6/300 2026-04-02 20:27 by 6781022
[考研] 求调剂推荐 +3 南山南@ 2026-04-01 3/150 2026-04-02 12:09 by xiaoranmu
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 一志愿346上海大学生物学 +3 上海大学346调剂 2026-04-01 3/150 2026-04-02 08:36 by w虫虫123
[考研] 英一数一总分334求调剂 +4 陈阳坤 2026-03-31 4/200 2026-03-31 14:22 by 记事本2026
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
信息提示
请填处理意见