paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Makefile.fpc added

Browse Source 
* several small changes to get things running with FPC 1.0.x
This commit is contained in:
florian 2002-01-16 14:47:16 +00:00
parent eddbcb2c93
commit f396dec5c6
8 changed files with 1230 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1170
packages/numlib/Makefile Normal file
View File

File diff suppressed because it is too large Load Diff

17
packages/numlib/Makefile.fpc Normal file
View File

@ -0,0 +1,17 @@
#
# Makefile.fpc for NumLib
#
[package]
name=numlib
version=1.0.5
[target]
units=typ omv dsl mdt det eig eigh1 eigh2 int inv iom ipf ode roo sle spe spl numlib tpnumlib
[install]
fpcpackage=y
[default]
fpcdir=../..

11
packages/numlib/det.pas
View File

@ -44,10 +44,11 @@ procedure detgpb(n, l: ArbInt; var a, f: ArbFloat; var k, term:ArbInt);
{determinant of a tridiagonal matrix}
procedure detgtr(n: ArbInt; var l, d, u, f: ArbFloat; var k, term:ArbInt);
{ moved to the TYP unit because of a bug in FPC 1.0.x FK
var og : ArbFloat absolute ogx;
bg : ArbFloat absolute bgx;
MaxExp : ArbInt absolute maxexpx;
}
implementation
@ -402,7 +403,11 @@ end; {detgtr}
end.
{
$Log$
Revision 1.1 2000-07-13 06:34:14 michael
Revision 1.2 2002-01-16 14:47:16 florian
+ Makefile.fpc added
* several small changes to get things running with FPC 1.0.x
Revision 1.1 2000/07/13 06:34:14 michael
+ Initial import
Revision 1.2 2000/01/25 20:21:41 marco
@ -410,6 +415,4 @@ end.
Revision 1.1 2000/01/24 22:08:57 marco
* initial version
}

7
packages/numlib/direct.inc
View File

@ -1,5 +1,2 @@
$Log$
Revision 1.2 2000-07-13 11:33:27 michael
+ removed logs
}

8
packages/numlib/mdt.pas
View File

@ -952,7 +952,11 @@ End.
{
$Log$
Revision 1.1 2000-07-13 06:34:15 michael
Revision 1.2 2002-01-16 14:47:16 florian
+ Makefile.fpc added
* several small changes to get things running with FPC 1.0.x
Revision 1.1 2000/07/13 06:34:15 michael
+ Initial import
Revision 1.2 2000/01/25 20:21:42 marco
@ -960,6 +964,4 @@ End.
Revision 1.1 2000/01/24 22:08:58 marco
* initial version
}

11
packages/numlib/numlib.pas
View File

@ -301,12 +301,15 @@ BEGIN
CheckVersion:=dllVersion=Numlib_dll_version;
END;
end.
{
$Log$
Revision 1.1 2000-07-13 06:34:15 michael
Revision 1.2 2002-01-16 14:47:16 florian
+ Makefile.fpc added
* several small changes to get things running with FPC 1.0.x
Revision 1.1 2000/07/13 06:34:15 michael
+ Initial import
Revision 1.2 2000/01/25 20:21:42 marco
@ -314,6 +317,4 @@ end.
Revision 1.1 2000/01/24 22:08:58 marco
* initial version
}

6
packages/numlib/tpnumlib.pas
View File

@ -22,11 +22,9 @@
library tpnumlib;
uses TYP, DET, DSL, EIG, INT, INV, IOM, MDT, ODE, OMV, ROO, SLE, SPE, SPL,IPF;
uses DET, TYP, DSL, EIG, INT, INV, IOM, MDT, ODE, OMV, ROO, SLE, SPE, SPL,IPF;
exports
detgen index 1,
detgsy index 2,
detgpd index 3,
@ -166,7 +164,5 @@ exports
spline index 124,
splineparameters index 125;
begin
end.

40
packages/numlib/typ.pas
View File

@ -52,11 +52,11 @@ CONST numlib_version=2; {used to detect version conflicts between
+/- highestelement*SIZEOF(arbfloat) is
minimal size of matrix.}
type {Definition of base types}
{$IFDEF ArbExtended}
{$IFDEF ArbExtended}
ArbFloat = extended;
{$ELSE}
{$ELSE}
ArbFloat = double;
{$ENDIF}
{$ENDIF}
ArbInt = LONGINT;
Float8Arb =ARRAY[0..7] OF BYTE;
@ -113,15 +113,19 @@ const { og = 8^-maxexp, og
midget and giant are defined in typ.pas}
{$IFDEF ArbExtended}
ogx: Float10Arb = (51,158,223,249,51,243,4,181,224,31);
bgx: Float10Arb = (108,119,117,92,70,38,155,234,254,95);
maxexpx : ArbInt = 2740;
ogx: Float10Arb = (51,158,223,249,51,243,4,181,224,31);
bgx: Float10Arb = (108,119,117,92,70,38,155,234,254,95);
maxexpx : ArbInt = 2740;
{$ELSE}
ogx: Float8Arb= (84, 254, 32, 128, 32, 0, 0, 32);
bgx: Float8Arb= (149, 255, 255, 255, 255, 255, 239, 95);
maxexpx : ArbInt = 170;
ogx: Float8Arb= (84, 254, 32, 128, 32, 0, 0, 32);
bgx: Float8Arb= (149, 255, 255, 255, 255, 255, 239, 95);
maxexpx : ArbInt = 170;
{$ENDIF}
var
og : ArbFloat absolute ogx;
bg : ArbFloat absolute bgx;
MaxExp : ArbInt absolute maxexpx;
{Like standard EXP(), but for very small values (near lowest possible
@ -129,10 +133,10 @@ const { og = 8^-maxexp, og
Function exp(x: ArbFloat): ArbFloat;
type
Complex = object {Crude complex record. For me an example of
useless OOP, specially if you have operator overloading}
Complex = object
{ Crude complex record. For me an example of
useless OOP, specially if you have operator overloading
}
xreal, imag : ArbFloat;
procedure Init (r, i: ArbFloat);
procedure Add (c: complex);
@ -556,11 +560,13 @@ END;
END.
{
$Log$
Revision 1.1 2000-07-13 06:34:16 michael
Revision 1.2 2002-01-16 14:47:16 florian
+ Makefile.fpc added
* several small changes to get things running with FPC 1.0.x
Revision 1.1 2000/07/13 06:34:16 michael
+ Initial import
Revision 1.2 2000/01/25 20:21:41 marco
@ -568,6 +574,4 @@ END.
Revision 1.1 2000/01/24 22:08:58 marco
* initial version
}