Lines Matching refs:ii
458 do ii=1,npro
460 kay(ii) = kay(ii) + shape_funct(ii,jj) * yl(ii,jj,6)
461 epsilon(ii) = epsilon(ii)
462 & + shape_funct(ii,jj) * yl(ii,jj,7)
501 do ii=1,npro
503 do jj = 1, nshl ! first find the value of levelset at point ii
505 sclr_ls(ii) = sclr_ls(ii)
506 & + shape_funct(ii,jj) * yl(ii,jj,6)
510 if (sclr_ls(ii) .gt. epsilon_ls)then
512 sign_levelset(ii) = one
514 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
516 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls
517 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
519 elseif (sclr_ls(ii) .lt. epsilon_ls) then
521 sign_levelset(ii) = - one
525 srcR(ii) = sign_levelset(ii)