Lines Matching refs:iSpecies
85 subroutine getLOperatorsForSpecies(orb, iSpecies, speciesZ, speciesPlus) argument
91 integer, intent(in) :: iSpecies local
105 do iShell = 1, orb%nShell(iSpecies)
106 ll = orb%angShell(iShell, iSpecies)
107 iOrbStart = orb%posShell(iShell, iSpecies)
108 iOrbEnd = orb%posShell(iShell + 1, iSpecies) - 1
322 subroutine localGetLOperatorsForSpecies(orb, iSpecies, speciesL) argument
328 integer, intent(in) :: iSpecies local
336 do iShell = 1, orb%nShell(iSpecies)
337 ll = orb%angShell(iShell, iSpecies)
338 iOrbStart = orb%posShell(iShell, iSpecies)
339 iOrbEnd = orb%posShell(iShell + 1, iSpecies) - 1