Commit 61eefb18 authored by Gregor Michalicek's avatar Gregor Michalicek

Made Fleur compilable again.

Some call in main/fleur_init.F90 was at the wrong place. Fix by Daniel.
parent 583d77fa
......@@ -74,7 +74,6 @@
REAL :: a1(3),a2(3),a3(3)
REAL :: scale, dtild
CALL check_command_line()
#ifdef CPP_MPI
INCLUDE 'mpif.h'
INTEGER ierr(3)
......@@ -85,6 +84,7 @@
#else
mpi%irank=0 ; mpi%isize=1; mpi%mpi_comm=1
#endif
CALL check_command_line()
#ifdef CPP_HDF
call hdf_init()
#endif
......
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