Lines Matching refs:orbspin
76 integer orbspin(6),orbindex(6),off(6),blck(6)
201 orbspin(1) = int_mb(k_spin+t_p4b-1)-1
202 orbspin(2) = int_mb(k_spin+t_p5b-1)-1
203 orbspin(3) = int_mb(k_spin+t_p6b-1)-1
204 orbspin(4) = int_mb(k_spin+t_h1b-1)-1
205 orbspin(5) = int_mb(k_spin+t_h2b-1)-1
206 orbspin(6) = int_mb(k_spin+t_h3b-1)-1
208 orbindex(1) = (1-orbspin(1)+int_mb(k_mo_indexm(iref)+
210 orbindex(2) = (1-orbspin(2)+int_mb(k_mo_indexm(iref)+
212 orbindex(3) = (1-orbspin(3)+int_mb(k_mo_indexm(iref)+
214 orbindex(4) = (1-orbspin(4)+int_mb(k_mo_indexm(iref)+
216 orbindex(5) = (1-orbspin(5)+int_mb(k_mo_indexm(iref)+
218 orbindex(6) = (1-orbspin(6)+int_mb(k_mo_indexm(iref)+
222 blck(j) = orbinblck(orbindex(j),orbspin(j)+1,1)
223 off(j) = offsetinblck(orbindex(j),orbspin(j)+1,1)