| 查看: 408 | 回复: 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 |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有7人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
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