Commit 07d3e63d authored by Matthias Redies's avatar Matthias Redies

Merge branch 'develop' into hybrid_purge

parents 94afdd66 2e970bfd
......@@ -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.
......
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