1 2 3 #include <petsc/private/fortranimpl.h> 4 #include <petscbag.h> 5 6 #if defined(PETSC_HAVE_FORTRAN_CAPS) 7 #define petscbagregisterenumprivate_ PETSCBAGREGISTERENUMPRIVATE 8 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9 #define petscbagregisterenumprivate_ petscbagregisterenumprivate 10 #endif 11 12 /* ---------------------------------------------------------------------*/ 13 14 15 PETSC_EXTERN void PETSC_STDCALL petscbagregisterenumprivate_(PetscBag *bag,void *addr,const char *const*list, 16 PetscEnum *def,char* name PETSC_MIXED_LEN(len1),char* help PETSC_MIXED_LEN(len2),PetscErrorCode *ierr PETSC_END_LEN(len1) PETSC_END_LEN(len2)) 17 { 18 char *c1,*c2; 19 20 FIXCHAR(name,len1,c1); 21 FIXCHAR(help,len2,c2); 22 *ierr = PetscBagRegisterEnum(*bag,addr,list,*def,c1,c2);if (*ierr) return; 23 FREECHAR(name,c1); 24 FREECHAR(help,c2); 25 } 26 27 28