| 查看: 436 | 回复: 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 |
回复此楼» 猜你喜欢
论文撤稿了
已经有8人回复
-
博士申请
已经有7人回复
-
青B发送上会通知了吗
已经有8人回复
-
化学专业申博
已经有4人回复
-
评审有感
已经有27人回复
-
河北省自然科学基金
已经有9人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有5人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
-
26/27申博自荐
已经有9人回复
-
博士申请
已经有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