1 2 #include <private/snesimpl.h> /*I "petscsnes.h" I*/ 3 4 EXTERN_C_BEGIN 5 extern PetscErrorCode SNESCreate_LS(SNES); 6 extern PetscErrorCode SNESCreate_TR(SNES); 7 extern PetscErrorCode SNESCreate_Test(SNES); 8 extern PetscErrorCode SNESCreate_NRichardson(SNES); 9 extern PetscErrorCode SNESCreate_KSPONLY(SNES); 10 extern PetscErrorCode SNESCreate_VIRS(SNES); 11 extern PetscErrorCode SNESCreate_VISS(SNES); 12 extern PetscErrorCode SNESCreate_NGMRES(SNES); 13 extern PetscErrorCode SNESCreate_SORQN(SNES); 14 extern PetscErrorCode SNESCreate_QN(SNES); 15 extern PetscErrorCode SNESCreate_Shell(SNES); 16 extern PetscErrorCode SNESCreate_GS(SNES); 17 extern PetscErrorCode SNESCreate_NCG(SNES); 18 extern PetscErrorCode SNESCreate_FAS(SNES); 19 extern PetscErrorCode SNESCreate_MS(SNES); 20 EXTERN_C_END 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_PNORM_RELATIVE","CONVERGED_ITS"," ","CONVERGED_TR_DELTA","SNESConvergedReason","",0}; 26 const char *const*SNESConvergedReasons = SNESConvergedReasons_Shifted + 10; 27 28 /* 29 This is used by SNESSetType() to make sure that at least one 30 SNESRegisterAll() is called. In general, if there is more than one 31 DLL then SNESRegisterAll() may be called several times. 32 */ 33 extern PetscBool SNESRegisterAllCalled; 34 35 #undef __FUNCT__ 36 #define __FUNCT__ "SNESRegisterAll" 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 .keywords: SNES, register, all 45 46 .seealso: SNESRegisterDestroy() 47 @*/ 48 PetscErrorCode SNESRegisterAll(const char path[]) 49 { 50 PetscErrorCode ierr; 51 52 PetscFunctionBegin; 53 SNESRegisterAllCalled = PETSC_TRUE; 54 55 ierr = SNESRegisterDynamic(SNESLS, path,"SNESCreate_LS", SNESCreate_LS);CHKERRQ(ierr); 56 ierr = SNESRegisterDynamic(SNESTR, path,"SNESCreate_TR", SNESCreate_TR);CHKERRQ(ierr); 57 ierr = SNESRegisterDynamic(SNESTEST, path,"SNESCreate_Test", SNESCreate_Test);CHKERRQ(ierr); 58 ierr = SNESRegisterDynamic(SNESNRICHARDSON, path,"SNESCreate_NRichardson", SNESCreate_NRichardson);CHKERRQ(ierr); 59 ierr = SNESRegisterDynamic(SNESKSPONLY, path,"SNESCreate_KSPONLY", SNESCreate_KSPONLY);CHKERRQ(ierr); 60 ierr = SNESRegisterDynamic(SNESVIRS, path,"SNESCreate_VIRS", SNESCreate_VIRS);CHKERRQ(ierr); 61 ierr = SNESRegisterDynamic(SNESVISS, path,"SNESCreate_VISS", SNESCreate_VISS);CHKERRQ(ierr); 62 ierr = SNESRegisterDynamic(SNESNGMRES, path,"SNESCreate_NGMRES", SNESCreate_NGMRES);CHKERRQ(ierr); 63 ierr = SNESRegisterDynamic(SNESQN, path,"SNESCreate_QN", SNESCreate_QN);CHKERRQ(ierr); 64 ierr = SNESRegisterDynamic(SNESSHELL, path,"SNESCreate_Shell", SNESCreate_Shell);CHKERRQ(ierr); 65 ierr = SNESRegisterDynamic(SNESGS, path,"SNESCreate_GS", SNESCreate_GS);CHKERRQ(ierr); 66 ierr = SNESRegisterDynamic(SNESSORQN, path,"SNESCreate_SORQN", SNESCreate_SORQN);CHKERRQ(ierr); 67 ierr = SNESRegisterDynamic(SNESNCG, path,"SNESCreate_NCG", SNESCreate_NCG);CHKERRQ(ierr); 68 ierr = SNESRegisterDynamic(SNESFAS, path,"SNESCreate_FAS", SNESCreate_FAS);CHKERRQ(ierr); 69 ierr = SNESRegisterDynamic(SNESMS, path,"SNESCreate_MS", SNESCreate_MS);CHKERRQ(ierr); 70 PetscFunctionReturn(0); 71 } 72