Displaying 7 results from an estimated 7 matches for "f77_symbol".
2006 Mar 22
1
Double complex with gcc and Intel v9 Fortran (PR#8699)
...*16 x(3)
integer i
c a few tests of constructs that are sometimes missing
if(x(1) .eq. x(1)) i = 0
x(1) = x(1)*x(2) + x(3)
end
----<cftest.c>------------------------------------
#include <math.h>
#define HAVE_F77_UNDERSCORE 1
#ifdef HAVE_F77_UNDERSCORE
# define F77_SYMBOL(x) x ## _
#else
# define F77_SYMBOL(x) x
#endif
typedef struct {
double r;
double i;
} Rcomplex;
extern void F77_SYMBOL(cftest)(Rcomplex *x);
int main () {
Rcomplex z[3];
z[0].r = 3.14159265;
z[0].i = 2.172;
z[1].i = 3.14159265;
z[1].r = 2.172;
z[2].r...
1999 Nov 13
0
patches for alpha
...ocal.m4 Tue Oct 26 13:33:46 1999
@@ -388,13 +388,13 @@
${FC} -c ${FFLAGS} conftestf.f 1>&AC_FD_CC 2>&AC_FD_CC
changequote(, )
cat > conftest.c <<EOF
- #include <math.h>
- #include "confdefs.h"
- #ifdef HAVE_F77_UNDERSCORE
- # define F77_SYMBOL(x) x ## _
- #else
- # define F77_SYMBOL(x) x
- #endif
+# include <math.h>
+# include "confdefs.h"
+# ifdef HAVE_F77_UNDERSCORE
+# define F77_SYMBOL(x) x ## _
+# else
+# define F77_SYMBOL(x) x
+# endif
extern void F77_SYMBOL(cftest)(...
2000 Aug 11
2
R-devel Aug-09 1.2.0 build on hpux10.20
...00t/R-devel/library/modreg/libs/modreg.sl":
can't open /home/absd00t/R-devel/library/modreg/libs/modreg.sl
Error in library(modreg) : .First.lib failed
>
First checked the lowessc.c routine and it had F77_SUB(...) but I
could not find a macro for that in the include files. There was
F77_SYMBOL() so I changed to F77_SUB to F77_SYMBOL, but it still doesn't
load.
Is there a way to get more info why it doesn't open?
TIA,
Osman
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
S...
2000 Dec 15
2
R1.2.0 (PR#766)
...e managed to install and check my libraries only making one
change to a C function (see point 1) and one to an R function because
of the way formulae now look for their data. That is the good news. Of
course, more extensive checks are liable to find further problems.
1. I need to be able to define F77_SYMBOL. This now in Defn.h which is
not accessible to us mortals. Those few lines need to be moved into
one of the accessible header files.
3. Makefiles in pkg/src are no longer read properly. This creates a
big problem for me in library development.
3. DESCRIPTION has to have licence mis-spelled as lic...
1997 Nov 21
2
R-alpha: nlm and gradients
At present the documentation for nlm refers the reader to Dennis and
Schnabel for details on the algorithms. It also states that the
function is liable to change.
Can anyone tell me if the current version of nlm uses only function
values or if it can use gradients and Hessians when they are
available? I would like to get an idea of how difficult it would be
to port the development versions of
2000 Sep 06
2
reusing external functions across libs
...an, after dyn.load()ing both libraries.
But unfortunately this seems to depend very crucially on the
specific OS.
An example (C/Fortran mix, but I tried also C/C and Fortran/Fortran):
**** so1.c *******************
#include <R.h>
void func1(double* a, int* n){
printf("in func1\n");
F77_SYMBOL(func2)(a,n);
printf("back in func1\n");
}
******************************
gcc -g -fpic -c so1.c -I/usr/local/lib/R/include
ld -shared so1.o -o so1.so
**** so2.f *******************
subroutine func2(a,n)
real*8 a(*)
integer n
integer i
call intpr(&q...
2000 Apr 15
2
unresolved symbols in dynamically linked code
I'm probably misunderstanding something in "Writing R Extensions" version
1.0.0. In the chapter on the R API, section 4.7, it is stated that the
functions listed in R_ext/Linpack.h are available to users' Fortran code.
I am developing a developing a library of ode solvers, based on lsoda and
ddassl, and which in turn call some routines from linpack and double
precision blas. I