Commit 875517b3 authored by Robin Hilgers's avatar Robin Hilgers

Sing mistake...

parent 696da40c
......@@ -80,12 +80,11 @@ END IF
!!Calculation of Angles
DO i=1 , atoms%ntype
mx=moments(1,i)
my=moments(2,i)
my=-moments(2,i)
mz=moments(3,i)
IF (den%potdenType>1000) THEN
CALL pol_angle(mx,my,mz,theta_mt_avg(i),phi_mt_avg(i))
END IF
IF(mx<0) theta_mt_avg(i)=-theta_mt_avg(i)
ENDDO
END SUBROUTINE magnMomFromDen
......
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