Searched refs:imppp (Results 1 – 2 of 2) sorted by relevance
| /dports/science/octopus/octopus-10.5/src/hamiltonian/ |
| H A D | dft_u_noncollinear_inc.F90 | 153 integer :: im, imp, impp, imppp, ispin1, ispin2, norbs local
169 do imppp = 1, norbs
178 tmpU = tmpU + this%zn_alt(im,imp,ispin1,ios)*this%zn_alt(impp,imppp,ispin2,ios)&
179 * this%zcoulomb(im,imp,impp,imppp,ispin1,ispin2,ios)
181 tmpJ = tmpJ + this%zn_alt(im,imp,ispin1,ios)*this%zn_alt(impp,imppp,ispin1,ios)&
182 * this%zcoulomb(im,imppp,impp,imp,ispin1,ispin1,ios)
184 tmpJ = tmpJ + this%zn_alt(im,imp,3,ios)*this%zn_alt(impp,imppp,4,ios) &
185 * this%zcoulomb(im,imppp,impp,imp,1,2,ios) &
186 +this%zn_alt(im,imp,4,ios)*this%zn_alt(impp,imppp,3,ios) &
187 * this%zcoulomb(im,imppp,impp,imp,2,1,ios)
|
| H A D | lda_u_inc.F90 | 543 integer :: im, imp, impp, imppp, ispin1, ispin2, norbs local
561 do imppp = 1, norbs
579 numU = numU + tmpU*this%coulomb(im,imp,impp,imppp,ios)
580 numJ = numJ + tmpJ*this%coulomb(im,imppp,impp,imp,ios)
686 integer :: ios, im, imp, impp, imppp, norbs local
703 do imppp = 1, norbs
872 integer :: ios, im, imp, impp, imppp, norbs
895 do imppp = 1, norbs
910 if(im == imp .and. impp == imppp .and. im == impp) then
971 integer :: ios, im, imp, impp, imppp, norbs
[all …]
|