[cffi-devel] Linking to fortran

[Mirko Vukovic]

Hello,

I am trying to link to a fortran 77 library.  So far, I can call a
subroutine without parameters, but fail otherwise.  Here's where I'm at:

The fortran routine is very simple: accept arguments and dump them to disk.
The following version accepts argument a, and writes a,b & i to disk.  The
initial version had no arguments, and a was set internaly.  This initial
version worked.

      subroutine test_link (a)!a, b, i)

      real a,b
      integer i

      b=2.0
      i=1
      open (10, file='call_args.txt',status='replace')
      write (10,*) a, b, i
      close (10)
      return
      end

My cffi definitions are (the routine is in the amos library):

(define-foreign-library amos
         (:unix "libamos.so"))

(use-foreign-library amos)

(defctype test-link :int)

;; I got the trailing underscore by using `nm' on the library.
(defcfun "test_link_" test-link (a :float))  ;  (b :float) (i :int))

(test-link- 2.0))  ; 2.0 2.1 1)

I get partial success.  A call to test-link- returns 0 (not sure what that
means), but the file contents are incorrect:
 -3.5797695E+21   2.000000               1
i.e, instead of 2.0 I get -3.579e21.

I will be needing to call single and double reals and integers.  I would
also like eventually to pass single and double complex numbers.

I hear from people that linking to fortran is doable, but I have not seen
simple examples.

Right now I am using gfortran.  Eventually I will try intel fortran.

Thanks for your help

Mirko
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cffi-devel/attachments/20090901/0385a468/attachment.html>