Lines Matching refs:ibnd
69 INTEGER :: ibnd local
184 DO ibnd = 1, nbndfst
187 vkk(:, ibnd) = REAL(vmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
194 IF (ABS(vkk(1, ibnd)**2 + vkk(2, ibnd)**2 + vkk(3, ibnd)**2 ) > eps4) &
195 vel_factor(ibnd, jbnd) = DDOT(3, vkk(:, ibnd), 1, vkq(:, jbnd), 1) / &
196 DDOT(3, vkk(:, ibnd), 1, vkk(:, ibnd), 1)
200 DO ibnd = 1, nbndfst
203 vkk(:, ibnd) = 2.0 * REAL(dmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
210 IF (ABS(vkk(1, ibnd)**2 + vkk(2, ibnd)**2 + vkk(3, ibnd)**2 ) > eps4) &
211 vel_factor(ibnd, jbnd) = DDOT(3, vkk(:, ibnd), 1, vkq(:, jbnd), 1) / &
212 DDOT(3, vkk(:, ibnd), 1, vkk(:, ibnd), 1)
243 DO ibnd = 1, nbndfst
246 ekk = etf(ibndmin - 1 + ibnd, ikk) - ef0(itemp)
264 g2 = REAL((epf17(jbnd, ibnd, imode, ik)**two) * inv_wq * g2_tmp, KIND = DP)
266 g2 = (ABS(epf17(jbnd, ibnd, imode, ik))**two) * inv_wq * g2_tmp
283 …inv_tau_all(itemp, ibnd, ik + lower_bnd - 1) = inv_tau_all(itemp, ibnd, ik + lower_bnd - 1) + two …
286 … inv_tau_all(itemp, ibnd, ik + lower_bnd - 1) = inv_tau_all(itemp, ibnd, ik + lower_bnd - 1) &
287 + two * trans_prob * vel_factor(ibnd, jbnd)
298 …zi_allvb(itemp, ibnd, ik + lower_bnd - 1) = zi_allvb(itemp, ibnd, ik + lower_bnd - 1) + g2 * weight
308 DO ibnd = 1, nbndfst
311 ekk = etf(ibndmin - 1 + ibnd, ikk) - efcb(itemp)
329 g2 = REAL((epf17(jbnd, ibnd, imode, ik)**two) * inv_wq * g2_tmp, KIND = DP)
331 g2 = (ABS(epf17(jbnd, ibnd, imode, ik))**two) * inv_wq * g2_tmp
348 inv_tau_allcb(itemp, ibnd, ik + lower_bnd - 1) = &
349 inv_tau_allcb(itemp, ibnd, ik + lower_bnd - 1) + two * trans_prob
353 … inv_tau_allcb(itemp, ibnd, ik + lower_bnd - 1) = inv_tau_allcb(itemp, ibnd, ik + lower_bnd - 1) &
354 + two * trans_prob * vel_factor(ibnd, jbnd)
365 …zi_allcb(itemp, ibnd, ik + lower_bnd - 1) = zi_allcb(itemp, ibnd, ik + lower_bnd - 1) + g2 * weight
463 DO ibnd = 1, nbndfst
464 ekk = etf_all(ibndmin - 1 + ibnd, ikk)
477 inv_tau_tmp(ibnd) = tmp / FLOAT(n)
478 zi_tmp(ibnd) = tmp2 / FLOAT(n)
494 DO ibnd = 1, nbndfst
495 ekk = etf_all(ibndmin - 1 + ibnd, ikk)
508 inv_tau_tmp(ibnd) = tmp / FLOAT(n)
509 zi_tmp(ibnd) = tmp2 / FLOAT(n)
614 INTEGER :: ibnd local
774 DO ibnd = 1, nbndfst
776 IF (etf_all(ibndmin - 1 + ibnd, ik) < ef0(itemp)) THEN
778 vkk(:, ibnd) = REAL(vmef_all(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
780 … vkk(:, ibnd) = 2.0 * REAL(dmef_all (:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
782 tau = one / inv_tau_all(itemp, ibnd, ik)
783 ekk = etf_all(ibndmin - 1 + ibnd, ik) - ef0(itemp)
787 tdf_sigma_m(i, j, ibnd, ik) = vkk(i, ibnd) * vkk(j, ibnd) * tau
795 … Sigma_m(:, :, itemp) = Sigma_m(:, :, itemp) + wkf_all(ikk) * dfnk * tdf_sigma_m(:, :, ibnd, ik)
806 DO ibnd = 1, nbndfst
808 IF (etf_all(ibndmin - 1 + ibnd, ik) < ef0(itemp)) THEN
810 ekk = etf_all(ibndmin - 1 + ibnd, ik) - ef0(itemp)
849 DO ibnd = 1, nbndfst
851 IF (etf_all(ibndmin - 1 + ibnd, ik) > ef0(itemp)) THEN
853 vkk(:, ibnd) = REAL(vmef_all(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
855 … vkk(:, ibnd) = 2.0 * REAL(dmef_all(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
857 tau = one / inv_tau_all(itemp, ibnd, ik)
858 ekk = etf_all(ibndmin - 1 + ibnd, ik) - ef0(itemp)
862 tdf_sigma_m(i, j, ibnd, ik) = vkk(i, ibnd) * vkk(j, ibnd) * tau
870 … Sigma_m(:, :, itemp) = Sigma_m(:, :, itemp) + wkf_all(ikk) * dfnk * tdf_sigma_m(:, :, ibnd, ik)
881 DO ibnd = 1, nbndfst
883 IF (etf_all(ibndmin - 1 + ibnd, ik) > ef0(itemp)) THEN
885 ekk = etf_all(ibndmin - 1 + ibnd, ik) - ef0(itemp)
974 DO ibnd = 1, nbndfst
977 IF (etf(ibndmin - 1 + ibnd, ikk) < ef0(itemp)) THEN
983 vkk(:, ibnd) = REAL(vmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
989 vkk(:, ibnd) = 2.0 * REAL(dmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
994 vk_cart(:) = vkk(:, ibnd)
1038 tdf_sigma(ij) = vkk(i, ibnd) * vkk(j, ibnd) * wkf(ikk)
1044 ekk = etf(ibndmin - 1 + ibnd, ikk) - ef0(itemp)
1045 tau = one / inv_tau_all(itemp, ibnd, ik + lower_bnd - 1)
1054 znk = one / (one + zi_allvb(itemp, ibnd, ik + lower_bnd - 1))
1055 tau = one / (Znk * inv_tau_all(itemp, ibnd, ik + lower_bnd - 1))
1096 DO ibnd = 1, nbndfst
1098 IF (etf(ibndmin - 1 + ibnd, ikk) < ef0(itemp)) THEN
1100 ekk = etf(ibndmin - 1 + ibnd, ikk) - ef0(itemp)
1186 DO ibnd = 1, nbndfst
1188 IF (etf(ibndmin - 1 + ibnd, ikk) > ef0(itemp)) THEN
1192 vkk(:, ibnd) = REAL(vmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
1198 … vkk(:, ibnd) = 2.0 * REAL(dmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
1202 vk_cart(:) = vkk(:, ibnd)
1246 tdf_sigma(ij) = vkk(i, ibnd) * vkk(j, ibnd) * wkf(ikk)
1251 ekk = etf(ibndmin - 1 + ibnd, ikk) - ef0(itemp)
1252 tau = one / inv_tau_all(itemp, ibnd, ik + lower_bnd - 1)
1258 znk = one / (one + zi_allvb(itemp, ibnd, ik + lower_bnd - 1))
1259 tau = one / (Znk * inv_tau_all(itemp, ibnd, ik + lower_bnd - 1))
1264 DO ibnd = 1, nbndfst
1266 IF (etf(ibndmin - 1 + ibnd, ikk) > efcb(itemp)) THEN
1271 vkk(:, ibnd) = REAL(vmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
1273 … vkk(:, ibnd) = 2.0 * REAL(dmef(:, ibndmin - 1 + ibnd, ibndmin - 1 + ibnd, ikk))
1278 vk_cart(:) = vkk(:, ibnd)
1322 tdf_sigma(ij) = vkk(i, ibnd) * vkk(j, ibnd) * wkf(ikk)
1327 ekk = etf(ibndmin - 1 + ibnd, ikk) - efcb(itemp)
1328 tau = one / inv_tau_allcb(itemp, ibnd, ik + lower_bnd - 1)
1333 znk = one / (one + zi_allcb(itemp, ibnd, ik + lower_bnd - 1))
1334 tau = one / (znk * inv_tau_allcb(itemp, ibnd, ik + lower_bnd - 1))
1339 tdf_sigma(ij) = vkk(i, ibnd) * vkk(j, ibnd) * tau
1380 DO ibnd = 1, nbndfst
1384 IF (etf(ibndmin - 1 + ibnd, ikk) > ef0(itemp)) THEN
1385 ekk = etf(ibndmin - 1 + ibnd, ikk) - ef0(itemp)
1391 IF (etf(ibndmin - 1 + ibnd, ikk) > efcb(itemp)) THEN
1392 ekk = etf(ibndmin - 1 + ibnd, ikk) - efcb(itemp)