Lines Matching refs:sgn0
588 static PetscScalar s, c0, p0, r0, u0, w0, x0, x2, ri, cx, sgn0, wsp0, gasc1, gasc2, gasc3, gasc4; in riemannsolver() local
614 sgn0 = sign(d__1); in riemannsolver()
617 r0 = cvmgm_(rl, rr, &sgn0); in riemannsolver()
618 p0 = cvmgm_(pl, pr, &sgn0); in riemannsolver()
619 u0 = cvmgm_(uxl, uxr, &sgn0); in riemannsolver()
620 *gam = cvmgm_(gaml, gamr, &sgn0); in riemannsolver()
635 wsp0 = u0 + sgn0 * c0; in riemannsolver()
636 wspst = ustar + sgn0 * cstar; in riemannsolver()
637 ushock = ustar + sgn0 * w0 / rstar; in riemannsolver()
644 ri = u0 - sgn0 * 2. * gasc4 * c0; in riemannsolver()
645 cx = sgn0 * .5 * gasc1 / gasc2 * ((*xp - *xcen) / *dtt - ri); in riemannsolver()
646 *uxm = ri + sgn0 * 2. * gasc4 * cx; in riemannsolver()
651 d__1 = sgn0 * (x0 - *xp); in riemannsolver()
653 d__1 = sgn0 * (x0 - *xp); in riemannsolver()
655 d__1 = sgn0 * (x0 - *xp); in riemannsolver()
657 d__1 = sgn0 * (xstar - *xp); in riemannsolver()
659 d__1 = sgn0 * (xstar - *xp); in riemannsolver()
661 d__1 = sgn0 * (xstar - *xp); in riemannsolver()