 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1438 | 回復(fù): 5 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
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ù)此樓» 猜你喜歡
【求調(diào)劑】新能源材料本科，一志愿211，初試321
已經(jīng)有3人回復(fù)
-
材料考研調(diào)劑
已經(jīng)有3人回復(fù)
-
材料調(diào)劑
已經(jīng)有12人回復(fù)
-
英一數(shù)一408，總分284，二戰(zhàn)真誠求調(diào)劑
已經(jīng)有14人回復(fù)
-
085410 一志愿211 22408分數(shù)359求調(diào)劑
已經(jīng)有4人回復(fù)
-
271求調(diào)劑
已經(jīng)有19人回復(fù)
-
385分 生物學(xué)（071000）求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿安徽大學(xué)計算機科學(xué)與技術(shù)學(xué)碩，331分求調(diào)劑
已經(jīng)有3人回復(fù)
-
318求調(diào)劑，計算材料方向
已經(jīng)有8人回復(fù)
-
291求調(diào)劑
已經(jīng)有25人回復(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運行出錯
已經(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ù)
- 【求助】程序運行后出現(xiàn)的錯誤 access violation
已經(jīng)有15人回復(fù)
- 【求助】運用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)
4樓2011-07-18 08:56:41
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
|
編譯錯誤信息如下（請幫忙指點，謝謝）： --------------------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è)作家)
- 程序強帖: 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
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 11408 321分求調(diào)劑 +3 | huchun12138 2026-03-30 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 材料調(diào)劑 +11 | 一樣YWY 2026-03-31 | 11/550 |
|
|
|
[考研] 275求調(diào)劑 +12 | waltzh 2026-04-01 | 12/600 |
|
|
|
[考研] 材料專碩調(diào)劑 +17 | 椰椰。 2026-03-29 | 17/850 |
|
|
|
[考研] 0817化工學(xué)碩調(diào)劑 +11 | 努力上岸中！ 2026-03-31 | 11/550 |
|
|
|
[考研] 08生物與醫(yī)藥專碩初試346找調(diào)劑 +4 | dianeeee 2026-04-01 | 5/250 |
|
|
|
[考研] 08工科275分求調(diào)劑 +12 | AaAa7420 2026-03-31 | 12/600 |
|
|
|
[考研] 材料專業(yè)求調(diào)劑 +7 | 月月鳥木 2026-04-01 | 7/350 |
|
|
|
[考研] 086000生物與醫(yī)藥298調(diào)劑求助 +4 | 元元青青 2026-03-31 | 6/300 |
|
|
|
[考研] 一志愿武理材料工程302調(diào)劑環(huán)化或化工 +15 | Doleres 2026-03-31 | 16/800 |
|
|
|
[考研] 考研材料工程351分調(diào)劑 +5 | 整個好的 2026-03-31 | 5/250 |
|
|
|
[考研] 初試301，代碼085701環(huán)境工程，本碩一致，四六級已過，有二區(qū)一作，共發(fā)表5篇論文 +3 | axibli 2026-04-01 | 3/150 |
|
|
|
[考研] 土木304求調(diào)劑 +5 | 頂級擦擦 2026-03-31 | 5/250 |
|
|
|
[考研] 材料化工340求調(diào)劑 +3 | jhx777 2026-03-30 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +10 | 張zz111 2026-03-27 | 11/550 |
|
|
|
[考研] 298求調(diào)劑 +3 | 種圣賜 2026-03-29 | 3/150 |
|
|
|
[考研] 279求調(diào)劑 +4 | 蝶舞輕繞 2026-03-29 | 4/200 |
|
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
|
[考研] 352分 化工與材料 +5 | 海納百川Ly 2026-03-27 | 5/250 |
|
|
|
[考研] 08開頭275求調(diào)劑 +4 | 拉誰不重要 2026-03-26 | 4/200 |
|