Lines Matching refs:epsilon_ls
122 if (sclr(i) .lt. - epsilon_ls)then
124 elseif (abs(sclr(i)) .le. epsilon_ls)then
125 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
126 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
127 elseif (sclr(i) .gt. epsilon_ls) then
177 if (sclr(i) .lt. - epsilon_ls)then
179 elseif (abs(sclr(i)) .le. epsilon_ls)then
180 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
181 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
182 elseif (sclr(i) .gt. epsilon_ls) then
276 if (sclr(i) .lt. - epsilon_ls)then
278 elseif (abs(sclr(i)) .le. epsilon_ls)then
279 prop_blend(i) = 0.5*(one + Sclr(i)/epsilon_ls +
280 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
281 elseif (sclr(i) .gt. epsilon_ls) then