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

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

Debut LapackServer avec LinSolve - Reza 5/4/2000
File size: 448 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 TArray<T>& LinSolve(TArray<T>& a, TArray<T> & b);
13};
14
15template <class T>
16inline TArray<T>& 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.