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