Searched refs:pstar (Results 1 – 1 of 1) sorted by relevance
404 … PetscScalar *uxr, PetscScalar *rstarl, PetscScalar *rstarr, PetscScalar *pstar, PetscScalar *usta… in riem1mdt() argument440 *pstar = (wl * *pr + wr * *pl) / (wl + wr); in riem1mdt()441 *pstar = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp)); in riem1mdt()473 d__1 = *pstar / *pl; in riem1mdt()476 cstarl = PetscSqrtScalar(*gaml * *pstar / *rstarl); in riem1mdt()479 d__1 = *pstar / *pr; in riem1mdt()482 cstarr = PetscSqrtScalar(*gamr * *pstar / *rstarr); in riem1mdt()486 *pstar -= dpstar; in riem1mdt()487 *pstar = PetscMax(PetscRealPart(*pstar), PetscRealPart(smallp)); in riem1mdt()488 if (PetscAbsScalar(dpstar) / PetscRealPart(*pstar) <= 1e-8) { in riem1mdt()[all …]