Commit 47fcb5b9 authored by Matthias Redies's avatar Matthias Redies

drop intent(out) form olap

parent 62e87ed9
......@@ -170,7 +170,10 @@ CONTAINS
INTEGER, INTENT(IN) :: gpt(:, :)!(3,ngpt)
REAL, INTENT(IN) :: bas1(atoms%jmtd, maxval(mpdata%num_radfun_per_l), 0:atoms%lmaxd, atoms%ntype),&
bas2(atoms%jmtd, maxval(mpdata%num_radfun_per_l), 0:atoms%lmaxd, atoms%ntype)
REAL, INTENT(OUT) :: olapmt(maxval(mpdata%num_radfun_per_l), maxval(mpdata%num_radfun_per_l), 0:atoms%lmaxd, atoms%ntype)
REAL, INTENT(INOUT) :: olapmt(maxval(mpdata%num_radfun_per_l), &
maxval(mpdata%num_radfun_per_l), &
0:atoms%lmaxd, &
atoms%ntype)
TYPE(t_mat), INTENT(INOUT):: olappw
! - local -
......
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