Skip to content

Fortran Symbol Name not in Load Table

6 messages · vioravis, Charlie Sharpsteen, Duncan Murdoch

Original
vioravis
# 
I am trying to call a FORTRAN subroutine from R. is.loaded is turning out to
be TRUE. However when I run my .Fortran command I get the following error:

Error in .Fortran("VALUEAHROPTIMIZE", as.double(ahrArray),
as.double(kwArray),  : 
  Fortran symbol name "valueahroptimize" not in load table


I have given the FORTRAN declaration below:

subroutine VALUEAHROPTIMIZE(AHR,    &
        KW,    &
        min_IHR_delta,  &
        max_AHR_error,  &
        AHR_out,   & !! Output AHE array
        IHR_out,   & !! Output IHR array
        Errors_out)
  ! Expose subroutine my_function to users of this DLL
  !DEC$ ATTRIBUTES
DLLEXPORT,C,REFERENCE,ALIAS:'VALUEAHROPTIMIZE_'::VALUEAHROPTIMIZE
 
  ! Body of my_function
 
  Implicit None
 
  Integer *4  IERR, iSum
  DOUBLE PRECISION min_IHR_delta, max_AHR_error
  logical switch_AHR_tuner
  character * 512 AHR_tuner_FilePath
 
  !!DOUBLE PRECISION  AHR(500), kW(500)  !! Initial Array for reading
Namelist
  
  DOUBLE PRECISION  AHR(*), kW(*)  !! Initial Array for reading Namelist
  DOUBLE PRECISION  AHR_out(*), IHR_out(*)
  integer Errors_out(*)


The R code I tried using is given below:

ahrArray <- runif(147)
kwArray <- runif(147)
outputAHR <- c(rep(0,11*11))
outputIHR <- c(rep(0,11*11))
outputError <- c(rep(NA,11))

dyn.load("my_function.dll")
is.loaded("VALUEAHROPTIMIZE")

[1] TRUE
as.double(ahrArray),
          as.double(kwArray),
          as.double(0.0005),
          as.double(50000),
          as.double(outputAHR),
          as.double(outputIHR),
          as.integer(outputError))

Can someone please help me with how to fix this issue? Thank you.

Ravi

--
View this message in context: http://r.789695.n4.nabble.com/Fortran-Symbol-Name-not-in-Load-Table-tp3508719p3508719.html
Sent from the R devel mailing list archive at Nabble.com.
vioravis
# 
I used the DLL export viewer to what is the table name being exported. It is
showing as VALUEAHROPTIMIZE_. This is the name of the function we have used
plus the underscore.

Is there any other reason for the function not getting recognized??? Thanks.

--
View this message in context: http://r.789695.n4.nabble.com/Fortran-Symbol-Name-not-in-Load-Table-tp3508719p3510758.html
Sent from the R devel mailing list archive at Nabble.com.
Charlie Sharpsteen
#
vioravis wrote:
Which compiler are you using? Which version of R?

-----
Charlie Sharpsteen
Undergraduate-- Environmental Resources Engineering
Humboldt State University
--
View this message in context: http://r.789695.n4.nabble.com/Fortran-Symbol-Name-not-in-Load-Table-tp3508719p3513005.html
Sent from the R devel mailing list archive at Nabble.com.
Duncan Murdoch
#
On 11-05-09 9:28 PM, vioravis wrote:
I believe R will be looking for the lower case version of that name, 
which is what gfortran would produce.

Duncan Murdoch
vioravis
# 
Thank you Sharpie and Duncan.

I am using Compaq Visual Fortran compiler on a Windows machine.

I tried with all small letters for the function names and created the DLLs.
But somehow the DLL created only had all CAPS. But the DLL worked when I
changed the function name to myxmean. Not really sure what changed but it
worked fine :)

Ravi



--
View this message in context: http://r.789695.n4.nabble.com/Fortran-Symbol-Name-not-in-Load-Table-tp3508719p3513909.html
Sent from the R devel mailing list archive at Nabble.com.