Lines Matching refs:acols
19 if (aijcrl) PetscCall(PetscFree2(aijcrl->acols, aijcrl->icols)); in MatDestroy_SeqAIJCRL()
39 PetscScalar *acols; 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()
48 acols = aijcrl->acols; in MatSeqAIJCRL_create_aijcrl()
52 acols[j * m + i] = *aa++; in MatSeqAIJCRL_create_aijcrl()
56 acols[j * m + i] = 0.0; in MatSeqAIJCRL_create_aijcrl()
91 PetscScalar *acols = aijcrl->acols; 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()