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