1 { Version 030704. Copyright � Alexey A.Chernobaev, 1996-2003 }
2 
3 unit Int16m;
4 
5 interface
6 
7 {$I VCheck.inc}
8 
9 uses
10   SysUtils, ExtType, ExtSys, Vectors, Aliasv, Int16g, Int16v, Int16sv, Pointerv,
11   VFormat,
12   {$IFDEF USE_STREAM64}VStrm64{$ELSE}VStream{$ENDIF}, VTxtStrm, VectErr;
13 
14 type
15   BaseType = Int16;
16   TGenericBaseVector = TGenericInt16Vector;
17   TBaseVector = TInt16Vector;
18 
19   {$I NumMatr.def}
20 
21   TInt16Matrix = TNumberMatrix;
22   TSparseInt16Matrix = TSparseMatrix;
23   TSimInt16Matrix = TSimMatrix;
24   TSparseSimInt16Matrix = TSparseSimMatrix;
25 
26   TSmallIntMatrix = TInt16Matrix;
27   TSparseSmallIntMatrix = TSparseInt16Matrix;
28   TSparseSimSmallIntMatrix = TSparseSimInt16Matrix;
29 
30 implementation
31 
32 uses VectProc;
33 
34 const
35   MatrixProductCode = MatrixProductInt16;
36 
37 {$I NumMatr.imp}
38 
39 end.
40