RAPI: R_ext/Linpack.h Source File

Go to the documentation of this file.
00001 /*
00002  *  R : A Computer Language for Statistical Data Analysis
00003  *  Copyright (C) 1997        Robert Gentleman and Ross Ihaka
00004  *  Copyright (C) 1999-2015   The R Core Team.
00005  *
00006  *  This program is free software; you can redistribute it and/or modify
00007  *  it under the terms of the GNU Lesser General Public License as published by
00008  *  the Free Software Foundation; either version 2.1 of the License, or
00009  *  (at your option) any later version.
00010  *
00011  *  This program is distributed in the hope that it will be useful,
00012  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
00013  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00014  *  GNU Lesser General Public License for more details.
00015  *
00016  *  You should have received a copy of the GNU Lesser General Public License
00017  *  along with this program; if not, a copy is available at
00018  *  https://www.R-project.org/Licenses/
00019  */
00020 
00021 /* 
00022    C declarations of double-precision LINPACK Fortran subroutines
00023    included in R, and some others.
00024    
00025    Those which are listed as part of R are in the API
00026  */
00027 
00028 #ifndef R_LINPACK_H_
00029 #define R_LINPACK_H_
00030 
00031 #include <R_ext/RS.h>       /* for F77_... */
00032 #include <R_ext/BLAS.h>
00033 
00034 #ifdef  __cplusplus
00035 extern "C" {
00036 #endif
00037 
00038     /* Double Precision LINPACK */
00039 
00040 extern void F77_NAME(dpbfa)(double*, int*, int*, int*, int*);
00041 extern void F77_NAME(dpbsl)(double*, int*, int*, int*, double*);
00042 extern void F77_NAME(dpoco)(double*, int*, int*, double*, double*, int*);
00043 extern void F77_NAME(dpodi)(double*, int*, int*, double*, int*);
00044 extern void F77_NAME(dpofa)(double*, int*, int*, int*);
00045 extern void F77_NAME(dposl)(double*, int*, int*, double*);
00046 extern void F77_NAME(dqrdc)(double*, int*, int*, int*, double*, int*, double*, int*);
00047 extern void F77_NAME(dqrsl)(double*, int*, int*, int*, double*, double*, double*, double*, double*, double*, double*, int*, int*);
00048 extern void F77_NAME(dsvdc)(double*, int*, int*, int*, double*, double*, double*, int*, double*, int*, double*, int*, int*);
00049 extern void F77_NAME(dtrco)(double*, int*, int*, double*, double*, int*);
00050 extern void F77_NAME(dtrsl)(double*, int*, int*, double*, int*, int*);
00051 
00052 
00053 /* The following routines are listed as they have always been declared
00054    here, but they are not currently included in R */
00055 extern void F77_NAME(dchdc)(double*, int*, int*, double*, int*, int*, int*);
00056 extern void F77_NAME(dchdd)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*, int*);
00057 extern void F77_NAME(dchex)(double*, int*, int*, int*, int*, double*, int*, int*, double*, double*, int*);
00058 extern void F77_NAME(dchud)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*);
00059 extern void F77_NAME(dgbco)(double*, int*, int*, int*, int*, int*, double*, double*);
00060 extern void F77_NAME(dgbdi)(double*, int*, int*, int*, int*, int*, double*);
00061 extern void F77_NAME(dgbfa)(double*, int*, int*, int*, int*, int*, int*);
00062 extern void F77_NAME(dgbsl)(double*, int*, int*, int*, int*, int*, double*, int*);
00063 extern void F77_NAME(dgeco)(double*, int*, int*, int*, double*, double*);
00064 extern void F77_NAME(dgedi)(double*, int*, int*, int*, double*, double*, int*);
00065 extern void F77_NAME(dgefa)(double*, int*, int*, int*, int*);
00066 extern void F77_NAME(dgesl)(double*, int*, int*, int*, double*, int*);
00067 extern void F77_NAME(dgtsl)(int*, double*, double*, double*, double*, int*);
00068 extern void F77_NAME(dpbco)(double*, int*, int*, int*, double*, double*, int*);
00069 extern void F77_NAME(dpbdi)(double*, int*, int*, int*, double*);
00070 extern void F77_NAME(dppco)(double*, int*, double*, double*, int*);
00071 extern void F77_NAME(dppdi)(double*, int*, double*, int*);
00072 extern void F77_NAME(dppfa)(double*, int*, int*);
00073 extern void F77_NAME(dppsl)(double*, int*, double*);
00074 extern void F77_NAME(dptsl)(int*, double*, double*, double*);
00075 extern void F77_NAME(dsico)(double*, int*, int*, int*, double*, double*);
00076 extern void F77_NAME(dsidi)(double*, int*, int*, int*, double*, int*, double*, int*);
00077 extern void F77_NAME(dsifa)(double*, int*, int*, int*, int*);
00078 extern void F77_NAME(dsisl)(double*, int*, int*, int*, double*);
00079 extern void F77_NAME(dspco)(double*, int*, int*, double*, double*);
00080 extern void F77_NAME(dspdi)(double*, int*, int*, double*, int*, double*, int*);
00081 extern void F77_NAME(dspfa)(double*, int*, int*, int*);
00082 extern void F77_NAME(dspsl)(double*, int*, int*, double*);
00083 
00084 #ifdef  __cplusplus
00085 }
00086 #endif
00087 
00088 #endif /* R_LINPACK_H_ */