Message-ID: <Pine.LNX.4.31.0106061734110.1709-100000@gannet.stats>
Date: 2001-06-06T16:39:47Z
From: Brian Ripley
Subject: The old Fortran underscore problem
In-Reply-To: <200106061628.MAA19744@www.mail.Virginia.EDU>
On Wed, 6 Jun 2001, Frank E Harrell Jr wrote:
> I have dealt with this on so many platforms in
> the past that I should know the answer by now.
> I looked in V&R S Programming, R manuals and FAQ
> and still can't find the answer.
It's in Writing R Extensions, and the answer is the same as in S,
`S Programming' page 138.
> In the Hmisc library I used the R scripts to build
> the package, which creates Hmisc.so. I have
> library.dynam('Hmisc', ...) in the .First.lib.
> When doing library(Hmisc) I get
> Error in dyn.load .... undefined symbol rank_
> Note that I do not call dyn.load myself.
> The Hmisc library has a Fortran module named
> rcorr.f which issues CALL rank(....).
>
> rank is an entry point in a C source file ranksort.c,
> declared using "void rank(. .. .)".
> All source files seemed to compile fine.
> How do I call the C rank entry from Fortran using
> Hmisc.so?
You need void F77_SUB(rank)(...)
> A second problem is that in the Design library I
> have Fortran code such as
>
> CALL dqrsl1(.....)
>
> When doing library(Design) I get an unknown symbol
> dqrsl1_. I know that R base has LINPACK routines such
> as dqrsl1.
Not that one. It has dqrsl only. See src/include/R_ext/Linpack.h
--
Brian D. Ripley, ripley at stats.ox.ac.uk
Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/
University of Oxford, Tel: +44 1865 272861 (self)
1 South Parks Road, +44 1865 272860 (secr)
Oxford OX1 3TG, UK Fax: +44 1865 272595
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._