Searched refs:lat_dv_shifted (Results 1 – 2 of 2) sorted by relevance
602 … REAL(dp) :: lat_dv3(3), lat_dv_shifted, my_closest_dv local610 lat_dv_shifted = lat_dv3(i_dim) + shift*1.0_dp611 IF (ABS(lat_dv_shifted) < ABS(my_closest_dv) .AND. (dir*lat_dv_shifted >= 0.0)) THEN612 my_closest_dv = lat_dv_shifted