Commit 2cf586dd authored by Gregor Michalicek's avatar Gregor Michalicek

Adapted several fleur endings to new scheme to avoid error messages

parent 3d6aa535
......@@ -1313,7 +1313,7 @@ MODULE m_cdn_io
WRITE(*,*) 'Ignoring -delden command line argument.'
END IF
CALL juDFT_error("Densities deleted.")
CALL juDFT_end("Selected densities deleted.")
END SUBROUTINE deleteDensities
......
......@@ -498,7 +498,7 @@
ENDIF
ENDIF
CLOSE(20)
CALL juDFT_error("slice OK",calledby="cdngen")
CALL juDFT_end("slice OK")
END IF
CALL writeDensity(stars,vacuum,atoms,cell,sphhar,input,sym,oneD,archiveType,&
......@@ -509,7 +509,7 @@
DEALLOCATE (cdom,cdomvz,cdomvxy,qa21)
DEALLOCATE (qpw,rhtxy,rho,rht,igq_fft)
IF (sliceplot%slice) CALL juDFT_error("sliceplot%slice OK",calledby="cdngen")
IF (sliceplot%slice) CALL juDFT_end("sliceplot%slice OK",mpi%irank)
RETURN
END SUBROUTINE cdngen
......
......@@ -62,6 +62,6 @@ CONTAINS
WRITE(*,'(a)')""
WRITE(*,'(a)')"Please check the documentation on www.flapw.de for more details"
CALL juDFT_error("help was written")
CALL juDFT_end("help was written")
END SUBROUTINE fleur_help
END MODULE m_fleur_help
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