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_NEWTONTRDC(SNES); 7 PETSC_EXTERN PetscErrorCode SNESCreate_NRichardson(SNES); 8 PETSC_EXTERN PetscErrorCode SNESCreate_KSPONLY(SNES); 9 PETSC_EXTERN PetscErrorCode SNESCreate_KSPTRANSPOSEONLY(SNES); 10 PETSC_EXTERN PetscErrorCode SNESCreate_VINEWTONRSLS(SNES); 11 PETSC_EXTERN PetscErrorCode SNESCreate_VINEWTONSSLS(SNES); 12 PETSC_EXTERN PetscErrorCode SNESCreate_NGMRES(SNES); 13 PETSC_EXTERN PetscErrorCode SNESCreate_QN(SNES); 14 PETSC_EXTERN PetscErrorCode SNESCreate_Shell(SNES); 15 PETSC_EXTERN PetscErrorCode SNESCreate_NGS(SNES); 16 PETSC_EXTERN PetscErrorCode SNESCreate_NCG(SNES); 17 PETSC_EXTERN PetscErrorCode SNESCreate_FAS(SNES); 18 PETSC_EXTERN PetscErrorCode SNESCreate_MS(SNES); 19 PETSC_EXTERN PetscErrorCode SNESCreate_NASM(SNES); 20 PETSC_EXTERN PetscErrorCode SNESCreate_Anderson(SNES); 21 PETSC_EXTERN PetscErrorCode SNESCreate_ASPIN(SNES); 22 PETSC_EXTERN PetscErrorCode SNESCreate_Composite(SNES); 23 PETSC_EXTERN PetscErrorCode SNESCreate_Patch(SNES); 24 25 const char *SNESConvergedReasons_Shifted[] = {" ","DIVERGED_TR_DELTA","DIVERGED_JACOBIAN_DOMAIN","DIVERGED_DTOL","DIVERGED_LOCAL_MIN","DIVERGED_INNER","DIVERGED_LINE_SEARCH","DIVERGED_MAX_IT", 26 "DIVERGED_FNORM_NAN","DIVERGED_LINEAR_SOLVE","DIVERGED_FUNCTION_COUNT","DIVERGED_FUNCTION_DOMAIN", 27 "CONVERGED_ITERATING"," ","CONVERGED_FNORM_ABS","CONVERGED_FNORM_RELATIVE", 28 "CONVERGED_SNORM_RELATIVE","CONVERGED_ITS"," ","SNESConvergedReason","",NULL}; 29 const char *const *SNESConvergedReasons = SNESConvergedReasons_Shifted + 12; 30 31 const char *SNESNormSchedules_Shifted[] = {"DEFAULT","NONE","ALWAYS","INITIALONLY","FINALONLY","INITIALFINALONLY","SNESNormSchedule","SNES_NORM_",NULL}; 32 const char *const *const SNESNormSchedules = SNESNormSchedules_Shifted + 1; 33 34 const char *SNESFunctionTypes_Shifted[] = {"DEFAULT","UNPRECONDITIONED","PRECONDITIONED","SNESFunctionType","SNES_FUNCTION_",NULL}; 35 const char *const *const SNESFunctionTypes = SNESFunctionTypes_Shifted + 1; 36 37 /*@C 38 SNESRegisterAll - Registers all of the nonlinear solver methods in the SNES package. 39 40 Not Collective 41 42 Level: advanced 43 44 .seealso: SNESRegisterDestroy() 45 @*/ 46 PetscErrorCode SNESRegisterAll(void) 47 { 48 PetscErrorCode ierr; 49 50 PetscFunctionBegin; 51 if (SNESRegisterAllCalled) PetscFunctionReturn(0); 52 SNESRegisterAllCalled = PETSC_TRUE; 53 54 ierr = SNESRegister(SNESNEWTONLS, SNESCreate_NEWTONLS);CHKERRQ(ierr); 55 ierr = SNESRegister(SNESNEWTONTR, SNESCreate_NEWTONTR);CHKERRQ(ierr); 56 ierr = SNESRegister(SNESNEWTONTRDC, SNESCreate_NEWTONTRDC);CHKERRQ(ierr); 57 ierr = SNESRegister(SNESNRICHARDSON, SNESCreate_NRichardson);CHKERRQ(ierr); 58 ierr = SNESRegister(SNESKSPONLY, SNESCreate_KSPONLY);CHKERRQ(ierr); 59 ierr = SNESRegister(SNESKSPTRANSPOSEONLY, SNESCreate_KSPTRANSPOSEONLY);CHKERRQ(ierr); 60 ierr = SNESRegister(SNESVINEWTONRSLS, SNESCreate_VINEWTONRSLS);CHKERRQ(ierr); 61 ierr = SNESRegister(SNESVINEWTONSSLS, SNESCreate_VINEWTONSSLS);CHKERRQ(ierr); 62 ierr = SNESRegister(SNESNGMRES, SNESCreate_NGMRES);CHKERRQ(ierr); 63 ierr = SNESRegister(SNESQN, SNESCreate_QN);CHKERRQ(ierr); 64 ierr = SNESRegister(SNESSHELL, SNESCreate_Shell);CHKERRQ(ierr); 65 ierr = SNESRegister(SNESNGS, SNESCreate_NGS);CHKERRQ(ierr); 66 ierr = SNESRegister(SNESNCG, SNESCreate_NCG);CHKERRQ(ierr); 67 ierr = SNESRegister(SNESFAS, SNESCreate_FAS);CHKERRQ(ierr); 68 ierr = SNESRegister(SNESMS, SNESCreate_MS);CHKERRQ(ierr); 69 ierr = SNESRegister(SNESNASM, SNESCreate_NASM);CHKERRQ(ierr); 70 ierr = SNESRegister(SNESANDERSON, SNESCreate_Anderson);CHKERRQ(ierr); 71 ierr = SNESRegister(SNESASPIN, SNESCreate_ASPIN);CHKERRQ(ierr); 72 ierr = SNESRegister(SNESCOMPOSITE, SNESCreate_Composite);CHKERRQ(ierr); 73 ierr = SNESRegister(SNESPATCH, SNESCreate_Patch);CHKERRQ(ierr); 74 75 ierr = KSPMonitorRegister("snes_preconditioned_residual", PETSCVIEWERASCII, PETSC_VIEWER_DEFAULT, KSPMonitorSNESResidual, NULL, NULL);CHKERRQ(ierr); 76 ierr = KSPMonitorRegister("snes_preconditioned_residual", PETSCVIEWERDRAW, PETSC_VIEWER_DRAW_LG, KSPMonitorSNESResidualDrawLG, KSPMonitorSNESResidualDrawLGCreate, NULL);CHKERRQ(ierr); 77 PetscFunctionReturn(0); 78 } 79