Commit 00411cc2 authored by Alexander Neukirchen's avatar Alexander Neukirchen

Revert "Whoops. Forgot optional.F90"

This reverts commit d2e7393e
parent d2e7393e
......@@ -87,7 +87,6 @@ CONTAINS
INTEGER :: it, archiveType
CHARACTER*10 :: cdnfname
LOGICAL :: strho
TYPE(t_potden) :: cden, mxden, myden, mzden
#ifdef CPP_MPI
include 'mpif.h'
INTEGER :: ierr(2)
......@@ -98,7 +97,7 @@ CONTAINS
IF (sliceplot%iplot .AND. (mpi%irank==0) ) THEN
IF (noco%l_noco) THEN
CALL pldngen(mpi,sym,stars,atoms,sphhar,vacuum,&
cell,input,noco,oneD,sliceplot,cden,mxden,myden,mzden)
cell,input,noco,oneD,sliceplot)
ENDIF
ENDIF
......@@ -108,13 +107,8 @@ CONTAINS
IF (sliceplot%iplot) THEN
CALL timestart("Plotting")
IF (input%strho) CALL juDFT_error("strho = T and iplot=T",calledby = "optional")
IF (noco%l_noco) THEN
CALL plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,&
input,sym,cell,sliceplot,noco,cden,mxden,myden,mzden)
ELSE
CALL plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,&
input,sym,cell,sliceplot,noco,cden)
END IF
input,sym,cell,sliceplot,noco)
CALL timestop("Plotting")
END IF
ENDIF ! mpi%irank == 0
......
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