1 /*$Id: snesregi.c,v 1.38 2001/03/23 23:24:07 balay Exp $*/ 2 3 #include "src/snes/snesimpl.h" /*I "petscsnes.h" I*/ 4 5 EXTERN_C_BEGIN 6 EXTERN int SNESCreate_EQ_LS(SNES); 7 EXTERN int SNESCreate_EQ_TR(SNES); 8 EXTERN int SNESCreate_UM_TR(SNES); 9 EXTERN int SNESCreate_UM_LS(SNES); 10 EXTERN int SNESCreate_Test(SNES); 11 EXTERN_C_END 12 13 /* 14 This is used by SNESSetType() to make sure that at least one 15 SNESRegisterAll() is called. In general, if there is more than one 16 DLL then SNESRegisterAll() may be called several times. 17 */ 18 extern PetscTruth SNESRegisterAllCalled; 19 20 #undef __FUNCT__ 21 #define __FUNCT__ "SNESRegisterAll" 22 /*@C 23 SNESRegisterAll - Registers all of the nonlinear solver methods in the SNES package. 24 25 Not Collective 26 27 Level: advanced 28 29 .keywords: SNES, register, all 30 31 .seealso: SNESRegisterDestroy() 32 @*/ 33 int SNESRegisterAll(char *path) 34 { 35 int ierr; 36 37 PetscFunctionBegin; 38 SNESRegisterAllCalled = PETSC_TRUE; 39 40 ierr = SNESRegisterDynamic("ls", path,"SNESCreate_EQ_LS",SNESCreate_EQ_LS);CHKERRQ(ierr); 41 ierr = SNESRegisterDynamic("tr", path,"SNESCreate_EQ_TR",SNESCreate_EQ_TR);CHKERRQ(ierr); 42 ierr = SNESRegisterDynamic("test", path,"SNESCreate_Test", SNESCreate_Test);CHKERRQ(ierr); 43 ierr = SNESRegisterDynamic("umtr", path,"SNESCreate_UM_TR",SNESCreate_UM_TR);CHKERRQ(ierr); 44 ierr = SNESRegisterDynamic("umls", path,"SNESCreate_UM_LS",SNESCreate_UM_LS);CHKERRQ(ierr); 45 46 PetscFunctionReturn(0); 47 } 48 49