Skip to content
Snippets Groups Projects

Fix an array bound mismatch.

Merged Nicolas Tancogne-Dejean requested to merge fix_array_bound into hotfix-10.3
+ 0
1
@@ -208,7 +208,6 @@ contains
! sum up Lorentzians
do ik = 1, st%d%nik, ns
do is = 0, ns-1
print *, ik, is , st%d%kweights(ik+is)
dos(ie, ist, is) = dos(ie, ist, is) + st%d%kweights(ik+is) * M_ONE/M_Pi * &
this%gamma / ( (energy - st%eigenval(ist, ik+is))**2 + this%gamma**2 )
end do
Loading