1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
PROCEDURE svbksb(u: glmpbynp; w: glnparray; v: glnpbynp;
m,n,mp,np: integer; b: glmparray; VAR x: glnparray);
{
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}
(* Programs using SVBKSB must define the types
TYPE
glnparray = ARRAY [1..np] OF real;
glmparray = ARRAY [1..mp] OF real;
glnpbynp = ARRAY [1..np,1..np] OF real;
glmpbynp = ARRAY [1..mp,1..np] OF real;
|
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
PROCEDURE svbksb(u: glmpbynp; w: glnparray; v: glnpbynp;
m,n,mp,np: integer; b: glmparray; VAR x: glnparray);
{
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% % Revision 1.1 1998/08/12 11:09:02 peterg
% % Initial revision
% %
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}
(* Programs using SVBKSB must define the types
TYPE
glnparray = ARRAY [1..np] OF real;
glmparray = ARRAY [1..mp] OF real;
glnpbynp = ARRAY [1..np,1..np] OF real;
glmpbynp = ARRAY [1..mp,1..np] OF real;
|