| 查看: 483 | 回复: 2 | |||
kathy2008木虫 (正式写手)
|
[交流]
【求助】如何构建由两个一样的矩阵形成的方阵 已有2人参与
|
|
本人在构建一个128*128的方阵，由处于对角线上的两个64*64的矩阵A来构建，下面是子程序，但运行后在D0 72 I=N0+1,N0+N1 D0 73 J=N0+1,N0+N1 处报错，请高手指点。谢谢。 SUBROUTINE CONST(N0,N1,A,C0,ND) IMPLICIT REAL*8(A-H,O-Z) DIMENSION C0(ND,ND),A(ND,ND) DO 80 I=1,N0 DO 81 J=1,N0-1 C0(I,J)=A(I,J) 81 CONTINUE 80 CONTINUE DO 60 I=1,N0 DO 61 J=N0+1,N0+N1 C0(I,J)=0.0 61 CONTINUE 60 CONTINUE DO 70 I=N0+1,N0+N1 DO 71 J=1,N0 C0(I,J)=0.0 71 CONTINUE 70 CONTINUE D0 72 I=N0+1,N0+N1 D0 73 J=N0+1,N0+N1 C0(I,J)=A(I,J) 73 CONTINUE 72 CONTINUE RETURN END |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有12人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有18人回复
-
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有17人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有22人回复
-
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复
ykwang
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3171.7
- 红花: 1
- 帖子: 639
- 在线: 386.4小时
- 虫号: 500302
- 注册: 2008-02-13
- 专业: 理论和计算化学
2楼2010-12-23 14:51:28
kathy2008
木虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 2161.5
- 红花: 2
- 帖子: 328
- 在线: 213.2小时
- 虫号: 558502
- 注册: 2008-05-15
- 性别: GG
- 专业: 材料物理化学
3楼2010-12-24 14:48:55