lapack.h

Go to the documentation of this file.
00001 /* Kernel Independent Fast Multipole Method
00002    Copyright (C) 2004 Lexing Ying, New York University
00003 
00004 This program is free software; you can redistribute it and/or modify
00005 it under the terms of the GNU General Public License as published by
00006 the Free Software Foundation; either version 2, or (at your option)
00007 any later version.
00008 
00009 This program is distributed in the hope that it will be useful, but WITHOUT
00010 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
00011 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
00012 for more details.
00013 
00014 You should have received a copy of the GNU General Public License
00015 along with this program; see the file COPYING.  If not, write to the Free
00016 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
00017 02111-1307, USA.  */
00018 
00019 #ifndef _LAPACK_H_
00020 #define _LAPACK_H_
00021 
00022 //blas and lapack workspace for the code
00024 #define DGESVD dgesvd_
00025 
00026 #define DGESDD dgesdd_
00027 
00028 #define DGETRF dgetrf_
00029 
00030 #define DGETRI dgetri_
00031 
00032 //EXTERN_C_BEGIN
00033 extern "C"
00034 {
00050   extern void DGESVD(char *JOBU, char *JOBVT, int *M, int *N, double *A, int *LDA, 
00051                                                         double *S, double *U, int *LDU, double *VT, int *LDVT, double *WORK, int *LWORK, int *INFO);
00070   extern void DGESDD(char *jobz, int* m, int* n, double* a, int* lda,
00071                                                         double* s, double* u, int* ldu, double* vt, int* ldvt, double* work, int* lwork, int* iwork, int* info);
00085   extern void DGETRF(int *M, int *N, double *A, int *LDA, int *IPIV, int *INFO);
00094   extern void DGETRI(int *N, double *A, int *LDA, int *IPIV, double *WORK, int *LWORK, int *INFO);
00095 }
00096 //EXTERN_C_END
00097 
00098 #endif

Generated on Sun Dec 4 18:13:12 2005 for common by  doxygen 1.4.5