Actual source code: dlregis.h

  1: /* $Id: dlregis.h,v 1.8 2001/03/23 23:20:45 balay Exp $ */
  2: /*
  3:    This file is included by all the dlregis.c files to provide common information
  4:    on the PETSC team.
  5: */

  7: static char *authors = PETSC_AUTHOR_INFO;
  8: static char *version = PETSC_VERSION_NUMBER;

 10: EXTERN_C_BEGIN
 11: /* --------------------------------------------------------------------------*/
 12: int PetscDLLibraryInfo(char *path,char *type,char **mess)
 13: {
 14:   PetscTruth iscon,isaut,isver;
 15:   int        ierr;


 19:   PetscStrcmp(type,"Contents",&iscon);
 20:   PetscStrcmp(type,"Authors",&isaut);
 21:   PetscStrcmp(type,"Version",&isver);
 22:   if (iscon)      *mess = contents;
 23:   else if (isaut) *mess = authors;
 24:   else if (isver) *mess = version;
 25:   else            *mess = 0;

 27:   return(0);
 28: }
 29: EXTERN_C_END