404 static int riem1mdt(PetscScalar *gaml, PetscScalar *gamr, PetscScalar *rl, PetscScalar *pl, PetscSc…  in riem1mdt()  argument
431   gascr4 = 1. / (*gamr - 1.);  in riem1mdt()
435   cr = PetscSqrtScalar(*gamr * *pr / *rr);  in riem1mdt()
443   skpr1   = cr * (pst - 1.) * PetscSqrtScalar(2. / (*gamr * (*gamr - 1. + (*gamr + 1.) * pst)));  in riem1mdt()
444   d__1    = (*gamr - 1.) / (*gamr * 2.);  in riem1mdt()
480       d__2    = 1. / *gamr;  in riem1mdt()
482       cstarr  = PetscSqrtScalar(*gamr * *pstar / *rstarr);  in riem1mdt()
503       d__2    = 1. / *gamr;  in riem1mdt()
505       cstarr  = PetscSqrtScalar(*gamr * *pstar / *rstarr);  in riem1mdt()
526 …ustarr = *uxr + (pst - 1.) * cr * PetscSqrtScalar(2. / (*gamr * (*gamr - 1. + (*gamr + 1.) * pst))…  in riem1mdt()
527 …r * PetscSqrtScalar(*gamr * 2. * (*gamr - 1. + (*gamr + 1.) * pst)) * (*gamr - 1. + (*gamr + 1.) *…  in riem1mdt()
549 …ustarr  = *uxr + (pst - 1.) * cr * PetscSqrtScalar(2. / (*gamr * (*gamr - 1. + (*gamr + 1.) * pst)…  in riem1mdt()
550 …r * PetscSqrtScalar(*gamr * 2. * (*gamr - 1. + (*gamr + 1.) * pst)) * (*gamr - 1. + (*gamr + 1.) *…  in riem1mdt()
569     *rstarr = ((*gamr + 1.) * pst + *gamr - 1.) / ((*gamr - 1.) * pst + *gamr + 1.) * *rr;  in riem1mdt()
582 …r *uxr, PetscScalar *pr, PetscScalar *utr, PetscScalar *ubr, PetscScalar *gamr, PetscScalar *rho1r…  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()
620   *gam   = cvmgm_(gaml, gamr, &sgn0);  in riemannsolver()
683 …r, xp, ubl, ubm, ubr, dtt, unm, tmp, utl, utm, uxl, utr, uxr, gaml, gamm, gamr, xcen, rhom, rho1l,…  in godunovflux()  local
749   gamr = gamma;  in godunovflux()
767 …, &rl, &uxl, &pl, &utl, &ubl, &gaml, &rho1l, &rr, &uxr, &pr, &utr, &ubr, &gamr, &rho1r, &rhom, &un…  in godunovflux()