Commit 20069711 authored by Henning Janssen's avatar Henning Janssen

Remove dim from rot_projDOS

parent d411250b
......@@ -19,7 +19,7 @@ CONTAINS
TYPE(t_atoms), INTENT(IN) :: atoms
TYPE(t_input), INTENT(IN) :: input
TYPE(t_greensfCoeffs), INTENT(INOUT) :: greensfCoeffs
REAL, INTENT(IN) :: angle(sym%nop)
REAL, INTENT(IN) :: angle(:)
COMPLEX, ALLOCATABLE :: curr_dos(:,:,:),calc_mat(:,:,:)
COMPLEX d_mat(-lmaxU_const:lmaxU_const,-lmaxU_const:lmaxU_const)
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