Searched refs:sclr_ls (Results 1 – 5 of 5) sorted by relevance
454 real*8 sign_levelset(npro), sclr_ls(npro), mytmp(npro) local498 sclr_ls = zero !zero out temp variable504 sclr_ls(ii) = sclr_ls(ii) 508 if (sclr_ls(ii) .lt. - epsilon_ls)then512 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then514 sign_levelset(ii) =sclr_ls(ii)/epsilon_ls 515 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi517 elseif (sclr_ls(ii) .gt. epsilon_ls) then
291 real*8 sign_levelset(npro), sclr_ls(npro), mytmp(npro),435 sclr_ls = zero !zero out temp variable441 sclr_ls(ii) = sclr_ls(ii) 446 if (sclr_ls(ii) .lt. - epsilon_ls)then450 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then453 sign_levelset(ii) =sclr_ls(ii)/epsilon_ls 454 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi457 elseif (sclr_ls(ii) .gt. epsilon_ls) then
258 & sclr_ls(npro) local523 sclr_ls = zero !zero out temp variable529 sclr_ls(ii) = sclr_ls(ii) 534 if (sclr_ls(ii) .gt. epsilon_ls)then538 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then540 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls 541 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi543 elseif (sclr_ls(ii) .lt. epsilon_ls) then
258 & sclr_ls(npro)499 sclr_ls = zero !zero out temp variable505 sclr_ls(ii) = sclr_ls(ii) 510 if (sclr_ls(ii) .gt. epsilon_ls)then514 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then516 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls 517 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi519 elseif (sclr_ls(ii) .lt. epsilon_ls) then
258 & sclr_ls(npro)485 sclr_ls = zero !zero out temp variable491 sclr_ls(ii) = sclr_ls(ii) 496 if (sclr_ls(ii) .gt. epsilon_ls)then500 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then502 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls 503 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi505 elseif (sclr_ls(ii) .lt. epsilon_ls) then