1af0996ceSBarry Smith #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 8c3f9a2e8SBarry Smith #define matmffdsetbase_ MATMFFDSETBASE 9cdcc8137SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 10cdcc8137SSatish Balay #define matmffdsetfunction_ matmffdsetfunction 11cdcc8137SSatish Balay #define matmffdsettype_ matmffdsettype 126aa9148fSLisandro Dalcin #define matmffdsetoptionsprefix_ matmffdsetoptionsprefix 13c3f9a2e8SBarry Smith #define matmffdsetbase_ matmffdsetbase 14cdcc8137SSatish Balay #endif 15cdcc8137SSatish Balay 16cdcc8137SSatish Balay static PetscErrorCode ourmatmffdfunction(void *ctx,Vec x,Vec f) 17cdcc8137SSatish Balay { 18cdcc8137SSatish Balay PetscErrorCode ierr = 0; 19f5b6597dSBarry Smith Mat mat = (Mat) ctx; 20*19caf8f3SSatish Balay (*(void (*)(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); 21cdcc8137SSatish Balay return 0; 22cdcc8137SSatish Balay } 23cdcc8137SSatish Balay 24*19caf8f3SSatish Balay PETSC_EXTERN void matmffdsetfunction_(Mat *mat,void (*func)(void*,Vec*,Vec*,PetscErrorCode*),void *ctx,PetscErrorCode *ierr) 25cdcc8137SSatish Balay { 26f5b6597dSBarry Smith PetscObjectAllocateFortranPointers(*mat,2); 27f5b6597dSBarry Smith ((PetscObject)*mat)->fortran_func_pointers[0] = (PetscVoidFunction)func; 281d14097aSBarry Smith ((PetscObject)*mat)->fortran_func_pointers[1] = (PetscVoidFunction)(PETSC_UINTPTR_T)ctx; 292205254eSKarl Rupp 30f5b6597dSBarry Smith *ierr = MatMFFDSetFunction(*mat,ourmatmffdfunction,*mat); 31cdcc8137SSatish Balay } 32cdcc8137SSatish Balay 33*19caf8f3SSatish Balay PETSC_EXTERN void matmffdsettype_(Mat *mat,char* ftype,PetscErrorCode *ierr,PETSC_FORTRAN_CHARLEN_T len) 34cdcc8137SSatish Balay { 35cdcc8137SSatish Balay char *t; 36cdcc8137SSatish Balay FIXCHAR(ftype,len,t); 37d49bb8f9SBarry Smith *ierr = MatMFFDSetType(*mat,t);if (*ierr) return; 38cdcc8137SSatish Balay FREECHAR(ftype,t); 39cdcc8137SSatish Balay } 40cdcc8137SSatish Balay 41*19caf8f3SSatish Balay PETSC_EXTERN void matmffdsetoptionsprefix_(Mat *mat,char* prefix,PetscErrorCode *ierr,PETSC_FORTRAN_CHARLEN_T len) 426aa9148fSLisandro Dalcin { 436aa9148fSLisandro Dalcin char *t; 446aa9148fSLisandro Dalcin FIXCHAR(prefix,len,t); 45d49bb8f9SBarry Smith *ierr = MatMFFDSetOptionsPrefix(*mat,t);if (*ierr) return; 466aa9148fSLisandro Dalcin FREECHAR(prefix,t); 476aa9148fSLisandro Dalcin } 486aa9148fSLisandro Dalcin 49