MyLapack: lapack_wrapper.h Source File

00001 /***************************************************************************
00002  *   Copyright (C) 2004 by Claudio Attaccalite                             *
00003  *   claudio@freescience.info                                              *
00004  *                                                                         *
00005  *   Original from Davide Ceresoli                                         *
00006  *   http://www.sissa.it/~ceresoli/                                        *
00007  *                                                                         *
00008  *   This program is free software; you can redistribute it and/or modify  *
00009  *   it under the terms of the GNU General Public License as published by  *
00010  *   the Free Software Foundation; either version 2 of the License, or     *
00011  *   (at your option) any later version.                                   *
00012  *                                                                         *
00013  *   This program is distributed in the hope that it will be useful,       *
00014  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
00015  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
00016  *   GNU General Public License for more details.                          *
00017  *                                                                         *
00018  *   You should have received a copy of the GNU General Public License     *
00019  *   along with this program; if not, write to the                         *
00020  *   Free Software Foundation, Inc.,                                       *
00021  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
00022  ***************************************************************************/
00023 
00024 #ifndef LapackWrapper_H
00025 #define LapackWrapper_H
00026 
00027 #include <iostream>
00028 #include <math.h>
00029 #include <complex>
00030 
00031 #define F77_FUNC(x,y) x##_
00032 
00033 extern "C" {
00034         
00037   void F77_FUNC(dsyev,DSYEV)(char *jobz, char *uplo, int *n, double *a, 
00038     int *lda, double *w, double *work, int *lwork, int *info);
00039 
00040   void F77_FUNC(dgetrf,DGETRF)(int *n, int *m, double *a, int *lda, int *ipiv,
00041     int *info);
00042     
00043   void F77_FUNC(dgetri,DGETRI)(int *n, double *a, int *lda, int *ipiv, 
00044     double *work, int *lwork, int *info);
00045 
00046   void F77_FUNC(dgetrs,DGETRS)(char *trans, int *n, int *nhrs, double *a, 
00047     int *lda, int *ipiv, double *b, int *ldb, int *info);
00048 
00051   void F77_FUNC(ssyev,SSYEV)(char *jobz, char *uplo, int *n, float *a, 
00052     int *lda, float *w, float *work, int *lwork, int *info);
00053 
00054   void F77_FUNC(sgetrf,SGETRF)(int *n, int *m, float *a, int *lda, int *ipiv,
00055     int *info);
00056     
00057   void F77_FUNC(sgetri,SGETRI)(int *n, float *a, int *lda, int *ipiv, 
00058     float *work, int *lwork, int *info);
00059 
00060    void F77_FUNC(sgetrs,SGETRS)(char *trans, int *n, int *nhrs, float *a, 
00061     int *lda, int *ipiv, float *b, int *ldb, int *info);
00062 
00063 }  
00064 
00065 #endif