Searched refs:shortpT_1 (Results 1 – 1 of 1) sorted by relevance
682 res = -3.2_dp * shortpT_1(tauA, tauB, rab)721 & - 3.2_dp * shortpT_1(tauA, tauB, rab) * hpR(Ua, Ub, rab, xi)&769 function shortpT_1(tauA, tauB, rab) result(res) function776 end function shortpT_1