Actual source code: dlregis.h
1: /*
2: This file is included by all the dlregis.c files to provide common information
3: on the PETSC team.
4: */
6: static char version[256];
9: /* --------------------------------------------------------------------------*/
12: PetscErrorCode PetscDLLibraryInfo(char *path,char *type,const char *mess[])
13: {
14: PetscTruth iscon,isaut,isver;
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) {PetscGetVersion(&version);*mess=version;}
25: else *mess = 0;
27: return(0);
28: }