diff --git a/src/mat/impls/mffd/ftn-custom/zmffdf.c b/src/mat/impls/mffd/ftn-custom/zmffdf.c
index 143cdfd3a51..dce5b0d8866 100644
--- a/src/mat/impls/mffd/ftn-custom/zmffdf.c
+++ b/src/mat/impls/mffd/ftn-custom/zmffdf.c
@@ -5,10 +5,12 @@
 #define matmffdsetfunction_            MATMFFDSETFUNCTION
 #define matmffdsettype_                MATMFFDSETTYPE
 #define matmffdsetoptionsprefix_       MATMFFDSETOPTIONSPREFIX
+#define matmffdsetbase_                MATMFFDSETBASE
 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define matmffdsetfunction_            matmffdsetfunction
 #define matmffdsettype_                matmffdsettype
 #define matmffdsetoptionsprefix_       matmffdsetoptionsprefix
+#define matmffdsetbase_                matmffdsetbase
 #endif
 
 static PetscErrorCode ourmatmffdfunction(void *ctx,Vec x,Vec f)
@@ -44,3 +46,9 @@ PETSC_EXTERN void PETSC_STDCALL matmffdsetoptionsprefix_(Mat *mat,char* prefix P
   FREECHAR(prefix,t);
 }
 
+PETSC_EXTERN void PETSC_STDCALL matmffdsetbase_(Mat *mat,Vec *u,Vec *f,PetscErrorCode *ierr)
+{
+  CHKFORTRANNULLOBJECT(f);
+ *ierr = MatMFFDSetBase(*mat,*u,*f);
+}
+
diff --git a/src/mat/impls/mffd/mffd.c b/src/mat/impls/mffd/mffd.c
index 9ac687c9ffd..7266070770e 100644
--- a/src/mat/impls/mffd/mffd.c
+++ b/src/mat/impls/mffd/mffd.c
@@ -1072,7 +1072,7 @@ PetscErrorCode  MatMFFDResetHHistory(Mat J)
   PetscFunctionReturn(0);
 }
 
-/*@
+/*@C
     MatMFFDSetBase - Sets the vector U at which matrix vector products of the
         Jacobian are computed