| 查看: 1189 | 回复: 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 好郁闷啊！！就几行字，就是检查不出来哪里的问题！！ 草了！！ 谁能帮我看下啊？我是没招了！！ 操蛋，搞了一晚上也没看到到底哪里的问题！！！ [ 来自科研家族 骷髅党 ] |
回复此楼» 猜你喜欢
谈谈两天一夜的“延安行”
已经有15人回复
-
EST投稿状态问题
已经有6人回复
-
职称评审没过，求安慰
已经有15人回复
-
垃圾破二本职称评审标准
已经有11人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有16人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
聘U V热熔胶研究人员
已经有10人回复
-
求助文献
已经有3人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
-
三无产品还有机会吗
已经有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
- 专业: 污染生态化学
【答案】应助回帖
★ ★ ★
感谢参与，应助指数 +1
田山东: 金币+2, ★★★很有帮助 2012-06-11 09:03:07
田山东: 金币+1, 能否帮忙看下？谢谢啊 2012-06-11 09:03:21
感谢参与，应助指数 +1
田山东: 金币+2, ★★★很有帮助 2012-06-11 09:03:07
田山东: 金币+1, 能否帮忙看下？谢谢啊 2012-06-11 09:03:21