34   #define PetscRealPart(a)     a  macro
190   for (i = 0; i < 1 + dim; i++) uLreal.vals[i] = PetscRealPart(xL[i]);  in PhysicsRiemann_SW_Rusanov()
191   for (i = 0; i < 1 + dim; i++) uRreal.vals[i] = PetscRealPart(xR[i]);  in PhysicsRiemann_SW_Rusanov()
290   for (i = 0; i < 1 + dim; i++) uLreal.vals[i] = PetscRealPart(xL[i]);  in PhysicsRiemann_SW_HLL()
291   for (i = 0; i < 1 + dim; i++) uRreal.vals[i] = PetscRealPart(xR[i]);  in PhysicsRiemann_SW_HLL()
383   if (PetscRealPart(*test) > 0.) goto L10;  in cvmgp_()
396   if (PetscRealPart(*test) < 0.) goto L10;  in cvmgm_()
441   *pstar  = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp));  in riem1mdt()
451   if (PetscRealPart(*pr) < PetscRealPart(*pl)) {  in riem1mdt()
452     if (PetscRealPart(durl) >= PetscRealPart(rarepr1)) {  in riem1mdt()
454     } else if (PetscRealPart(durl) <= PetscRealPart(-skpr1)) {  in riem1mdt()
460     if (PetscRealPart(durl) >= PetscRealPart(rarepr2)) {  in riem1mdt()
462     } else if (PetscRealPart(durl) <= PetscRealPart(-skpr2)) {  in riem1mdt()
487       *pstar = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp));  in riem1mdt()
488       if (PetscAbsScalar(dpstar) / PetscRealPart(*pstar) <= 1e-8) {  in riem1mdt()
510       *pstar = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp));  in riem1mdt()
511       if (PetscAbsScalar(dpstar) / PetscRealPart(*pstar) <= 1e-8) {  in riem1mdt()
530       *pstar = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp));  in riem1mdt()
531       if (PetscAbsScalar(dpstar) / PetscRealPart(*pstar) <= 1e-8) {  in riem1mdt()
553       *pstar = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp));  in riem1mdt()
554       if (PetscAbsScalar(dpstar) / PetscRealPart(*pstar) <= 1e-8) {  in riem1mdt()
563   if (PetscRealPart(*pstar) > PetscRealPart(*pl)) {  in riem1mdt()
567   if (PetscRealPart(*pstar) > PetscRealPart(*pr)) {  in riem1mdt()
576   if (PetscRealPart(x) > 0) return 1.0;  in sign()
577   if (PetscRealPart(x) < 0) return -1.0;  in sign()
599     if (PetscRealPart(*xp) >= PetscRealPart(x2)) {  in riemannsolver()
663   if (PetscRealPart(*xp) >= PetscRealPart(x2)) {  in riemannsolver()