Home
last modified time | relevance | path

Searched refs:mytmp (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/compressible/
H A De3b.f454 real*8 sign_levelset(npro), sclr_ls(npro), mytmp(npro) local
541 mytmp = srcp / sqrt ( g1yti * g1yti
545 u1 = mytmp * g1yti
546 u2 = mytmp * g2yti
547 u3 = mytmp * g3yti
H A De3source.f291 real*8 sign_levelset(npro), sclr_ls(npro), mytmp(npro),
480 mytmp = srcp(:) / sqrt( g1yti(:) * g1yti(:)
484 u1 = mytmp(:) * g1yti(:)
485 u2 = mytmp(:) * g2yti(:)
486 u3 = mytmp(:) * g3yti(:)
/phasta/phSolver/incompressible/
H A De3source.f257 & chiP2, mytmp(npro), sign_levelset(npro), local
569 mytmp = sign_levelset / sqrt( gradS(:,1)*gradS(:,1)
573 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
574 uMod(:,2) = mytmp * gradS(:,2)
575 uMod(:,3) = mytmp * gradS(:,3)
/phasta/phSolver/incompressible/e3source/
H A De3source.fRHSonly257 & chiP2, mytmp(npro), sign_levelset(npro),
531 mytmp = sign_levelset / sqrt( gradS(:,1)*gradS(:,1)
535 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
536 uMod(:,2) = mytmp * gradS(:,2)
537 uMod(:,3) = mytmp * gradS(:,3)
H A De3source.fimplicit257 & chiP2, mytmp(npro), sign_levelset(npro),
545 mytmp = sign_levelset / sqrt( gradS(:,1)*gradS(:,1)
549 uMod(:,1) = mytmp * gradS(:,1) ! These are for the LHS
550 uMod(:,2) = mytmp * gradS(:,2)
551 uMod(:,3) = mytmp * gradS(:,3)