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.

io/r_inpXML.F90

@@ -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'))
 

io/xml/FleurInputSchema.xsd

@@ -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">

main/fleur_init.F90

@@ -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

mpi/mpi_bc_all.F90

@@ -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

types/types_setup.F90

@@ -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(:)