| 查看: 202 | 回复: 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 ] |
回复此楼» 猜你喜欢
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有10人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有9人回复
-
今年春晚有几个节目很不错，点赞！
已经有10人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有10人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
