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