Lines Matching refs:ii
500 do ii=1,npro
504 sclr_ls(ii) = sclr_ls(ii)
505 & + shape(ii,jj) * ycl(ii,jj,6)
508 if (sclr_ls(ii) .lt. - epsilon_ls)then
510 sign_levelset(ii) = - one
512 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
514 sign_levelset(ii) =sclr_ls(ii)/epsilon_ls
515 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
517 elseif (sclr_ls(ii) .gt. epsilon_ls) then
519 sign_levelset(ii) = one
523 srcp(ii) = sign_levelset(ii)