Add a missing deallocation.

parent c38b3e27
Pipeline #147025484 passed with stage
in 0 seconds
......@@ -343,6 +343,7 @@ R_TYPE function X(states_elec_mpdotp_g)(namespace, mesh, st1, st2, mat) result(d
if(i1 > 0) then
dotp = dotp * (lalg_determinant(i1, bb(1:i1, 1:i1), preserve_mat = .false.)) ** st1%d%kweights(ik)
end if
SAFE_DEALLOCATE_A(bb)
end do
case(SPIN_POLARIZED, SPINORS)
......
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