Commit f72dc951 by Daniel Wortmann

### Adjusted output of orbital moment

parent c0de7ae3
 ... ... @@ -144,11 +144,11 @@ CONTAINS ENDIF IF (noco%l_noco) THEN !---> generate the complex conjgates of the spinors (chi) ccchi(1,1) = CONJG( EXP(-ImagUnit*noco%alph(n)/2)*COS(noco%beta(n)/2)) ccchi(1,2) = CONJG(-EXP(-ImagUnit*noco%alph(n)/2)*SIN(noco%beta(n)/2)) ccchi(2,1) = CONJG( EXP( ImagUnit*noco%alph(n)/2)*SIN(noco%beta(n)/2)) ccchi(2,2) = CONJG( EXP( ImagUnit*noco%alph(n)/2)*COS(noco%beta(n)/2)) !---> generate the spinors (chi) ccchi(1,1) = EXP(ImagUnit*noco%alph(n)/2)*COS(noco%beta(n)/2) ccchi(1,2) = -EXP(ImagUnit*noco%alph(n)/2)*SIN(noco%beta(n)/2) ccchi(2,1) = EXP(-ImagUnit*noco%alph(n)/2)*SIN(noco%beta(n)/2) ccchi(2,2) = EXP(-ImagUnit*noco%alph(n)/2)*COS(noco%beta(n)/2) IF (noco%l_ss) THEN !---> the coefficients of the spin-down basis functions are !---> stored in the second half of the eigenvector ... ...
 ... ... @@ -42,7 +42,7 @@ SUBROUTINE orbMagMoms(input,atoms,noco,clmom) !Fix of sign of moment in first variation calculations. Perhaps it would be better to understand this :-( !slxmom=-1*slxmom !slymom=-1*slymom slymom=-1*slymom !slmom=-1*slmom END IF ... ...
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!