1 2 #include "private/snesimpl.h" /*I "petscsnes.h" I*/ 3 4 EXTERN_C_BEGIN 5 extern PetscErrorCode SNESCreate_LS(SNES); 6 extern PetscErrorCode SNESCreate_TR(SNES); 7 extern PetscErrorCode SNESCreate_Test(SNES); 8 extern PetscErrorCode SNESCreate_Picard(SNES); 9 extern PetscErrorCode SNESCreate_KSPONLY(SNES); 10 #if !defined(PETSC_USE_COMPLEX) 11 extern PetscErrorCode SNESCreate_VI(SNES); 12 #endif 13 EXTERN_C_END 14 15 const char *SNESConvergedReasons_Shifted[] = {" "," ","DIVERGED_LOCAL_MIN"," ","DIVERGED_LINE_SEARCH","DIVERGED_MAX_IT", 16 "DIVERGED_FNORM_NAN","DIVERGED_LINEAR_SOLVE","DIVERGED_FUNCTION_COUNT","DIVERGED_FUNCTION_DOMAIN", 17 "CONVERGED_ITERATING"," ","CONVERGED_FNORM_ABS","CONVERGED_FNORM_RELATIVE", 18 "CONVERGED_PNORM_RELATIVE","CONVERGED_ITS"," ","CONVERGED_TR_DELTA","SNESConvergedReason","",0}; 19 const char *const*SNESConvergedReasons = SNESConvergedReasons_Shifted + 10; 20 21 /* 22 This is used by SNESSetType() to make sure that at least one 23 SNESRegisterAll() is called. In general, if there is more than one 24 DLL then SNESRegisterAll() may be called several times. 25 */ 26 extern PetscBool SNESRegisterAllCalled; 27 28 #undef __FUNCT__ 29 #define __FUNCT__ "SNESRegisterAll" 30 /*@C 31 SNESRegisterAll - Registers all of the nonlinear solver methods in the SNES package. 32 33 Not Collective 34 35 Level: advanced 36 37 .keywords: SNES, register, all 38 39 .seealso: SNESRegisterDestroy() 40 @*/ 41 PetscErrorCode SNESRegisterAll(const char path[]) 42 { 43 PetscErrorCode ierr; 44 45 PetscFunctionBegin; 46 SNESRegisterAllCalled = PETSC_TRUE; 47 48 ierr = SNESRegisterDynamic(SNESLS, path,"SNESCreate_LS", SNESCreate_LS);CHKERRQ(ierr); 49 ierr = SNESRegisterDynamic(SNESTR, path,"SNESCreate_TR", SNESCreate_TR);CHKERRQ(ierr); 50 ierr = SNESRegisterDynamic(SNESTEST, path,"SNESCreate_Test", SNESCreate_Test);CHKERRQ(ierr); 51 ierr = SNESRegisterDynamic(SNESPICARD, path,"SNESCreate_Picard", SNESCreate_Picard);CHKERRQ(ierr); 52 ierr = SNESRegisterDynamic(SNESKSPONLY,path,"SNESCreate_KSPONLY",SNESCreate_KSPONLY);CHKERRQ(ierr); 53 #if !defined(PETSC_USE_COMPLEX) 54 ierr = SNESRegisterDynamic(SNESVI, path,"SNESCreate_VI", SNESCreate_VI);CHKERRQ(ierr); 55 #endif 56 PetscFunctionReturn(0); 57 } 58 59