unit Globals; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils; 
const TOL = 0.0005;

Type IntDyneVec = array of integer;

Type DblDyneVec = array of double;

Type BoolDyneVec = array of boolean;

Type DblDyneMat  = array of array of double;

Type IntDyneMat = array of array of integer;

Type DblDyneCube = array of array of array of double;

Type IntDyneCube = array of array of array of integer;

Type DblDyneQuad = array of array of array of array of double;

Type IntDyneQuad = array of array of array of array of integer;

Type StrDyneVec  = array of string;

Type StrDyneMat = array of array of string;

Type CharDyneVec = array of char;

    type POINT3D = record
         x, y, z : double;
    end;

    type POINTint = record
         x, y : integer;
    end;

var
   NoCases : integer;
   NoVariables : integer;
   VarDefined : array[0..500] of boolean;
   TempStream : TMemoryStream;
   TempVarItm : TMemoryStream;
   DictLoaded : boolean;
   FilterOn : boolean;
   FilterCol : integer;
   OpenStatPath : string;
   AItems : array[0..8] of string;
   LoggedOn : boolean = false;


implementation

end.