| 查看: 1645 | 回复: 5 | |||
lijunjiexm铁虫 (小有名气)
|
[求助]
求助一个简单程序的错误（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 |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有15人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
-
基金系统什么内容也没有
已经有10人回复
-
学科评审组评审是指会评吗？
已经有5人回复
-
面上函评意见出来了，像什么等级？
已经有17人回复
-
小白求助 投论文要求的highlights应该如何写
已经有4人回复
-
麻烦专家们看看评委们的意见（F口面上）
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助一简单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人回复
lijunjiexm
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.8
- 红花: 1
- 帖子: 182
- 在线: 87.1小时
- 虫号: 1198843
- 注册: 2011-02-03
- 专业: 常微分方程与动力系统
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:28:39
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) |
2楼2011-07-18 01:19:21
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
3楼2011-07-18 08:30:19
lijunjiexm
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.8
- 红花: 1
- 帖子: 182
- 在线: 87.1小时
- 虫号: 1198843
- 注册: 2011-02-03
- 专业: 常微分方程与动力系统
4楼2011-07-18 08:56:41
5楼2011-07-18 09:17:19
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2011-07-18 09:21:15
30