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 EXTERN_C_BEGIN 13 14 /* ---------------------------------------------------------------------*/ 15 16 17 void PETSC_STDCALL petscbagregisterenumprivate_(PetscBag *bag,void *addr,const char *const*list, 18 PetscEnum *def,CHAR name PETSC_MIXED_LEN(len1),CHAR help PETSC_MIXED_LEN(len2),PetscErrorCode *ierr PETSC_END_LEN(len1) PETSC_END_LEN(len2)) 19 { 20 char *c1,*c2; 21 22 FIXCHAR(name,len1,c1); 23 FIXCHAR(help,len2,c2); 24 *ierr = PetscBagRegisterEnum(*bag,addr,list,*def,c1,c2); 25 FREECHAR(name,c1); 26 FREECHAR(help,c2); 27 } 28 29 EXTERN_C_END 30 31