应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 操蛋！形参实参调用怎么就是不正确呢？感觉是对的，怎么做都错！！！！
41/1返回列表
查看: 1279  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

田山东

捐助贵宾 (著名写手)

[求助] 操蛋！形参实参调用怎么就是不正确呢？感觉是对的，怎么做都错！！！！

各位大侠，大家好！
我有个程序，里面有两个子程序，一个子程序用来产生矩阵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
      好郁闷啊！！就几行字，就是检查不出来哪里的问题！！
草了！！
      谁能帮我看下啊？我是没招了！！
操蛋，搞了一晚上也没看到到底哪里的问题！！！

[ 来自科研家族 骷髅党 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
everythinghasitsseason.enjoyyourlife.
1楼 2012-06-10 21:36:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★
感谢参与，应助指数 +1
田山东: 金币+2, ★★★很有帮助 2012-06-11 09:03:07
田山东: 金币+1, 能否帮忙看下？谢谢啊 2012-06-11 09:03:21
出错了，总得写个出错信息吧？
要让别人帮你查错，总得给个输入文件吧？

你的主程序中的
      H00=H00
      H10=H10
      H12=H12
没有必要啊
赞一下(1人) 回复此楼
2楼2012-06-10 22:03:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

田山东

捐助贵宾 (著名写手)
引用回帖:
2楼: Originally posted by snoopyzhao at 2012-06-10 22:03:28
出错了，总得写个出错信息吧？
要让别人帮你查错，总得给个输入文件吧？

你的主程序中的
      H00=H00
      H10=H10
      H12=H12
没有必要啊

谢谢关注！
是这样的：子程序GMATRIX(T,N,H00,H10,H12)
定义了几个数组，然后把数组H000，H10调入到子程序CESHI(M,H00,H10)，文件1 'biaomian1.DAT' 从外部写H10，文件2，从子程序里把H10写入到文件里，本来应该得到两个相同的数组，但是现在数组不同了。
一直没看出来错在哪里
期待您的帮忙。谢谢啊
赞一下 回复此楼
everythinghasitsseason.enjoyyourlife.
3楼2012-06-11 09:02:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

田山东

捐助贵宾 (著名写手)
引用回帖:
2楼: Originally posted by snoopyzhao at 2012-06-10 22:03:28
出错了，总得写个出错信息吧？
要让别人帮你查错，总得给个输入文件吧？

你的主程序中的
      H00=H00
      H10=H10
      H12=H12
没有必要啊

找到问题了
    DO IA=1,M
      DO IB=1,M
      WRITE(2,*) IA,IB,REAL(H10(IA,IA))
      ENDDO
      ENDDO

写错了  REAL(H10(IA,IB))
赞一下 回复此楼
everythinghasitsseason.enjoyyourlife.
4楼2012-06-11 09:33:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 田山东 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 26年申博自荐-计算机视觉 20+3 光亮我自己 2026-05-01 4/200 2026-05-03 09:01 by lfy8008
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 3/150 2026-05-03 06:04 by jmr1kibhvw
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 3/150 2026-05-03 05:07 by jmr1kibhvw
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 4/200 2026-05-03 05:04 by jmr1kibhvw
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 4/200 2026-05-03 04:34 by w5idbsc3mz
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 4/200 2026-05-03 04:19 by w5idbsc3mz
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 4/200 2026-05-03 03:51 by w5idbsc3mz
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 4/200 2026-05-03 03:04 by w5idbsc3mz
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 4/200 2026-05-03 02:36 by w5idbsc3mz
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 k17zww5nna 2026-05-01 5/250 2026-05-03 02:04 by w5idbsc3mz
[考博] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 4/200 2026-05-03 01:34 by w5idbsc3mz
[考博] 考博 +4 Eternitf 2026-04-29 4/200 2026-05-02 16:10 by yejenny
[教师之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 15:36 by zahslv263y
[博后之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 qs8kylt1wr 2026-05-01 3/150 2026-05-02 15:06 by zahslv263y
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 d8tbypao1q 2026-05-01 3/150 2026-05-02 14:21 by zahslv263y
[教师之家] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 3/150 2026-05-02 09:36 by dz7y1p1i98
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k17zww5nna 2026-05-01 5/250 2026-05-02 09:21 by dz7y1p1i98
[论文投稿] 一篇MDPI论文改变了学习工作和生活 +3 helsinglee 2026-04-29 4/200 2026-05-01 11:45 by bobvan
[有机交流] 一个化合物的合成路线：CAS:367929-02-0 名称：8β-乙烯基雌二醇 50+4 zhquanbing 2026-04-28 4/200 2026-04-30 22:45 by zyqchem
[基金申请] 收到国自然专家邀请后几年才会有本子送过来评 +3 barley5 2026-04-30 3/150 2026-04-30 14:58 by aspect3000
信息提示
关闭
请填处理意见
关闭