1b45d2f2cSJed Brown #include <petsc-private/fortranimpl.h> 2fcfc5002SJed Brown #include <petscmat.h> 3cdcc8137SSatish Balay 4cdcc8137SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 5cdcc8137SSatish Balay #define matmffdsetfunction_ MATMFFDSETFUNCTION 6cdcc8137SSatish Balay #define matmffdsettype_ MATMFFDSETTYPE 76aa9148fSLisandro Dalcin #define matmffdsetoptionsprefix_ MATMFFDSETOPTIONSPREFIX 8cdcc8137SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9cdcc8137SSatish Balay #define matmffdsetfunction_ matmffdsetfunction 10cdcc8137SSatish Balay #define matmffdsettype_ matmffdsettype 116aa9148fSLisandro Dalcin #define matmffdsetoptionsprefix_ matmffdsetoptionsprefix 12cdcc8137SSatish Balay #endif 13cdcc8137SSatish Balay 14cdcc8137SSatish Balay static PetscErrorCode ourmatmffdfunction(void *ctx,Vec x,Vec f) 15cdcc8137SSatish Balay { 16cdcc8137SSatish Balay PetscErrorCode ierr = 0; 17f5b6597dSBarry Smith Mat mat = (Mat) ctx; 18*1d14097aSBarry Smith (*(void (PETSC_STDCALL *)(void*,Vec*,Vec*,PetscErrorCode*))(((PetscObject)mat)->fortran_func_pointers[0]))((void*)(PETSC_UINTPTR_T)((PetscObject)mat)->fortran_func_pointers[1],&x,&f,&ierr);CHKERRQ(ierr); 19cdcc8137SSatish Balay return 0; 20cdcc8137SSatish Balay } 21cdcc8137SSatish Balay 228cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL matmffdsetfunction_(Mat *mat,void (PETSC_STDCALL *func)(void*,Vec*,Vec*,PetscErrorCode*),void *ctx,PetscErrorCode *ierr) 23cdcc8137SSatish Balay { 24cdcc8137SSatish Balay CHKFORTRANNULLOBJECT(ctx); 25f5b6597dSBarry Smith PetscObjectAllocateFortranPointers(*mat,2); 26f5b6597dSBarry Smith ((PetscObject)*mat)->fortran_func_pointers[0] = (PetscVoidFunction)func; 27*1d14097aSBarry Smith ((PetscObject)*mat)->fortran_func_pointers[1] = (PetscVoidFunction)(PETSC_UINTPTR_T)ctx; 282205254eSKarl Rupp 29f5b6597dSBarry Smith *ierr = MatMFFDSetFunction(*mat,ourmatmffdfunction,*mat); 30cdcc8137SSatish Balay } 31cdcc8137SSatish Balay 328cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL matmffdsettype_(Mat *mat,CHAR ftype PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len)) 33cdcc8137SSatish Balay { 34cdcc8137SSatish Balay char *t; 35cdcc8137SSatish Balay FIXCHAR(ftype,len,t); 36cdcc8137SSatish Balay *ierr = MatMFFDSetType(*mat,t); 37cdcc8137SSatish Balay FREECHAR(ftype,t); 38cdcc8137SSatish Balay } 39cdcc8137SSatish Balay 408cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL matmffdsetoptionsprefix_(Mat *mat,CHAR prefix PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len)) 416aa9148fSLisandro Dalcin { 426aa9148fSLisandro Dalcin char *t; 436aa9148fSLisandro Dalcin FIXCHAR(prefix,len,t); 446aa9148fSLisandro Dalcin *ierr = MatMFFDSetOptionsPrefix(*mat,t); 456aa9148fSLisandro Dalcin FREECHAR(prefix,t); 466aa9148fSLisandro Dalcin } 476aa9148fSLisandro Dalcin 48