Lines Matching refs:ii
444 do ii=1,npro
446 kay(ii) = kay(ii) + shape_funct(ii,jj) * yl(ii,jj,6)
447 epsilon(ii) = epsilon(ii)
448 & + shape_funct(ii,jj) * yl(ii,jj,7)
487 do ii=1,npro
489 do jj = 1, nshl ! first find the value of levelset at point ii
491 sclr_ls(ii) = sclr_ls(ii)
492 & + shape_funct(ii,jj) * yl(ii,jj,6)
496 if (sclr_ls(ii) .gt. epsilon_ls)then
498 sign_levelset(ii) = one
500 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
502 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls
503 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
505 elseif (sclr_ls(ii) .lt. epsilon_ls) then
507 sign_levelset(ii) = - one
511 srcR(ii) = sign_levelset(ii)