More efficient credit market loop

Author: Tortar

src/markets/search_and_matching_credit.jl

@@ -18,11 +18,14 @@ function search_and_matching_credit(firms::AbstractFirms, model)
     E_k, zeta, zeta_LTV = model.bank.E_k, model.prop.zeta, model.prop.zeta_LTV
 
     DL_i = zeros(size(DL_d_i))
+    sum_DL_i = sum(DL_i)
     I_FG = findall(DL_d_i .> 0)
     shuffle!(I_FG)
     s_L_e_i = sum(L_e_i)
     for i in I_FG
-        DL_i[i] = max(0.0, min(DL_d_i[i], zeta_LTV * K_e_i[i] - L_e_i[i], E_k / zeta - s_L_e_i - sum(DL_i)))
+        DL_i_p = DL_i[i]
+        DL_i[i] = max(0.0, min(DL_d_i[i], zeta_LTV * K_e_i[i] - L_e_i[i], E_k / zeta - s_L_e_i - sum_DL_i))
+        sum_DL_i += (DL_i[i] - DL_i_p)
     end
     return DL_i
 end