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