| 查看: 1235 | 回复: 3 | ||
[求助]
操蛋！形参实参调用怎么就是不正确呢？感觉是对的，怎么做都错！！！！
|
|
各位大侠，大家好！ 我有个程序，里面有两个子程序，一个子程序用来产生矩阵H00,H10，另一个矩阵用来调用它们，为什么调用的时候会出错呢？ PROGRAM MAIN IMPLICIT REAL*8(A-H,O-Z) character fname*15 PARAMETER (N=34,t=2.8) COMPLEX*16 H00(N,N),H10(N,N),H01(N,N),H12(N,N),H21(N,N) OPEN(UNIT=1,STATUS='unknown',FILE='biaomian1.DAT') CALL GMATRIX(T,N,H00,H10,H12) H00=H00 H10=H10 H12=H12 DO IA=1,N DO IB=1,N WRITE(1,*) IA,IB,REAL(H10(IA,IB)) ENDDO ENDDO CALL CESHI(N,H00,H10) END subroutine GMATRIX(T,N,H00,H10,H12) implicit real*8(a-h,o-z) complex*16 i,H00(N,N),H10(N,N),H12(N,N) H00=0.0D0 H10=0.0D0 H12=0.0D0 do J=1,N-1 H00(J,J+1)=-t H00(J+1,J)=-t enddo do j=1,N if(mod(j,2)==1) then H10(j,j)=-t endif enddo do j=1,N if(mod(j,2)==0) then H12(j,j)=-t endif enddo RETURN end subroutine CESHI(M,H00,H10) implicit real*8(a-h,o-z) complex*16 H00(m,m),H10(M,M) OPEN(UNIT=2,STATUS='unknown',FILE='JJJ1.DAT') DO IA=1,M DO IB=1,M WRITE(2,*) IA,IB,REAL(H10(IA,IA)) ENDDO ENDDO return END 好郁闷啊！！就几行字，就是检查不出来哪里的问题！！ 草了！！ 谁能帮我看下啊？我是没招了！！ 操蛋，搞了一晚上也没看到到底哪里的问题！！！ [ 来自科研家族 骷髅党 ] |
回复此楼» 猜你喜欢
308求调剂
已经有4人回复
-
NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗
已经有14人回复
-
材料与化工一志愿南昌大学327求调剂推荐
已经有6人回复
-
化学调剂0703
已经有7人回复
-
327求调剂
已经有11人回复
-
调剂
已经有8人回复
-
梁成伟老师课题组欢迎你的加入
已经有7人回复
-
伙伴们，祝我生日快乐吧
已经有24人回复
-
中科院材料273求调剂
已经有3人回复
-
材料工程专硕274一志愿211求调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 数二 全书的封面张什么样，我感觉买错了
已经有11人回复
- 实验操作步骤
已经有1人回复
- 求高人指点gas-phase grafting与气相沉积有什么区别？如何操作？
已经有3人回复
- 在NCBI中查到一个基因怎么看操纵子和启动子区域？
已经有20人回复
- SDS-PAGE和PAGE的区别（SDS-PAGE测出来的一定就是蛋白质相对分子质量？）
已经有17人回复
- 糖蛋白---分子动力学模拟
已经有4人回复
- 求超低分子量蛋白SDS-PAGE测定方法
已经有6人回复
- 气相仪器操作过程中 基线一直升高 怎么办才好？
已经有4人回复
- RP-C18柱层析（反相填料柱层析）具体怎么样操作啊
已经有11人回复
- 【讨论】感觉做做有机化学很累！
已经有24人回复
- 瘦身健美操（已近全部上传完毕，喜欢的虫虫快去下载吧）
已经有149人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-06-10 22:03:28
3楼2012-06-11 09:02:48
4楼2012-06-11 09:33:38
20