| 查看: 423 | 回复: 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 |
回复此楼» 猜你喜欢
070305高分子化学与物理 304分求调剂
已经有16人回复
-
esi高被引论文是不是能对中标有所加分和帮助呢
已经有5人回复
-
调剂求助
已经有8人回复
-
315分 085602 求调剂
已经有10人回复
-
求调剂，一志愿郑州大学材料与化工专硕，英二数二342分，求老师收留
已经有7人回复
-
302求调剂
已经有6人回复
-
一志愿北京科技大学材料工程085601，求调剂
已经有6人回复
-
材料与化工306分找调剂
已经有15人回复
-
070300化学求调剂
已经有9人回复
-
一志愿深大085601材料工程专业（专硕）300分可以调剂去哪
已经有3人回复
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
