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