[Wien] "case.insp" to define band character for plotting
guohuaihong
hhguo at imr.ac.cn
Sun Jul 8 15:17:42 CEST 2012
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 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'
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 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 endif
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/20120708/2f3f1c46/attachment.htm>
More information about the Wien
mailing list