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