[Wien] [SPAM?] Re: "case.insp" to define band character for plotting
Zhou Bing
umbingz at isl.ac.cn
Tue Jul 10 16:39:54 CEST 2012
郭怀红你好,
我也是WIEN2k的用户,目前从事“百人计划”的研究,我正在做硼酸盐矿物中B原子位置p电子轨道的px, py和pz的分解,就此我想请教你:
1、我的矿物是三斜晶系;
2、px, py和pz的分解和projected时候,是否应该在PAS坐标系?是否需要在local rotation matrix和global coordinate system间转换?
3、如需要这样的转换,应如何编辑相应的输入文件如case.inq?
谢谢!
周兵
-----原始邮件-----
发件人: guohuaihong <hhguo at imr.ac.cn>
发送时间: 2012年7月8日 星期日
收件人: "A Mailing list for WIEN2k users" <wien at zeus.theochem.tuwien.ac.at>
抄送:
主题: [Wien] "case.insp" to define band character for plotting
Dear Wien2K users and Prof. Blaha:
When calculating band structure with band character for plotting, we need to change
"case.insp" file accordingly. I have two questions concerning with 'jtype':
1. Is jtype (0,1,2,3) correspoding to orbital (s,p,d,f) for each atom speficified ?
2. How to define 'jtype' if I want to calculate band character of projected orbitals, such as Px, Py
and dx2-y2 and so on?
In the SRC_spaghetti/spag.f, PX, PY, PZ, DXY, DYZ, DXZ, DX2Y2 and DZ2 as listed below may give
some hint, but I am still confused with it.
===============================================
430 xmlabel1(:)=label1(:)
431 index_shift=0
432 do jj1=1,3
433 do ii1=1,39
434 if(xmlabel1(ii1:ii1+1).eq.'PX') then
435 index_shift = index_shift+4
436 xmlabel1(! ii1+6:12+index_shift) = xmlabel1(ii1+2:12+index_shift-4)
437 xmlabel1(ii1:ii1+5) ='p'//achar(92)//'sx'//achar(92)//'N'
438 endif
439 if(xmlabel1(ii1:ii1+1).eq.'PY') then
440 index_shift = index_shift+4
441 xmlabel1(ii1+6:12+index_shift) = xmlabel1(ii1+2:12+index_shift-4)
442 &nb! sp; & nbsp; xmlabel1(ii1:ii1+5) ='p'//achar(92)//'sy'//achar(92)//'N'
443 endif
444 if(xmlabel1(ii1:ii1+1).eq.'PZ') then
445 index_shift = index_shift+4
446 xmlabel1(ii1+6:12+index_shift) = xmlabel1(ii1+2:12+index_shift-4)
447 xmlabel1(ii1:ii1+5) ='p'//achar(92)//'sz'//achar(92)//'N'
&n! bsp; 448 endif
449 enddo !ii1
450 do ii1=1,39
451 if(xmlabel1(ii1:ii1+2).eq.'DZ2') then
452 index_shift = index_shift+6
453 xmlabel1(ii1+9:12+index_shift) = xmlabel1(ii1+3:12+index_shift-6)
454 &n! bsp; xmlabel1(ii1:ii1+8) ='d'//achar(92)//'sz'//achar(92)//'S2'//achar(92)//'N'
455 endif
456 if(xmlabel1(ii1:ii1+2).eq.'DXY') then
457 index_shift = index_shift+4
458 xmlabel1(ii1+7:12+index_shift) = xmlabel1(ii1+3:12+index_shift-4)
459 xmlabel1(ii1:ii1+6) ='d'//achar(92)//'sxy'//achar(92)//'! N'//achar(92)//'N'
460 endif
461 if(xmlabel1(ii1:ii1+2).eq.'DXZ') then
462 index_shift = index_shift+4
463 xmlabel1(ii1+7:12+index_shift) = xmlabel1(ii1+3:12+index_shift-4)
464 xmlabel1(ii1:ii1+6) ='d'//achar(92)//'sxz'//achar(92)//'N'//achar(92)//'N'
465 ! end if
466 if(xmlabel1(ii1:ii1+2).eq.'DYZ') then
467 index_shift = index_shift+4
468 xmlabel1(ii1+7:12+index_shift) = xmlabel1(ii1+3:12+index_shift-4)
469 xmlabel1(ii1:ii1+6) ='d'//achar(92)//'syz'//achar(92)//'N'//achar(92)//'N'
470 endif
471  ! ; enddo !ii1
472 do ii1=1,39
473 if(xmlabel1(ii1:ii1+4).eq.'DX2Y2') then
474 index_shift = index_shift+13
475 xmlabel1(ii1+18:12+index_shift) = xmlabel1(ii1+5:12+index_shift-13)
476 xmlabel1(ii1:ii1+17)='d'//achar(92)//'sx'//achar(92)//'S2'//achar(92)//'N'//achar(92)//'s-y'//achar(92)//'S2'//achar(92)//'N'
477 endif
==============================! =======================================
Can you please give me some tips about it, thanks in advance.
Yours,
H.H. GUO
Magnetism and Magnetic Materials Division
Shenyang Materials Science National Laboratory
Institute of Metal Research
Chinese Academy of Sciences
72 Wenhua Road,Shenyang 110016, China
+86-15140243901 (mobile)
work: hhguo at imr.ac.cn
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://zeus.theochem.tuwien.ac.at/pipermail/wien/attachments/20120710/13cd898f/attachment.htm>
More information about the Wien
mailing list