Lapack++
|
00001 // -*-C++-*- 00002 00003 // Copyright (C) 2004 00004 // Christian Stimming <stimming@tuhh.de> 00005 00006 // This library is free software; you can redistribute it and/or 00007 // modify it under the terms of the GNU Lesser General Public License as 00008 // published by the Free Software Foundation; either version 2, or (at 00009 // your option) any later version. 00010 00011 // This library 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 along 00017 // with this library; see the file COPYING. If not, write to the Free 00018 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, 00019 // USA. 00020 00021 // LAPACK++ (V. 1.1) 00022 // (C) 1992-1996 All Rights Reserved. 00023 00031 #ifndef _LA_UTIL_H_ 00032 #define _LA_UTIL_H_ 00033 00034 #include "f2c.h" 00035 #include "arch.h" 00036 #include LA_GEN_MAT_DOUBLE_H 00037 #ifdef LA_COMPLEX_SUPPORT 00038 # include LA_GEN_MAT_COMPLEX_H 00039 #endif 00040 #include LA_VECTOR_LONG_INT_H 00041 00042 // only callable from C-Lapack due to added ftnlen parameters by f2c; 00043 extern "C" 00044 int ilaenv_(int *i, const char *n, const char *opts, 00045 int *n1, int *n2, int *n3, int *n4, 00046 ftnlen n_len, ftnlen opts_len); 00047 00048 00055 DLLIMPORT 00056 void LaSwap(LaGenMatDouble &A, LaVectorLongInt &ipiv); 00057 00058 DLLIMPORT 00059 int LaEnvBlockSize(const char *fname, const LaGenMatDouble &A); 00060 00061 #ifdef LA_COMPLEX_SUPPORT 00062 DLLIMPORT 00063 int LaEnvBlockSize(const char *fname, const LaGenMatComplex &A); 00064 #endif 00065 00066 #ifdef _LA_SYMM_MAT_DOUBLE_H_ 00067 DLLIMPORT 00068 int LaEnvBlockSize(const char *fname, const LaSymmMatDouble &A); 00069 #endif 00070 00073 DLLIMPORT 00074 double Mach_eps_double(); 00075 00076 #endif 00077 // _LA_UTIL_H_