Searched refs:norm_dtau_sq (Results 1 – 1 of 1) sorted by relevance
552 REAL(DP) :: dtau(3), norm_dtau, norm_dtau_sq, expo local821 norm_dtau_sq = dtau(1)**2 + dtau(2)**2 + dtau(3)**2823 norm_dtau = sqrt( norm_dtau_sq )837 dtau(:) = dtau(:) / norm_dtau_sq*( cos( phase ) - sinxx )