Lines Matching refs:mat
46 static PetscErrorCode ourmult(Mat mat, Vec x, Vec y) in ourmult() argument
48 …, Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_MULT]))… in ourmult()
52 static PetscErrorCode ourmultadd(Mat mat, Vec x, Vec y, Vec z) in ourmultadd() argument
54 …Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_ADD]… in ourmultadd()
58 static PetscErrorCode ourmulttranspose(Mat mat, Vec x, Vec y) in ourmulttranspose() argument
60 … *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_TRANSPO… in ourmulttranspose()
64 static PetscErrorCode ourmulthermitiantranspose(Mat mat, Vec x, Vec y) in ourmulthermitiantranspose() argument
66 … Vec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_HT]… in ourmulthermitiantranspose()
70 static PetscErrorCode ourmulttransposeadd(Mat mat, Vec x, Vec y, Vec z) in ourmulttransposeadd() argument
72 …, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_TRANSPOSE… in ourmulttransposeadd()
76 static PetscErrorCode ourmulthermitiantransposeadd(Mat mat, Vec x, Vec y, Vec z) in ourmulthermitiantransposeadd() argument
78 …ec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_HT_AD… in ourmulthermitiantransposeadd()
82 static PetscErrorCode oursor(Mat mat, Vec b, PetscReal omega, MatSORType flg, PetscReal shift, Pets… in oursor() argument
86 …tscInt *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_SOR]))… in oursor()
90 static PetscErrorCode ourtranspose(Mat mat, MatReuse reuse, Mat *B) in ourtranspose() argument
95 …use *, Mat *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_TRANSPOSE… in ourtranspose()
99 static PetscErrorCode ourgetdiagonal(Mat mat, Vec x) in ourgetdiagonal() argument
101 …t *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_GET_DIAGONA… in ourgetdiagonal()
105 static PetscErrorCode ourdiagonalscale(Mat mat, Vec l, Vec r) in ourdiagonalscale() argument
111 … *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_DIAGONAL_SCA… in ourdiagonalscale()
115 static PetscErrorCode ourzeroentries(Mat mat) in ourzeroentries() argument
117 … (*)(Mat *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_ZERO_ENTRIE… in ourzeroentries()
121 static PetscErrorCode ouraxpy(Mat mat, PetscScalar a, Mat X, MatStructure str) in ouraxpy() argument
123 …MatStructure *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_AXPY]))… in ouraxpy()
127 static PetscErrorCode ourshift(Mat mat, PetscScalar a) in ourshift() argument
129 … PetscScalar *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_SHIFT])… in ourshift()
133 static PetscErrorCode ourdiagonalset(Mat mat, Vec x, InsertMode ins) in ourdiagonalset() argument
135 …sertMode *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_DIAGONAL_SE… in ourdiagonalset()
139 static PetscErrorCode ourdestroy(Mat mat) in ourdestroy() argument
141 …oid (*)(Mat *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_DESTROY]… in ourdestroy()
145 static PetscErrorCode ourview(Mat mat, PetscViewer v) in ourview() argument
147 … PetscViewer *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_VIEW]))… in ourview()
151 static PetscErrorCode ourgetvecs(Mat mat, Vec *l, Vec *r) in ourgetvecs() argument
157 …ec *, Vec *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_CREATE_VEC… in ourgetvecs()
161 static PetscErrorCode ourgetdiagonalblock(Mat mat, Mat *l) in ourgetdiagonalblock() argument
163 …, Mat *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_GET_DIAGONAL_B… in ourgetdiagonalblock()
167 static PetscErrorCode ourcopy(Mat mat, Mat B, MatStructure str) in ourcopy() argument
169 …MatStructure *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_COPY]))… in ourcopy()
173 static PetscErrorCode ourscale(Mat mat, PetscScalar a) in ourscale() argument
175 … PetscScalar *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_SCALE])… in ourscale()
179 static PetscErrorCode oursetrandom(Mat mat, PetscRandom ctx) in oursetrandom() argument
181 …tscRandom *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_SET_RANDOM… in oursetrandom()
185 static PetscErrorCode ourassemblybegin(Mat mat, MatAssemblyType type) in ourassemblybegin() argument
187 …blyType *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_ASSEMBLY_BEG… in ourassemblybegin()
191 static PetscErrorCode ourassemblyend(Mat mat, MatAssemblyType type) in ourassemblyend() argument
193 …mblyType *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_ASSEMBLY_EN… in ourassemblyend()
197 static PetscErrorCode ourduplicate(Mat mat, MatDuplicateOption op, Mat *M) in ourduplicate() argument
200 …ion *, Mat *, PetscErrorCode *))(((PetscObject)mat)->fortran_func_pointers[FORTRAN_MATOP_DUPLICATE… in ourduplicate()
204 PETSC_EXTERN void matshellsetoperation_(Mat *mat, MatOperation *op, PetscErrorCode (*f)(Mat *, Vec … in matshellsetoperation_() argument
208 *ierr = PetscObjectGetComm((PetscObject)*mat, &comm); in matshellsetoperation_()
210 PetscObjectAllocateFortranPointers(*mat, FORTRAN_MATOP_SIZE); in matshellsetoperation_()
214 …*ierr = MatShellSetOperation(*mat, *op, (… in matshellsetoperation_()
215 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
218 …*ierr = MatShellSetOperation(*mat, *o… in matshellsetoperation_()
219 … ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_ADD] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
222 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
223 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_TRANSPOSE] = (PetscFortranCallbackFn… in matshellsetoperation_()
226 …*ierr = MatShellSetOperation(*mat, *op… in matshellsetoperation_()
227 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_HT] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
230 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
231 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_TRANSPOSE_ADD] = (PetscFortranCallba… in matshellsetoperation_()
234 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
235 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_MULT_HT_ADD] = (PetscFortranCallbackFn *)… in matshellsetoperation_()
238 …*ierr = MatShellSetOperation(*mat, *op, (P… in matshellsetoperation_()
239 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_SOR] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
242 …*ierr = MatShellSetOperation(*mat, *… in matshellsetoperation_()
243 … ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_TRANSPOSE] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
246 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
247 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_GET_DIAGONAL] = (PetscFortranCallbackFn *… in matshellsetoperation_()
250 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
251 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_DIAGONAL_SCALE] = (PetscFortranCallbackFn… in matshellsetoperation_()
254 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
255 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_ZERO_ENTRIES] = (PetscFortranCallbackFn *… in matshellsetoperation_()
258 …*ierr = MatShellSetOperation(*mat, *op, (… in matshellsetoperation_()
259 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_AXPY] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
262 …*ierr = MatShellSetOperation(*mat, *op, … in matshellsetoperation_()
263 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_SHIFT] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
266 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
267 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_DIAGONAL_SET] = (PetscFortranCallbackFn *… in matshellsetoperation_()
270 …*ierr = MatShellSetOperation(*mat, *op… in matshellsetoperation_()
271 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_DESTROY] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
274 …*ierr = MatShellSetOperation(*mat, *op, (… in matshellsetoperation_()
275 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_VIEW] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
278 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
279 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_CREATE_VECS] = (PetscFortranCallbackFn *)… in matshellsetoperation_()
282 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
283 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_GET_DIAGONAL_BLOCK] = (PetscFortranCallba… in matshellsetoperation_()
286 …*ierr = MatShellSetOperation(*mat, *op, (… in matshellsetoperation_()
287 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_COPY] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
290 …*ierr = MatShellSetOperation(*mat, *op, … in matshellsetoperation_()
291 ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_SCALE] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
294 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
295 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_SET_RANDOM] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()
298 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
299 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_ASSEMBLY_BEGIN] = (PetscFortranCallbackFn… in matshellsetoperation_()
302 … = MatShellSetOperation(*mat, *op, (PetscErrorCo… in matshellsetoperation_()
303 …((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_ASSEMBLY_END] = (PetscFortranCallbackFn *… in matshellsetoperation_()
306 …*ierr = MatShellSetOperation(*mat, *… in matshellsetoperation_()
307 … ((PetscObject)*mat)->fortran_func_pointers[FORTRAN_MATOP_DUPLICATE] = (PetscFortranCallbackFn *)f; in matshellsetoperation_()