Commit 19b91587 authored by Gregor Michalicek's avatar Gregor Michalicek

Renamed fleur_info to fleur_help

...I need the "info" for the info mode.
parent cd46f2e4
......@@ -5,7 +5,7 @@ main/cdngen.f90
main/fleur.F90
main/fleur_init.F90
main/fleur_job.F90
main/fleur_info.f90
main/fleur_help.f90
main/mix.F90
main/optional.f90
main/totale.f90
......
......@@ -3,10 +3,10 @@
! This file is part of FLEUR and available as free software under the conditions
! of the MIT license as expressed in the LICENSE file in more detail.
!--------------------------------------------------------------------------------
MODULE m_fleur_info
MODULE m_fleur_help
IMPLICIT NONE
CONTAINS
SUBROUTINE fleur_info()
SUBROUTINE fleur_help()
USE m_compile_descr
USE m_constants
USE m_juDFT
......@@ -55,5 +55,5 @@ CONTAINS
WRITE(*,*)"Please check the documentation on www.flapw.de for more details"
CALL juDFT_error("help was written")
END SUBROUTINE fleur_info
END MODULE m_fleur_info
END SUBROUTINE fleur_help
END MODULE m_fleur_help
......@@ -128,7 +128,7 @@ CONTAINS
END SUBROUTINE
SUBROUTINE fleur_job_init()
USE m_fleur_info
USE m_fleur_help
INTEGER:: i
INTEGER:: irank=0
#ifdef CPP_MPI
......@@ -140,7 +140,7 @@ CONTAINS
!$ juDFT_error("MPI not usable with OpenMP")
!Select the io-mode from the command-line
#endif
if (irank==0) call fleur_info()
if (irank==0) call fleur_help()
END SUBROUTINE
SUBROUTINE fleur_job_execute(jobs)
......
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