1*5c6c1daeSBarry Smith 2*5c6c1daeSBarry Smith 3*5c6c1daeSBarry Smith #include <petsc-private/fortranimpl.h> 4*5c6c1daeSBarry Smith #include <petscbag.h> 5*5c6c1daeSBarry Smith 6*5c6c1daeSBarry Smith #ifdef PETSC_HAVE_FORTRAN_CAPS 7*5c6c1daeSBarry Smith #define petscbagregisterenumprivate_ PETSCBAGREGISTERENUMPRIVATE 8*5c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9*5c6c1daeSBarry Smith #define petscbagregisterenumprivate_ petscbagregisterenumprivate 10*5c6c1daeSBarry Smith #endif 11*5c6c1daeSBarry Smith 12*5c6c1daeSBarry Smith EXTERN_C_BEGIN 13*5c6c1daeSBarry Smith 14*5c6c1daeSBarry Smith /* ---------------------------------------------------------------------*/ 15*5c6c1daeSBarry Smith 16*5c6c1daeSBarry Smith 17*5c6c1daeSBarry Smith void PETSC_STDCALL petscbagregisterenumprivate_(PetscBag *bag,void *addr,const char *const*list, 18*5c6c1daeSBarry Smith 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*5c6c1daeSBarry Smith { 20*5c6c1daeSBarry Smith char *c1,*c2; 21*5c6c1daeSBarry Smith 22*5c6c1daeSBarry Smith FIXCHAR(name,len1,c1); 23*5c6c1daeSBarry Smith FIXCHAR(help,len2,c2); 24*5c6c1daeSBarry Smith *ierr = PetscBagRegisterEnum(*bag,addr,list,*def,c1,c2); 25*5c6c1daeSBarry Smith FREECHAR(name,c1); 26*5c6c1daeSBarry Smith FREECHAR(help,c2); 27*5c6c1daeSBarry Smith } 28*5c6c1daeSBarry Smith 29*5c6c1daeSBarry Smith EXTERN_C_END 30*5c6c1daeSBarry Smith 31