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

登錄注冊

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

24小時熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

wuluo1213

木蟲 (小有名氣)

應(yīng)助: 5 (幼兒園)
金幣: 2291.6
散金: 10
帖子: 275
在線: 59.5小時
蟲號: 940174
注冊: 2010-01-10
專業(yè): 制造系統(tǒng)與自動化

★
jjdg(金幣+1): 感謝參與 2011-11-03 01:29:46

這個不懂，呵呵，也在期待高手的講解啊、

贊一下(1人)

回復(fù)此樓

沒什么好與不好。

11樓2011-11-02 20:29:53

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

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

3樓: Originally posted by snoopyzhao at 2011-10-29 12:16:13:
隱式聲明是 fortran 的特色，默認(rèn)情況下，所有以 I、J、K、L、M、N 開頭的變量都是整型，所有以這些字母以外字母開頭的變量都是實型。如果你希望以 A 開頭的也是實型，你可以用 implicit integer (A) 來聲明所 ...

請問：
   OPEN(UNIT=12,FILE=WAVECAR,ACCESS='DIRECT', &
            FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%ICMPLX)
這里面最后一個參量RECL是干什么的？去掉影不影響？
謝謝！

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

12樓2011-11-05 10:48:59

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

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

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

★
jjdg(金幣+1): 感謝參與 2011-11-05 15:41:19
ben_ladeng: 專家考核存檔 2011-11-09 00:18:32

引用回帖:

12樓: Originally posted by 賀儀 at 2011-11-05 10:48:59:
請問：
   OPEN(UNIT=12,FILE=WAVECAR,ACCESS='DIRECT', &
            FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%ICMPLX)
這里面最后一個參量RECL是干什么的？去掉影不影響？
謝謝！

自己看吧：

The recl specifier has a positive value that specifies the length of each
record if the access method is direct or the maximum length of a
record if the access method is sequential. If the file is connected for
formatted input/output, the length is the number of characters. If the
file is connected for unformatted input/output, the length is measured
in processor-dependent units. The length may, for example, be the
number of computer words. If the file exists, the length of the record
specified must be an allowed record length. If the file does not exist,
the file is created with the specified length as an allowed length.

贊一下(2人)

回復(fù)此樓

13樓2011-11-05 14:28:37

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

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

13樓: Originally posted by snoopyzhao at 2011-11-05 14:28:37:
自己看吧：

The recl specifier has a positive value that specifies the length of each
record if the access method is direct or the maximum length of a
record if the access method is sequenti ...

再問一下：寫入文件是這樣打開的
OPEN(UNIT=12,FILE=WAVECAR,ACCESS='DIRECT', &
FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%ICMPLX)
我在程序中加入
write（*，*） IO%ICMPLX
得到這個參量的數(shù)值為17632，但是我在打開的時候用
OPEN(UNIT=12,FILE=WAVECAR,ACCESS='DIRECT', &
FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=17632)
可以嗎？
我現(xiàn)在這么做的，但是取出來的和寫入的數(shù)值不一樣，這是怎么回事呢？

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

14樓2011-11-08 16:23:30

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

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

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

★
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2011-11-08 18:11:44
ben_ladeng: 專家考核存檔 2011-11-09 00:18:45

引用回帖:

14樓: Originally posted by 賀儀 at 2011-11-08 16:23:30:
再問一下：寫入文件是這樣打開的
OPEN(UNIT=12,FILE=WAVECAR,ACCESS='DIRECT', &
FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%ICMPLX)
我在程序中加入
write（*，*） IO%ICMPLX
得到這 ...

這個你最好給一個可以重現(xiàn)你問題的例子，否則真不好說，呵呵……

另外，你的 RECL 有那么長嗎？

贊一下(2人)

回復(fù)此樓

15樓2011-11-08 16:28:30

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

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

15樓: Originally posted by snoopyzhao at 2011-11-08 16:28:30:
這個你最好給一個可以重現(xiàn)你問題的例子，否則真不好說，呵呵……

另外，你的 RECL 有那么長嗎？

IF (PRESENT(EXT)) THEN
OPEN(UNIT=12,FILE=DIR_APP(1

IR_LEN)//'WAVECAR.'//EXT,ACCESS='DIRECT', &
            FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%IRECLW)
   ELSE
      OPEN(UNIT=12,FILE=DIR_APP(1

IR_LEN)//'WAVECAR',ACCESS='DIRECT', &
            FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%IRECLW)
   ENDIF

   ALLOCATE(CW(NPL_TOT),CRD(NPL_TOT),EIG(WDES%NB_TOT))
我在著后面加上了
   junk=.TRUE.
   DO I=1,9
      write(FL,'(a,i0)') 'WI', I
      INQUIRE(FILE=FL,EXIST=junk)
      IF (.NOT.junk) THEN
         OPEN(991, FILE=FL,STATUS = 'NEW')
         EXIT
      ENDIF
   ENDDO
   WRITE(991,*)  'RECL :',IO%IRECLW
輸出的，沒有錯吧？

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

16樓2011-11-08 16:35:49

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

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

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

賀儀(金幣+5): 多謝指教！ 2011-11-08 22:04:02
ben_ladeng: 專家考核存檔 2011-11-09 00:19:00

引用回帖:

16樓: Originally posted by 賀儀 at 2011-11-08 16:35:49:
IF (PRESENT(EXT)) THEN
OPEN(UNIT=12,FILE=DIR_APP(1

IR_LEN)//'WAVECAR.'//EXT,ACCESS='DIRECT', &
            FORM='UNFORMATTED',STATUS='UNKNOWN',RECL=IO%IRECLW)
   ELSE
   ...

這不是一個可以重現(xiàn)的例子，也就是說，不是一個完整的程序……

你的 IO%IRECLW 到底是個啥？它的值是如何得到的？

贊一下(1人)

回復(fù)此樓

17樓2011-11-08 16:55:26

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

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

17樓: Originally posted by snoopyzhao at 2011-11-08 16:55:26:
這不是一個可以重現(xiàn)的例子，也就是說，不是一個完整的程序……

你的 IO%IRECLW 到底是個啥？它的值是如何得到的？

大哥這個是vasp的WAVECAR輸出的子程序，里面有很多調(diào)用的其他子程序，不可能全部看完的，只是感覺上面我加的部分沒錯的話就應(yīng)該可以吧

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

18樓2011-11-08 17:02:55

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

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

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

★ ★
余澤成(金幣+2): 謝謝參與應(yīng)助！ 2011-11-08 18:11:57
ben_ladeng: 專家考核存檔 2011-11-09 00:19:08

引用回帖:

18樓: Originally posted by 賀儀 at 2011-11-08 17:02:55:
大哥這個是vasp的WAVECAR輸出的子程序，里面有很多調(diào)用的其他子程序，不可能全部看完的，只是感覺上面我加的部分沒錯的話就應(yīng)該可以吧

好吧，你直接用就好了，呵呵……
至于錯還是沒有錯，你只能自己測試了，在 Fortran 中讀寫文件是一件很麻煩的事情，尤其是在文件還是 unformatted 的情況下……

贊一下(2人)

回復(fù)此樓

19樓2011-11-08 17:19:02

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

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

19樓: Originally posted by snoopyzhao at 2011-11-08 17:19:02:
好吧，你直接用就好了，呵呵……
至于錯還是沒有錯，你只能自己測試了，在 Fortran 中讀寫文件是一件很麻煩的事情，尤其是在文件還是 unformatted 的情況下……

對于這種不知道輸出長度的輸出，如果要格式化輸出怎么寫個格式呀？如
WRITE(991,*) RNPL,WDES%VKPT(1,K),WDES%VKPT(2,K), &
WDES%VKPT(3,K),(EIG(J),W%FERTOT(J,K,ISP),J=1,WDES%NB_TOT)

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

20樓2011-11-08 22:03:45

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

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

返回列表

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

[考研] 385分生物學(xué)（071000）求調(diào)劑 +4	qf626 2026-04-01	4/200	2026-04-02 06:44 by ilovexiaobin
[考研] 一志愿北京科技，085601總分305求調(diào)劑 +9	半生瓜！ 2026-04-01	10/500	2026-04-01 23:33 by 半生瓜！
[考研] 理學(xué)07化學(xué) 303求調(diào)劑 +12	睿08 2026-03-27	12/600	2026-04-01 22:36 by Dyhoer
[考研] 265求調(diào)劑 +4	林深溫瀾 2026-04-01	6/300	2026-04-01 22:30 by 林深溫瀾
[考研] 286求調(diào)劑 +5	Sa67890. 2026-04-01	7/350	2026-04-01 19:50 by 6781022
[考研] 一志愿北交大材料工程總分358 +7	cs0106 2026-04-01	8/400	2026-04-01 18:34 by 記事本2026
[考研] 314求調(diào)劑 +4	溪云珂 2026-03-26	4/200	2026-04-01 17:00 by oooqiao
[考研] 321求調(diào)劑 +8	y-yh 2026-04-01	8/400	2026-04-01 14:44 by 星空星月
[碩博家園] 博一被送出聯(lián)培感覺不適應(yīng)怎么辦 +3	全村的狗 2026-03-31	3/150	2026-04-01 10:44 by 328838485
[考研] 311（085601）求調(diào)劑 +12	liziyeyeye 2026-03-28	13/650	2026-04-01 00:34 by fmesaito
[考研] 070300化學(xué)專業(yè)279調(diào)劑 +10	哈哈哈^_^ 2026-03-31	10/500	2026-03-31 23:13 by liu823948201
[考研] 334求調(diào)劑 +7	Trying] 2026-03-31	7/350	2026-03-31 12:33 by 無際的草原
[考研] 一志愿大連理工大學(xué)，機械工程學(xué)碩，341 +3	西瓜田的守望者 2026-03-30	3/150	2026-03-31 11:08 by asdfzly
[考研] 266分，求材料相關(guān)專業(yè)調(diào)劑 +10	哇呼哼呼哼 2026-03-30	12/600	2026-03-31 11:00 by 熊一刀
[考研] 269求調(diào)劑 +4	我想讀研11 2026-03-31	4/200	2026-03-31 10:04 by cal0306
[考研] 本科211總分289，08工學(xué)真心求調(diào)劑 +3	utopiaE 2026-03-30	3/150	2026-03-30 23:42 by ms629
[考研] 303求調(diào)劑 +7	DLkz1314. 2026-03-30	7/350	2026-03-30 21:07 by peike
[考研] 332求調(diào)劑 +6	@MZB382400 2026-03-28	6/300	2026-03-30 16:57 by 無際的草原
[考研] 材料與化工304求B區(qū)調(diào)劑 +4	邱gl 2026-03-26	7/350	2026-03-30 08:39 by 探123
[考研] 一志愿南京航空航天大學(xué)材料學(xué)碩求調(diào)劑 +3	@taotao 2026-03-28	3/150	2026-03-28 10:26 by JourneyLucky