Commit fb1d8c09 authored by Robin Hilgers's avatar Robin Hilgers

Changed stupid typo

parent 724c45b4
......@@ -1354,8 +1354,9 @@ CONTAINS
atomicNumber = evaluateFirstIntOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@atomicNumber'))
coreStates = evaluateFirstIntOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@coreStates'))
magMom = evaluateFirstOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@magMom'))
atoms%flipSpinPhi(i) = evaluateFirstOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@flipSpin'))
atoms%flipSpinTheta(i) = evaluateFirstOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@flipSpin'))
atoms%flipSpinPhi = evaluateFirstOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@flipSpinPhi'))
atoms%flipSpinTheta = evaluateFirstOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@flipSpinTheta'))
atoms%flipSpinScale = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@flipSpinScale'))
! Attributes of mtSphere element of species
......
......@@ -10,7 +10,7 @@ MODULE m_flipcdn
! magnetic moment within the m.t.sphere for each atom
! according to the variable nflip. This variable is read in
! the main program
! TODO: nflip = -1 : flip spin in sphere
! TODO; (Test) nflip = -1 : flip spin in sphere
! TODO: nflip = -2 : scale spin by bmu(n)
! nflip = any: no spin flip
! r.pentcheva,kfa,Feb'96
......@@ -73,7 +73,7 @@ SUBROUTINE flipcdn(atoms,input,vacuum,sphhar,stars,sym,noco,oneD,cell)
CDN_INPUT_DEN_const,0,fermiEnergyTemp,l_qfix,den)
! flip cdn for each atom with rotation angles given
na = 10
na = 1
DO itype = 1, atoms%ntype
IF (l_flip(itype).AND.(.NOT.atoms%flipSpinScale(itype))) THEN
! spherical and non-spherical m.t. charge density
......
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