1 2 #include <petsc/private/isimpl.h> /*I "petscis.h" I*/ 3 PETSC_EXTERN PetscErrorCode ISCreate_General(IS); 4 PETSC_EXTERN PetscErrorCode ISCreate_Stride(IS); 5 PETSC_EXTERN PetscErrorCode ISCreate_Block(IS); 6 7 /*@C 8 ISRegisterAll - Registers all of the index set components in the IS package. 9 10 Not Collective 11 12 Level: advanced 13 14 .seealso: ISRegister() 15 @*/ 16 PetscErrorCode ISRegisterAll(void) 17 { 18 PetscErrorCode ierr; 19 20 PetscFunctionBegin; 21 if (ISRegisterAllCalled) PetscFunctionReturn(0); 22 ISRegisterAllCalled = PETSC_TRUE; 23 24 ierr = ISRegister(ISGENERAL, ISCreate_General);CHKERRQ(ierr); 25 ierr = ISRegister(ISSTRIDE, ISCreate_Stride);CHKERRQ(ierr); 26 ierr = ISRegister(ISBLOCK, ISCreate_Block);CHKERRQ(ierr); 27 PetscFunctionReturn(0); 28 } 29 30