Commit 5c26a4ab authored by Henning Janssen's avatar Henning Janssen

Remove dim from onsite

parent 6d3783f5
......@@ -38,7 +38,7 @@ SUBROUTINE calc_onsite(atoms,input,sym,noco,angle,greensfCoeffs,g)
TYPE(t_sym), INTENT(IN) :: sym
TYPE(t_noco), INTENT(IN) :: noco
TYPE(t_input), INTENT(IN) :: input
REAL, INTENT(IN) :: angle(sym%nop)
REAL, INTENT(IN) :: angle(:)
!-Local Scalars
INTEGER i_gf,ie,l,m,mp,nType,jspin,ipm,kkcut,lp,nTypep,spin_cut,nn,natom
......
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