Merge branch 'develop' into hybrid_purge

main/fleur.F90

@@ -264,8 +264,8 @@ CONTAINS
        !---< gwf
 
 !START Rot For Testing (HIGHLY EXPERIMENTAL ROUTINE)
-       IF(.FALSE.)CALL rotateMagnetToSpinAxis(vacuum,sphhar,stars&
-               ,sym,oneD,cell,noco,input,atoms,inDen)
+    !   IF(.FALSE.)CALL rotateMagnetToSpinAxis(vacuum,sphhar,stars&
+    !          ,sym,oneD,cell,noco,input,atoms,inDen)
 !END Rot For Testing (HIGHLY EXPERIMENTAL ROUTINE)
        CALL timestart("generation of potential")
        CALL vgen(hybrid,field,input,xcpot,DIMENSION,atoms,sphhar,stars,vacuum,sym,&
@@ -441,6 +441,9 @@ CONTAINS
           ENDIF
 #endif
           CALL timestop("generation of new charge density (total)")
+!START Rot For Testing (HIGHLY EXPERIMENTAL ROUTINE)
+!IF (.FALSE.) CALL rotateMagnetFromSpinAxis(noco,vacuum,sphhar,stars,sym,oneD,cell,input,atoms,outDen,inDen)
+!END Rot For Testing (HIGHLY EXPERIMENTAL ROUTINE)
 !!$             !----> output potential and potential difference
 !!$             IF (obsolete%disp) THEN
 !!$                reap = .FALSE.