Commit 57bbef98 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Update kerker.F90 for serial compilation

parent 71b06510
...@@ -17,7 +17,9 @@ CONTAINS ...@@ -17,7 +17,9 @@ CONTAINS
USE m_types USE m_types
USE m_types_mixvector USE m_types_mixvector
USE m_constants USE m_constants
#ifdef CPP_MPI
USE m_mpi_bc_potden USE m_mpi_bc_potden
#endif
IMPLICIT NONE IMPLICIT NONE
TYPE(t_oneD), INTENT(in) :: oneD TYPE(t_oneD), INTENT(in) :: oneD
TYPE(t_input), INTENT(in) :: input TYPE(t_input), INTENT(in) :: input
......
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