From: Sébastien Durand <sebastiendurand_at_videotron.ca>

Date: Wed 03 Aug 2005 - 20:29:13 GMT

2 /Library/Frameworks/R.framework/Resources/library/grDevices/libs/ grDevices.so

3 /Library/Frameworks/R.framework/Resources/library/stats/ libs/stats.so

4 /Library/Frameworks/R.framework/Resources/library/methods/libs/ methods.so

5 /Users/sebas/Desktop/Fortan_kmeans/kmeans3.so

* >
*

* > is.loaded(symbol.For("/Users/sebas/Desktop/Fortan_kmeans/
*

kmeans3.so"))

**[1] FALSE
**

* > is.loaded(symbol.For("kmeans3"))
*

**[1] FALSE
**

* > is.loaded(symbol.For("wrapper"))
*

**[1] FALSE
**
Then whatever I write in .Fortran("",...), I always get :
Erreur in .Fortran("/Users/sebas/Desktop/Fortan_kmeans/kmeans3.so",... :

R-devel@r-project.org mailing list

https://stat.ethz.ch/mailman/listinfo/r-devel Received on Thu Aug 04 06:38:01 2005

Date: Wed 03 Aug 2005 - 20:29:13 GMT

Hello,

In the terminal this how I compiled my fortran code:

R CMD SHLIB ~/Desktop/Fortan_kmeans/kmeans3.f

There is the wrapper I have paste inside de kmeans3.f file:

c THIS IS THE WRAPPER subroutine wrapper(n, p, nran, mat, ishort, w, z, + ntran, istand, k1, k2, iassign, iseed) integer n,p,kmax real*8 mat(n,p),sx(kmax,p),sx2(kmax,p),vect(p), + xbar(kmax,p),var(kmax,p),mean(p),coord(10) real*8 D1,Dref,SSE,SSEref,Dvec(kmax),w(p),SST real*8 CH,CHr(kmax),SSEr(kmax),temp integer list(n),howmany(kmax),no(n),nobest(kmax) integer listr(kmax,n),howmanyr(kmax,kmax),nnitr(kmax) integer ishort(p) double precision kmeans, external kmeans call kmeans(n, p, nran, mat, ishort, w, + ntran, istand, k1, k2, iassign, iseed) end c THIS IS THE BEGINNING OF THE ORIGINAL FORTRAN CODE subroutine kmeans(n, p, nran, mat, ishort, w, + ntran, istand, k1, k2, iassign, iseed, CHr, SSEr) ......

Once compiled, in R, I get the following:

* > dyn.load("/Users/sebas/Desktop/Fortan_kmeans/K-means3.so")
** > getLoadedDLLs()
*

Filename

1 base

2 /Library/Frameworks/R.framework/Resources/library/grDevices/libs/ grDevices.so

3 /Library/Frameworks/R.framework/Resources/library/stats/ libs/stats.so

4 /Library/Frameworks/R.framework/Resources/library/methods/libs/ methods.so

5 /Users/sebas/Desktop/Fortan_kmeans/kmeans3.so

Dynamic.Lookup

1 FALSE 2 FALSE 3 FALSE 4 FALSE 5 TRUE

kmeans3.so"))

the function name "Fortran" is absent of the allocation table (this warning was translated from french)

So if anyone got a clue, please let me know.

I would be more than happy to find and understand what I am doing wrong!

Cheers

Sébastien Durand

R-devel@r-project.org mailing list

https://stat.ethz.ch/mailman/listinfo/r-devel Received on Thu Aug 04 06:38:01 2005

*
This archive was generated by hypermail 2.1.8
: Mon 20 Feb 2006 - 03:21:16 GMT
*