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
> .Fortran("VALUEAHROPTIMIZE",
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-tp3509852p3509852.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@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.
