Back to Questions
805
views3
comments
Call Fortran Function
f#

Hi all, I'm new to F#. I would like to call fortran functions from F# but I'm unable to pass even an integer value to them :( The function is printing a strange value, something like the address of the variable.

This is the Fortran function I'm trying to invoke:

INTEGER FUNCTION _RESULT(N)
INTEGER N
WRITE(6,*) 'Parameter:', N
_RESULT = N
RETURN
END

I have created a F# DLL with the following code:

[<DllImport(@"decay.dll", SetLastError=true)>]
extern int _result(int n);

let showResult (N : int) =
let mutable lda = N
_result ( lda );

Any suggestion will be appreciated. Thanks

.

Well, the correct F# code is:

[<DllImport(@"decay.dll", EntryPoint="_result" SetLastError=true)>]
extern int _result(int *n);

let showResult (N : int) =
let mutable lda = N
_result ( &&lda );

Anyway, the function was still printing a strange value. I have discovered the problem is in the Fortran compiler. I have compiled the fortran code using another compiler and all works fine.

I hope this could help.

By on 2/3/2009 2:35 AM ()

Whait is your fortran compiler?
Peronnaly I have Interl fortran and F# and I have no problem to call fortran from F#.

By on 2/3/2009 3:44 AM ()

I was using Open Watcom Fortran, an open source tool. Finally, I have downloaded the Intel Fortran compiler and all works fine.

By on 2/3/2009 5:34 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper