Lines Matching refs:icols
19 if (aijcrl) PetscCall(PetscFree2(aijcrl->acols, aijcrl->icols)); in MatDestroy_SeqAIJCRL()
37 PetscInt i, j, rmax = a->rmax, *icols, *ilen = a->ilen; in MatSeqAIJCRL_create_aijcrl() local
46 PetscCall(PetscFree2(aijcrl->acols, aijcrl->icols)); in MatSeqAIJCRL_create_aijcrl()
47 PetscCall(PetscMalloc2(rmax * m, &aijcrl->acols, rmax * m, &aijcrl->icols)); in MatSeqAIJCRL_create_aijcrl()
49 icols = aijcrl->icols; in MatSeqAIJCRL_create_aijcrl()
53 icols[j * m + i] = *aj++; in MatSeqAIJCRL_create_aijcrl()
57 icols[j * m + i] = (j) ? icols[(j - 1) * m + i] : 0; /* handle case where row is EMPTY */ in MatSeqAIJCRL_create_aijcrl()
90 PetscInt rmax = aijcrl->rmax, *icols = aijcrl->icols; in MatMult_AIJCRL() local
115 fortranmultcrl_(&m, &rmax, x, y, icols, acols); in MatMult_AIJCRL()
119 for (j = 0; j < m; j++) y[j] = acols[j] * x[icols[j]]; in MatMult_AIJCRL()
130 for (j = 0; j < m; j++) y[j] = y[j] + acols[ii + j] * x[icols[ii + j]]; in MatMult_AIJCRL()