Commit d72993ba authored by Robin Hilgers's avatar Robin Hilgers

Shouldn't change the routine at all. Removed redundant code.

parent 3e438a5f
......@@ -38,11 +38,6 @@ SUBROUTINE rotateMagnetToSpinAxis(vacuum,sphhar,stars&
REAL :: phiTemp(atoms%ntype),thetaTemp(atoms%ntype)
INTEGER :: i
!!TEMP
! REAL :: x,y,z
phiTemp=nococonv%alph
thetaTemp=nococonv%beta
CALL magnMomFromDen(input,atoms,noco,den,moments,thetaTemp,phiTemp)
!DO i=1, atoms%ntype
! IF (abs(atoms%theta_mt_avg(i)).LE. 0.0001) THEN
......
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