| 2 | 1/1 | 返回列表 |
| 查看: 1874 | 回復(fù): 1 | ||||
[交流]
vasp 掃面靜電勢(electrostatic potential)線 已有1人參與
|
|
本來在也在論壇里看到了一個處理LOCPOT文件的fortran語言,但是編輯不通過,所以自己寫了一個!在自己的機子上是可以運行的,拿來分享一下!下面貼出程序語言: parameter(nx=60,ny=60,nz=60, natoms=3) real pot(nx*ny*nz),pot2(nx,ny,nz),pot3(nz) open(1,file="LOCPOT") open(2,file="outdata") do i=1,7 read(1,*) enddo do i=1,natoms+3 read(1,*) enddo do i=1,nx*ny*nz/5 read(1,*)pot((i-1)*5+1),pot((i-1)*5+2),pot((i-1)*5+3),pot((i-1)*5+4),pot((i-1)*5+5) enddo a=0 do h=1,nx do k=1,ny do l=1,nz a=a+1 pot2(h,k,l)=pot(a) enddo enddo enddo pot3(nz)=0 do i=1,nz do j=1,nx do k=1,ny pot3(i)=pot3(i)+pot2(k,j,i)/(nx*ny/1.0d0) enddo enddo write(2,*)pot3(i) enddo close(1) close(2) end 修改的話,只需要改紅字的部分,其中nx,ny,nz的值分別是你的LOCPOT文件中數(shù)據(jù)輸出的格式,即第(10+natoms)行的三個數(shù),natoms則是整個體系中的原子的個數(shù),得到的outdata中的數(shù)據(jù)則是要求的z方向上的nz個數(shù)據(jù),然后你自己作圖,outdata中的數(shù)據(jù)是你的縱坐標,橫坐標是你建立模型的z方向上的長度。[ Last edited by gyldmy on 2012-8-22 at 16:29 ] |
第一性原理 |
| thx |
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085701環(huán)境工程求調(diào)劑 +6 | 多久上課 2026-03-27 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 266求調(diào)劑 +11 | 陽陽哇塞 2026-03-27 | 12/600 |
|
|
[考研] 265求調(diào)劑 +5 | 小木蟲085600 2026-03-27 | 5/250 |
|
|
[考研] 266分求材料化工冶金礦業(yè)等專業(yè)的調(diào)劑 +4 | 哇呼哼呼哼 2026-03-26 | 4/200 |
|
|
[考研] 07化學280分求調(diào)劑 +10 | 722865 2026-03-23 | 10/500 |
|
|
[考研] 085701環(huán)境工程,267求調(diào)劑 +9 | minht 2026-03-26 | 9/450 |
|
|
[考研] 一志愿211,335分,0856,求調(diào)劑院校和導(dǎo)師 +4 | 傾____蕭 2026-03-27 | 5/250 |
|
|
[考研] 一志愿鄭大085600,310分求調(diào)劑 +5 | 李瀟可 2026-03-26 | 5/250 |
|
|
[考研] 284求調(diào)劑 +11 | junqihahaha 2026-03-26 | 12/600 |
|
|
[考研] 求調(diào)劑 一志愿 本科 北科大 化學 343 +6 | 13831862839 2026-03-24 | 7/350 |
|
|
[考研]
|
平樂樂樂 2026-03-26 | 4/200 |
|
|
[考研] 22 350 本科985求調(diào)劑,求老登收留 +4 | 李軼男003 2026-03-20 | 4/200 |
|
|
[考研] 263求調(diào)劑 +6 | yqdszhdap- 2026-03-22 | 10/500 |
|
|
[考研] 打過很多競賽,085406控制工程300分,求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
[考研] 307求調(diào)劑 +3 | 余意卿 2026-03-21 | 6/300 |
|
|
[考研] 一志愿國科過程所081700,274求調(diào)劑 +3 | 三水研0水立方 2026-03-23 | 3/150 |
|
|
[考研] 384求調(diào)劑 +3 | 子系博 2026-03-22 | 6/300 |
|
|
[考研] 一志愿重慶大學085700資源與環(huán)境,總分308求調(diào)劑 +7 | 墨墨漠 2026-03-23 | 8/400 |
|
|
[考研] 接收2026碩士調(diào)劑(學碩+專碩) +4 | allen-yin 2026-03-23 | 6/300 |
|
|
[考研] 070300,一志愿北航320求調(diào)劑 +3 | Jerry0216 2026-03-22 | 5/250 |
|