LCOV - code coverage report
Current view: top level - cdn_mt - rhomt.f90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 13 13 100.0 %
Date: 2019-09-08 04:53:50 Functions: 1 1 100.0 %

          Line data    Source code
       1             : MODULE m_rhomt
       2             : CONTAINS
       3        1848 :   SUBROUTINE rhomt(atoms,we,ne,eigVecCoeffs,denCoeffs,ispin)
       4             :     !     ***************************************************************
       5             :     !     perform the sum over m (for each l) and bands to set up the
       6             :     !     coefficient of spherical charge densities in subroutine
       7             :     !     cdnval                                   c.l.fu
       8             :     !     ***************************************************************
       9             : 
      10             :     USE m_types
      11             :     IMPLICIT NONE
      12             : 
      13             :     INTEGER,              INTENT(IN)    :: ne, ispin
      14             :     TYPE(t_eigVecCoeffs), INTENT(IN)    :: eigVecCoeffs
      15             :     REAL,                 INTENT(IN)    :: we(:)!(nobd)
      16             :     TYPE(t_atoms),        INTENT(IN)    :: atoms
      17             :     TYPE(t_denCoeffs),    INTENT(INOUT) :: denCoeffs
      18             : 
      19             :     INTEGER i,l,lm ,n,na,natom,m
      20             : 
      21        1848 :     natom = 0
      22        5992 :     DO n = 1,atoms%ntype
      23       10900 :        DO na = 1,atoms%neq(n)
      24        4908 :           natom = natom + 1
      25       54352 :           DO l = 0,atoms%lmax(n)
      26             :              !     -----> sum over m
      27      472780 :              DO m = -l,l
      28      422572 :                 lm = l* (l+1) + m
      29             :                 !     -----> sum over occupied bands
      30     8419107 :                 DO i = 1,ne
      31             :                    denCoeffs%uu(l,n,ispin) = denCoeffs%uu(l,n,ispin) +&
      32     7951235 :                       we(i) * REAL(eigVecCoeffs%acof(i,lm,natom,ispin)*CONJG(eigVecCoeffs%acof(i,lm,natom,ispin)))
      33             :                    denCoeffs%dd(l,n,ispin) = denCoeffs%dd(l,n,ispin) +&
      34     7951235 :                       we(i) * REAL(eigVecCoeffs%bcof(i,lm,natom,ispin)*CONJG(eigVecCoeffs%bcof(i,lm,natom,ispin)))
      35             :                    denCoeffs%du(l,n,ispin) = denCoeffs%du(l,n,ispin) +&
      36     8373807 :                       we(i) * REAL(eigVecCoeffs%acof(i,lm,natom,ispin)*CONJG(eigVecCoeffs%bcof(i,lm,natom,ispin)))
      37             :                 ENDDO
      38             :              ENDDO
      39             :           ENDDO
      40             :        ENDDO
      41             :     ENDDO
      42        1848 :   END SUBROUTINE rhomt
      43             : END MODULE m_rhomt

Generated by: LCOV version 1.13