unit ftData;

interface
type Tsinglearray=array[0..100000] of single;
PsingleArray=^tSingleArray;
const maxC=40;MaxGrX=639;
  var

  table:array[1..MaxC]of single;
  phases:array[1..MaxC]of single;
  graph:array[0..MaxGrX] of single;
  a,da:single;
implementation

end.
