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_NGS(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 PETSC_EXTERN PetscErrorCode SNESCreate_Composite(SNES); 22 23 const char *SNESConvergedReasons_Shifted[] = {" ","DIVERGED_DTOL","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 *SNESNormSchedules_Shifted[] = {"DEFAULT","NONE","ALWAYS","INITIALONLY","FINALONLY","INITIALFINALONLY","SNESNormSchedule","SNES_NORM_",0}; 30 const char *const *const SNESNormSchedules = SNESNormSchedules_Shifted + 1; 31 32 const char *SNESFunctionTypes_Shifted[] = {"DEFAULT","UNPRECONDITIONED","PRECONDITIONED","SNESFunctionType","SNES_FUNCTION_",0}; 33 const char *const *const SNESFunctionTypes = SNESFunctionTypes_Shifted + 1; 34 35 /* 36 This is used by SNESSetType() to make sure that at least one 37 SNESRegisterAll() is called. In general, if there is more than one 38 DLL then SNESRegisterAll() may be called several times. 39 */ 40 extern PetscBool SNESRegisterAllCalled; 41 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(void) 54 { 55 PetscErrorCode ierr; 56 57 PetscFunctionBegin; 58 if (SNESRegisterAllCalled) PetscFunctionReturn(0); 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(SNESNGS, SNESCreate_NGS);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 ierr = SNESRegister(SNESCOMPOSITE, SNESCreate_Composite);CHKERRQ(ierr); 79 PetscFunctionReturn(0); 80 } 81