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