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

          Line data    Source code
       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : MODULE m_hsmt_distspins
       8             :   IMPLICIT NONE
       9             : CONTAINS
      10        4992 :   SUBROUTINE hsmt_distspins(chi,mat_tmp,mat)
      11             :     USE m_types
      12             :     COMPLEX,INTENT(in)        :: chi(2,2)
      13             :     TYPE(t_mat),INTENT(IN)    :: mat_tmp
      14             :     CLASS(t_mat),INTENT(INOUT):: mat(:,:)
      15             : 
      16             :     INTEGER:: iintsp,jintsp
      17             : 
      18       14976 :     DO iintsp=1,2
      19       54912 :        DO jintsp=1,2
      20       29952 :           mat(jintsp,iintsp)%data_c(:,:)=chi(jintsp,iintsp)*mat_tmp%data_c(:,:)+mat(jintsp,iintsp)%data_c(:,:)
      21             :        ENDDO
      22             :     ENDDO
      23        4992 :   END SUBROUTINE hsmt_distspins
      24             : END MODULE m_hsmt_distspins

Generated by: LCOV version 1.13