| 查看: 226 | 回复: 0 | |||
[交流]
【求助】大家看下这个程序是说明什么问题的？
|
|
implicit real*8 (a-h,o-z) dimension dump(20),num(2),x(100),y(100),z(100),chg(100,100,800) dimension chgt(1000),a(3,3) write(*,*) 'Choose input file (LOCPOT=1, CHGCAR=2):' read(*,*) input if (input.eq.1) then open(15,file='LOCPOT') write(6,*) ' Enter fermi energy: ' read(*,*) ef elseif (input.eq.2) then open(15,file='CHGCAR') ef=0.0 elseif ((input.ne.1).and.(input.ne.2)) then write(*,*) ' INPUT ERROR, input must equal to 1 or 2 ' stop endif write(*,*) 'Spin polarized calculation? (no=1, yes=2):' read (*,*) ispin if (ispin.eq.1) then if (input.eq.1) open(16,file='workfn.dat') if (input.eq.2) open(16,file='chgave.dat') [ Last edited by 215215 on 2010-8-27 at 13:03 ] |
回复此楼» 猜你喜欢
申博发邮件
已经有8人回复
-
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有9人回复
-
国社科系统bug了，是不是要放榜了？
已经有7人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有8人回复
-
上海工程技术大学激光智能制造课题组招收博士研究生
已经有8人回复
