diff --git a/src/ts/adapt/interface/ftn-custom/makefile b/src/ts/adapt/interface/ftn-custom/makefile
new file mode 100644
index 0000000000..9c0ab3fc85
--- /dev/null
+++ b/src/ts/adapt/interface/ftn-custom/makefile
@@ -0,0 +1,15 @@
+
+#requiresdefine   'PETSC_HAVE_FORTRAN'
+ALL: lib
+CFLAGS   =
+FFLAGS   =
+SOURCEC  = ztsadaptf.c
+SOURCEF  =
+SOURCEH  =
+DIRS     =
+LIBBASE  = libpetsts
+LOCDIR   = src/ts/adapt/interface/ftn-custom/
+
+include ${PETSC_DIR}/lib/petsc/conf/variables
+include ${PETSC_DIR}/lib/petsc/conf/rules
+include ${PETSC_DIR}/lib/petsc/conf/test
diff --git a/src/ts/adapt/interface/ftn-custom/ztsadaptf.c b/src/ts/adapt/interface/ftn-custom/ztsadaptf.c
new file mode 100644
index 0000000000..c0d51d2829
--- /dev/null
+++ b/src/ts/adapt/interface/ftn-custom/ztsadaptf.c
@@ -0,0 +1,18 @@
+
+#include <petsc/private/fortranimpl.h>
+#include <petscts.h>
+
+#if defined(PETSC_HAVE_FORTRAN_CAPS)
+#define tsadaptsettype_TSADAPTSETTTYPE
+#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
+#define tsadaptsettype_ tsadaptsettype
+#endif
+
+PETSC_EXTERN void PETSC_STDCALL tsadaptsettype_(TSAdapt *tsadapt,CHAR type PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
+{
+  char *t;
+
+  FIXCHAR(type,len,t);
+  *ierr = TSAdaptSetType(*tsadapt,t);
+  FREECHAR(type,t);
+}