1 2 #include <petsc-private/snesimpl.h> /*I "petscsnes.h" I*/ 3 4 PETSC_EXTERN PetscErrorCode SNESCreate_NEWTONLS(SNES); 5 PETSC_EXTERN PetscErrorCode SNESCreate_NEWTONTR(SNES); 6 PETSC_EXTERN PetscErrorCode SNESCreate_Test(SNES); 7 PETSC_EXTERN PetscErrorCode SNESCreate_NRichardson(SNES); 8 PETSC_EXTERN PetscErrorCode SNESCreate_KSPONLY(SNES); 9 PETSC_EXTERN PetscErrorCode SNESCreate_VINEWTONRSLS(SNES); 10 PETSC_EXTERN PetscErrorCode SNESCreate_VINEWTONSSLS(SNES); 11 PETSC_EXTERN PetscErrorCode SNESCreate_NGMRES(SNES); 12 PETSC_EXTERN PetscErrorCode SNESCreate_QN(SNES); 13 PETSC_EXTERN PetscErrorCode SNESCreate_Shell(SNES); 14 PETSC_EXTERN PetscErrorCode SNESCreate_GS(SNES); 15 PETSC_EXTERN PetscErrorCode SNESCreate_NCG(SNES); 16 PETSC_EXTERN PetscErrorCode SNESCreate_FAS(SNES); 17 PETSC_EXTERN PetscErrorCode SNESCreate_MS(SNES); 18 PETSC_EXTERN PetscErrorCode SNESCreate_NASM(SNES); 19 PETSC_EXTERN PetscErrorCode SNESCreate_Anderson(SNES); 20 PETSC_EXTERN 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