Commit 62e87ed9 authored by Matthias Redies's avatar Matthias Redies

drop intent(out) for array in hybrid_core

parent a0248861
......@@ -141,7 +141,7 @@ CONTAINS
INTEGER, INTENT(OUT):: lmaxc(:)
! - arrays -
INTEGER, INTENT(OUT):: nindxcr(0:ncstd, atoms%ntype)
INTEGER, INTENT(INOUT):: nindxcr(0:ncstd, atoms%ntype)
REAL, INTENT(IN) :: vr(:, :, :)!(atoms%jmtd,atoms%ntypd,input%jspins)
REAL, ALLOCATABLE :: core1(:, :, :, :), core2(:, :, :, :)
REAL, ALLOCATABLE :: eig_c(:, :, :)
......
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