Lines Matching refs:ii
482 do ii=1,npro
484 kay(ii) = kay(ii) + shape_funct(ii,jj) * yl(ii,jj,6)
485 epsilon(ii) = epsilon(ii)
486 & + shape_funct(ii,jj) * yl(ii,jj,7)
525 do ii=1,npro
529 sclr_ls(ii) = sclr_ls(ii)
530 & + shape_funct(ii,jj) * yl(ii,jj,6)
534 if (sclr_ls(ii) .gt. epsilon_ls)then
536 sign_levelset(ii) = one
538 elseif (abs(sclr_ls(ii)) .le. epsilon_ls)then
540 sign_levelset(ii) = sclr_ls(ii)/epsilon_ls
541 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
543 elseif (sclr_ls(ii) .lt. epsilon_ls) then
545 sign_levelset(ii) = - one
549 srcR(ii) = sign_levelset(ii)