Commit 6d3783f5 authored by Henning Janssen's avatar Henning Janssen

Remove dims from occmtx

parent 770d9112
......@@ -29,7 +29,7 @@ CONTAINS
TYPE(t_atoms), INTENT(IN) :: atoms
TYPE(t_sym), INTENT(IN) :: sym
TYPE(t_input), INTENT(IN) :: input
COMPLEX, INTENT(OUT) :: mmpMat(-lmaxU_const:lmaxU_const,-lmaxU_const:lmaxU_const,3)
COMPLEX, INTENT(OUT) :: mmpMat(-lmaxU_const:,-lmaxU_const:,:)
INTEGER, INTENT(IN) :: l
INTEGER, INTENT(IN) :: nType
LOGICAL, INTENT(OUT) :: err
......
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