H A D | negf_int.F90 | 993 subroutine calcdensity_green(iSCCIter, mpicomm, groupKS, ham, over, iNeighbor, nNeighbor,& argument 1000 subroutine calcdensity_green(iSCCIter, groupKS, ham, over, iNeighbor, nNeighbor,& 1006 integer, intent(in) :: iSCCIter variable 1077 if(iSCCIter.eq.1) then 1107 call negf_density(iSCCIter, iS, iKS, pCsrHam, pCsrOver, mu(:,iS), DensMat=pCsrDens) 1143 subroutine calcEdensity_green(iSCCIter, mpicomm, groupKS, ham, over, iNeighbor, nNeighbor,& argument 1149 subroutine calcEdensity_green(iSCCIter, groupKS, ham, over, iNeighbor, nNeighbor,& 1154 integer, intent(in) :: iSCCIter variable 1213 if(iSCCIter.eq.1) then 1246 call negf_density(iSCCIter, iS, iKS, pCsrHam, pCsrOver, mu(:,iS), EnMat=pCsrEDens) [all …]
|