1 2 #include <petsc-private/snesimpl.h> /*I "petscsnes.h" I*/ 3 4 EXTERN_C_BEGIN 5 extern PetscErrorCode SNESCreate_NEWTONLS(SNES); 6 extern PetscErrorCode SNESCreate_NEWTONTR(SNES); 7 extern PetscErrorCode SNESCreate_Test(SNES); 8 extern PetscErrorCode SNESCreate_NRichardson(SNES); 9 extern PetscErrorCode SNESCreate_KSPONLY(SNES); 10 extern PetscErrorCode SNESCreate_VINEWTONRSLS(SNES); 11 extern PetscErrorCode SNESCreate_VINEWTONSSLS(SNES); 12 extern PetscErrorCode SNESCreate_NGMRES(SNES); 13 extern PetscErrorCode SNESCreate_QN(SNES); 14 extern PetscErrorCode SNESCreate_Shell(SNES); 15 extern PetscErrorCode SNESCreate_GS(SNES); 16 extern PetscErrorCode SNESCreate_NCG(SNES); 17 extern PetscErrorCode SNESCreate_FAS(SNES); 18 extern PetscErrorCode SNESCreate_MS(SNES); 19 extern PetscErrorCode SNESCreate_NASM(SNES); 20 extern PetscErrorCode SNESCreate_Anderson(SNES); 21 EXTERN_C_END 22 23 const char *SNESConvergedReasons_Shifted[] = {" "," ","DIVERGED_LOCAL_MIN","DIVERGED_INNER","DIVERGED_LINE_SEARCH","DIVERGED_MAX_IT", 24 "DIVERGED_FNORM_NAN","DIVERGED_LINEAR_SOLVE","DIVERGED_FUNCTION_COUNT","DIVERGED_FUNCTION_DOMAIN", 25 "CONVERGED_ITERATING"," ","CONVERGED_FNORM_ABS","CONVERGED_FNORM_RELATIVE", 26 "CONVERGED_SNORM_RELATIVE","CONVERGED_ITS"," ","CONVERGED_TR_DELTA","SNESConvergedReason","",0}; 27 const char *const *SNESConvergedReasons = SNESConvergedReasons_Shifted + 10; 28 29 const char *SNESNormTypes_Shifted[] = {"DEFAULT","NONE","FUNCTION","INITIALONLY","FINALONLY","INITIALFINALONLY","SNESNormType","SNES_NORM_",0}; 30 const char *const *const SNESNormTypes = SNESNormTypes_Shifted + 1; 31 32 /* 33 This is used by SNESSetType() to make sure that at least one 34 SNESRegisterAll() is called. In general, if there is more than one 35 DLL then SNESRegisterAll() may be called several times. 36 */ 37 extern PetscBool SNESRegisterAllCalled; 38 39 #undef __FUNCT__ 40 #define __FUNCT__ "SNESRegisterAll" 41 /*@C 42 SNESRegisterAll - Registers all of the nonlinear solver methods in the SNES package. 43 44 Not Collective 45 46 Level: advanced 47 48 .keywords: SNES, register, all 49 50 .seealso: SNESRegisterDestroy() 51 @*/ 52 PetscErrorCode SNESRegisterAll(const char path[]) 53 { 54 PetscErrorCode ierr; 55 56 PetscFunctionBegin; 57 SNESRegisterAllCalled = PETSC_TRUE; 58 59 ierr = SNESRegisterDynamic(SNESNEWTONLS, path,"SNESCreate_NEWTONLS", SNESCreate_NEWTONLS);CHKERRQ(ierr); 60 ierr = SNESRegisterDynamic(SNESNEWTONTR, path,"SNESCreate_NEWTONTR", SNESCreate_NEWTONTR);CHKERRQ(ierr); 61 ierr = SNESRegisterDynamic(SNESTEST, path,"SNESCreate_Test", SNESCreate_Test);CHKERRQ(ierr); 62 ierr = SNESRegisterDynamic(SNESNRICHARDSON, path,"SNESCreate_NRichardson", SNESCreate_NRichardson);CHKERRQ(ierr); 63 ierr = SNESRegisterDynamic(SNESKSPONLY, path,"SNESCreate_KSPONLY", SNESCreate_KSPONLY);CHKERRQ(ierr); 64 ierr = SNESRegisterDynamic(SNESVINEWTONRSLS, path,"SNESCreate_VINEWTONRSLS", SNESCreate_VINEWTONRSLS);CHKERRQ(ierr); 65 ierr = SNESRegisterDynamic(SNESVINEWTONSSLS, path,"SNESCreate_VINEWTONSSLS", SNESCreate_VINEWTONSSLS);CHKERRQ(ierr); 66 ierr = SNESRegisterDynamic(SNESNGMRES, path,"SNESCreate_NGMRES", SNESCreate_NGMRES);CHKERRQ(ierr); 67 ierr = SNESRegisterDynamic(SNESQN, path,"SNESCreate_QN", SNESCreate_QN);CHKERRQ(ierr); 68 ierr = SNESRegisterDynamic(SNESSHELL, path,"SNESCreate_Shell", SNESCreate_Shell);CHKERRQ(ierr); 69 ierr = SNESRegisterDynamic(SNESGS, path,"SNESCreate_GS", SNESCreate_GS);CHKERRQ(ierr); 70 ierr = SNESRegisterDynamic(SNESNCG, path,"SNESCreate_NCG", SNESCreate_NCG);CHKERRQ(ierr); 71 ierr = SNESRegisterDynamic(SNESFAS, path,"SNESCreate_FAS", SNESCreate_FAS);CHKERRQ(ierr); 72 ierr = SNESRegisterDynamic(SNESMS, path,"SNESCreate_MS", SNESCreate_MS);CHKERRQ(ierr); 73 ierr = SNESRegisterDynamic(SNESNASM, path,"SNESCreate_NASM", SNESCreate_NASM);CHKERRQ(ierr); 74 ierr = SNESRegisterDynamic(SNESANDERSON, path,"SNESCreate_Anderson", SNESCreate_Anderson);CHKERRQ(ierr); 75 PetscFunctionReturn(0); 76 } 77