24小时热门版块排行榜

返回列表

lijunjiexm

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 22.8
红花: 1
帖子: 182
在线: 87.1小时
虫号: 1198843
注册: 2011-02-03
专业: 常微分方程与动力系统

[求助] 求助一个简单程序的错误（2），谢谢

编译如下程序，在22行处CHARACTER*(*) STR
出错：

PROGRAM MOVIE1

C *** Program to draw velocity profiles.
C
   IMPLICIT    REAL*4(A-H,O-Z)
   PARAMETER (NUMEL = 1920, NUMNP = 2047,NDMB = 1000,NTIME1 = 140)
   REAL*8    QUADX (4,NUMEL), QUADY (4,NUMEL)
   REAL*8    QUADVX(4,NUMEL), QUADVY(4,NUMEL)
   INTEGER*4 BLACK(3)
   INTEGER*4 GREEN(3),RED(3),BLUE(3),WHITE(3),YELLOW(3)
   INTEGER*4 PALEGREEN(3), GREY(3)
   REAL*4    COORD(2), X1, X2, Y1, Y2, PARRAY(2,4)
   REAL*4    VARRAY(2,22)
   INTEGER*4 STATUS1, WINOPE, IDUM, NPOINT, LENGTH
   INTEGER*4 HORPROP, VERPROP
   REAL*4    X(NDMB,NTIME1), Y(NDMB,NTIME1)
   REAL*4    VX(NUMNP, NTIME1), VY(NUMNP, NTIME1)
   REAL*4    XNODE(NUMNP), YNODE(NUMNP)
   CHARACTER*13 MESSAGE1, LINE
   CHARACTER*50 MESSAGE2,MESSAGE3,MESSAGE4,MESSAGE5
   CHARACTER*80 DUM
   CHARACTER*(*) STR
   LOGICAL*1 GRID, VEL
C
C *** Prepare for the graphics:
C
   DATA (BLACK(I),    I=1,3)  /0,0,0/
   DATA (RED(I),       I=1,3)  /256,20,20/
   DATA (GREEN(I),    I=1,3)  /50,256,50/
   DATA (PALEGREEN(I), I=1,3)  /10,86,10/
   DATA (BLUE(I),       I=1,3)  /100,100,256/
   DATA (WHITE(I),    I=1,3)  /256,256,256/
   DATA (YELLOW(I),    I=1,3)  /256,256,0/
C
   OPEN (7 , FILE = '../eval/ns2dev.msh')
   OPEN (8 , FILE = '../eval/ns2dev.trc')
   OPEN (10, FILE = '../eval/ns2dev.ve2')
   OPEN (11, FILE = '../mesh/mesh.dat')
C
C *** WINDOW
C
C    XMIN =    0.17
   XMIN = 0.0
C    XMAX = 0.19
   XMAX = 0.36
   YMIN = -0.03
   YMAX = 0.03
C    YMAX = 0.02
   HORPROP = INT(1000. * XMAX) - INT(1000. * XMIN)
   VERPROP = INT(1000. * YMAX) - INT(1000. * YMIN)
   CALL KEEPAS ( ABS(HORPROP),  ABS(VERPROP))
   CALL KEEPAS (1,1)
   CALL PREFSI(1200, 200)
   MESSAGE1 = 'movie1'
   STATUS1 = WINOPE(MESSAGE1,6)
C
   CALL ORTHO2 (XMIN, XMAX, YMIN, YMAX)
   CALL LINEWI (1)
   CALL RGBMOD
   CALL DOUBLE
   CALL LSETDE (0,19)
   CALL GCONFI
   CALL C3I (BLACK)
   CALL CLEAR
   CALL ZBUFFE (.TRUE.)
   CALL ZCLEAR
   CALL SWAPBU
   CALL SLEEP(1)
   CALL ZBUFFE (.TRUE.)
   CALL ZCLEAR
c
c read mesh
c
   DO I = 1, NUMEL
      READ(7,*) IDUM, (QUADX(II,I),II=1,4),  (QUADY(II,I),II=1,4)
   ENDDO
c
c read tracer particles
c
   DO I = 1 , NTIME1
      READ(8,*) IDUM, TIME
      DO II=1, NDMB
      READ(8, *, END = 300) X(II , I), Y(II , I)
      ENDDO
   ENDDO
c
c read velocity field
c
   READ(10,*,END=300) IDUM, DUM1
   DO I = 1 , NTIME1
      READ(10,*,END=300) IDUM, DUM1
      DO II = 1, NUMNP
      READ(10,*,END=300) IDUM, VX(II , I), VY(II , I)
      ENDDO
   ENDDO
c
c read nodes (mesh again)
c
   READ(11,*,END=300) IDUM, DUM1
   DO I = 1 , NUMNP
      READ(11, *, END = 300) IDUM, XNODE(I), YNODE(I)
   ENDDO
C
C loop
C
   DO IBIGLOOP = 1 , 1000
   DO ITIME = 1 , NTIME1
      CALL C3I (BLACK)
      CALL CLEAR
      IF (ITIME .EQ. 1) THEN
      DO II = 1 , 1000
         DUMMY = II ** 0.2342
      ENDDO
      ENDIF
C
C *** Grid
C
      GRID = .FALSE.
      IF (GRID) THEN
      CALL LINEWI (1)
      CALL C3I (BLUE)
      DO II = 1 , NUMEL
         CALL BGNLIN
         DO III = 1 , 4
            COORD(1) = QUADX(III, II)
            COORD(2) = QUADY(III, II)
            PARRAY(1 , III) = QUADX(III, II)
            CALL V2F(COORD)
         ENDDO
         CALL ENDLIN
      ENDDO
      CALL C3I (RED)
      CALL LINEWI (1)
      ENDIF
C
C *** Velocity field
C
      VEL = .FALSE.
      IF (VEL) THEN
      DO I = 1 , NUMNP
         CALL C3I (GREEN)
         X1 = XNODE(I)
         Y1 = YNODE(I)
         X2 = XNODE(I) + VX(I,ITIME) * 1
         Y2 = YNODE(I) + VY(I,ITIME) * 1
         CALL MOVE2 (X1,Y1)
         CALL DRAW2 (X2,Y2)
         CALL C3I (RED)
         CALL DRAW2 (X2,Y2)
      ENDDO
      ENDIF
c
c *** x-axis
c
C       CALL C3I (RED)
C       CALL LINEWI (1)
C       X1 = -11.
C       Y1 =  0.
C       X2 =  11.
C       Y2 =  0.
C       CALL MOVE2 (X1,Y1)
C       CALL DRAW2 (X2,Y2)
C
c *** y-axis
c
      X1 =  0.
      Y1 = -11
      X2 =  0.
      Y2 =  11
      CALL MOVE2 (X1,Y1)
      CALL DRAW2 (X2,Y2)
C       DO I = 1 , 1000
C       DUMMY = I ** 3.3
C       ENDDO
C
C *** Dumbbells
C
      DO I = 1 , 1
      CALL LINEWI (1)
      CALL C3I (YELLOW)
      CALL BGNPOI
      DO II = 1, NDMB
         COORD(1) = X(II, ITIME)
         COORD(2) = Y(II, ITIME)
         CALL V2F(COORD)
         COORD(2) = - Y(II, ITIME)
         CALL V2F(COORD)
      ENDDO
      CALL ENDPOI
C       CALL C3I (RED)
C       COORD(1) = X(346, ITIME)
C       COORD(2) = Y(346, ITIME)
C       CALL CIRCF(COORD(1), COORD(2), 0.0001)
C       CALL C3I (GREEN)
C       COORD(1) = X(1116, ITIME)
C       COORD(2) = Y(1116, ITIME)
C       CALL CIRCF(COORD(1), COORD(2), 0.0001)
C       CALL C3I (BLUE)
C       COORD(1) = X(319, ITIME)
C       COORD(2) = Y(319, ITIME)
C       CALL CIRCF(COORD(1), COORD(2), 0.0001)
      ENDDO
C       READ(5,*) LINE
      CALL SWAPBU
   ENDDO
   ENDDO
300  STOP
   END

回复此楼

» 猜你喜欢

博士读完未来一定会好吗已经有21人回复
导师想让我从独立一作变成了共一第一已经有5人回复
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有11人回复
读博已经有4人回复
JMPT 期刊投稿流程已经有4人回复
心脉受损已经有5人回复
Springer期刊投稿求助已经有4人回复
小论文投稿已经有3人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有9人回复
申请2026年博士已经有6人回复

» 本主题相关价值贴推荐，对您同样有帮助:

求助一简单matlab程序的出错问题，谢谢已经有3人回复
求助！！！！安装MS5.0程序过程中出现的错误提示已经有12人回复
求助一个编译出错的简单程序，请多多指教，谢谢已经有4人回复
【求助】一个简单的A类错误！已经有8人回复
【求助】f90子程序怎么编译错误？请大家帮忙，谢谢已经有3人回复
【求助】BSSE of O2运行出错已经有17人回复
【求助/交流】请教一个简单问题：新买的载玻片需要清洗么？盖玻片呢？谢谢！已经有18人回复
【求助】一个小程序--出现错误已经有3人回复
【求助】Orca 2.8的一个计算赝势的例子报错已经有12人回复
【求助】这样一个A类错误，如何解决，谢谢！已经有7人回复
【求助】程序运行后出现的错误 access violation 已经有15人回复
【求助】运用BP神经网络训练材料本构模型的一个问题已经有12人回复

1楼2011-07-18 01:18:36

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lijunjiexm

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 22.8
红花: 1
帖子: 182
在线: 87.1小时
虫号: 1198843
注册: 2011-02-03
专业: 常微分方程与动力系统

★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:28:39

编译错误信息如下（请帮忙指点，谢谢）：
--------------------Configuration: sucontr - Win32 Debug--------------------
Compiling Fortran...
G:\Program Files\sucontr\eval\movie1.f
G:\Program Files\sucontr\eval\movie1.f(22) : Error: This passed length character name has been used in an invalid context. [STR]
CHARACTER*(*) STR
--------------------^
Error executing df.exe.

movie1.obj - 1 error(s), 0 warning(s)