Differences From Artifact [29d5424a40]:
- Executable file mttroot/mtt/bin/trans/p/svdcmp.p — part of check-in [a1498ac23b] at 1998-08-12 11:03:57 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 7159) [annotate] [blame] [check-ins using]
To Artifact [98c452acd4]:
- Executable file
mttroot/mtt/bin/trans/p/svdcmp.p
— part of check-in
[1d4b2f5f80]
at
1998-08-12 11:05:33
on branch origin/master
— Taken from NR share library nrpas13 as SVDCMP.PAS
and renamed svdcmp.p (user: gawthrop@users.sourceforge.net, size: 7231) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | + + + + |
PROCEDURE svdcmp(VAR a: glmpbynp; m,n,mp,np: integer;
VAR w: glnparray; VAR v: glnpbynp);
{
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% % Revision 1.1 1998/08/12 11:03:57 peterg
% % Initial revision
% %
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}
(* Programs using routine SVDCMP must define the types
TYPE
glnparray = ARRAY [1..np] OF real;
|
| ︙ |