1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
PROCEDURE svdcmp(VAR a: glmpbynp; m,n: integer;
VAR w: glnparray; VAR v: glnpbynp);
{
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% % Revision 1.3 1998/08/12 11:08:03 peterg
% % Put in pythag routine to compute z = sqrt(y^2 + z^2) (as in book)
% % Save loop index l as ll when jumping from loop - using l itself is
% % undefined
% %
% % Revision 1.2 1998/08/12 11:05:33 peterg
% % Taken from NR share library nrpas13 as SVDCMP.PAS
|
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
PROCEDURE svdcmp(VAR a: glmpbynp; m,n: integer;
VAR w: glnparray; VAR v: glnpbynp);
{ This file is derived from the NUMERICAL RECIPES PASCAL SHAREWARE DISKETTE.
Please read the README file in $MTTPATH/trans/p
}
{
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% % Revision 1.4 1998/08/12 11:26:39 peterg
% % Zapped unnecessary np and mp arguments
% %
% % Revision 1.3 1998/08/12 11:08:03 peterg
% % Put in pythag routine to compute z = sqrt(y^2 + z^2) (as in book)
% % Save loop index l as ll when jumping from loop - using l itself is
% % undefined
% %
% % Revision 1.2 1998/08/12 11:05:33 peterg
% % Taken from NR share library nrpas13 as SVDCMP.PAS
|