Searched refs:PetscSign (Results 1 – 11 of 11) sorted by relevance
79 *r = PetscSign(*c) * (*s) / 2.e0; in KSPAGMRESRoddecGivens()81 *r = PetscSign(*s) * 2.e0 / (*c); in KSPAGMRESRoddecGivens()152 PetscCallBLAS("BLASnrm2", rho = -PetscSign(Ajj) * BLASnrm2_(&len, &Qloc[j * nloc + j], &pas)); in KSPAGMRESRoddec()213 sgn[d] = PetscSign(*RLOC(d, d)); in KSPAGMRESRoddec()
10 flow_pipe = PetscSign(hf - ht) * PetscPowScalar(PetscAbsScalar(hf - ht) / pipe->k, 1 / pipe->n); in Flow_Pipe()17 …flow_pump = PetscSign(hf - ht + pump->h0) * PetscPowScalar(PetscAbsScalar(hf - ht + pump->h0) / pu… in Flow_Pump()
207 …if ((dpi == 0.0) || ((i > 0) && ((PetscSign(PetscRealPart(dpi)) * PetscSign(PetscRealPart(dpiold))… in KSPSolve_FCG()
262 …if ((dpi == 0.0) || ((i > 0) && ((PetscSign(PetscRealPart(dpi)) * PetscSign(PetscRealPart(dpiold))… in KSPSolve_CG()
101 } else return PetscSign(diff); in PetscKDTreeSortFunc()
110 …data[0].shift = (PetscReal)-PetscSign(ctx->charges[ctx->species_offset[grid]]) * ctx->electronShif… in SetMaxwellians()
612 #define PetscSign(a) (((a) >= 0) ? ((a) == 0 ? 0 : 1) : -1) macro
11 else sign[i] = PetscSign(f[i]); in TSEventCalcSigns()
860 for (PetscInt d = 0; d < dEx; ++d) normal[d] = PetscSign(dot) * PetscRealPart(n[d]); in DMPlexTransformMapCoordinates_Extrude()
967 for (p = pStart; p < pEnd; p++) ngpn[p] = gpn[p] - PetscSign(gpn[p]) * offsets[d]; in RenumberGlobalPointNumbersPerStratum_Private()
5345 value = PetscSign(j) * PetscExpReal(PetscAbs(j) - 10.0); in SNESTestLocalMin()