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