Searched refs:epsilon_tmp (Results 1 – 1 of 1) sorted by relevance
191 real epsilon_tmp local252 epsilon_tmp = epsilon_lsd254 epsilon_tmp = epsilon_ls258 if (abs (Sclrtmp(i)) .le. epsilon_tmp) then259 h_prime(i) = (0.5/epsilon_tmp) * (1 260 & + cos(pi*Sclrtmp(i)/epsilon_tmp))