Commit 5e407323 authored by Gregor Michalicek's avatar Gregor Michalicek

Added fulyfullyfullyNoco switch

...I actually call it l_mtNocoPot. It is supposed to switch on
the usage of a noncollinear potential in the MT spheres.
parent c4ac52f1
......@@ -536,6 +536,7 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
noco%l_ss = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@l_ss'))
noco%l_mperp = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@l_mperp'))
noco%l_constr = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@l_constr'))
noco%l_mtNocoPot = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@l_mtNocoPot'))
noco%mix_b = evaluateFirstOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@mix_b'))
......
......@@ -86,6 +86,7 @@
<xsd:attribute name="mix_b" type="xsd:string"/>
<xsd:attribute default="0.0" name="thetaJ" type="xsd:string" use="optional"/>
<xsd:attribute default="0" name="nsh" type="xsd:nonNegativeInteger" use="optional"/>
<xsd:attribute default="F" name="l_mtNocoPot" type="FleurBool" use="optional"/>
</xsd:complexType>
<xsd:complexType name="OneDParamType">
......
......@@ -160,6 +160,8 @@
banddos%e_mcd_up = 0.0
banddos%unfoldband = .FALSE.
noco%l_mtNocoPot = .FALSE.
IF (input%l_inpXML) THEN
ALLOCATE(noel(1))
IF (mpi%irank.EQ.0) THEN
......
......@@ -76,7 +76,7 @@ CONTAINS
l(21)=input%pallst ; l(22)=sliceplot%slice ; l(23)=noco%l_soc ; l(24)=vacuum%starcoeff
l(25)=noco%l_noco ; l(26)=noco%l_ss; l(27)=noco%l_mperp; l(28)=noco%l_constr
l(29)=oneD%odd%d1 ; l(32)=input%ctail ; l(33)=banddos%l_orb
l(34)=banddos%l_mcd ; l(35)=banddos%unfoldband
l(34)=banddos%l_mcd ; l(35)=banddos%unfoldband ; l(36)=noco%l_mtNocoPot
l(38)=field%efield%l_segmented
l(39)=sym%symor ; l(40)=input%frcor ; l(41)=input%tria ; l(42)=field%efield%dirichlet
l(43)=field%efield%l_dirichlet_coeff ; l(44)=input%l_coreSpec ; l(45)=input%ldauLinMix
......@@ -119,6 +119,7 @@ CONTAINS
field%efield%l_segmented = l(38) ; sym%symor=l(39); field%efield%dirichlet = l(40)
field%efield%l_dirichlet_coeff = l(41) ; input%l_coreSpec=l(44) ; input%ldauLinMix=l(45)
banddos%unfoldband=l(35)
noco%l_mtNocoPot=l(36)
!
! -> Broadcast the arrays:
IF (field%efield%l_segmented) THEN
......
......@@ -344,6 +344,7 @@ MODULE m_types_setup
LOGICAL:: l_ss
LOGICAL:: l_mperp
LOGICAL:: l_constr
LOGICAL:: l_mtNocoPot
REAL:: qss(3)
REAL:: mix_b
LOGICAL, ALLOCATABLE :: l_relax(:)
......
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