| 查看: 205 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿a区211，085601-307分求调剂
已经有25人回复
-
求材料调剂，一志愿郑州大学289分
已经有5人回复
-
271分求调剂学校
已经有4人回复
-
总分328生物与医药考数学求调剂
已经有4人回复
-
一志愿陕西师范大学生物学317分
已经有5人回复
-
315分 085602 求调剂
已经有11人回复
-
298分 070300求调剂
已经有9人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有12人回复
-
265求调剂
已经有9人回复
-
085600材料与化工调剂
已经有20人回复
