| 查看: 1551 | 回复: 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 好郁闷啊！！就几行字，就是检查不出来哪里的问题！！ 草了！！ 谁能帮我看下啊？我是没招了！！ 操蛋，搞了一晚上也没看到到底哪里的问题！！！ [ 来自科研家族 骷髅党 ] |
回复此楼» 猜你喜欢
澳大利亚 Murdoch University 全奖博士招生（3个名额）地质化工冶金领域
已经有44人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有29人回复
-
关于Filecode分析方法
已经有12人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有11人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有10人回复
-
阿姨
已经有4人回复
-
一作与独作在应聘高校教师时区别大吗
已经有4人回复
-
静等基金结果
已经有21人回复
-
FileCode能看出啥？
已经有28人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 数二 全书的封面张什么样，我感觉买错了
已经有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
