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

Added hdf-init

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