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