Home
last modified time | relevance | path

Searched refs:xnorms (Results 1 – 23 of 23) sorted by relevance

/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/TESTING/MATGEN/
H A Dclatme.c70 static complex xnorms; in clatme_() local
523 xnorms.r = work[1].r, xnorms.i = work[1].i; in clatme_()
524 clarfg_(&irows, &xnorms, &work[2], &c__1, &tau); in clatme_()
545 a[i__2].r = xnorms.r, a[i__2].i = xnorms.i; in clatme_()
567 xnorms.r = work[1].r, xnorms.i = work[1].i; in clatme_()
568 clarfg_(&icols, &xnorms, &work[2], &c__1, &tau); in clatme_()
591 a[i__2].r = xnorms.r, a[i__2].i = xnorms.i; in clatme_()
H A Dzlatme.c74 static doublecomplex xnorms; in zlatme_() local
527 xnorms.r = work[1].r, xnorms.i = work[1].i; in zlatme_()
528 zlarfg_(&irows, &xnorms, &work[2], &c__1, &tau); in zlatme_()
549 a[i__2].r = xnorms.r, a[i__2].i = xnorms.i; in zlatme_()
571 xnorms.r = work[1].r, xnorms.i = work[1].i; in zlatme_()
572 zlarfg_(&icols, &xnorms, &work[2], &c__1, &tau); in zlatme_()
595 a[i__2].r = xnorms.r, a[i__2].i = xnorms.i; in zlatme_()
H A Dslaror.c43 static real xnorms; in slaror_() local
221 xnorms = r_sign(&xnorm, &x[kbeg]); in slaror_()
224 factor = xnorms * (xnorms + x[kbeg]); in slaror_()
232 x[kbeg] += xnorms; in slaror_()
H A Ddlaror.c46 static doublereal factor, xnorms; in dlaror_() local
225 xnorms = d_sign(&xnorm, &x[kbeg]); in dlaror_()
228 factor = xnorms * (xnorms + x[kbeg]); in dlaror_()
236 x[kbeg] += xnorms; in dlaror_()
H A Dslatme.c59 static real xnorms; in slatme_() local
598 xnorms = work[1]; in slatme_()
599 slarfg_(&irows, &xnorms, &work[2], &c__1, &tau); in slatme_()
615 a[jcr + ic * a_dim1] = xnorms; in slatme_()
632 xnorms = work[1]; in slatme_()
633 slarfg_(&icols, &xnorms, &work[2], &c__1, &tau); in slatme_()
649 a[ir + jcr * a_dim1] = xnorms; in slatme_()
H A Ddlatme.c65 static doublereal xnorms; in dlatme_() local
604 xnorms = work[1]; in dlatme_()
605 dlarfg_(&irows, &xnorms, &work[2], &c__1, &tau); in dlatme_()
621 a[jcr + ic * a_dim1] = xnorms; in dlatme_()
638 xnorms = work[1]; in dlatme_()
639 dlarfg_(&icols, &xnorms, &work[2], &c__1, &tau); in dlatme_()
655 a[ir + jcr * a_dim1] = xnorms; in dlatme_()
H A Dzlaror.c52 static doublecomplex xnorms; in zlaror_() local
260 xnorms.r = z__1.r, xnorms.i = z__1.i; in zlaror_()
275 z__1.r = x[i__3].r + xnorms.r, z__1.i = x[i__3].i + xnorms.i; in zlaror_()
H A Dclaror.c47 static complex xnorms; in claror_() local
255 xnorms.r = q__1.r, xnorms.i = q__1.i; in claror_()
270 q__1.r = x[i__3].r + xnorms.r, q__1.i = x[i__3].i + xnorms.i; in claror_()
/dports/math/superlu/superlu-5.2.2/TESTING/MATGEN/
H A Dclatme.c70 static complex xnorms; in clatme_slu() local
523 xnorms.r = work[1].r, xnorms.i = work[1].i; in clatme_slu()
524 clarfg_(&irows, &xnorms, &work[2], &c__1, &tau); in clatme_slu()
545 a[i__2].r = xnorms.r, a[i__2].i = xnorms.i; in clatme_slu()
567 xnorms.r = work[1].r, xnorms.i = work[1].i; in clatme_slu()
568 clarfg_(&icols, &xnorms, &work[2], &c__1, &tau); in clatme_slu()
591 a[i__2].r = xnorms.r, a[i__2].i = xnorms.i; in clatme_slu()
H A Dslaror.c42 static real xnorms; in slaror_slu() local
220 xnorms = r_sign(&xnorm, &x[kbeg]); in slaror_slu()
223 factor = xnorms * (xnorms + x[kbeg]); in slaror_slu()
231 x[kbeg] += xnorms; in slaror_slu()
H A Ddlaror.c45 static doublereal factor, xnorms; in dlaror_slu() local
224 xnorms = d_sign(&xnorm, &x[kbeg]); in dlaror_slu()
227 factor = xnorms * (xnorms + x[kbeg]); in dlaror_slu()
235 x[kbeg] += xnorms; in dlaror_slu()
H A Dclaror.c47 static complex xnorms; in claror_slu() local
255 xnorms.r = q__1.r, xnorms.i = q__1.i; in claror_slu()
270 q__1.r = x[i__3].r + xnorms.r, q__1.i = x[i__3].i + xnorms.i; in claror_slu()
H A Dzlaror.c51 static doublecomplex xnorms; in zlaror_slu() local
259 xnorms.r = z__1.r, xnorms.i = z__1.i; in zlaror_slu()
274 z__1.r = x[i__3].r + xnorms.r, z__1.i = x[i__3].i + xnorms.i; in zlaror_slu()
/dports/math/primme/primme-3.2/src/eigs/
H A Dauxiliary_eigs_normal.c168 HREAL *xnorms, int nxb, int nxe,
194 if (xnorms && nxb < nxe) nXb = min(nXb, nxb), nXe = max(nXe, nxe);
248 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = 0.0;
310 if (xnorms) for (j=nxb; j<nxe; j++) {
311 xnorms[j - nxb] += REAL_PART(Num_dot_Sprimme(
358 if (xnorms) for (i=nxb; i<nxe; i++) tmp[j++] = xnorms[i-nxb];
363 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(tmp[j++]);
369 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(xnorms[i-nxb]);
381 (H ? mV * nH * nH : 0) + (xnorms ? (nxe - nxb) * mV : 0) +
H A Dauxiliary_eigs_normal.h232 dummy_type_dprimme *xnorms, int nxb, int nxe, in Num_update_VWXR_Sprimme()
530 dummy_type_sprimme *xnorms, int nxb, int nxe,
558 dummy_type_sprimme *xnorms, int nxb, int nxe,
586 dummy_type_sprimme *xnorms, int nxb, int nxe,
614 dummy_type_sprimme *xnorms, int nxb, int nxe,
642 dummy_type_sprimme *xnorms, int nxb, int nxe,
670 dummy_type_sprimme *xnorms, int nxb, int nxe,
698 dummy_type_dprimme *xnorms, int nxb, int nxe,
726 dummy_type_dprimme *xnorms, int nxb, int nxe,
754 dummy_type_sprimme *xnorms, int nxb, int nxe,
[all …]
/dports/math/py-primme/primme-3.2/src/eigs/
H A Dauxiliary_eigs_normal.c168 HREAL *xnorms, int nxb, int nxe,
194 if (xnorms && nxb < nxe) nXb = min(nXb, nxb), nXe = max(nXe, nxe);
248 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = 0.0;
310 if (xnorms) for (j=nxb; j<nxe; j++) {
311 xnorms[j - nxb] += REAL_PART(Num_dot_Sprimme(
358 if (xnorms) for (i=nxb; i<nxe; i++) tmp[j++] = xnorms[i-nxb];
363 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(tmp[j++]);
369 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(xnorms[i-nxb]);
381 (H ? mV * nH * nH : 0) + (xnorms ? (nxe - nxb) * mV : 0) +
H A Dauxiliary_eigs_normal.h232 dummy_type_dprimme *xnorms, int nxb, int nxe,
530 dummy_type_sprimme *xnorms, int nxb, int nxe,
558 dummy_type_sprimme *xnorms, int nxb, int nxe,
586 dummy_type_sprimme *xnorms, int nxb, int nxe,
614 dummy_type_sprimme *xnorms, int nxb, int nxe,
642 dummy_type_sprimme *xnorms, int nxb, int nxe,
670 dummy_type_sprimme *xnorms, int nxb, int nxe,
698 dummy_type_dprimme *xnorms, int nxb, int nxe,
726 dummy_type_dprimme *xnorms, int nxb, int nxe,
754 dummy_type_sprimme *xnorms, int nxb, int nxe,
[all …]
/dports/science/PETSc/petsc-3.14.1/src/snes/impls/ngmres/
H A Dngmresfunc.c145 ierr = VecNormBegin(D,NORM_2,&ngmres->xnorms[i]);CHKERRQ(ierr); in SNESNGMRESNorms_Private()
157 ierr = VecNormEnd(D,NORM_2,&ngmres->xnorms[i]);CHKERRQ(ierr); in SNESNGMRESNorms_Private()
158 dcurnorm = ngmres->xnorms[i]; in SNESNGMRESNorms_Private()
H A Dsnesngmres.h22 PetscReal *xnorms; /* the solution norm history */ member
H A Dsnesngmres.c28 ierr = PetscFree3(ngmres->xnorms,ngmres->fnorms,ngmres->s);CHKERRQ(ierr); in SNESDestroy_NGMRES()
65 ierr = PetscMalloc3(msize,&ngmres->xnorms,msize,&ngmres->fnorms,msize,&ngmres->s);CHKERRQ(ierr); in SNESSetUp_NGMRES()
/dports/science/PETSc/petsc-3.14.1/src/ts/tutorials/
H A Dex18.c919 PetscReal *xnorms; in MonitorFunctionals() local
930 ierr = PetscCalloc1(Nf*2, &xnorms);CHKERRQ(ierr); in MonitorFunctionals()
940 for (d = 0; d < dof-cdof; ++d) xnorms[f*2+0] = PetscMax(xnorms[f*2+0], PetscAbsScalar(a[d])); in MonitorFunctionals()
941 for (d = 0; d < dof-cdof; ++d) xnorms[f*2+1] += PetscAbsScalar(a[d]); in MonitorFunctionals()
1063 …ierr = PetscPrintf(PetscObjectComm((PetscObject) ts), "%8.4g", (double) xnorms[f*2+0]);CHKERRQ(ier… in MonitorFunctionals()
1068 …ierr = PetscPrintf(PetscObjectComm((PetscObject) ts), "%8.4g", (double) xnorms[f*2+1]);CHKERRQ(ier… in MonitorFunctionals()
1073 ierr = PetscFree(xnorms);CHKERRQ(ierr); in MonitorFunctionals()
/dports/science/PETSc/petsc-3.14.1/
H A DTAGS61796 PetscReal *xnorms;xnorms22,829
H A DCTAGS81801 xnorms src/snes/impls/ngmres/snesngmres.h /^ PetscReal *xnorms; \/* the solution norm hi…