 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1296 | 回復(fù): 4 | ||
| 當(dāng)前只顯示滿(mǎn)足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
whf199022新蟲(chóng) (初入文壇)
|
[求助]
菜鳥(niǎo)求助fortran數(shù)組聲明及子程序的一些問(wèn)題啊
|
|
|
用fortran編程時(shí)出現(xiàn)這樣的問(wèn)題，求助啊 CALL INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD) SUBROUTINE INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD) !子程序INITI給定節(jié)點(diǎn)初始坐標(biāo)和初始（赫茲）壓力 DIMENSION X(0:NX),Y(0:NY),P(0:NX,0:NY),POLD(0:NX,0:NY) DX=(XE-X0)/NX Y0=-0.5*(XE-X0) DY=(XE-X0)/NY DO I=0,NX X(I)=X0+(I-1)*DX END DO DO J=0,NY Y(J)=Y0+(J-1)*DY END DO DO I=0,NX D=1.-X(I)*X(I) DO J=0,NY/2 C=D-Y(J)*Y(J) IF(C.LE.0.0)P(I,J)=0.0 IF(C.GT.0.0)P(I,J)=SQRT(C) END DO END DO DO I=0,NX DO J=(NY/2+1),NY JJ=NY-J P(I,J)=P(I,JJ) END DO END DO DO I=0,NX DO J=0,NY POLD(I,J)=P(I,J) ENDDO ENDDO RETURN END 這個(gè)是出錯(cuò)程序 下面是出錯(cuò)的問(wèn)題 E:\DIANJIECHU\DIANJIECHU.F90(75) : Error: A specification statement cannot appear in the executable section. SUBROUTINE INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD) !子程序INITI給定節(jié)點(diǎn)初始坐標(biāo)和初始（赫茲）壓力 ^ E:\DIANJIECHU\DIANJIECHU.F90(76) : Error: A specification statement cannot appear in the executable section. DIMENSION X(0:NX),Y(0:NY),P(0:NX,0:NY),POLD(0:NX,0:NY) ^ E:\DIANJIECHU\DIANJIECHU.F90(81) : Error: This name has not been declared as an array. [X] X(I)=X0+(I-1)*DX ^ E:\DIANJIECHU\DIANJIECHU.F90(84) : Error: This name has not been declared as an array. [Y] Y(J)=Y0+(J-1)*DY ^ E:\DIANJIECHU\DIANJIECHU.F90(90) : Error: This name has not been declared as an array. [P] IF(C.LE.0.0)P(I,J)=0.0 ------------^ E:\DIANJIECHU\DIANJIECHU.F90(91) : Error: This name has not been declared as an array. [P] IF(C.GT.0.0)P(I,J)=SQRT(C) ------------^ E:\DIANJIECHU\DIANJIECHU.F90(97) : Error: This name has not been declared as an array. [P] P(I,J)=P(I,JJ) ^ E:\DIANJIECHU\DIANJIECHU.F90(102) : Error: This name has not been declared as an array. [POLD] POLD(I,J)=P(I,J) ^ E:\DIANJIECHU\DIANJIECHU.F90(105) : Error: A RETURN statement is invalid in the main program. RETURN ^ |
回復(fù)此樓» 猜你喜歡
299求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑
已經(jīng)有6人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有8人回復(fù)
-
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有7人回復(fù)
-
289求調(diào)劑
已經(jīng)有13人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有9人回復(fù)
-
081200-11408-276學(xué)碩求調(diào)劑
已經(jīng)有6人回復(fù)
-
調(diào)劑求院校招收
已經(jīng)有5人回復(fù)
-
調(diào)劑310
已經(jīng)有8人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- fortran程序在SSH計(jì)算中心上運(yùn)行的問(wèn)題！
已經(jīng)有13人回復(fù)
- fortran中的數(shù)組越界問(wèn)題，
已經(jīng)有3人回復(fù)
- 關(guān)于fortran子程序調(diào)用內(nèi)部函數(shù)
已經(jīng)有7人回復(fù)
- fortran里一個(gè)子程序不運(yùn)行是怎么回事
已經(jīng)有13人回復(fù)
- fortran中運(yùn)行中出現(xiàn)無(wú)窮大的數(shù)怎么處理
已經(jīng)有9人回復(fù)
- fortran數(shù)組輸出，行與列請(qǐng)教
已經(jīng)有7人回復(fù)
- Fortran 聲明變量
已經(jīng)有5人回復(fù)
- 想問(wèn)一下影響fortran計(jì)算速度的因素都有哪些？
已經(jīng)有12人回復(fù)
- 求助：關(guān)于fortran建數(shù)組問(wèn)題，謝謝！
已經(jīng)有4人回復(fù)
- Fortran中數(shù)組的使用
已經(jīng)有4人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問(wèn)題
已經(jīng)有10人回復(fù)
- intel fortran局部變量自動(dòng)更新
已經(jīng)有19人回復(fù)
- 請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問(wèn)題，謝謝
已經(jīng)有9人回復(fù)
- Fortran中關(guān)于數(shù)組的變化
已經(jīng)有5人回復(fù)
- 【求助】用fortran怎么描述下面這樣的情況，我是新手，請(qǐng)大家?guī)兔?/a>
已經(jīng)有8人回復(fù)
- 【求助】求指點(diǎn)，在Fortran里面，怎樣實(shí)現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復(fù)
- 【求助】fortran中怎么存儲(chǔ)不確定長(zhǎng)度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復(fù)
- 【求助】win7 的 用什么fortran 編譯器��？【已完成】
已經(jīng)有14人回復(fù)
- 【交流】Fortran語(yǔ)言答疑專(zhuān)帖
已經(jīng)有157人回復(fù)
whf199022
新蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 3
- 帖子: 5
- 在線: 2小時(shí)
- 蟲(chóng)號(hào): 2894372
- 注冊(cè): 2013-12-25
- 性別: GG
- 專(zhuān)業(yè): 機(jī)械動(dòng)力學(xué)
3樓2014-03-24 16:28:33
2樓2014-03-24 15:58:20
whf199022
新蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 3
- 帖子: 5
- 在線: 2小時(shí)
- 蟲(chóng)號(hào): 2894372
- 注冊(cè): 2013-12-25
- 性別: GG
- 專(zhuān)業(yè): 機(jī)械動(dòng)力學(xué)
4樓2014-03-24 16:31:48
whf199022
新蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 3
- 帖子: 5
- 在線: 2小時(shí)
- 蟲(chóng)號(hào): 2894372
- 注冊(cè): 2013-12-25
- 性別: GG
- 專(zhuān)業(yè): 機(jī)械動(dòng)力學(xué)
5樓2014-03-24 17:02:48
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 289求調(diào)劑 +13 | 新時(shí)代材料 2026-03-27 | 13/650 |
|
|---|---|---|---|---|
|
[考研] 學(xué)碩274求調(diào)劑 +9 | Li李魚(yú) 2026-03-26 | 9/450 |
|
|
|
[考研] 化學(xué)0703 調(diào)劑 306分 一志愿211 +4 | 26要上岸 2026-03-28 | 4/200 |
|
|
|
[考研] 0703本科鄭州大學(xué)求調(diào)劑 +3 | nhj_ 2026-03-25 | 3/150 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +8 | 邱gl 2026-03-27 | 8/400 |
|
|
|
[考研] 材料求調(diào)劑 一志愿哈工大總分298分，前三科223分 +5 | dongfang59 2026-03-27 | 5/250 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑，各位老師看看我�。�！ +5 | 祁祺祺 2026-03-25 | 5/250 |
|
|
|
[考研] 349求調(diào)劑 +4 | 李木子啊哈哈 2026-03-25 | 4/200 |
|
|
|
[考研] 調(diào)劑 +4 | 柚柚yoyo 2026-03-26 | 4/200 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3 | 崔wj 2026-03-26 | 3/150 |
|
|
|
[考研]
材料調(diào)劑
 5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
|
[考研] 085601求調(diào)劑總分293英一數(shù)二 +4 | 鋼鐵大炮 2026-03-24 | 4/200 |
|
|
|
[考研] 0854AI CV方向招收調(diào)劑 +4 | 章小魚(yú)567 2026-03-23 | 4/200 |
|
|
|
[考研] 0854電子信息求調(diào)劑 +7 | α____ 2026-03-22 | 9/450 |
|
|
|
[考研] 一志愿吉林大學(xué)材料與化工303分求調(diào)劑 +4 | 為學(xué)666 2026-03-24 | 4/200 |
|
|
|
[考研] 318求調(diào)劑 +3 | plum李子 2026-03-23 | 3/150 |
|
|
|
[考研] 080500求調(diào)劑 +3 | zzzzfan 2026-03-24 | 3/150 |
|
|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|
|
|
[考研] 280分求調(diào)劑 一志愿085802 +4 | PUMPT 2026-03-22 | 7/350 |
|