 |
 |
 |
| 24小時熱門版塊排行榜 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1145 | 回復: 5 | ||||
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.....這種順序排列的。現(xiàn)在，我想要它按k-point=1,k-point=2,k-point=3,k-point=4......這種順序排列在txt中。求幫我寫一段這樣的fortran代碼，萬分感謝。為方便操作，我把原件上傳了上來。 |
回復此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負責。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : unit_bands.txt
2013-07-25 17:42:52, 38.96 K
» 猜你喜歡
求化學調(diào)劑
已經(jīng)有5人回復
-
085600，材料與化工321分求調(diào)劑
已經(jīng)有10人回復
-
求調(diào)劑
已經(jīng)有4人回復
-
0703 化學 求調(diào)劑，一志愿山東大學 342 分
已經(jīng)有5人回復
-
一志愿南開大學0710生物學359求調(diào)劑
已經(jīng)有3人回復
-
085600，專業(yè)課化工原理，320分求調(diào)劑
已經(jīng)有4人回復
-
材料與化工272求調(diào)劑
已經(jīng)有16人回復
-
290求調(diào)劑
已經(jīng)有3人回復
-
327求調(diào)劑
已經(jīng)有3人回復
-
085600 286分 材料求調(diào)劑
已經(jīng)有11人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求助：intel visual fortran的格式問題
已經(jīng)有14人回復
- fortran，帶字符的數(shù)據(jù)讀取與存儲！
已經(jīng)有11人回復
- fortran中計算數(shù)據(jù)寫入文本為 NAN的問題
已經(jīng)有4人回復
- fortran中如何處理字符和數(shù)據(jù)混合的文件
已經(jīng)有6人回復
- Fortran數(shù)據(jù)讀入格式的修改
已經(jīng)有5人回復
- Fortran如何讀取數(shù)據(jù)避開空行？
已經(jīng)有7人回復
- 求助fortran編程時怎么使用數(shù)據(jù)庫
已經(jīng)有4人回復
- 【求助】matlab數(shù)據(jù)導入Fortran
已經(jīng)有9人回復
- 【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復
- 【求助】FORTRAN寫文件時每行開頭都多了一個空格？
已經(jīng)有6人回復
- 【求助】FORTRAN讀取文本文件
已經(jīng)有9人回復
- 【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問題�！疽淹杲Y(jié)】
已經(jīng)有12人回復
- 【求助】初學fortran，
已經(jīng)有15人回復
- 請教fortran導txt數(shù)據(jù)進origin問題
已經(jīng)有1人回復
- 【求助】求指點，在Fortran里面，怎樣實現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復
- 【求助】請問一下fortran的可視化編程
已經(jīng)有7人回復
- 【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復
- 【求助】matlab讀取fortran輸出的txt文件【已解決】
已經(jīng)有3人回復
- 【求助】有關(guān)fortran進行數(shù)值模擬
已經(jīng)有10人回復
jerkwin
專家顧問 (正式寫手)
-
專家經(jīng)驗: +14 - 應助: 454 (碩士)
- 金幣: 20699.1
- 散金: 148
- 紅花: 81
- 帖子: 813
- 在線: 2648.3小時
- 蟲號: 1023452
- 注冊: 2010-05-19
- 專業(yè): 理論和計算化學
- 管轄: 分子模擬
2樓2013-07-25 20:45:07
alvin510
銀蟲 (小有名氣)
- 應助: 1 (幼兒園)
- 金幣: 1784.3
- 散金: 423
- 紅花: 4
- 帖子: 288
- 在線: 225.4小時
- 蟲號: 1245360
- 注冊: 2011-03-26
- 專業(yè): 人工晶體
3樓2013-07-26 17:26:52
alvin510
銀蟲 (小有名氣)
- 應助: 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序列. 當nk=1時能和txt中的k-pont 1對應。但當nk=2時，讀入的是k-point 7的數(shù)據(jù)，而存進數(shù)組的序列為nk=2.后面的也跟著對應不了。求幫助我解決這個難題。萬分感謝。 |
4樓2013-07-26 17:37:39
jerkwin
專家顧問 (正式寫手)
-
專家經(jīng)驗: +14 - 應助: 454 (碩士)
- 金幣: 20699.1
- 散金: 148
- 紅花: 81
- 帖子: 813
- 在線: 2648.3小時
- 蟲號: 1023452
- 注冊: 2010-05-19
- 專業(yè): 理論和計算化學
- 管轄: 分子模擬
【答案】應助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★
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) 應該改成 read(dummy(locat_str+7,*) ndum, kpoints(1,ndum), kpoints(2,ndum), kpoints(3,ndum), weight(ndum) 其他類似的地方也要改 有時間弄這些，花兩天時間學學bash腳本，早就弄好了。 |
5樓2013-07-26 21:16:23
rsb_long
至尊木蟲 (著名寫手)
- 應助: 15 (小學生)
- 金幣: 19110.9
- 帖子: 1268
- 在線: 405.3小時
- 蟲號: 80232
- 注冊: 2005-07-14
- 專業(yè): 計算機軟件
6樓2013-07-28 08:54:57
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 alvin510 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 290求調(diào)劑 +3 | dfffsar 2026-03-29 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿河北工業(yè)大學0817化工278分求調(diào)劑 +10 | jhybd 2026-03-23 | 15/750 |
|
|
[考研] 294分080500材料科學與工程求調(diào)劑 +8 | 柳溪邊 2026-03-26 | 8/400 |
|
|
|
[考研] 352分-085602-一志愿985 +5 | 海納百川Ly 2026-03-29 | 5/250 |
|
|
|
[考研] 本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專業(yè)都可以 +6 | 芝士雪baoo 2026-03-28 | 8/400 |
|
|
|
[考研] 求調(diào)劑 +7 | 爭取九點睡 2026-03-28 | 8/400 |
|
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
|
[考研] 322求調(diào)劑 +5 | 舊吢 2026-03-24 | 5/250 |
|
|
|
[考研] 266分，求材料冶金能源化工等調(diào)劑 +7 | 哇呼哼呼哼 2026-03-27 | 9/450 |
|
|
|
[考研] 286求調(diào)劑 +12 | PolarBear11 2026-03-26 | 12/600 |
|
|
|
[考研] 339求調(diào)劑，想調(diào)回江蘇 +6 | 烤麥芽 2026-03-27 | 8/400 |
|
|
|
[考研] 291求調(diào)劑 +6 | HanBeiNingZC 2026-03-24 | 6/300 |
|
|
|
[考研] 085404求調(diào)劑，總分309，本科經(jīng)歷較為豐富 +4 | 來財aa 2026-03-25 | 4/200 |
|
|
|
[考研] 085600材料與化工調(diào)劑 +10 | A-哆啦Z夢 2026-03-23 | 16/800 |
|
|
|
[考研] 298調(diào)劑 +3 | jiyingjie123 2026-03-27 | 3/150 |
|
|
|
[考研] 317求調(diào)劑 +7 | 蛋黃咸肉粽 2026-03-26 | 7/350 |
|
|
|
[考研] 327求調(diào)劑 +7 | prayer13 2026-03-23 | 7/350 |
|
|
|
[考研] 一志愿吉大化學322求調(diào)劑 +4 | 17501029541 2026-03-23 | 6/300 |
|
|
|
[考研] 材料/農(nóng)業(yè)專業(yè)，07/08開頭均可，過線就行 +3 | 呵唔哦豁 2026-03-23 | 4/200 |
|
|
|
[考研] 269求調(diào)劑 +4 | 我想讀研11 2026-03-23 | 4/200 |
|