1 #ifdef PETSC_RCS_HEADER 2 static char vcid[] = "$Id: snesregi.c,v 1.26 1998/04/21 19:37:00 curfman Exp curfman $"; 3 #endif 4 5 #include "src/snes/snesimpl.h" /*I "snes.h" I*/ 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 12 /* 13 This is used by SNESSetType() to make sure that at least one 14 SNESRegisterAll() is called. In general, if there is more than one 15 DLL then SNESRegisterAll() may be called several times. 16 */ 17 extern int SNESRegisterAllCalled; 18 19 #undef __FUNC__ 20 #define __FUNC__ "SNESRegisterAll" 21 /*@C 22 SNESRegisterAll - Registers all of the nonlinear solver methods in the SNES package. 23 24 Not Collective 25 26 .keywords: SNES, register, all 27 28 .seealso: SNESRegisterDestroy() 29 @*/ 30 int SNESRegisterAll(char *path) 31 { 32 int ierr; 33 34 PetscFunctionBegin; 35 SNESRegisterAllCalled = 1; 36 37 ierr = SNESRegister("ls", path,"SNESCreate_EQ_LS",SNESCreate_EQ_LS);CHKERRQ(ierr); 38 ierr = SNESRegister("tr", path,"SNESCreate_EQ_TR",SNESCreate_EQ_TR);CHKERRQ(ierr); 39 ierr = SNESRegister("test", path,"SNESCreate_Test", SNESCreate_Test);CHKERRQ(ierr); 40 ierr = SNESRegister("umtr", path,"SNESCreate_UM_TR",SNESCreate_UM_TR);CHKERRQ(ierr); 41 ierr = SNESRegister("umls", path,"SNESCreate_UM_LS",SNESCreate_UM_LS);CHKERRQ(ierr); 42 43 PetscFunctionReturn(0); 44 } 45 46