Context Navigation

intflapack.h@ 825

Visit:

Last change on this file since 825 was 814, checked in by ansari, 25 years ago
Debut LapackServer avec LinSolve - Reza 5/4/2000
File size: 448 bytes

Rev	Line
[775]	1	#ifndef IntfLapack_H_SEEN
	2	#define IntfLapack_H_SEEN
	3
	4	#include "machdefs.h"
	5	#include "tarray.h"
	6
[814]	7	namespace SOPHYA {
[775]	8
[814]	9	template <class T>
	10	class LapackServer {
	11	public:
	12	TArray<T>& LinSolve(TArray<T>& a, TArray<T> & b);
	13	};
	14
	15	template <class T>
	16	inline 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
[775]	22	void rztest_lapack(TArray<r_4>& a, TArray<r_4>& b);
	23
	24	#endif

Note: See TracBrowser for help on using the repository browser.