{
                           F95CALLBD.PAS

                    Lahey Computer Systems, Inc.
                             PO Box 6091
                      Incline Village, NV 89450
                         voice: 702-831-2500
                           fax: 702-831-8123
                     e -mail: support@ lahey.com

           Copyright(c) 1998, Lahey Computer Systems, Inc.
}
library f95callbd;

uses
  SysUtils,
  Classes;

function bd_min( var x, y: LongInt) : LongInt ; stdcall
begin
     if x < y then bd_min := x else bd_min := y;
end;

function bd_max( var x, y: LongInt) : LongInt ; stdcall
begin
     if x > y then bd_max := x else bd_max := y;
end;

{
Note: All names specified here in this export list should also be specified
with the -import switch on the command line to LF95 when you compile your
Fortran main program.
}
exports
       bd_min,
       bd_max;
begin
end.