Commit 2e970bfd authored by Robin Hilgers's avatar Robin Hilgers

Update according to @redies suggestion.

parent 36edbcaa
......@@ -263,8 +263,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,7 +441,7 @@ CONTAINS
#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)
!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
......
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