module fide; % FInite difference method for partial Differential Eqn
% systems.
% Author: Richard Liska.
% Version: 1.1.2 for REDUCE 3.6, May 29, 1995.
%***********************************************************************
%** (C) 1991-1995, Richard Liska **
%** Faculty of Nuclear Science and Physical Engineering **
%** Technical University of Prague **
%** Brehova 7 **
%** 115 19 Prague 1 **
%** Czech Republic **
%** Email: Richard Liska <liska@siduri.fjfi.cvut.cz> **
%** This package can be distributed through REDUCE Network Library. **
%***********************************************************************
% The FIDE package consists of the following modules:
%
% DISCRET rules for discretization.
% EXPRES for transforming PDES into any orthogonal coordinate system.
% IIMET for discretization of PDES by integro-interpolation method.
% APPROX for determining the order of approximation of difference
% scheme
% CHARPOL for calculation of amplification matrix and characteristic
% polynomial of difference scheme, which are needed in Fourier
% stability analysis.
% HURWP for polynomial roots locating necessary in verifying the von
% Neumann stability condition.
% LINBAND for generating the block of FORTRAN code, which solves a
% system of linear algebraic equations with band matrix
% appearing quite often in difference schemes.
%
% Changes since version 1.1:
% Patches in SIMPINTERPOL and SIMPINTT 13/06/91
% Patch in TDIFPAIR 08/07/91
% Two FEXPR routines F2VAL, FPLUS changed to MACROs 17/03/92
% Patches in IIM1, AMPMAT, HURW, CHARPOL for 3.5 01/11/93
% Version 1.1.1 of the FIDE package is the result of porting the FIDE
% package version 1.1.0 to REDUCE 3.5.
% Infix uses of NOT removed (not a memq b -> not(a memq b) ) ACH
% MAP* functions replaced by FOR EACH syntax 16/03/94
% Version 1.1.2 of the FIDE package is the result of porting the FIDE
% package version 1.1.1 to REDUCE 3.6.
create!-package('(fide discret approx charpol hurwp linband),
'(contrib fide));
load!-package 'matrix;
load!-package 'fide1; % We need this loaded.
endmodule;
end;