Searched refs:cstarr (Results 1 – 1 of 1) sorted by relevance
418 static PetscScalar gascl4, gascr4, cstarl, dpstar, cstarr; in riem1mdt() local482 cstarr = PetscSqrtScalar(*gamr * *pstar / *rstarr); in riem1mdt()483 ustarr = *uxr + gascr4 * 2. * (cstarr - cr); in riem1mdt()484 zr = *rstarr * cstarr; in riem1mdt()505 cstarr = PetscSqrtScalar(*gamr * *pstar / *rstarr); in riem1mdt()506 zr = *rstarr * cstarr; in riem1mdt()507 ustarr = *uxr + gascr4 * 2. * (cstarr - cr); in riem1mdt()