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-tp3508719p3508719.html
Sent from the R devel mailing list archive at Nabble.com.
Just realized that there are two functions in the same DLL. The other function is working fine. -- View this message in context: http://r.789695.n4.nabble.com/Fortran-Symbol-Name-not-in-Load-Table-tp3508719p3508852.html Sent from the R devel mailing list archive at Nabble.com.
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.
vioravis wrote:> > 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. >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.
On 11-05-09 9:28 PM, vioravis wrote:> 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. >I believe R will be looking for the lower case version of that name, which is what gfortran would produce. Duncan Murdoch> 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. > > ______________________________________________ > R-devel at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-devel
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.