 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 7 | 1/1 | 返回列表 |
| 查看: 710 | 回復(fù): 6 | |||
lijunjiexm鐵蟲(chóng) (小有名氣)
|
[求助]
求助簡(jiǎn)單的一個(gè)參數(shù)傳遞問(wèn)題，謝謝
|
|
請(qǐng)教一個(gè)簡(jiǎn)單程序MID, PROGRAM MID implicit real*8(a-h,o-z) real*8 ia(5) open(10,file='inid.dat') open(21,file='mesh1.dat') read(21,*) numnp,numel do 300 i=1,numnp read(21,2100) idum,xreal,yreal,ia(i) write(10,*) ia(i) c write(10,2100) idum,xreal,yreal,ia(i) 300 continue 2100 format(i5,2x,e15.5,2x,e12.5,2x,i2) end C--------------------------------------------------------------------------------------- mesh1.dat為 5 2 numnp , numel 1 0.00000E+00 0.00000E+00 1 2 0.00000E+00 0.35803E-03 1 3 0.00000E+00 0.70174E-03 1 4 0.00000E+00 0.10317E-02 1 5 0.00000E+00 0.13485E-02 1 但是 用 write(10,*) ia(i)語(yǔ)句后，寫(xiě)進(jìn)去的inid.dat文件為： 4.940656458412465E-324 4.940656458412465E-324 4.940656458412465E-324 4.940656458412465E-324 4.940656458412465E-324 而選擇write(10,2100) idum,xreal,yreal,ia(i) ，則inid.dat為 1 0.00000E+00 0.00000E+00 1 2 0.00000E+00 0.35803E-03 1 3 0.00000E+00 0.70174E-03 1 4 0.00000E+00 0.10317E-02 1 5 0.00000E+00 0.13485E-02 1 但在在debug過(guò)程ia的數(shù)據(jù)居然是 4.940656458412465E-324，這個(gè)怎么解釋呢？怎么使得ia數(shù)組等于 1 1 1 1 1？請(qǐng)多多指教，謝謝 |
回復(fù)此樓» 猜你喜歡
【雙一流院校新能源、環(huán)境材料，材料加工與模擬招收大量調(diào)劑】
已經(jīng)有7人回復(fù)
-
08工學(xué)調(diào)劑
已經(jīng)有12人回復(fù)
-
材料與化工328分調(diào)劑
已經(jīng)有4人回復(fù)
-
279分求調(diào)劑 一志愿211
已經(jīng)有20人回復(fù)
-
293求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿華東理工大學(xué)081700，初試分?jǐn)?shù)271
已經(jīng)有6人回復(fù)
-
085404電子信息284分求調(diào)劑
已經(jīng)有3人回復(fù)
-
306求0703調(diào)劑一志愿華中師范
已經(jīng)有9人回復(fù)
-
一志愿吉大化學(xué)322求調(diào)劑
已經(jīng)有6人回復(fù)
-
求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- c語(yǔ)言求助，一個(gè)小程序詳細(xì)講解
已經(jīng)有13人回復(fù)
- 【求助】如何獲得matlab中當(dāng)前fig圖像的信息
已經(jīng)有6人回復(fù)
- 【求助/交流】生物統(tǒng)計(jì)學(xué)問(wèn)題，變異系數(shù)
已經(jīng)有11人回復(fù)
- 【求助】子程序的參數(shù)傳遞是傳址還是傳數(shù)
已經(jīng)有3人回復(fù)
- 【求助/交流】求助關(guān)于Spss的非參數(shù)檢驗(yàn)的問(wèn)題
已經(jīng)有3人回復(fù)
- 【求助/交流】酶的動(dòng)力學(xué)參數(shù)問(wèn)題
已經(jīng)有14人回復(fù)
- 【求助】運(yùn)用BP神經(jīng)網(wǎng)絡(luò)訓(xùn)練材料本構(gòu)模型的一個(gè)問(wèn)題
已經(jīng)有12人回復(fù)
- 【求助】測(cè)胸腺肽和轉(zhuǎn)移因子高分子量物質(zhì)的問(wèn)題
已經(jīng)有6人回復(fù)
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
【答案】應(yīng)助回帖
★ ★
xzhdty(金幣+2): 歡迎常來(lái)程序語(yǔ)言看看 2011-09-02 09:20:12
xzhdty(金幣+2): 歡迎常來(lái)程序語(yǔ)言看看 2011-09-02 09:20:12
|
把 real*8 ia(5) 改成 integer ia(5) 就可以了（gfortran 驗(yàn)證通過(guò)）。如果不修改，在 gfortran 下會(huì)報(bào)如下錯(cuò)誤： Fortran runtime error: Expected INTEGER for item 5 in formatted transfer, got RE AL (i5,2x,e15.5,2x,e12.5,2x,i2) ^ |
2樓2011-09-01 22:07:11
lijunjiexm
鐵蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 22.8
- 紅花: 1
- 帖子: 182
- 在線: 87.1小時(shí)
- 蟲(chóng)號(hào): 1198843
- 注冊(cè): 2011-02-03
- 專業(yè): 常微分方程與動(dòng)力系統(tǒng)
3樓2011-09-01 22:19:55
lijunjiexm
鐵蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 22.8
- 紅花: 1
- 帖子: 182
- 在線: 87.1小時(shí)
- 蟲(chóng)號(hào): 1198843
- 注冊(cè): 2011-02-03
- 專業(yè): 常微分方程與動(dòng)力系統(tǒng)
4樓2011-09-01 22:24:05
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
5樓2011-09-01 22:26:36
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
6樓2011-09-01 22:27:31
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
7樓2011-09-01 22:28:13
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 lijunjiexm 的主題更新
| 7 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑 +11 | 手機(jī)用戶 2026-03-17 | 12/600 |
|
|---|---|---|---|---|
|
[考研] 環(huán)境學(xué)碩288求調(diào)劑 +8 | 皮皮皮123456 2026-03-22 | 8/400 |
|
|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|
|
|
[考研] 335分 | 材料與化工專碩 | GPA 4.07 | 有科研經(jīng)歷 +4 | cccchenso 2026-03-23 | 4/200 |
|
|
|
[考研] 384求調(diào)劑 +3 | 子系博 2026-03-22 | 6/300 |
|
|
|
[考研] 工科材料085601 279求調(diào)劑 +8 | 困于星晨 2026-03-17 | 10/500 |
|
|
|
[考研] 280分求調(diào)劑 一志愿085802 +4 | PUMPT 2026-03-22 | 7/350 |
|
|
|
[考研] 311求調(diào)劑 +6 | 冬十三 2026-03-18 | 6/300 |
|
|
|
[考研] 一志愿 西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +3 | 晨昏線與星海 2026-03-20 | 3/150 |
|
|
|
[考研] 354求調(diào)劑 +7 | Tyoumou 2026-03-18 | 10/500 |
|
|
|
[考博] 招收博士1-2人 +3 | QGZDSYS 2026-03-18 | 4/200 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +4 | 妮妮ninicgb 2026-03-21 | 4/200 |
|
|
|
[考研] 0805材料320求調(diào)劑 +3 | 深海物語(yǔ) 2026-03-20 | 3/150 |
|
|
|
[考研] 二本跨考鄭大材料306英一數(shù)二 +3 | z1z2z3879 2026-03-17 | 3/150 |
|
|
|
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3 | hisfailed 2026-03-19 | 6/300 |
|
|
|
[考研] 294求調(diào)劑材料與化工專碩 +15 | 陌の森林 2026-03-18 | 15/750 |
|
|
|
[考研] 317求調(diào)劑 +5 | 申子申申 2026-03-19 | 9/450 |
|
|
|
[考研] 材料學(xué)碩297已過(guò)四六級(jí)求調(diào)劑推薦 +11 | adaie 2026-03-19 | 11/550 |
|
|
|
[考研] 招收調(diào)劑碩士 +4 | lidianxing 2026-03-19 | 12/600 |
|
|
|
[考研] 收復(fù)試調(diào)劑生 +4 | 雨后秋荷 2026-03-18 | 4/200 |
|