Commit 7b99468d authored by Gregor Michalicek's avatar Gregor Michalicek

Make forcetheo allocatable in init/postprocessInput.F90

...bugfix for debug mode as suggested by Daniel.
parent 8ee7d48f
......@@ -44,20 +44,20 @@ SUBROUTINE postprocessInput(mpi,input,sym,stars,atoms,vacuum,obsolete,kpts,&
IMPLICIT NONE
TYPE(t_mpi) ,INTENT (IN) :: mpi
CLASS(t_forcetheo),INTENT(IN) :: forcetheo
TYPE(t_input), INTENT(INOUT) :: input
TYPE(t_sym), INTENT(INOUT) :: sym
TYPE(t_stars), INTENT(INOUT) :: stars
TYPE(t_atoms), INTENT(INOUT) :: atoms
TYPE(t_vacuum), INTENT(INOUT) :: vacuum
TYPE(t_obsolete), INTENT(INOUT) :: obsolete
TYPE(t_kpts), INTENT(INOUT) :: kpts
TYPE(t_oneD), INTENT(INOUT) :: oneD
TYPE(t_hybrid), INTENT(INOUT) :: hybrid
TYPE(t_cell), INTENT(INOUT) :: cell
TYPE(t_banddos), INTENT(INOUT) :: banddos
TYPE(t_sliceplot),INTENT(INOUT) :: sliceplot
TYPE(t_xcpot), INTENT(INOUT) :: xcpot
CLASS(t_forcetheo),ALLOCATABLE,INTENT(IN) :: forcetheo
TYPE(t_input), INTENT(INOUT) :: input
TYPE(t_sym), INTENT(INOUT) :: sym
TYPE(t_stars), INTENT(INOUT) :: stars
TYPE(t_atoms), INTENT(INOUT) :: atoms
TYPE(t_vacuum), INTENT(INOUT) :: vacuum
TYPE(t_obsolete), INTENT(INOUT) :: obsolete
TYPE(t_kpts), INTENT(INOUT) :: kpts
TYPE(t_oneD), INTENT(INOUT) :: oneD
TYPE(t_hybrid), INTENT(INOUT) :: hybrid
TYPE(t_cell), INTENT(INOUT) :: cell
TYPE(t_banddos), INTENT(INOUT) :: banddos
TYPE(t_sliceplot),INTENT(INOUT) :: sliceplot
TYPE(t_xcpot), INTENT(INOUT) :: xcpot
TYPE(t_noco), INTENT(INOUT) :: noco
TYPE(t_dimension),INTENT(INOUT) :: dimension
TYPE(t_enpara) ,INTENT(INOUT) :: enpara
......
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