| 5 | 1/1 | 返回列表 |
| 查看: 694 | 回復(fù): 6 | ||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | ||
lijunjiexm鐵蟲 (小有名氣)
|
[求助]
求助簡(jiǎn)單的一個(gè)參數(shù)傳遞問題,謝謝
|
|
|
請(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ǔ)句后,寫進(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過程ia的數(shù)據(jù)居然是 4.940656458412465E-324,這個(gè)怎么解釋呢?怎么使得ia數(shù)組等于 1 1 1 1 1?請(qǐng)多多指教,謝謝 |
鐵蟲 (小有名氣)
至尊木蟲 (職業(yè)作家)
鐵蟲 (小有名氣)
至尊木蟲 (職業(yè)作家)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0703化學(xué)調(diào)劑 +11 | 妮妮ninicgb 2026-03-15 | 15/750 |
|
|---|---|---|---|---|
|
[考研] 0703化學(xué)調(diào)劑 ,六級(jí)已過,有科研經(jīng)歷 +14 | 曦熙兮 2026-03-15 | 14/700 |
|
|
[考研] 工科0856求調(diào)劑 +3 | 沐析汀汀 2026-03-21 | 3/150 |
|
|
[考研] 297求調(diào)劑 +11 | 戲精丹丹丹 2026-03-17 | 12/600 |
|
|
[考研] 307求調(diào)劑 +3 | 余意卿 2026-03-18 | 3/150 |
|
|
[考研] 生物學(xué)一志愿985,分?jǐn)?shù)349求調(diào)劑 +3 | zxts12 2026-03-21 | 3/150 |
|
|
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +6 | 77chaselx 2026-03-20 | 6/300 |
|
|
[考研] 316求調(diào)劑 +6 | 梁茜雯 2026-03-19 | 6/300 |
|
|
[考研]
|
.6lL 2026-03-18 | 8/400 |
|
|
[考研] 一志愿 西北大學(xué) ,070300化學(xué)學(xué)碩,總分287,雙非一本,求調(diào)劑。 +3 | 晨昏線與星海 2026-03-18 | 3/150 |
|
|
[考研] A區(qū)線材料學(xué)調(diào)劑 +5 | 周周無(wú)極 2026-03-20 | 5/250 |
|
|
[考研] 295材料求調(diào)劑,一志愿武漢理工085601專碩 +5 | Charlieyq 2026-03-19 | 5/250 |
|
|
[考研] 一志愿 南京航空航天大學(xué)大學(xué) ,080500材料科學(xué)與工程學(xué)碩 +5 | @taotao 2026-03-20 | 5/250 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +7 | 困于星晨 2026-03-17 | 9/450 |
|
|
[考研] 一志愿福大288有機(jī)化學(xué),求調(diào)劑 +3 | 小木蟲200408204 2026-03-18 | 3/150 |
|
|
[考研] 293求調(diào)劑 +11 | zjl的號(hào) 2026-03-16 | 16/800 |
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
[考研]
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
[考研] 機(jī)械專碩325,尋找調(diào)劑院校 +3 | y9999 2026-03-15 | 5/250 |
|
|
[考研] 中科院材料273求調(diào)劑 +4 | yzydy 2026-03-15 | 4/200 |
|