404 …alar *rl, PetscScalar *pl, PetscScalar *uxl, PetscScalar *rr, PetscScalar *pr, PetscScalar *uxr, P…  in riem1mdt()  argument
435   cr = PetscSqrtScalar(*gamr * *pr / *rr);  in riem1mdt()
440   *pstar  = (wl * *pr + wr * *pl) / (wl + wr);  in riem1mdt()
442   pst     = *pl / *pr;  in riem1mdt()
446   pst     = *pr / *pl;  in riem1mdt()
451   if (PetscRealPart(*pr) < PetscRealPart(*pl)) {  in riem1mdt()
479       d__1    = *pstar / *pr;  in riem1mdt()
502       d__1    = *pstar / *pr;  in riem1mdt()
525       pst    = *pstar / *pr;  in riem1mdt()
527 …zr     = *pr / cr * PetscSqrtScalar(*gamr * 2. * (*gamr - 1. + (*gamr + 1.) * pst)) * (*gamr - 1. …  in riem1mdt()
548       pst     = *pstar / *pr;  in riem1mdt()
550 …zr      = *pr / cr * PetscSqrtScalar(*gamr * 2. * (*gamr - 1. + (*gamr + 1.) * pst)) * (*gamr - 1.…  in riem1mdt()
567   if (PetscRealPart(*pstar) > PetscRealPart(*pr)) {  in riem1mdt()
568     pst     = *pstar / *pr;  in riem1mdt()
582 …*gaml, PetscScalar *rho1l, PetscScalar *rr, PetscScalar *uxr, PetscScalar *pr, PetscScalar *utr, P…  in riemannsolver()  argument
592   if (*rl == *rr && *pr == *pl && *uxl == *uxr && *gaml == *gamr) {  in riemannsolver()
610   iwave = riem1mdt(gaml, gamr, rl, pl, uxl, rr, pr, uxr, &rstarl, &rstarr, &pstar, &ustar);  in riemannsolver()
618   p0     = cvmgm_(pl, pr, &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
763   pr    = (gamma - 1.) * (ur[ndim + 1] - rr * .5 * (d__1 * d__1 + d__2 * d__2 + d__3 * d__3));  in godunovflux()
767 …iwave = riemannsolver(&xcen, &xp, &dtt, &rl, &uxl, &pl, &utl, &ubl, &gaml, &rho1l, &rr, &uxr, &pr,…  in godunovflux()