procedure SPLIE2(X1A, X2A:array of real; YA:matrx2;
                             M, N:integer;var Y2A:matrx2);
var
   YTMP, Y2TMP:array[0..100] of real;
   J,K:integer;
begin
    For J:= 1 To M do
    begin
        For K:= 1 To N do
            YTMP[K]:= YA[J, K];
        SPLINE(X2A, YTMP, N, 1E+30, 1E+30, Y2TMP);
        For K:= 1 To N do
            Y2A[J, K]:= Y2TMP[K];
    end;
end;