版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門(mén)版塊排行榜

返回列表

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)

[求助] 求助簡(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ù)此樓

» 猜你喜歡

求調(diào)劑院校信息已經(jīng)有4人回復(fù)
085600材料與化工306 已經(jīng)有4人回復(fù)
286求調(diào)劑已經(jīng)有10人回復(fù)
328求調(diào)劑，英語(yǔ)六級(jí)551，有科研經(jīng)歷已經(jīng)有9人回復(fù)
一志愿北京化工大學(xué)070300 學(xué)碩336求調(diào)劑已經(jīng)有4人回復(fù)
286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！已經(jīng)有8人回復(fù)
資源與環(huán)境調(diào)劑申請(qǐng)(333分) 已經(jīng)有5人回復(fù)
280求調(diào)劑已經(jīng)有12人回復(fù)
269專碩求調(diào)劑已經(jīng)有5人回復(fù)
材料學(xué)碩301分求調(diào)劑已經(jīng)有7人回復(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ù)

1樓 2011-09-01 21:42:42

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

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

把 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)
^

贊一下(1人)

回復(fù)此樓

2樓2011-09-01 22:07:11

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

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)

引用回帖:

2樓: Originally posted by snoopyzhao at 2011-09-01 22:07:11:
把 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
( ...

為什么real不行呢？試了下把real*8改成dimension好像也可以，這個(gè)能稍微解釋下嗎，謝謝

贊一下

回復(fù)此樓

3樓2011-09-01 22:19:55

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

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)

對(duì)了，忘了說(shuō)一下，您的inid.dat文件生成是這個(gè)（我想要的）嗎（在這個(gè)語(yǔ)句下 write(10,*)  ia(i)語(yǔ)句）

1
  1
  1
  1
  1

贊一下

回復(fù)此樓

4樓2011-09-01 22:24:05

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

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)助回帖

引用回帖:

3樓: Originally posted by lijunjiexm at 2011-09-01 22:19:55:
為什么real不行呢？試了下把real*8改成dimension好像也可以，這個(gè)能稍微解釋下嗎，謝謝

real*8 ia(5) 相當(dāng)于
real* ia
dimension ia(8)

不行的原因是因?yàn)?format 中明確地寫(xiě)了第五項(xiàng)是 i2 格式，即是一個(gè) integer，但 read 語(yǔ)句發(fā)現(xiàn)第 5 項(xiàng)是一個(gè) real*8 的變量……

贊一下

回復(fù)此樓

5樓2011-09-01 22:26:36

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

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)助回帖

★
lijunjiexm(金幣+30): Thanks，看來(lái)format要好好學(xué)學(xué)了 2011-09-01 22:30:26
xzhdty(金幣+1): 謝謝了 2011-09-02 09:20:49

你要是真想把第五項(xiàng)讀成 real，那么，換種方式好了，如：

read(21,2100) idum,xreal,yreal,itemp
ia(i) = itemp

贊一下(1人)

回復(fù)此樓

6樓2011-09-01 22:27:31

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

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é)

引用回帖:

4樓: Originally posted by lijunjiexm at 2011-09-01 22:24:05:
對(duì)了，忘了說(shuō)一下，您的inid.dat文件生成是這個(gè)（我想要的）嗎（在這個(gè)語(yǔ)句下 write(10,*)  ia(i)語(yǔ)句）

1
  1
  1
  1
  1

是這樣的啊……

回復(fù)此樓

7樓2011-09-01 22:28:13

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 lijunjiexm 的主題更新

返回列表

普通表情龍兔虎貓

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 326求調(diào)劑 +5	諾貝爾化學(xué)獎(jiǎng)覬?/a> 2026-03-15	8/400	2026-03-21 19:33 by ColorlessPI
[考研] 材料工程專碩 348分求調(diào)劑 +3	冬辭. 2026-03-17	5/250	2026-03-21 18:47 by 學(xué)員8dgXkO
[考研] 311求調(diào)劑 +3	勇敢的小吳 2026-03-20	3/150	2026-03-21 17:40 by ColorlessPI
[考研] 317求調(diào)劑 +9	申子申申 2026-03-19	15/750	2026-03-21 17:31 by 學(xué)員8dgXkO
[考研] 307求調(diào)劑 +3	余意卿 2026-03-18	3/150	2026-03-21 17:31 by ColorlessPI
[考研] 277材料科學(xué)與工程080500求調(diào)劑 +6	自由煎餅果子 2026-03-16	6/300	2026-03-21 17:21 by 學(xué)員8dgXkO
[考研] 330求調(diào)劑0854 +3	assdll 2026-03-21	3/150	2026-03-21 13:01 by 搏擊518
[考研] 324分 085600材料化工求調(diào)劑 +4	llllkkkhh 2026-03-18	4/200	2026-03-21 01:24 by JourneyLucky
[考研] 一志愿西南交大，求調(diào)劑 +5	材化逐夢(mèng)人 2026-03-18	5/250	2026-03-21 00:26 by JourneyLucky
[考研] 材料專業(yè)求調(diào)劑 +6	hanamiko 2026-03-18	6/300	2026-03-21 00:24 by JourneyLucky
[考研] 22408 344分求調(diào)劑一志愿華電計(jì)算機(jī)技術(shù) +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 304求調(diào)劑 +7	司空. 2026-03-18	7/350	2026-03-20 23:08 by JourneyLucky
[考研] 一志愿西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +4	晨昏線與星海 2026-03-19	4/200	2026-03-20 22:15 by JourneyLucky
[考研] A區(qū)線材料學(xué)調(diào)劑 +5	周周無(wú)極 2026-03-20	5/250	2026-03-20 21:33 by laoshidan
[考研] 一志愿武理材料工程348求調(diào)劑 +3	￣^￣゜汗 2026-03-19	4/200	2026-03-20 21:01 by zhukairuo
[考研] 281求調(diào)劑（0805） +14	煙汐憶海 2026-03-16	25/1250	2026-03-20 15:47 by yuncha
[考研] 312求調(diào)劑 +8	陌宸希 2026-03-16	9/450	2026-03-18 12:39 by Linda Hu
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	9/450	2026-03-18 10:28 by Eember.
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 290求調(diào)劑 +3	p asserby. 2026-03-15	4/200	2026-03-17 16:35 by wangkm

24小時(shí)熱門(mén)版塊排行榜

[求助] 求助簡(jiǎn)單的一個(gè)參數(shù)傳遞問(wèn)題，謝謝

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

[求助] 求助簡(jiǎn)單的一個(gè)參數(shù)傳遞問(wèn)題，謝謝

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: