| 查看: 1442 | 回复: 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 |
回复此楼» 猜你喜欢
085602调剂 初试总分335
已经有5人回复
-
302分 085601求调剂推荐
已经有8人回复
-
生物学308分求调剂（一志愿华东师大）
已经有10人回复
-
材料专硕(0856) 339分求调剂
已经有8人回复
-
085410人工智能 初试316分 求调剂
已经有6人回复
-
282求调剂
已经有10人回复
-
070300化学求调剂
已经有17人回复
-
318求调剂
已经有12人回复
-
308求调剂
已经有3人回复
-
315求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助一简单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
