15c6c1daeSBarry Smith 25c6c1daeSBarry Smith 35c6c1daeSBarry Smith #include <petsc-private/fortranimpl.h> 45c6c1daeSBarry Smith #include <petscbag.h> 55c6c1daeSBarry Smith 6*519f805aSKarl Rupp #if defined(PETSC_HAVE_FORTRAN_CAPS) 75c6c1daeSBarry Smith #define petscbagregisterenumprivate_ PETSCBAGREGISTERENUMPRIVATE 85c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 95c6c1daeSBarry Smith #define petscbagregisterenumprivate_ petscbagregisterenumprivate 105c6c1daeSBarry Smith #endif 115c6c1daeSBarry Smith 125c6c1daeSBarry Smith EXTERN_C_BEGIN 135c6c1daeSBarry Smith 145c6c1daeSBarry Smith /* ---------------------------------------------------------------------*/ 155c6c1daeSBarry Smith 165c6c1daeSBarry Smith 175c6c1daeSBarry Smith void PETSC_STDCALL petscbagregisterenumprivate_(PetscBag *bag,void *addr,const char *const*list, 185c6c1daeSBarry 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)) 195c6c1daeSBarry Smith { 205c6c1daeSBarry Smith char *c1,*c2; 215c6c1daeSBarry Smith 225c6c1daeSBarry Smith FIXCHAR(name,len1,c1); 235c6c1daeSBarry Smith FIXCHAR(help,len2,c2); 245c6c1daeSBarry Smith *ierr = PetscBagRegisterEnum(*bag,addr,list,*def,c1,c2); 255c6c1daeSBarry Smith FREECHAR(name,c1); 265c6c1daeSBarry Smith FREECHAR(help,c2); 275c6c1daeSBarry Smith } 285c6c1daeSBarry Smith 295c6c1daeSBarry Smith EXTERN_C_END 305c6c1daeSBarry Smith 31