Overview
| Comment: | Taken from NR share library nrpas13 as SVDCMP.PAS and renamed svdcmp.p |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1d4b2f5f80b22be940fd50fb9268bfba |
| User & Date: | gawthrop@users.sourceforge.net on 1998-08-12 11:05:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-08-12
| ||
| 11:08:03 |
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 check-in: 75f2ff6e3e user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 11:05:33 |
Taken from NR share library nrpas13 as SVDCMP.PAS and renamed svdcmp.p check-in: 1d4b2f5f80 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 11:03:57 | Initial revision check-in: a1498ac23b user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/p/svdcmp.p from [29d5424a40] to [98c452acd4].
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;
|
| ︙ |