15c6c1daeSBarry Smith 25c6c1daeSBarry Smith 3*af0996ceSBarry Smith #include <petsc/private/fortranimpl.h> 45c6c1daeSBarry Smith #include <petscbag.h> 55c6c1daeSBarry Smith 6519f805aSKarl 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 /* ---------------------------------------------------------------------*/ 135c6c1daeSBarry Smith 145c6c1daeSBarry Smith 158cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscbagregisterenumprivate_(PetscBag *bag,void *addr,const char *const*list, 165c6c1daeSBarry 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)) 175c6c1daeSBarry Smith { 185c6c1daeSBarry Smith char *c1,*c2; 195c6c1daeSBarry Smith 205c6c1daeSBarry Smith FIXCHAR(name,len1,c1); 215c6c1daeSBarry Smith FIXCHAR(help,len2,c2); 225c6c1daeSBarry Smith *ierr = PetscBagRegisterEnum(*bag,addr,list,*def,c1,c2); 235c6c1daeSBarry Smith FREECHAR(name,c1); 245c6c1daeSBarry Smith FREECHAR(help,c2); 255c6c1daeSBarry Smith } 265c6c1daeSBarry Smith 275c6c1daeSBarry Smith 28