Commit bbc5b5d3 authored by Matthias Redies's avatar Matthias Redies

init allocation

parent f9aa5320
......@@ -81,7 +81,7 @@ CONTAINS
do n = n_start,n_types,n_stride
cnt = cnt + 1
enddo
allocate(kED%mt(nsp_x_jmtd, jspins, cnt))
allocate(kED%mt(nsp_x_jmtd, jspins, cnt), source=0.0)
endif
end subroutine kED_alloc_mt
......
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