unit Unit2;
interface
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);
implementation
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);
label 10;
var
unit Unit2;
interface
Procedure SORT(N:integer; var RA:array of real);
implementation
Procedure SORT(N:integer; var RA:array of real);
Label 99;
var
I,J,L,IR:integer;
RR,RRA:real;
unit Unit2;
interface
Procedure FPOLY(X:real; var P:array of real; NP:integer);
implementation
Procedure FPOLY(X:real; var P:array of real; NP:integer);
var
J:integer;
begin
P[1]:=1;
unit Unit2;
interface
Procedure FGAUSS(X:real; A:array of real;
var Y:real;var DYDA:array of real; NA:integer);
implementation
Procedure FGAUSS(X:real; A:array of real;
