Lines Matching refs:aij
12 Mat_SeqAIJ *aij = (Mat_SeqAIJ *)B->data; in MatSeqAIJToMatlab() local
17 mat = mxCreateSparse(B->cmap->n, B->rmap->n, aij->nz, mxREAL); in MatSeqAIJToMatlab()
18 if (PetscArraycpy(mxGetPr(mat), aij->a, aij->nz)) return NULL; in MatSeqAIJToMatlab()
21 for (i = 0; i < aij->nz; i++) jj[i] = aij->j[i]; in MatSeqAIJToMatlab()
23 for (i = 0; i < B->rmap->n + 1; i++) ii[i] = aij->i[i]; in MatSeqAIJToMatlab()
43 Mat_SeqAIJ *aij = (Mat_SeqAIJ *)mat->data; in MatSeqAIJFromMatlab() local
63 if (nz != aij->nz) { in MatSeqAIJFromMatlab()
65 aij->nz = nz; in MatSeqAIJFromMatlab()
66 PetscCall(PetscShmgetAllocateArray(aij->nz, sizeof(PetscScalar), (void **)&aij->a)); in MatSeqAIJFromMatlab()
67 PetscCall(PetscShmgetAllocateArray(aij->nz, sizeof(PetscInt), (void **)&aij->j)); in MatSeqAIJFromMatlab()
68 PetscCall(PetscShmgetAllocateArray(mat->rmap->n + 1, sizeof(PetscInt), (void **)&aij->i)); in MatSeqAIJFromMatlab()
69 aij->free_a = PETSC_TRUE; in MatSeqAIJFromMatlab()
70 aij->free_ij = PETSC_TRUE; in MatSeqAIJFromMatlab()
73 PetscCall(PetscArraycpy(aij->a, mxGetPr(mmat), aij->nz)); in MatSeqAIJFromMatlab()
75 i = aij->i; in MatSeqAIJFromMatlab()
77 j = aij->j; in MatSeqAIJFromMatlab()
80 for (k = 0; k < mat->rmap->n; k++) aij->ilen[k] = aij->imax[k] = aij->i[k + 1] - aij->i[k]; in MatSeqAIJFromMatlab()