Commit 1d25352f authored by Gregor Michalicek's avatar Gregor Michalicek

Minor cleanup in main/cdngen.F90

parent 7784d712
......@@ -182,12 +182,6 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,&
'majority valence and input%total density',/)
8010 FORMAT (i13,2x,3e20.8,5x,2e20.8)
IF (sliceplot%slice) THEN
CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,archiveType,CDN_INPUT_DEN_const,&
1,-1.0,0.0,.FALSE.,outDen,'cdn_slice')
CALL juDFT_end("slice OK")
END IF
IF(vacuum%nvac.EQ.1) THEN
outDen%vacz(:,2,:) = outDen%vacz(:,1,:)
IF (sym%invs) THEN
......@@ -197,8 +191,15 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,&
END IF
END IF
IF (sliceplot%slice) THEN
CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,archiveType,CDN_INPUT_DEN_const,&
1,-1.0,0.0,.FALSE.,outDen,'cdn_slice')
END IF
ENDIF ! mpi%irank.EQ.0
IF (sliceplot%slice) CALL juDFT_end("slice OK",mpi%irank)
#ifdef CPP_MPI
CALL mpi_bc_potden(mpi,stars,sphhar,atoms,input,vacuum,oneD,noco,outDen)
#endif
......@@ -206,8 +207,6 @@ SUBROUTINE cdngen(eig_id,mpi,input,banddos,sliceplot,vacuum,&
DEALLOCATE (qvac,qvlay,qa21)
DEALLOCATE (igq_fft)
IF (sliceplot%slice) CALL juDFT_end("sliceplot%slice OK",mpi%irank)
RETURN
END SUBROUTINE cdngen
......
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