Home
last modified time | relevance | path

Searched refs:JA (Results 1 – 4 of 4) sorted by relevance

/petsc/src/mat/interface/ftn-custom/
H A Dzmatrixf90.c315 const PetscInt *IA, *JA; in matgetrowij_() local
316 *ierr = MatGetRowIJ(*B, *shift, *sym, *blockcompressed, n, &IA, &JA, done); in matgetrowij_()
320 *ierr = F90Array1dCreate((PetscInt *)JA, MPIU_INT, 1, IA[*n], ja PETSC_F90_2PTR_PARAM(jad)); in matgetrowij_()
324 const PetscInt *IA, *JA; in matrestorerowij_() local
329 *ierr = F90Array1dAccess(ja, MPIU_INT, (void **)&JA PETSC_F90_2PTR_PARAM(jad)); in matrestorerowij_()
333 *ierr = MatRestoreRowIJ(*B, *shift, *sym, *blockcompressed, n, &IA, &JA, done); in matrestorerowij_()
/petsc/src/tao/constrained/impls/admm/
H A Dadmm.h21 Mat Hx, Hxpre, Hz, Hzpre, ATA, BTB, JA, JApre, JB, JBpre; member
H A Dadmm.c553 if (!am->JA) { in TaoSetUp_ADMM()
555 …teShell(PetscObjectComm((PetscObject)tao), n, n, PETSC_DETERMINE, PETSC_DETERMINE, NULL, &am->JA)); in TaoSetUp_ADMM()
556 PetscCall(MatShellSetOperation(am->JA, MATOP_MULT, (PetscErrorCodeFn *)JacobianIdentity)); in TaoSetUp_ADMM()
557 …PetscCall(MatShellSetOperation(am->JA, MATOP_MULT_TRANSPOSE, (PetscErrorCodeFn *)JacobianIdentity)… in TaoSetUp_ADMM()
558 am->JApre = am->JA; in TaoSetUp_ADMM()
560 PetscCall(MatCreateVecs(am->JA, NULL, &am->Ax)); in TaoSetUp_ADMM()
612 …PetscCall(TaoSetJacobianEqualityRoutine(am->subsolverX, am->JA, am->JApre, am->ops->misfitjac, am-… in TaoSetUp_ADMM()
638 PetscCall(MatDestroy(&am->JA)); in TaoDestroy_ADMM()
1025 PetscCall(MatDestroy(&am->JA)); in TaoADMMSetMisfitConstraintJacobian()
1026 am->JA = J; in TaoADMMSetMisfitConstraintJacobian()
/petsc/src/ksp/pc/impls/mpi/
H A Dpcmpi.c165 const PetscInt *IA = NULL, *JA = NULL, *ia, *ja; in PCMPISetMat() local
225 PetscCall(MatGetRowIJ(sA, 0, PETSC_FALSE, PETSC_FALSE, NULL, &IA, &JA, NULL)); in PCMPISetMat()
263 PetscCallMPI(MPIU_Scatterv(JA, NZ, NZdispl, MPIU_INT, (void *)ja, nz, MPIU_INT, 0, comm)); in PCMPISetMat()
266 const void *addr[3] = {(const void **)IA, (const void **)JA, (const void **)sa}; in PCMPISetMat()
280 PetscCall(MatRestoreRowIJ(sA, 0, PETSC_FALSE, PETSC_FALSE, NULL, &IA, &JA, NULL)); in PCMPISetMat()