Searched refs:len2_v1 (Results 1 – 2 of 2) sorted by relevance
136 REAL(kind=dp) :: len2, len2_v0, len2_v1 local142 len2_v1 = DOT_PRODUCT(vector1, vector1)144 proj = 0.5_dp*((len2 - len2_v1)/len2_v0 + 1.0_dp)