Actual source code: dlregis.c
2: #include slepceps.h
4: EXTERN_C_BEGIN
7: /*
8: PetscDLLibraryRegister - This function is called when the dynamic library
9: it is in is opened.
11: This one registers all the EPS and ST methods in the libslepc.a
12: library.
14: Input Parameter:
15: path - library path
16: */
17: int PetscDLLibraryRegister(char *path)
18: {
21: PetscInitializeNoArguments(); if (ierr) return 1;
24: /*
25: If we got here then PETSc was properly loaded
26: */
27: EPSRegisterAll(path);
28: STRegisterAll(path);
29: return(0);
30: }
31: EXTERN_C_END
33: /* --------------------------------------------------------------------------*/
34: static char *contents = "Iterative methods for large sparse eigenvalue problems.\n";
36: static char *authors = SLEPC_AUTHOR_INFO;
37: static char *version = SLEPC_VERSION_NUMBER;
39: /* --------------------------------------------------------------------------*/
40: EXTERN_C_BEGIN
43: int PetscDLLibraryInfo(char *path,char *type,char **mess)
44: {
45: PetscTruth iscon,isaut,isver;
46: int ierr;
50: PetscStrcmp(type,"Contents",&iscon);
51: PetscStrcmp(type,"Authors",&isaut);
52: PetscStrcmp(type,"Version",&isver);
53: if (iscon) *mess = contents;
54: else if (isaut) *mess = authors;
55: else if (isver) *mess = version;
56: else *mess = 0;
58: return(0);
59: }
60: EXTERN_C_END