R help - Jun 2001 - The old Fortran underscore problem

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.

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?

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.

I think I understand from V&R how to load correct
symbols and look in the correct package when using
an individual dyn.load but not one using a central
library.dynam("packagename", options passed to .First.lib).

Any help will be greatly appreciated.

Thanks -Frank
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._