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        4540 :   SUBROUTINE hsmt_distspins(chi,mat_tmp,mat)
      11             :     USE m_types
      12             :     COMPLEX,INTENT(in)        :: chi(2,2)
      13             :     CLASS(t_mat),INTENT(IN)    :: mat_tmp
      14             : !    CLASS(t_mat),INTENT(INOUT):: mat(:,:)
      15             :     CLASS(t_mat),INTENT(INOUT) ::mat(:,:)
      16             :     INTEGER:: igSpinPr,igSpin
      17       13620 :     DO igSpinPr=1,2
      18       31780 :       DO igSpin=1,2
      19       27240 :         call mat(igSpinPr,igSpin)%add(mat_tmp,chi(igSpinPr,igSpin))
      20             :       enddo
      21             :     ENDDO
      22             : 
      23        4540 :   END SUBROUTINE hsmt_distspins
      24             : END MODULE m_hsmt_distspins