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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个程序小问题，谢谢
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 952  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 308求调剂 +11 墨墨漠 2026-04-06 11/550 2026-04-06 22:56 by 875465
[考研] 调剂 +11 不逢春 2026-04-05 12/600 2026-04-06 22:41 by chenzhimin
[考研] 307求调剂 +3 所念及所望 2026-04-06 3/150 2026-04-06 17:30 by 土木硕士招生
[考研] 一志愿西安交大材料学硕（英一数二）347，求调剂到高分子/材料相关专业 +8 zju51 2026-03-31 10/500 2026-04-06 09:03 by 醉翁wl
[考研] 材料334求调剂 +19 Eecho# 2026-04-03 19/950 2026-04-06 08:37 by 小小树2024
[考研] 298求调剂 +7 manman511 2026-04-05 7/350 2026-04-05 10:29 by 唐沐儿
[考研] 材料调剂 +9 革微桂 2026-04-04 9/450 2026-04-05 08:27 by 544594351
[考研] 296材料专硕求调剂 +21 202451007219 2026-04-02 22/1100 2026-04-04 21:48 by hemengdong
[考研] 复试调剂 +6 范根培 2026-04-04 6/300 2026-04-04 14:27 by 土木硕士招生
[考研] 266求调剂 +3 08电气工程 2026-04-03 3/150 2026-04-03 14:05 by 1753564080
[考研] 数一英一285求调剂 +7 AZMK 2026-04-03 9/450 2026-04-03 13:03 by ms629
[考研] 生物学硕341求调剂 +4 你笑起来像云朵 2026-04-03 4/200 2026-04-03 10:32 by macy2011
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-04-02 6/300 2026-04-03 10:19 by 蓝云思雨
[考研] 325分化学调剂 +5 15771691647 2026-04-02 5/250 2026-04-03 09:58 by ChemPharm
[考研] 085410 一志愿211 22408分数359求调剂 +3 123456789qw 2026-03-31 4/200 2026-04-02 00:06 by 义文wang
[考研] 292求调剂 +17 木虫er12138 2026-04-01 17/850 2026-04-01 21:37 by 七度不信任
[考研] 食品学硕362求调剂 +3 xuanxianxian 2026-04-01 3/150 2026-04-01 21:05 by 啊李999
[考研] 材料专业调剂 +5 啦啦啦哭 2026-03-31 6/300 2026-04-01 16:48 by JourneyLucky
[考研] 材料调剂 +11 一样YWY 2026-03-31 11/550 2026-04-01 11:35 by wangjy2002
[考研] 070300化学专业279调剂 +10 哈哈哈^_^ 2026-03-31 10/500 2026-03-31 23:13 by liu823948201
信息提示
关闭
请填处理意见
关闭