Searched refs:skpr2 (Results 1 – 1 of 1) sorted by relevance
416 static PetscScalar cl, cr, wl, zl, wr, zr, pst, durl, skpr1, skpr2; in riem1mdt() local447 skpr2 = cl * (pst - 1.) * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst))); in riem1mdt()462 } else if (PetscRealPart(durl) <= PetscRealPart(-skpr2)) { in riem1mdt()