The R Project SVN R

Rev

Rev 1557 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1557 Rev 2427
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Langage for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
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 General Public License as published by
 6 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 7 
 *  the Free Software Foundation; either version 2 of the License, or
Line 15... Line 15...
15 
 *  You should have received a copy of the GNU General Public License
 15 
 *  You should have received a copy of the GNU General Public License
16 
 *  along with this program; if not, write to the Free Software
 16 
 *  along with this program; if not, write to the Free Software
17 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 17 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18 
 */
 18 
 */
19 
 
 19 
 
20 
/* S compatibility library headers - maps internal functions in S to R
 20 
/* S compatibility library headers --
21 
   equivalents
 - 
 
22 
 *
 - 
 
23 
 * $Id: S_compat.h,v 1.2 1998/06/22 16:56:15 maechler Exp $
 21 
			maps internal functions in S to R equivalents
24 
 */
 22 
 */
25 
 
 23 
 
26 
#ifndef S_COMPAT_H_
 24 
#ifndef S_COMPAT_H_
27 
#define S_COMPAT_H_
 25 
#define S_COMPAT_H_
28 
 
 26 
 
29 
#include "S.h"
 27 
#include "S.h"
30 
#include "Linpack.h"/*-> Fortran.h & Blas.h */
 28 
#include "Linpack.h"/*-> Blas.h */
31 
 
 29 
 
32 
extern void
 30 
extern void
33 
F77_SYMBOL(dqrdca) (double*, long int*, long int*, long int*,
 31 
F77_SYMBOL(dqrdca) (double*, long int*, long int*, long int*,
34 
		    double*, long int*, double*, long int*, double*);
 32 
		    double*, long int*, double*, long int*, double*);
35 
 
 - 
 
36 
#endif
 33 
#endif