Lines Matching refs:ii
437 do ii=1,npro
441 sclr_ls(ii) = sclr_ls(ii)
442 & + shape(ii,jj) * ycl(ii,jj,6)
446 if (sclr_ls(ii) .lt. - epsilon_ls)then
448 sign_levelset(ii) = - one
450 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
453 sign_levelset(ii) =sclr_ls(ii)/epsilon_ls
454 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
457 elseif (sclr_ls(ii) .gt. epsilon_ls) then
459 sign_levelset(ii) = one
462 srcp(ii) = sign_levelset(ii)