Commit 1949f0f1 authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed bug introduced by aec52306

parent 67e62a43
......@@ -35,7 +35,7 @@ CONTAINS
IMPLICIT NONE
TYPE(t_results), INTENT(INOUT) :: results
CLASS(t_xcpot), INTENT(INOUT) :: xcpot
CLASS(t_xcpot), INTENT(IN) :: xcpot
TYPE(t_hybdat), INTENT(IN) :: hybdat
TYPE(t_mpi), INTENT(IN) :: mpi
......
......@@ -38,7 +38,7 @@ CONTAINS
IMPLICIT NONE
CLASS(t_xcpot), INTENT(INOUT) :: xcpot
CLASS(t_xcpot), INTENT(IN) :: xcpot
TYPE(t_hybdat), INTENT(IN) :: hybdat
TYPE(t_mpi), INTENT(IN) :: mpi
......
......@@ -37,7 +37,7 @@ CONTAINS
USE m_metagga
IMPLICIT NONE
CLASS(t_xcpot),INTENT(INOUT) :: xcpot
CLASS(t_xcpot),INTENT(IN) :: xcpot
TYPE(t_input),INTENT(IN) :: input
TYPE(t_noco),INTENT(IN) :: noco
TYPE(t_sym),INTENT(IN) :: sym
......
......@@ -243,7 +243,7 @@ CONTAINS
TYPE(t_sphhar),INTENT(IN) :: sphhar
TYPE(t_atoms),INTENT(IN) :: atoms
TYPE(t_sym), INTENT(IN) :: sym
CLASS(t_xcpot),INTENT(OUT) :: xcpot
CLASS(t_xcpot),INTENT(IN) :: xcpot
TYPE(t_input),INTENT(IN) :: input
TYPE(t_noco),INTENT(IN) :: noco
TYPE(t_stars),INTENT(IN) :: stars
......
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