Displaying 5 results from an estimated 5 matches for "have_f77_underscor".
Did you mean:
have_f77_underscore
2006 Mar 22
1
Double complex with gcc and Intel v9 Fortran (PR#8699)
...-----------------
subroutine cftest(x)
complex*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...
1999 Nov 13
0
patches for alpha
...Oct 26 13:32:08 1999
+++ ./aclocal.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 v...
2005 Feb 08
0
Compiling R as a shared library
...AVE_DECL_SIZE_MAX 1
| #define SOCKLEN_T socklen_t
| #define R_INLINE inline
| #define SIZEOF_INT 4
| #define INT_32_BITS 1
| #define SIZEOF_LONG 8
| #define SIZEOF_LONG_LONG 8
| #define SIZEOF_LONG_DOUBLE 16
| #define F77_FUNC(name,NAME) name ## _
| #define F77_FUNC_(name,NAME) name ## __
| #define HAVE_F77_UNDERSCORE 1
| #define HAVE_DOUBLE_COMPLEX 1
| #define SHLIB_EXT ".so"
| #define HAVE_OFF_T 1
| #define HAVE_ALLOCA_H 1
| #define HAVE_ALLOCA 1
| #define HAVE_ACCESS 1
| #define HAVE_CHDIR 1
| #define HAVE_EXPM1 1
| #define HAVE_FCNTL 1
| #define HAVE_FINITE 1
| #define HAVE_FSEEKO 1
| #define HAVE...
1997 Jul 30
0
R-beta: Query: installing 0.50-a1 on Solaris 2.5.1
Can anyone spot the problem here. Following is an edited script of the install
session. The gist is:
* syntax error in original src/main/dotcode.c
Easily remedied (or at least, such that compiles without error message ... )
change line 449-450 (two lines preceding return)
#ifdef HAVE_F77_UNDERSCORE
if(PRIMVAL(op)) {
*q++ = '_';
*q = '\0';
#endif
}
return mkString(buf);
}
to
}
#endif
But then load complains of hundreds of undefined symbols in, surprise surprise,
dotcode.o.
Alternatively, setting F77=no in config.site, the above does no...
2005 Apr 19
0
R 2.0.1 install problem on Solaris 9
...e SOCKLEN_T socklen_t
| #define WORDS_BIGENDIAN 1
| #define R_INLINE inline
| #define SIZEOF_INT 4
| #define INT_32_BITS 1
| #define SIZEOF_LONG 4
| #define SIZEOF_LONG_LONG 8
| #define SIZEOF_LONG_DOUBLE 16
| #define F77_FUNC(name,NAME) name ## _
| #define F77_FUNC_(name,NAME) name ## __
| #define HAVE_F77_UNDERSCORE 1
| #define HAVE_DOUBLE_COMPLEX 1
| #define SHLIB_EXT ".so"
| #define HAVE_OFF_T 1
| #define HAVE_ALLOCA_H 1
| #define HAVE_ALLOCA 1
| #define HAVE_ACCESS 1
| #define HAVE_CHDIR 1
| #define HAVE_EXPM1 1
| #define HAVE_FCNTL 1
| #define HAVE_FINITE 1
| #define HAVE_FSEEKO 1
| #define HAVE...