Commit 0b4b09dc authored by Daniel Wortmann's avatar Daniel Wortmann

Added hdf-init

parent 49775897
...@@ -28,6 +28,9 @@ ...@@ -28,6 +28,9 @@
USE m_setupMPI USE m_setupMPI
#ifdef CPP_MPI #ifdef CPP_MPI
USE m_mpi_bc_all, ONLY : mpi_bc_all USE m_mpi_bc_all, ONLY : mpi_bc_all
#endif
#ifdef CPP_HDF
USE m_hdf_tools
#endif #endif
IMPLICIT NONE IMPLICIT NONE
! Types, these variables contain a lot of data! ! Types, these variables contain a lot of data!
...@@ -78,7 +81,9 @@ ...@@ -78,7 +81,9 @@
#else #else
mpi%irank=0 ; mpi%isize=1; mpi%mpi_comm=1 mpi%irank=0 ; mpi%isize=1; mpi%mpi_comm=1
#endif #endif
#ifdef CPP_HDF
call hdf_init()
#endif
results%seigscv = 0.0 results%seigscv = 0.0
results%te_vcoul = 0.0 results%te_vcoul = 0.0
results%te_veff = 0.0 results%te_veff = 0.0
......
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