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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个程序小问题，谢谢
51/1返回列表
查看: 918  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lijunjiexm

铁虫 (小有名气)

[求助] 请教一个程序小问题，谢谢

程序如下：

PROGRAM PROCESS3

C *** Program to draw velocity profiles.
C
      IMPLICIT     NONE
      INTEGER*4    ITIME, I, II, NUMNP, NTIME, COUNTER, IDUM, IDUM1
      INTEGER*4    WAIT
      PARAMETER   (NUMNP = 17, NTIME = 10)
      REAL*4       STORE1, STORE2, VX(21), VY(21), DUM1
      REAL*4       XNODE(NUMNP), YNODE(NUMNP)
C
      OPEN (10, FILE = 'ns2dev.ve2')
      OPEN (11, FILE = 'mesh.dat')
      OPEN (12, FILE = 'vprof.dat')
c
c read nodes
c
      READ(11,*,END=300) IDUM, DUM1
      DO I = 1 , NUMNP
        READ(11, *, END = 300) IDUM, XNODE(I), YNODE(I)
      ENDDO
c
c read velocity field
c
      WAIT = 4
      READ(10,*,END=300) IDUM, DUM1
      DO ITIME = 1 , NTIME
        READ(10,*,END=300) IDUM, DUM1
        IF (ITIME .GT. WAIT) COUNTER = COUNTER + 1
        DO I = 1 , NUMNP
          READ(10, *, END=300) IDUM, STORE1, STORE2  
          IF (ITIME .GT. WAIT) THEN
            IF ((I .GE. 7) .AND. (I .LE. 17)) THEN
              VX(I - 7 + 1) = VX(I - 7 + 1) + STORE1
              VY(I - 7 + 1) = VY(I - 7 + 1) + STORE2
            ENDIF
          ENDIF
        ENDDO
      ENDDO
300  CONTINUE
      DO II = 1 , 11
        VX(II) = VX(II) / COUNTER
        VY(II) = VY(II) / COUNTER
        WRITE (12, 1001) YNODE(II), VX(II), VY(II),' y vx vy'
1001   FORMAT (3(E14.5),A)
      ENDDO     
      STOP
      END

为什么counter的数值在debug过程一直是零？ Parameter的用法有问题吗？
附：ns2dev.ve2文件：
2047        5000  numnp , itmax
           0  0.000000000000000E+000  it , time
   1      0.00000E+00   0.00000E+00   node , vx , vy
    2      0.00000E+00   0.00000E+00   node , vx , vy
    3      0.00000E+00   0.00000E+00   node , vx , vy
    4      0.00000E+00   0.00000E+00   node , vx , vy
    5      0.00000E+00   0.00000E+00   node , vx , vy
    6      0.00000E+00   0.00000E+00   node , vx , vy
    7      0.00000E+00   0.00000E+00   node , vx , vy
    8      0.00000E+00   0.00000E+00   node , vx , vy
    9      0.00000E+00   0.00000E+00   node , vx , vy
   10      0.00000E+00   0.00000E+00   node , vx , vy
   11      0.00000E+00   0.00000E+00   node , vx , vy
   12      0.00000E+00   0.00000E+00   node , vx , vy
   13      0.00000E+00   0.00000E+00   node , vx , vy
   14      0.00000E+00   0.00000E+00   node , vx , vy
   15      0.00000E+00   0.00000E+00   node , vx , vy
   16      0.00000E+00   0.00000E+00   node , vx , vy
   17      0.00000E+00   0.00000E+00   node , vx , vy

mesh.dat
17        11  numnp , numel
    1      0.00000E+00   0.00000E+00   1   node, x , y , ref. num.
    2      0.00000E+00   0.35803E-03   1   node, x , y , ref. num.
    3      0.00000E+00   0.70174E-03   1   node, x , y , ref. num.
    4      0.00000E+00   0.10317E-02   1   node, x , y , ref. num.
    5      0.00000E+00   0.13485E-02   1   node, x , y , ref. num.
    6      0.00000E+00   0.16526E-02   1   node, x , y , ref. num.
    7      0.00000E+00   0.19445E-02   1   node, x , y , ref. num.
    8      0.00000E+00   0.22247E-02   1   node, x , y , ref. num.
    9      0.00000E+00   0.24938E-02   1   node, x , y , ref. num.
   10      0.00000E+00   0.27521E-02   1   node, x , y , ref. num.
   11      0.00000E+00   0.30000E-02   1   node, x , y , ref. num.

[ Last edited by lijunjiexm on 2011-11-13 at 11:03 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-11-13 10:44:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zcius

至尊木虫 (知名作家)

【答案】应助回帖

★
余泽成(金币+1): 谢谢参与应助！ 2011-11-13 21:39:53
COUNTER 没有赋初值能行吗？
做除法前不做判断？
赞一下(1人) 回复此楼
2楼2011-11-13 11:05:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)
ns2dev.ve2文件若改为：
2047        5000  numnp , itmax
           0  0.000000000000000E+000  it , time
  1      0.10296E+12  -0.13594E+10   node , vx , vy
   2      0.14944E+11  -0.13925E+10   node , vx , vy
   3      0.70706E+11  -0.29397E+09   node , vx , vy
   4      0.77626E+11   0.58172E+09   node , vx , vy
   5      0.62009E+11   0.70982E+09   node , vx , vy
   6      0.00000E+00   0.00000E+00   node , vx , vy
   7     -0.55675E+11   0.00000E+00   node , vx , vy
   8      0.17093E+11   0.00000E+00   node , vx , vy
   9     -0.27307E+11   0.00000E+00   node , vx , vy
  10      0.16832E+12   0.00000E+00   node , vx , vy
   11      0.14461E+11   0.00000E+00   node , vx , vy
  12      0.72585E+11   0.00000E+00   node , vx , vy
  13     -0.26770E+11   0.00000E+00   node , vx , vy
  14      0.28571E+11   0.00000E+00   node , vx , vy
  15      0.48992E+11   0.00000E+00   node , vx , vy
  16      0.36732E+11   0.00000E+00   node , vx , vy
  17      0.00000E+00   0.00000E+00   node , vx , vy

counter最好结果居然不为零，且值为NTIME-wait=6
赞一下 回复此楼
3楼2011-11-13 11:10:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)
引用回帖:
2楼: Originally posted by zcius at 2011-11-13 11:05:09:
COUNTER 没有赋初值能行吗？
做除法前不做判断？

初值不是默认是零吗？你看把把文件ns2dev.ve2改成上面的形式，counter就有数值了，这个很奇怪，我想不通，帮忙看一下哈，谢谢
赞一下 回复此楼
4楼2011-11-13 11:15:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-11-13 21:40:12
引用回帖:
1楼: Originally posted by lijunjiexm at 2011-11-13 10:44:41:
程序如下：

PROGRAM PROCESS3

C *** Program to draw velocity profiles.
C
      IMPLICIT     NONE
      INTEGER*4    ITIME, I, II, NUMNP, NTIME, COUNTER, IDUM, IDUM1
      INTEGER*4    WAIT
...

不知道该表达的意思是什么，有太多的错误。。。。
变量定义类型有很多不匹配
读文件的时候，有太多的end =300,  其中读完文件mesh.dat，程序就跳到了300行了，而文件mesh.dat的数据显然没有用到， xnode,ynode.
貌似楼主是修改他人的程序，但貌似没理清楚逻辑顺序，而且变量混乱的很。
赞一下(1人) 回复此楼
5楼2011-11-13 14:42:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lijunjiexm 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 8rmuugja8q 2026-02-22 8/400 2026-02-23 12:22 by alian_214
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 khieu8v8m0 2026-02-22 8/400 2026-02-23 09:35 by w4l55oybr1
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 8/400 2026-02-23 09:29 by w4l55oybr1
[考研] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +5 usprnugpzw 2026-02-21 11/550 2026-02-23 09:24 by w4l55oybr1
[教师之家] 为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？ +5 欢乐颂叶蓁 2026-02-21 8/400 2026-02-23 09:19 by 欢乐颂叶蓁
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 w89i99eaeh 2026-02-22 5/250 2026-02-23 08:04 by w4l55oybr1
[博后之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 6/300 2026-02-23 07:59 by w4l55oybr1
[博后之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +6 3dfhjxgsh7 2026-02-22 9/450 2026-02-23 07:49 by w4l55oybr1
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 4/200 2026-02-23 06:46 by jsjzfl
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 khieu8v8m0 2026-02-22 5/250 2026-02-23 06:29 by w4l55oybr1
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 khieu8v8m0 2026-02-22 8/400 2026-02-23 06:24 by w4l55oybr1
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +5 3dfhjxgsh7 2026-02-22 6/300 2026-02-23 02:04 by 5jlh3qtdvx
[教师之家] 版面费该交吗 +7 苹果在哪里 2026-02-22 8/400 2026-02-22 22:37 by otani
[基金申请] 面上可以超过30页吧？ +4 阿拉贡aragon 2026-02-22 4/200 2026-02-22 21:22 by 山西悬空寺空悬�
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +4 usprnugpzw 2026-02-21 6/300 2026-02-22 19:48 by w89i99eaeh
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 usprnugpzw 2026-02-22 3/150 2026-02-22 16:37 by khieu8v8m0
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急 +3 usprnugpzw 2026-02-21 4/200 2026-02-22 16:27 by khieu8v8m0
[基金申请] “人文社科而论，许多学术研究还没有达到民国时期的水平” +4 苏东坡二世 2026-02-18 5/250 2026-02-22 16:07 by liangep1573
[基金申请] 什么是人一生最重要的？ +4 瞬息宇宙 2026-02-21 4/200 2026-02-22 11:44 by huagongfeihu
[基金申请] 今年春晚有几个节目很不错，点赞！ +11 瞬息宇宙 2026-02-16 12/600 2026-02-21 21:14 by lq493392203
信息提示
关闭
请填处理意见
关闭