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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 请教一个程序小问题，谢谢
51/1返回列表
查看: 926  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 304求调剂 +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by 我的船我的海
[考研] 070300化学学硕求调剂 +6 太想进步了0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[考研] 290求调剂 +5 孔志浩 2026-03-12 10/500 2026-03-16 09:01 by 余晖&
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +4 Liwangman 2026-03-15 4/200 2026-03-16 08:01 by wang_dand
[考研] 294求调剂 +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[考研] 268求调剂 +5 一定有学上- 2026-03-14 6/300 2026-03-14 22:20 by 运气yunqi
[基金申请] 面上和青基一样限30页不合理 +5 wowsunflower 2026-03-10 7/350 2026-03-14 17:21 by kingkocxr
[考研] 一志愿安徽大学材料工程专硕313分，求调剂的学校 +8 Yu先生 2026-03-10 10/500 2026-03-14 01:04 by JourneyLucky
[基金申请] 有必要更换申报口吗 20+3 fannyamoy 2026-03-11 3/150 2026-03-14 00:52 by zhanghaozhu
[考研] 求调剂，一志愿江南大学环境工程085701 +3 Djdjj12 2026-03-10 4/200 2026-03-14 00:31 by JourneyLucky
[考研] 311求调剂 +5 牛乳糖的卡卡 2026-03-10 5/250 2026-03-14 00:05 by JourneyLucky
[考研] 311求调剂 +3 冬十三 2026-03-13 3/150 2026-03-13 20:41 by JourneyLucky
[论文投稿] 投稿问题 5+4 星光灿烂xt 2026-03-12 6/300 2026-03-13 14:17 by god_tian
[考研] 304求调剂（085602一志愿985） +12 化工人999 2026-03-09 12/600 2026-03-13 12:02 by JourneyLucky
[考研] 277求调剂 +4 anchor17 2026-03-12 4/200 2026-03-13 11:15 by 白夜悠长
[考研] 08食品或轻工求调剂，本科发表3篇sci一区top论文，一志愿南师大食品科学与工程 +3 我是一个兵， 2026-03-10 3/150 2026-03-13 10:21 by Yuyi.
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生，2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-12 4/200 2026-03-12 19:33 by 求调剂zz
[考研] 0857环境调剂 +5 熠熠_11 2026-03-10 5/250 2026-03-11 10:59 by wang_dand
[考研] 哈工大材料324求调剂 +6 闫旭东 2026-03-10 8/400 2026-03-10 22:49 by 星空星月
信息提示
关闭
请填处理意见
关闭