Lines Matching refs:F

13   subroutine MatDuplicate_F(F, opt, M, ierr)  argument
15     Mat                  :: F, M
21     PetscCall(MatGetLocalSize(F, ml, nl, ierr))
22     PetscCall(MatShellGetContext(F, ctxF_pt, ierr))
29   subroutine MatDestroy_F(F, ierr)  argument
31     Mat                  :: F
34     PetscCall(MatShellGetContext(F, ctxF_pt, ierr))
46   Mat                  :: F, Fcopy
54   PetscCallA(MatCreateShell(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, n, n, ctxF, F, ierr))
55   PetscCallA(MatShellSetOperation(F, MATOP_DUPLICATE, MatDuplicate_F, ierr))
58   PetscCallA(MatShellGetContext(F, ctxF_pt, ierr))
61   PetscCallA(MatDuplicate(F, MAT_DO_NOT_COPY_VALUES, Fcopy, ierr))
65   PetscCallA(MatDestroy(F, ierr))