+ Makefile.fpc added

* several small changes to get things running with FPC 1.0.x

packages/numlib/Makefile.fpc

@@ -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=../..
+

packages/numlib/det.pas

@@ -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
-
-
 }

packages/numlib/direct.inc

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

packages/numlib/mdt.pas

@@ -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
-
-
 }

packages/numlib/numlib.pas

@@ -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
-
-
 }

packages/numlib/tpnumlib.pas

@@ -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.

packages/numlib/typ.pas

@@ -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);
+    ogx: Float10Arb = (51,158,223,249,51,243,4,181,224,31);
-     bgx: Float10Arb = (108,119,117,92,70,38,155,234,254,95);
+    bgx: Float10Arb = (108,119,117,92,70,38,155,234,254,95);
-  maxexpx : ArbInt = 2740;
+    maxexpx : ArbInt = 2740;
 {$ELSE}
-     ogx: Float8Arb= (84, 254, 32, 128, 32, 0, 0, 32);
+    ogx: Float8Arb= (84, 254, 32, 128, 32, 0, 0, 32);
-     bgx: Float8Arb= (149, 255, 255, 255, 255, 255, 239, 95);
+    bgx: Float8Arb= (149, 255, 255, 255, 255, 255, 239, 95);
-  maxexpx : ArbInt = 170;
+    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
-     Complex  = object          {Crude complex record. For me an example of
+         useless OOP, specially if you have operator overloading
-                                 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
-
-
 }