Lines Matching refs:rl
404 static int riem1mdt(PetscScalar *gaml, PetscScalar *gamr, PetscScalar *rl, PetscScalar *pl, PetscSc… in riem1mdt() argument
434 cl = PetscSqrtScalar(*gaml * *pl / *rl); in riem1mdt()
436 wl = *rl * cl; in riem1mdt()
475 *rstarl = *rl * PetscPowScalar(d__1, d__2); in riem1mdt()
544 *rstarl = *rl * PetscPowScalar(d__1, d__2); in riem1mdt()
565 *rstarl = ((*gaml + 1.) * pst + *gaml - 1.) / ((*gaml - 1.) * pst + *gaml + 1.) * *rl; in riem1mdt()
582 static int riemannsolver(PetscScalar *xcen, PetscScalar *xp, PetscScalar *dtt, PetscScalar *rl, Pet… in riemannsolver() argument
592 if (*rl == *rr && *pr == *pl && *uxl == *uxr && *gaml == *gamr) { in riemannsolver()
593 *rx = *rl; in riemannsolver()
610 iwave = riem1mdt(gaml, gamr, rl, pl, uxl, rr, pr, uxr, &rstarl, &rstarr, &pstar, &ustar); in riemannsolver()
617 r0 = cvmgm_(rl, rr, &sgn0); in riemannsolver()
683 …static PetscScalar bn[3], fn, ft, tg[3], pl, rl, pm, pr, rr, xp, ubl, ubm, ubr, dtt, unm, tmp, utl… in godunovflux() local
724 rl = ul[0]; in godunovflux()
741 uxl /= rl; in godunovflux()
743 utl /= rl; in godunovflux()
745 ubl /= rl; in godunovflux()
756 pl = (gamma - 1.) * (ul[ndim + 1] - rl * .5 * (d__1 * d__1 + d__2 * d__2 + d__3 * d__3)); in godunovflux()
764 rho1l = rl; in godunovflux()
767 …iwave = riemannsolver(&xcen, &xp, &dtt, &rl, &uxl, &pl, &utl, &ubl, &gaml, &rho1l, &rr, &uxr, &pr,… in godunovflux()