1: /*$Id: dlregis.c,v 1.14 2001/03/23 23:21:18 balay Exp $*/ 3: #include petscvec.h 5: EXTERN_C_BEGIN 6: /* 7: PetscDLLibraryRegister - This function is called when the dynamic library it is in is opened. 9: This one registers all the vector types that are in the basic PETSc libpetscvec 10: library. 12: Input Parameter: 13: path - library path 14: */ 15: int PetscDLLibraryRegister(char *path) 16: { 19: PetscInitializeNoArguments(); if (ierr) return 1; 22: /* 23: If we got here then PETSc was properly loaded 24: */ 25: VecRegisterAll(path); 26: return(0); 27: } 28: EXTERN_C_END 30: /* --------------------------------------------------------------------------*/ 31: static char *contents = "PETSc vector library. n 32: PETSc#VecSeq, PETSc#VecMPI, PETSc#VecShared ...n"; 34: #include src/sys/src/utils/dlregis.h