| 查看: 1531 | 回复: 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 好郁闷啊！！就几行字，就是检查不出来哪里的问题！！ 草了！！ 谁能帮我看下啊？我是没招了！！ 操蛋，搞了一晚上也没看到到底哪里的问题！！！ [ 来自科研家族 骷髅党 ] |
回复此楼» 猜你喜欢
关于代码变化问题，想知道的进来
已经有10人回复
-
基金中了
已经有13人回复
-
关于filecode
已经有6人回复
-
固定端突然变了，今天
已经有10人回复
-
听说今天filecode变了
已经有47人回复
-
filecode与中标关系的预测
已经有3人回复
-
filecode变化情况
已经有22人回复
-
十年后又回来了，论文投稿求助
已经有4人回复
-
大家散了吧，后缀研究没有意义，别浪费时间了，过好目前的每一天，不要焦虑
已经有7人回复
-
关于豆爷回答的JTJC与%2F数量
已经有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
20