fieldsplit.c (a166d2596d8add78ff353c6afe83912bca8cd942) fieldsplit.c (94ef8dde638caef1d0cd84a7dc8a2db65fcda8b6)
1
2
3#include <petsc/private/pcimpl.h> /*I "petscpc.h" I*/
4#include <petsc/private/kspimpl.h> /* This is needed to provide the appropriate PETSC_EXTERN for KSP_Solve_FS ....*/
5#include <petscdm.h>
6
7const char *const PCFieldSplitSchurPreTypes[] = {"SELF","SELFP","A11","USER","FULL","PCFieldSplitSchurPreType","PC_FIELDSPLIT_SCHUR_PRE_",0};
8const char *const PCFieldSplitSchurFactTypes[] = {"DIAG","LOWER","UPPER","FULL","PCFieldSplitSchurFactType","PC_FIELDSPLIT_SCHUR_FACT_",0};

--- 1475 unchanged lines hidden (view full) ---

1484 }
1485 next->next = ilink;
1486 ilink->previous = next;
1487 }
1488 jac->nsplits++;
1489 PetscFunctionReturn(0);
1490}
1491
1
2
3#include <petsc/private/pcimpl.h> /*I "petscpc.h" I*/
4#include <petsc/private/kspimpl.h> /* This is needed to provide the appropriate PETSC_EXTERN for KSP_Solve_FS ....*/
5#include <petscdm.h>
6
7const char *const PCFieldSplitSchurPreTypes[] = {"SELF","SELFP","A11","USER","FULL","PCFieldSplitSchurPreType","PC_FIELDSPLIT_SCHUR_PRE_",0};
8const char *const PCFieldSplitSchurFactTypes[] = {"DIAG","LOWER","UPPER","FULL","PCFieldSplitSchurFactType","PC_FIELDSPLIT_SCHUR_FACT_",0};

--- 1475 unchanged lines hidden (view full) ---

1484 }
1485 next->next = ilink;
1486 ilink->previous = next;
1487 }
1488 jac->nsplits++;
1489 PetscFunctionReturn(0);
1490}
1491
1492/*@
1492/*@C
1493 PCFieldSplitSetFields - Sets the fields for one particular split in the field split preconditioner
1494
1495 Logically Collective on PC
1496
1497 Input Parameters:
1498+ pc - the preconditioner context
1499. splitname - name of this split, if NULL the number of the split is used
1500. n - the number of fields in this split

--- 188 unchanged lines hidden (view full) ---

1689 PetscFunctionBegin;
1690 PetscValidHeaderSpecific(pc,PC_CLASSID,1);
1691 if (splitname) PetscValidCharPointer(splitname,2);
1692 PetscValidHeaderSpecific(is,IS_CLASSID,3);
1693 ierr = PetscTryMethod(pc,"PCFieldSplitSetIS_C",(PC,const char[],IS),(pc,splitname,is));CHKERRQ(ierr);
1694 PetscFunctionReturn(0);
1695}
1696
1493 PCFieldSplitSetFields - Sets the fields for one particular split in the field split preconditioner
1494
1495 Logically Collective on PC
1496
1497 Input Parameters:
1498+ pc - the preconditioner context
1499. splitname - name of this split, if NULL the number of the split is used
1500. n - the number of fields in this split

--- 188 unchanged lines hidden (view full) ---

1689 PetscFunctionBegin;
1690 PetscValidHeaderSpecific(pc,PC_CLASSID,1);
1691 if (splitname) PetscValidCharPointer(splitname,2);
1692 PetscValidHeaderSpecific(is,IS_CLASSID,3);
1693 ierr = PetscTryMethod(pc,"PCFieldSplitSetIS_C",(PC,const char[],IS),(pc,splitname,is));CHKERRQ(ierr);
1694 PetscFunctionReturn(0);
1695}
1696
1697/*@
1697/*@C
1698 PCFieldSplitGetIS - Retrieves the elements for a field as an IS
1699
1700 Logically Collective on PC
1701
1702 Input Parameters:
1703+ pc - the preconditioner context
1704- splitname - name of this split
1705

--- 647 unchanged lines hidden --- 		1698 PCFieldSplitGetIS - Retrieves the elements for a field as an IS
1699
1700 Logically Collective on PC
1701
1702 Input Parameters:
1703+ pc - the preconditioner context
1704- splitname - name of this split
1705

--- 647 unchanged lines hidden ---