diff --git a/fortran/README b/fortran/README
new file mode 100644
index 0000000000000000000000000000000000000000..502a140b6b0228ea925ae8754680980e8f7ebe7f
--- /dev/null
+++ b/fortran/README
@@ -0,0 +1,2 @@
+gcc gl2ps_f77.c -c
+g77 main.f gl2ps_f77.o
diff --git a/fortran/gl2ps_f77.c b/fortran/gl2ps_f77.c
new file mode 100644
index 0000000000000000000000000000000000000000..7af117d34b57c338654574bd3f6854c35846f764
--- /dev/null
+++ b/fortran/gl2ps_f77.c
@@ -0,0 +1,9 @@
+#include <stdlib.h>
+#include <stdio.h>
+
+double gl2psbp_(double *x){
+  /*
+    call the real gl2psBeginPage();
+  */
+  return *x * 2;
+}
diff --git a/fortran/main.f b/fortran/main.f
new file mode 100644
index 0000000000000000000000000000000000000000..45241c2d3ff5ed039d0509ac80588a086e9127fc
--- /dev/null
+++ b/fortran/main.f
@@ -0,0 +1,7 @@
+        program example
+        external gl2psbp
+        real*8 x, y
+          x = 1.23
+          y = gl2psbp(x)
+          print *, x, y
+        end