MyLapack: MyLapack.h Source File

00001 /***************************************************************************
00002  *   Copyright (C) 2004 by Claudio Attaccalite                             *
00003  *   claudio@freescience.info                                              *
00004  *                                                                         *
00005  *   This program is free software; you can redistribute it and/or modify  *
00006  *   it under the terms of the GNU General Public License as published by  *
00007  *   the Free Software Foundation; either version 2 of the License, or     *
00008  *   (at your option) any later version.                                   *
00009  *                                                                         *
00010  *   This program is distributed in the hope that it will be useful,       *
00011  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
00012  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
00013  *   GNU General Public License for more details.                          *
00014  *                                                                         *
00015  *   You should have received a copy of the GNU General Public License     *
00016  *   along with this program; if not, write to the                         *
00017  *   Free Software Foundation, Inc.,                                       *
00018  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
00019  ***************************************************************************/
00020 
00021 
00022 #ifndef MyLapack 
00023 #define MyLapack  "@(#)MyLapack.h $Revision$"
00024 #if HAVE_CONFIG
00025 #include <config.h>
00026 #endif
00027 
00028 #include <iostream>
00029 #include "lapack_wrapper.h"
00030 #include "DMatrix.h"
00031 #include "DVector.h"
00032 #include "SMatrix.h"
00033 #include "SVector.h"
00034 
00035 
00047 int DLU_decomp(DMatrix &A,int *ipiv);
00048 
00055 int DLU_invert(DMatrix &A,int *ipiv,double *work,int &lwork);
00056 
00061 double DLU_det(DMatrix &A,int *ipiv);
00062 
00068 int DLU_solve(DMatrix &M,int *ipiv,DVector &b);
00069 
00074 int DSYEV(char jobz,char uplo,DMatrix &M,DVector &V,double *work,int &lwork);
00075 
00078 int SLU_decomp(SMatrix &A,int *ipiv);
00079 
00080 int SLU_invert(SMatrix &A,int *ipiv,float *work,int &lwork);
00081 
00082 float SLU_det(SMatrix &A,int *ipiv);
00083 
00084 int SLU_solve(SMatrix &M,int *ipiv,DVector &b);
00085 
00086 int SSYEV(char jobz,char uplo,SMatrix &M,SVector &V,float *work,int &lwork);
00087 
00088 
00089 #endif