*** empty log message ***

fortran/README

+gcc gl2ps_f77.c -c
+g77 main.f gl2ps_f77.o

fortran/gl2ps_f77.c

+#include <stdlib.h>
+#include <stdio.h>
+
+double gl2psbp_(double *x){
+  /*
+    call the real gl2psBeginPage();
+  */
+  return *x * 2;
+}

fortran/main.f

+        program example
+        external gl2psbp
+        real*8 x, y
+          x = 1.23
+          y = gl2psbp(x)
+          print *, x, y
+        end