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