[R] Using functions written in Fortran in R

[Duncan Murdoch]

On 11-10-27 8:02 AM, Paul Hiemstra wrote:
> On 10/27/2011 04:24 AM, John Sorkin wrote:
>> Windows XP
>> R 2.12
>>
>> I am trying to understand how I can take a subroutine (i.e. function) I have written in Fortran, and call the function in R.  I need to know (1) where I should store the Fortran subroutine (2) how to prepare the function for use in R, and (3) how to load and call the function.
>>
>> There's a large literature that describes how to construct packages (including S Programming by Venables and Ripley, which I have referenced), but everything I have seen appears overly complex and generally geared to R running under Linux where as I run R under Windows XP.
>
> Hi,
>
> I'm afraid that to some degree running Fortran code from R is complex.
> Take a look at the .Fortran functions. Another good tip is to take a
> look at an R package which includes a lot of Fortran and see how they
> organise their code.
>
> Linux is much more ready for these kinds of solutions, but probably you
> could get it to work under Windows. You need a compiler, set all kinds
> of enviroment variables etc. Running R under cygwin should make it
> possible to use the tutorials/books that are geared towards Linux, for
> Windows.

I think nowadays many Linux distros are no more ready than Windows for 
this.  On Linux, you'll likely need to install development libraries and 
tools; on Windows, the same.  The advantage of Windows is that the tools 
have all been collected in one place 
(www.murdoch-sutherland.com/Rtools), so it's pretty easy to get 
everything going.

Duncan Murdoch


>
> good luck,
> Paul
>
>> I want to put R functions and Fortran routines in a library so they can be easily accessed. If, for example, I write a subroutine in Fortran called sqrtvector (n, vector), I want to compile it (to a .dll ?) and then put it in a library so subsequently I can code y<= sqrtvector(nn, x) in my R programs.
>>
>> Thanks!
>> John
>>
>> John David Sorkin M.D., Ph.D.
>> Chief, Biostatistics and Informatics
>> University of Maryland School of Medicine Division of Gerontology
>> Baltimore VA Medical Center
>> 10 North Greene Street
>> GRECC (BT/18/GR)
>> Baltimore, MD 21201-1524
>> (Phone) 410-605-7119
>> (Fax) 410-605-7913 (Please call phone number above prior to faxing)
>>
>> Confidentiality Statement:
>> This email message, including any attachments, is for ...{{dropped:20}}
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.