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 .keywords: IS, register, all 15 .seealso: ISRegister() 16 @*/ 17 PetscErrorCode ISRegisterAll(void) 18 { 19 PetscErrorCode ierr; 20 21 PetscFunctionBegin; 22 if (ISRegisterAllCalled) PetscFunctionReturn(0); 23 ISRegisterAllCalled = PETSC_TRUE; 24 25 ierr = ISRegister(ISGENERAL, ISCreate_General);CHKERRQ(ierr); 26 ierr = ISRegister(ISSTRIDE, ISCreate_Stride);CHKERRQ(ierr); 27 ierr = ISRegister(ISBLOCK, ISCreate_Block);CHKERRQ(ierr); 28 PetscFunctionReturn(0); 29 } 30 31