 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1149 | 回復(fù): 5 | ||||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||||
alvin510銀蟲 (小有名氣)
|
[求助]
求txt中數(shù)據(jù)重新排序的fortran代碼
|
|||
| 我用MS計算了一個晶體的能帶結(jié)構(gòu)，其結(jié)果保存在了unitbands.txt文件中。不幸的是，其中的結(jié)果沒有按自然順序排列，即原文件是按k-point =1,k-point=7,k-point=13,k-point=19,k-point=25,kpoint=31,k-point=2,k-point=8,k-point=14.....這種順序排列的�，F(xiàn)在，我想要它按k-point=1,k-point=2,k-point=3,k-point=4......這種順序排列在txt中。求幫我寫一段這樣的fortran代碼，萬分感謝。為方便操作，我把原件上傳了上來。 |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : unit_bands.txt
2013-07-25 17:42:52, 38.96 K
» 猜你喜歡
調(diào)劑
已經(jīng)有6人回復(fù)
-
280求調(diào)劑
已經(jīng)有6人回復(fù)
-
302求調(diào)劑一志愿華中師范大學(xué)
已經(jīng)有5人回復(fù)
-
346求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料專碩322分
已經(jīng)有9人回復(fù)
-
372分材料與化工（085600）一志愿湖南大學(xué)求調(diào)劑
已經(jīng)有5人回復(fù)
-
318求調(diào)劑，計算材料方向
已經(jīng)有10人回復(fù)
-
310求調(diào)劑
已經(jīng)有14人回復(fù)
-
315求調(diào)劑
已經(jīng)有3人回復(fù)
-
265求調(diào)劑
已經(jīng)有13人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求助：intel visual fortran的格式問題
已經(jīng)有14人回復(fù)
- fortran，帶字符的數(shù)據(jù)讀取與存儲！
已經(jīng)有11人回復(fù)
- fortran中計算數(shù)據(jù)寫入文本為 NAN的問題
已經(jīng)有4人回復(fù)
- fortran中如何處理字符和數(shù)據(jù)混合的文件
已經(jīng)有6人回復(fù)
- Fortran數(shù)據(jù)讀入格式的修改
已經(jīng)有5人回復(fù)
- Fortran如何讀取數(shù)據(jù)避開空行？
已經(jīng)有7人回復(fù)
- 求助fortran編程時怎么使用數(shù)據(jù)庫
已經(jīng)有4人回復(fù)
- 【求助】matlab數(shù)據(jù)導(dǎo)入Fortran
已經(jīng)有9人回復(fù)
- 【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復(fù)
- 【求助】FORTRAN寫文件時每行開頭都多了一個空格？
已經(jīng)有6人回復(fù)
- 【求助】FORTRAN讀取文本文件
已經(jīng)有9人回復(fù)
- 【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問題。【已完結(jié)】
已經(jīng)有12人回復(fù)
- 【求助】初學(xué)fortran，
已經(jīng)有15人回復(fù)
- 請教fortran導(dǎo)txt數(shù)據(jù)進(jìn)origin問題
已經(jīng)有1人回復(fù)
- 【求助】求指點，在Fortran里面，怎樣實現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復(fù)
- 【求助】請問一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復(fù)
- 【求助】matlab讀取fortran輸出的txt文件【已解決】
已經(jīng)有3人回復(fù)
- 【求助】有關(guān)fortran進(jìn)行數(shù)值模擬
已經(jīng)有10人回復(fù)
alvin510
銀蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1784.3
- 散金: 423
- 紅花: 4
- 帖子: 288
- 在線: 225.4小時
- 蟲號: 1245360
- 注冊: 2011-03-26
- 專業(yè): 人工晶體
3樓2013-07-26 17:26:52
jerkwin
專家顧問 (正式寫手)
-
專家經(jīng)驗: +14 - 應(yīng)助: 454 (碩士)
- 金幣: 20699.1
- 散金: 148
- 紅花: 81
- 帖子: 813
- 在線: 2648.3小時
- 蟲號: 1023452
- 注冊: 2010-05-19
- 專業(yè): 理論和計算化學(xué)
- 管轄: 分子模擬
2樓2013-07-25 20:45:07
alvin510
銀蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1784.3
- 散金: 423
- 紅花: 4
- 帖子: 288
- 在線: 225.4小時
- 蟲號: 1245360
- 注冊: 2011-03-26
- 專業(yè): 人工晶體
|
我把數(shù)據(jù)讀入數(shù)組時，用的代碼是 do nk = 1, nkpts read(fileid,"(A80)"  dummylocat_str = index(dummy,'K-point') read(dummy(locat_str+7  ,*) ndum, kpoints(1,nk), kpoints(2,nk), kpoints(3,nk), weight(nk)do ns = 1, nspins read(fileid,*) dummy do nb = 1, num_bands read(fileid,"(3XF11.8)" eigenvalues(nb, nk, ns)end do enddo enddo close(fileid) 其中，nk就代表了k-point序列. 當(dāng)nk=1時能和txt中的k-pont 1對應(yīng)。但當(dāng)nk=2時，讀入的是k-point 7的數(shù)據(jù)，而存進(jìn)數(shù)組的序列為nk=2.后面的也跟著對應(yīng)不了。求幫助我解決這個難題。萬分感謝。 |
4樓2013-07-26 17:37:39
jerkwin
專家顧問 (正式寫手)
-
專家經(jīng)驗: +14 - 應(yīng)助: 454 (碩士)
- 金幣: 20699.1
- 散金: 148
- 紅花: 81
- 帖子: 813
- 在線: 2648.3小時
- 蟲號: 1023452
- 注冊: 2010-05-19
- 專業(yè): 理論和計算化學(xué)
- 管轄: 分子模擬
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
alvin510: 金幣+10, ★★★★★最佳答案 2013-07-27 09:22:48
alvin510: 金幣+10, ★★★★★最佳答案 2013-07-27 09:22:48
|
這里 read(dummy(locat_str+7,*) ndum, kpoints(1,nk), kpoints(2,nk), kpoints(3,nk), weight(nk) 應(yīng)該改成 read(dummy(locat_str+7,*) ndum, kpoints(1,ndum), kpoints(2,ndum), kpoints(3,ndum), weight(ndum) 其他類似的地方也要改 有時間弄這些，花兩天時間學(xué)學(xué)bash腳本，早就弄好了。 |
5樓2013-07-26 21:16:23
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 302求調(diào)劑一志愿華中師范大學(xué) +5 | 小江小江江江 2026-04-02 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 求調(diào)劑求調(diào)劑 +6 | 121. 2026-04-02 | 6/300 |
|
|
|
[考研] 286分調(diào)劑 +20 | Faune 2026-03-30 | 22/1100 |
|
|
|
[考研] 材料專業(yè)求調(diào)劑 +10 | 月月鳥木 2026-04-01 | 10/500 |
|
|
|
[考研] 329求調(diào)劑 +8 | miaodesi 2026-04-02 | 10/500 |
|
|
|
[考研] 321求調(diào)劑 +9 | y-yh 2026-04-01 | 10/500 |
|
|
|
[考研] 求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +11 | @taotao 2026-03-29 | 11/550 |
|
|
|
[考研] 354求調(diào)劑 +4 | lxb598 2026-03-31 | 5/250 |
|
|
|
[考研] 化學(xué)工程專碩324分，一志愿中國礦業(yè)大學(xué)求調(diào)劑 +7 | 耿耿1314 2026-04-01 | 7/350 |
|
|
|
[考研] 266分求材料化工冶金礦業(yè)等專業(yè)的調(diào)劑 +7 | 哇呼哼呼哼 2026-03-26 | 7/350 |
|
|
|
[考研] 070300一志愿211，312分求調(diào)劑院校 +14 | 小黃鴨寶 2026-03-30 | 14/700 |
|
|
|
[考研] 0710生物學(xué)求調(diào)劑！ +6 | 敘述文 2026-03-31 | 6/300 |
|
|
|
[考研] 一志愿a區(qū)211，085601-307分求調(diào)劑 +10 | 黨嘉豪 2026-03-31 | 23/1150 |
|
|
|
[考研] 322求調(diào)劑：一志愿湖南大學(xué) 材料與化工（085600），已過六級。 +10 | XX小鄧 2026-03-29 | 10/500 |
|
|
|
[考研] 085600，專業(yè)課化工原理，320分求調(diào)劑 +6 | 大饞小子 2026-03-29 | 6/300 |
|
|
|
[考研] 293分求調(diào)劑，外語為俄語 +5 | 加一一九 2026-03-31 | 5/250 |
|
|
|
[考研] 本科211總分289，08工學(xué)真心求調(diào)劑 +3 | utopiaE 2026-03-30 | 3/150 |
|
|
|
[考研] 抱歉 +4 | 田洪有 2026-03-30 | 4/200 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6 | 崔wj 2026-03-26 | 6/300 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑 +7 | AZMK 2026-03-28 | 11/550 |
|