| /petsc/include/petsc/private/ |
| H A D | petscscalapack.h | 7 PetscBLASInt ictxt; /* process grid context */
8 PetscBLASInt nprow, npcol; /* number of process rows and columns */
9 PetscBLASInt myrow, mycol; /* coordinates of local process on the grid */
11 PetscBLASInt ictxrow, ictxcol; /* auxiliary 1d process grid contexts */
16 PetscBLASInt desc[9]; /* ScaLAPACK descriptor */
17 PetscBLASInt M, N; /* global dimensions, for rows and columns */
18 PetscBLASInt locr, locc; /* dimensions of local array */
19 PetscBLASInt mb, nb; /* block size, for rows and columns */
20 PetscBLASInt rsrc, csrc; /* coordinates of process owning first row and column */
22 PetscBLASInt lld; /* local leading dimension */
[all …]
|
| /petsc/include/ |
| H A D | petscblaslapack.h | 75 … void LAPACKgetrf_(const PetscBLASInt *, const PetscBLASInt *, PetscScalar *, const PetscBLASInt *…
76 …id LAPACKREALgetrf_(const PetscBLASInt *, const PetscBLASInt *, PetscReal *, const PetscBLASInt *,…
77 …Kgetri_(const PetscBLASInt *, PetscScalar *, const PetscBLASInt *, const PetscBLASInt *, PetscScal…
78 …EALgetri_(const PetscBLASInt *, PetscReal *, const PetscBLASInt *, const PetscBLASInt *, PetscReal…
80 …PetscBLASInt *, const PetscBLASInt *, const PetscBLASInt *, PetscScalar *, const PetscBLASInt *, c…
84 …(const PetscBLASInt *, const PetscBLASInt *, PetscScalar *, const PetscBLASInt *, PetscScalar *, P…
86 BLAS_EXTERN double BLASnrm2_(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *);
88 BLAS_EXTERN PetscReal BLASnrm2_(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *);
90 BLAS_EXTERN void BLASscal_(const PetscBLASInt *, const PetscScalar *, PetscScalar *, const PetscBLA…
91 …S_EXTERN void BLAScopy_(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *, PetscScal…
[all …]
|
| H A D | petscsystypes.h | 362 typedef PetscInt64 PetscBLASInt; typedef
368 typedef int PetscBLASInt; typedef
|
| /petsc/src/snes/impls/ngmres/ |
| H A D | snesngmres.h | 44 PetscBLASInt m; /* matrix dimension */
45 PetscBLASInt n; /* matrix dimension */
46 PetscBLASInt nrhs; /* the number of right-hand sides */
47 PetscBLASInt lda; /* the padded matrix dimension */
48 PetscBLASInt ldb; /* the padded vector dimension */
51 PetscBLASInt rank; /* the effective rank */
54 PetscBLASInt lwork; /* the size of the work vector */
55 PetscBLASInt info; /* the output condition */
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | bvec1.c | 10 …uble (*const BLASfn)(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *, const PetscS… in VecXDot_Seq_Private() argument
12 …alar (*const BLASfn)(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *, const PetscS… in VecXDot_Seq_Private()
16 const PetscBLASInt one = 1; in VecXDot_Seq_Private()
18 PetscBLASInt bn; in VecXDot_Seq_Private()
57 const PetscBLASInt one = 1; in VecScale_Seq()
58 PetscBLASInt bn; in VecScale_Seq()
77 const PetscBLASInt one = 1; in VecAXPY_Seq()
78 PetscBLASInt bn; in VecAXPY_Seq()
|
| /petsc/src/ksp/ksp/impls/gmres/agmres/ |
| H A D | agmresdeflation.c | 92 …rCode KSPAGMRESSchurForm(KSP ksp, PetscBLASInt KspSize, PetscScalar *A, PetscBLASInt ldA, PetscSca… in KSPAGMRESSchurForm()
96 PetscBLASInt r; in KSPAGMRESSchurForm()
104 PetscBLASInt *select = agmres->select; in KSPAGMRESSchurForm()
106 PetscBLASInt sdim = 0; in KSPAGMRESSchurForm()
108 PetscBLASInt info; in KSPAGMRESSchurForm()
109 PetscBLASInt *iwork = agmres->iwork; in KSPAGMRESSchurForm()
110 PetscBLASInt N; in KSPAGMRESSchurForm()
111 PetscBLASInt lwork, liwork; in KSPAGMRESSchurForm()
112 PetscBLASInt ilo; in KSPAGMRESSchurForm()
113 PetscBLASInt ijob, wantQ, wantZ; in KSPAGMRESSchurForm()
[all …]
|
| H A D | agmresimpl.h | 30 PetscBLASInt *select; /* array used to select the Schur vectors to order */
|
| /petsc/include/petsc/private/kernels/ |
| H A D | blockinvert.h | 61 PetscBLASInt _bbs; \
80 PetscBLASInt _bbs; \
97 PetscBLASInt _bbs; \
115 PetscBLASInt _ione = 1, _bbs; \
133 PetscBLASInt _ione = 1, _bbs; \
151 PetscBLASInt _ione = 1, _bbs; \
169 PetscBLASInt _ione = 1, _bbs; \
187 PetscBLASInt _ione = 1, _bbs, _bncols; \
206 PetscBLASInt _ione = 1, _bbs, _bncols; \
225 PetscBLASInt _ione = 1, _bbs; \
[all …]
|
| H A D | petscaxpy.h | 34 PetscBLASInt one = 1; \
35 PetscBLASInt nn = (PetscBLASInt)n; \
175 PetscBLASInt one = 1; \
176 PetscBLASInt nn = (PetscBLASInt)n; \
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 545 PetscBLASInt nr, bmax; in KSPDGMRESComputeDeflationData_DGMRES()
628 PetscBLASInt info; in KSPDGMRESComputeDeflationData_DGMRES()
650 PetscBLASInt bn; in KSPDGMRESComputeSchurForm_DGMRES()
652 PetscBLASInt ihi; in KSPDGMRESComputeSchurForm_DGMRES()
653 PetscBLASInt ldA = 0; /* leading dimension of A */ in KSPDGMRESComputeSchurForm_DGMRES()
654 PetscBLASInt ldQ; /* leading dimension of Q */ in KSPDGMRESComputeSchurForm_DGMRES()
657 PetscBLASInt lwork; /* size of the working vector */ in KSPDGMRESComputeSchurForm_DGMRES()
660 PetscBLASInt NbrEig; /* Number of eigenvalues really extracted */ in KSPDGMRESComputeSchurForm_DGMRES()
662 PetscBLASInt *select; in KSPDGMRESComputeSchurForm_DGMRES()
663 PetscBLASInt *iwork; in KSPDGMRESComputeSchurForm_DGMRES()
[all …]
|
| H A D | dgmresimpl.h | 12 PetscBLASInt *InvP; /* Permutation Vector from the LU factorization of T */ \
38 PetscBLASInt *iwork; /* work space for LAPACK functions */ \
|
| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmreig.c | 8 PetscBLASInt bn, bN, lwork, idummy, lierr; in KSPComputeExtremeSingularValues_GMRES()
47 PetscBLASInt bn, bN, lwork, idummy, lierr = -1; in KSPComputeEigenvalues_GMRES()
81 PetscBLASInt bn, bN, lwork, idummy, lierr = -1; in KSPComputeEigenvalues_GMRES()
123 PetscBLASInt bn, bN, lwork, idummy; in KSPComputeRitz_GMRES()
160 PetscBLASInt info; in KSPComputeRitz_GMRES()
161 PetscBLASInt nrhs = 1; in KSPComputeRitz_GMRES()
162 PetscBLASInt *ipiv; in KSPComputeRitz_GMRES()
180 PetscBLASInt info; in KSPComputeRitz_GMRES()
|
| /petsc/src/ksp/ksp/interface/ |
| H A D | eige.c | 158 PetscBLASInt idummy, lwork; in KSPComputeEigenvaluesExplicitly()
166 PetscBLASInt lierr; in KSPComputeEigenvaluesExplicitly()
168 PetscBLASInt bn; in KSPComputeEigenvaluesExplicitly()
192 PetscBLASInt idummy, lwork; in KSPComputeEigenvaluesExplicitly()
201 PetscBLASInt lierr; in KSPComputeEigenvaluesExplicitly()
203 PetscBLASInt nb; in KSPComputeEigenvaluesExplicitly()
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.h | 18 PetscBLASInt *pivots; /* pivots in LU factorization */
19 PetscBLASInt lfwork; /* length of work array in factorization */
23 PetscBLASInt lda; /* Lapack leading dimension of data */
24 PetscBLASInt rank; /* numerical rank (of a QR factorized matrix) */
|
| H A D | dense.c | 38 PetscBLASInt info, n; in MatSeqDenseInvertFactors_Private()
242 PetscBLASInt N, m, ldax = 0, lday = 0, one = 1; in MatAXPY_SeqDense()
284 PetscBLASInt one = 1, j, nz, lda = 0; in MatScale_SeqDense()
402 …SeqDense_Internal_LU(Mat A, PetscScalar *x, PetscBLASInt ldx, PetscBLASInt m, PetscBLASInt nrhs, P… in MatSolve_SeqDense_Internal_LU()
405 PetscBLASInt info; in MatSolve_SeqDense_Internal_LU()
416 …se_Internal_Cholesky(Mat A, PetscScalar *x, PetscBLASInt ldx, PetscBLASInt m, PetscBLASInt nrhs, P… in MatSolve_SeqDense_Internal_Cholesky()
419 PetscBLASInt info; in MatSolve_SeqDense_Internal_Cholesky()
448 …SeqDense_Internal_QR(Mat A, PetscScalar *x, PetscBLASInt ldx, PetscBLASInt m, PetscBLASInt nrhs, P… in MatSolve_SeqDense_Internal_QR()
451 PetscBLASInt info; in MatSolve_SeqDense_Internal_QR()
462 PetscBLASInt nlfwork, lfwork = -1; in MatSolve_SeqDense_Internal_QR()
[all …]
|
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | pounders.h | 35 PetscBLASInt *iwork; /* n */
69 PetscBLASInt *npmaxiwork; /* integer work vector of length npmax */
|
| /petsc/src/ksp/ksp/impls/cg/ |
| H A D | cgeig.c | 15 PetscBLASInt bn, lierr = 0, ldz = 1; in KSPComputeEigenvalues_CG()
48 PetscBLASInt bn, lierr = 0, ldz = 1; in KSPComputeExtremeSingularValues_CG()
|
| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/ |
| H A D | blas_cyclic.c | 250 PetscBLASInt b_one = 1, blda, bm; in TRSVCyclic_Private()
251 PetscBLASInt i_oldest, i_next; in TRSVCyclic_Private()
260 PetscBLASInt bn = i_next - i_oldest; in TRSVCyclic_Private()
266 PetscBLASInt bn = bm - i_oldest; in TRSVCyclic_Private()
345 PetscBLASInt b_one = 1, blda, bm; in HEMVCyclic_Private()
346 PetscBLASInt i_oldest, i_next; in HEMVCyclic_Private()
355 PetscBLASInt bn = i_next - i_oldest; in HEMVCyclic_Private()
359 PetscBLASInt bn = bm - i_oldest; in HEMVCyclic_Private()
422 PetscBLASInt b_one = 1, blda, bm; in GEMVCyclic_Private()
423 PetscBLASInt i_oldest, i_next; in GEMVCyclic_Private()
[all …]
|
| /petsc/src/ksp/ksp/impls/cg/gltr/ |
| H A D | gltrimpl.h | 30 PetscBLASInt *iwork; /* Integer workspace for solver computations */
|
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 252 …PetscBLASInt m, PetscBLASInt oldest, PetscBLASInt next, PetscScalar M00[], PetscBLASInt lda00, Pet… in SymBroydenCompactDenseUpdateArrays()
254 PetscBLASInt i; in SymBroydenCompactDenseUpdateArrays()
256 PetscBLASInt ione = 1; in SymBroydenCompactDenseUpdateArrays()
289 for (PetscBLASInt i_ = oldest + 1; i_ < next; i_++) { in SymBroydenCompactDenseUpdateArrays()
327 for (PetscBLASInt j = 0; j < m; j++) M01[j + i * lda01] = beta * p0[j]; in SymBroydenCompactDenseUpdateArrays()
328 for (PetscBLASInt j = 0; j < m; j++) M01[i + j * lda01] = PetscConj(alpha * p1[j]); in SymBroydenCompactDenseUpdateArrays()
396 PetscBLASInt M_lda[3], StB0S_lda, YtS_lda, m_blas, oldest_blas, next_blas; in SymBroydenCompactProductsUpdate()
|
| /petsc/src/ksp/ksp/impls/bcgsl/ |
| H A D | bcgslimpl.h | 28 PetscBLASInt lwork;
|
| /petsc/src/ksp/ksp/guess/impls/pod/ |
| H A D | pod.c | 27 PetscBLASInt nen; /* dimension of lower dimensional system */
29 PetscBLASInt *iwork; /* integer work vector */
35 PetscBLASInt lwork;
74 PetscBLASInt bN, lierr, idummy = 0; in KSPGuessSetUp_POD()
143 PetscBLASInt bN, ione = 1, bNen, lierr; in KSPGuessFormGuess_POD()
220 PetscBLASInt bN, lierr, idummy = 0; in KSPGuessUpdate_POD()
346 PetscBLASInt bNen, bMaxN; in KSPGuessUpdate_POD()
378 PetscBLASInt bNen, ione = 1; in KSPGuessUpdate_POD()
|
| /petsc/src/mat/impls/scalapack/ |
| H A D | matscalapack.c | 117 PetscBLASInt gridx, gcidx, lridx, lcidx, rsrc, csrc; in MatSetValues_ScaLAPACK()
164 …PetscBLASInt xdesc[9], ydesc[9], x2desc[9], y2desc[9], mb, nb, lszx, lszy, zero = 0, one = 1, x… in MatMultXXXYYY_ScaLAPACK()
340 PetscBLASInt one = 1; in MatMatMultNumeric_ScaLAPACK()
364 PetscBLASInt one = 1; in MatTransposeMatMultNumeric_ScaLAPACK()
388 PetscBLASInt one = 1; in MatMatTransposeMultNumeric_ScaLAPACK()
435 PetscBLASInt j, ddesc[9], d2desc[9], mb, nb, lszd, zero = 0, one = 1, dlld, info; in MatGetDiagonal_ScaLAPACK()
508 PetscBLASInt i, j, ddesc[9], d2desc[9], mb, nb, lszd, zero = 0, one = 1, dlld, info; in MatDiagonalScale_ScaLAPACK()
580 PetscBLASInt n, one = 1; in MatScale_ScaLAPACK()
591 PetscBLASInt i, n; in MatShift_ScaLAPACK()
608 PetscBLASInt one = 1; in MatAXPY_ScaLAPACK()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex116.c | 26 PetscBLASInt nevs, il, iu, in; in main()
28 PetscBLASInt *iwork, *ifail, lwork, lierr, bn; in main()
129 PetscBLASInt minMN, maxMN, im, in; in main()
|
| /petsc/include/petsc/finclude/ |
| H A D | petscsysbase.h | 36 #define PetscBLASInt integer8 macro
38 #define PetscBLASInt integer4
|