Overview
| Comment: | Added notice |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
0a13d834928b56cf03f5139e017800d6 |
| User & Date: | gawthrop@users.sourceforge.net on 1998-08-17 15:54:04.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-08-17
| ||
| 15:55:19 | added notice check-in: 395c649048 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 15:54:04 | Added notice check-in: 0a13d83492 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 15:53:22 | Added notice. check-in: dac04e29db user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/p/svdcmp.p
from [5dcd97c79d]
to [33402da454].
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
|
| ︙ | ︙ |