Searched refs:ztmp (Results 1 – 1 of 1) sorted by relevance
188 PetscReal ztmp[] = {0.0, 0.0}; in VecNorm_Seq() local202 PetscCallBLAS("BLASnrm2", ztmp[type == NORM_1_AND_2] = BLASnrm2_(&bn, xx, &one)); in VecNorm_Seq()204 …PetscCallBLAS("BLASdot", ztmp[type == NORM_1_AND_2] = PetscSqrtReal(PetscRealPart(BLASdot_(&bn, xx… in VecNorm_Seq()212 if ((tmp > ztmp[0]) || (tmp != tmp)) { in VecNorm_Seq()213 ztmp[0] = tmp; in VecNorm_Seq()221 for (PetscInt i = 0; i < n; ++i) ztmp[0] += PetscAbsScalar(xx[i]); in VecNorm_Seq()223 PetscCallBLAS("BLASasum", ztmp[0] = BLASasum_(&bn, xx, &one)); in VecNorm_Seq()232 z[0] = ztmp[0]; in VecNorm_Seq()233 if (type == NORM_1_AND_2) z[1] = ztmp[1]; in VecNorm_Seq()