source: Sophya/trunk/SophyaExt/LinAlg/intflapack.h@ 1042

Last change on this file since 1042 was 1042, checked in by ansari, 25 years ago

Modif + correction LapackLinSolve, Reza 8/6/2000
File size: 434 bytes
Line 
1#ifndef IntfLapack_H_SEEN
2#define IntfLapack_H_SEEN
3
4#include "machdefs.h"
5#include "tarray.h"
6
7namespace SOPHYA {
8
9template <class T>
10class LapackServer {
11public:
12 int LinSolve(TArray<T>& a, TArray<T> & b);
13};
14
15template <class T>
16inline int LapackLinSolve(TArray<T>& a, TArray<T> & b)
17 { LapackServer<T> lps; return( lps.LinSolve(a, b) ); }
18
19
20} // Fin du namespace
21
22void rztest_lapack(TArray<r_4>& a, TArray<r_4>& b);
23
24#endif
Note: See TracBrowser for help on using the repository browser.