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 *SNESNormSchedules_Shifted[] = {"DEFAULT","NONE","ALWAYS","INITIALONLY","FINALONLY","INITIALFINALONLY","SNESNormSchedule","SNES_NORM_",0}; 29 const char *const *const SNESNormSchedules = SNESNormSchedules_Shifted + 1; 30 31 const char *SNESFunctionTypes_Shifted[] = {"DEFAULT","UNPRECONDITIONED","PRECONDITIONED","SNESFunctionType","SNES_FUNCTION_",0}; 32 const char *const *const SNESFunctionTypes = SNESFunctionTypes_Shifted + 1; 33 34 /* 35 This is used by SNESSetType() to make sure that at least one 36 SNESRegisterAll() is called. In general, if there is more than one 37 DLL then SNESRegisterAll() may be called several times. 38 */ 39 extern PetscBool SNESRegisterAllCalled; 40 41 #undef __FUNCT__ 42 #define __FUNCT__ "SNESRegisterAll" 43 /*@C 44 SNESRegisterAll - Registers all of the nonlinear solver methods in the SNES package. 45 46 Not Collective 47 48 Level: advanced 49 50 .keywords: SNES, register, all 51 52 .seealso: SNESRegisterDestroy() 53 @*/ 54 PetscErrorCode SNESRegisterAll(void) 55 { 56 PetscErrorCode ierr; 57 58 PetscFunctionBegin; 59 SNESRegisterAllCalled = PETSC_TRUE; 60 61 ierr = SNESRegister(SNESNEWTONLS, SNESCreate_NEWTONLS);CHKERRQ(ierr); 62 ierr = SNESRegister(SNESNEWTONTR, SNESCreate_NEWTONTR);CHKERRQ(ierr); 63 ierr = SNESRegister(SNESTEST, SNESCreate_Test);CHKERRQ(ierr); 64 ierr = SNESRegister(SNESNRICHARDSON, SNESCreate_NRichardson);CHKERRQ(ierr); 65 ierr = SNESRegister(SNESKSPONLY, SNESCreate_KSPONLY);CHKERRQ(ierr); 66 ierr = SNESRegister(SNESVINEWTONRSLS, SNESCreate_VINEWTONRSLS);CHKERRQ(ierr); 67 ierr = SNESRegister(SNESVINEWTONSSLS, SNESCreate_VINEWTONSSLS);CHKERRQ(ierr); 68 ierr = SNESRegister(SNESNGMRES, SNESCreate_NGMRES);CHKERRQ(ierr); 69 ierr = SNESRegister(SNESQN, SNESCreate_QN);CHKERRQ(ierr); 70 ierr = SNESRegister(SNESSHELL, SNESCreate_Shell);CHKERRQ(ierr); 71 ierr = SNESRegister(SNESGS, SNESCreate_GS);CHKERRQ(ierr); 72 ierr = SNESRegister(SNESNCG, SNESCreate_NCG);CHKERRQ(ierr); 73 ierr = SNESRegister(SNESFAS, SNESCreate_FAS);CHKERRQ(ierr); 74 ierr = SNESRegister(SNESMS, SNESCreate_MS);CHKERRQ(ierr); 75 ierr = SNESRegister(SNESNASM, SNESCreate_NASM);CHKERRQ(ierr); 76 ierr = SNESRegister(SNESANDERSON, SNESCreate_Anderson);CHKERRQ(ierr); 77 ierr = SNESRegister(SNESASPIN, SNESCreate_ASPIN);CHKERRQ(ierr); 78 PetscFunctionReturn(0); 79 } 80