The R Project SVN R

Rev

Rev 60253 | Rev 71463 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 60253 Rev 60961
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 2003-5 The R Core Team.
 3 
 *  Copyright (C) 2003-12 The R Core Team.
4 
 *
 4 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 5 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU Lesser General Public License as published by
 6 
 *  it under the terms of the GNU Lesser General Public License as published by
7 
 *  the Free Software Foundation; either version 2.1 of the License, or
 7 
 *  the Free Software Foundation; either version 2.1 of the License, or
8 
 *  (at your option) any later version.
 8 
 *  (at your option) any later version.
Line 15... Line 15...
15 
 *  You should have received a copy of the GNU Lesser General Public License
 15 
 *  You should have received a copy of the GNU Lesser General Public License
16 
 *  along with this program; if not, a copy is available at
 16 
 *  along with this program; if not, a copy is available at
17 
 *  http://www.r-project.org/Licenses/
 17 
 *  http://www.r-project.org/Licenses/
18 
 */
 18 
 */
19 
 
 19 
 
- 
 
 20 
/*
- 
 
 21 
   C declarations of BLAS Fortran subroutines always available in R.
- 
 
 22 
 
- 
 
 23 
   Part of the API.
- 
 
 24 
 
- 
 
 25 
   R packages that use these should have PKG_LIBS in src/Makevars include
- 
 
 26 
   $(BLAS_LIBS) $(FLIBS)
- 
 
 27 
 */
- 
 
 28 
 
20 
/* Part of the API */
 29 
/* Part of the API */
21 
 
 30 
 
22 
#ifndef R_BLAS_H
 31 
#ifndef R_BLAS_H
23 
#define R_BLAS_H
 32 
#define R_BLAS_H
24 
/* C declarations of BLAS routines.  R packages that use these should have */
 - 
 
25 
/* src/Makevars declare PKG_LIBS = $(BLAS_LIBS) $(FLIBS) */
 - 
 
26 
 
 33 
 
27 
#include <R_ext/RS.h>		/* for F77_... */
 34 
#include <R_ext/RS.h>		/* for F77_... */
28 
#include <R_ext/Complex.h>	/* for Rcomplex */
 35 
#include <R_ext/Complex.h>	/* for Rcomplex */
29 
 
 36 
 
30 
#ifdef  __cplusplus
 37 
#ifdef  __cplusplus
31 
extern "C" {
 38 
extern "C" {
32 
#endif
 39 
#endif
33 
 
 40 
 
- 
 
 41 
// never defined in R itself.
34 
#ifndef BLAS_extern
 42 
#ifndef BLAS_extern
35 
#define BLAS_extern extern
 43 
#define BLAS_extern extern
36 
#endif
 44 
#endif
37 
 
 45 
 
38 
/* Double Precision Level 1 BLAS */
 46 
/* Double Precision Level 1 BLAS */