 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1435 | 回復(fù): 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 |
回復(fù)此樓» 猜你喜歡
309求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有8人回復(fù)
-
求調(diào)劑
已經(jīng)有5人回復(fù)
-
求化學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
085600，材料與化工321分求調(diào)劑
已經(jīng)有10人回復(fù)
-
0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分
已經(jīng)有5人回復(fù)
-
一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑
已經(jīng)有3人回復(fù)
-
085600，專業(yè)課化工原理，320分求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料與化工272求調(diào)劑
已經(jīng)有16人回復(fù)
-
290求調(diào)劑
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求助一簡單matlab程序的出錯問題，謝謝
已經(jīng)有3人回復(fù)
- 求助�。。�！安裝MS5.0程序過程中出現(xiàn)的錯誤提示
已經(jīng)有12人回復(fù)
- 求助一個編譯出錯的簡單程序，請多多指教，謝謝
已經(jīng)有4人回復(fù)
- 【求助】一個簡單的A類錯誤！
已經(jīng)有8人回復(fù)
- 【求助】f90子程序怎么編譯錯誤？請大家?guī)兔�，謝謝
已經(jīng)有3人回復(fù)
- 【求助】BSSE of O2運(yùn)行出錯
已經(jīng)有17人回復(fù)
- 【求助/交流】請教一個簡單問題：新買的載玻片需要清洗么？蓋玻片呢？謝謝！
已經(jīng)有18人回復(fù)
- 【求助】一個小程序--出現(xiàn)錯誤
已經(jīng)有3人回復(fù)
- 【求助】Orca 2.8的一個計算贗勢的例子報錯
已經(jīng)有12人回復(fù)
- 【求助】這樣一個A類錯誤，如何解決，謝謝！
已經(jīng)有7人回復(fù)
- 【求助】程序運(yùn)行后出現(xiàn)的錯誤 access violation
已經(jīng)有15人回復(fù)
- 【求助】運(yùn)用BP神經(jīng)網(wǎng)絡(luò)訓(xùn)練材料本構(gòu)模型的一個問題
已經(jīng)有12人回復(fù)
lijunjiexm
鐵蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 22.8
- 紅花: 1
- 帖子: 182
- 在線: 87.1小時
- 蟲號: 1198843
- 注冊: 2011-02-03
- 專業(yè): 常微分方程與動力系統(tǒng)
★
dubo(金幣+1): 歡迎常來程序語言版討論 2011-07-31 13:28:39
dubo(金幣+1): 歡迎常來程序語言版討論 2011-07-31 13:28:39
|
編譯錯誤信息如下（請幫忙指點(diǎn)，謝謝）： --------------------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
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
3樓2011-07-18 08:30:19
lijunjiexm
鐵蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 22.8
- 紅花: 1
- 帖子: 182
- 在線: 87.1小時
- 蟲號: 1198843
- 注冊: 2011-02-03
- 專業(yè): 常微分方程與動力系統(tǒng)
4樓2011-07-18 08:56:41
5樓2011-07-18 09:17:19
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
6樓2011-07-18 09:21:15
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 lijunjiexm 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 343求調(diào)劑085601 +3 | 要努力學(xué)習(xí)x 2026-03-29 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 0856求調(diào)劑 +7 | 楒桉 2026-03-28 | 7/350 |
|
|
|
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +7 | 前行必有光 2026-03-28 | 8/400 |
|
|
|
[考研] 學(xué)碩274求調(diào)劑 +9 | Li李魚 2026-03-26 | 9/450 |
|
|
|
[考研] 320分，材料與化工專業(yè)，求調(diào)劑 +9 | 一定上岸aaa 2026-03-27 | 13/650 |
|
|
[考研] 394求調(diào)劑 +3 | 好事多磨靜候佳?/a> 2026-03-26 | 5/250 |
|
|
|
[考研] 0703一志愿9，初試成績：338，四六級已過，有科研經(jīng)歷，求調(diào)劑！ +4 | Zuhui0306 2026-03-25 | 4/200 |
|
|
|
[考研] 張芳銘-中國農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 +4 | 手機(jī)用戶 2026-03-26 | 4/200 |
|
|
|
[考研] 328求調(diào)劑 +7 | 嗯滴的基本都 2026-03-27 | 7/350 |
|
|
|
[考研] 材料求調(diào)劑 +5 | .m.. 2026-03-25 | 5/250 |
|
|
|
[考研] 284求調(diào)劑 +11 | junqihahaha 2026-03-26 | 12/600 |
|
|
|
[考研] 321求調(diào)劑 +6 | wasdssaa 2026-03-26 | 6/300 |
|
|
|
[考研] 材料考研求調(diào)劑 +3 | Dendel 2026-03-23 | 6/300 |
|
|
|
[考研] 0854AI CV方向招收調(diào)劑 +4 | 章小魚567 2026-03-23 | 4/200 |
|
|
|
[考研] 285求調(diào)劑 +3 | AZMK 2026-03-24 | 3/150 |
|
|
|
[考研] 282求調(diào)劑 +3 | wcq131415 2026-03-24 | 3/150 |
|
|
|
[考研] 一志愿北化315 求調(diào)劑 +3 | akrrain 2026-03-24 | 3/150 |
|
|
|
[考研]
 085404電子信息284分求調(diào)劑
+4
|
13659058978 2026-03-24 | 4/200 |
|
|
|
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7 | 墨墨漠 2026-03-23 | 8/400 |
|
|
|
[考研] 接收2026碩士調(diào)劑(學(xué)碩+專碩) +4 | allen-yin 2026-03-23 | 6/300 |
|