Lines Matching refs:gradS
210 subroutine e3sourceSclr ( Sclr, Sdot, gradS, argument
240 & gradS(npro,nsd), dwl(npro,nenl), local
446 uMod(:,1) = u1(:) - tmp * gradS(:,1)
447 uMod(:,2) = u2(:) - tmp * gradS(:,2)
448 uMod(:,3) = u3(:) - tmp * gradS(:,3)
569 mytmp = sign_levelset / sqrt( gradS(:,1)*gradS(:,1)
570 & + gradS(:,2)*gradS(:,2)
571 & + gradS(:,3)*gradS(:,3))
573 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
574 uMod(:,2) = mytmp * gradS(:,2)
575 uMod(:,3) = mytmp * gradS(:,3)