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