unit Stdblock;

interface

uses WinTypes, WinProcs,gltype,glproc,MathObj,Math,srcs;

procedure AllInit(var at,adt,atfinal:PRealType;Dirs : PDirRec);export;
procedure AllDone;export;

{********************************************************************************************************}

                               IMPLEMENTATION

{********************************************************************************************************}
procedure AllInit;
begin
  ptime:=@at;
  pdtime:=@adt;
  ptimefinal:=@atfinal;
  p_DirRec:=Dirs;
  mant10_max := log10(1.0e300);
  mante_max := ln(ymax);
end;

procedure AllDone;
begin
  if MBTY_BUF_SIZE > 0 then FreeMem(MBTY_BUF,MBTY_BUF_SIZE)
end;
end.