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