Commit d94a0cfe authored by Robin Hilgers's avatar Robin Hilgers

Some stuff commented

parent 2963323b
......@@ -102,15 +102,6 @@ CONTAINS
ENDIF
IF (mpi%irank == 0) THEN
IF (sliceplot%iplot.NE.0) THEN
!CALL timestart("Plotting")
!IF (input%strho) CALL juDFT_error("strho = T and iplot=/=0",calledby = "optional")
!CALL plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,&
! input,sym,cell,sliceplot,noco)
!CALL timestop("Plotting")
END IF
ENDIF ! mpi%irank == 0
!
! --->generate starting charge density
!
......@@ -167,7 +158,6 @@ CONTAINS
ENDIF ! mpi%irank == 0
!IF (sliceplot%iplot.NE.0) CALL juDFT_end("density plot o.k.",mpi%irank)
IF (input%strho) CALL juDFT_end("starting density generated",mpi%irank)
IF (input%swsp) CALL juDFT_end("spin polarised density generated",mpi%irank)
IF (input%lflip) CALL juDFT_end("magnetic moments flipped",mpi%irank)
......
......@@ -805,16 +805,20 @@ CONTAINS
score = .FALSE.
IF (input%jspins.EQ.2) THEN
IF (noco%l_noco) THEN
CALL timestart("Hallo, ich sollte hier nicht sein. 1")
!TODO: REMOVE
CALL timestart("Hallo, ich sollte hier nicht sein. 1")
CALL matrixplot(mpi,sym,stars,atoms,sphhar,vacuum,cell,input, &
noco,oneD,sliceplot,factor,denmat,score,denName)
!TODO: REMOVE
CALL timestop("Hallo, ich sollte hier nicht sein. 1")
ELSE
CALL vectorplot(stars,vacuum,atoms,sphhar,input,noco,oneD,cell,sym,denmat,sliceplot,score,denName)
END IF
ELSE
!TODO: REMOVE
CALL timestart("Hallo, ich sollte hier nicht sein. 2")
CALL savxsf(oneD,stars,vacuum,sphhar,atoms,input,sym,cell,sliceplot,noco,score,denName,denmat)
!TODO: REMOVE
CALL timestop("Hallo, ich sollte hier nicht sein. 2")
END IF
END IF
......
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