Commit c219dc7a authored by Henning Janssen's avatar Henning Janssen

Remove unused subroutine

parent dad14455
......@@ -146,52 +146,4 @@ MODULE m_greensfImag21
END SUBROUTINE greensfImag21
SUBROUTINE rot_onsite(atoms,noco,gf)
USE m_rotdenmat
IMPLICIT NONE
TYPE(t_atoms), INTENT(IN) :: atoms
TYPE(t_noco), INTENT(IN) :: noco
TYPE(t_greensf), INTENT(INOUT) :: gf
INTEGER i_gf,nType,l,m,mp,ie,ipm
REAL gf11re,gf22re,gf11imag,gf22imag
COMPLEX gf21re,gf21imag
DO i_gf = 1, atoms%n_gf
nType = atoms%gfelem(i_gf)%atomType
l = atoms%gfelem(i_gf)%l
!$OMP PARALLEL DEFAULT(none) &
!$OMP SHARED(i_gf,nType,l) &
!$OMP SHARED(atoms,noco,gf) &
!$OMP PRIVATE(ie,m,mp,ipm)&
!$OMP PRIVATE(gf11re,gf22re,gf11imag,gf22imag,gf21re,gf21imag)
!$OMP DO
DO ie = 1, gf%nz
DO m = -l, l
DO mp = -l, l
DO ipm = 1, 2
!We need to call rot_den_mat two times for real and imaginary part
gf11re = REAL(gf%gmmpMat(ie,i_gf,m,mp,1,ipm))
gf22re = REAL(gf%gmmpMat(ie,i_gf,m,mp,2,ipm))
CALL rot_den_mat(noco%alph(nType),noco%beta(nType),gf11re,gf22re,gf21re)
gf11imag = AIMAG(gf%gmmpMat(ie,i_gf,m,mp,1,ipm))
gf22imag = AIMAG(gf%gmmpMat(ie,i_gf,m,mp,2,ipm))
CALL rot_den_mat(noco%alph(nType),noco%beta(nType),gf11imag,gf22imag,gf21imag)
gf%gmmpMat(ie,i_gf,m,mp,1,ipm) = gf11re + ImagUnit * gf11imag
gf%gmmpMat(ie,i_gf,m,mp,2,ipm) = gf22re + ImagUnit * gf22imag
gf%gmmpMat(ie,i_gf,m,mp,3,ipm) = gf21re + ImagUnit * gf21imag
ENDDO
ENDDO
ENDDO
ENDDO
!$OMP END DO
!$OMP END PARALLEL
ENDDO
END SUBROUTINE rot_onsite
END MODULE m_greensfImag21
\ No newline at end of file
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment