Searched refs:s_iaib (Results 1 – 1 of 1) sorted by relevance
983 real(dp) :: s_iaja, s_iaib, s_iajb, tmp local1040 s_iaib = 0.0_dp1065 s_iaib = s_iaib + TDvec(ia)*TDvec(jb)*tmp1091 Ssq(i) = s_iaja - s_iaib - 2.0_dp*s_iajb