1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
PROCEDURE ludcmp(VAR a: glnpbynp; n,np: integer;
VAR indx: glindx; VAR d: real);
(* Programs using LUDCMP must define the types
{
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
}
TYPE
glnpbynp = ARRAY [1..np,1..np] OF real;
glnarray = ARRAY [1..n] OF real;
glindx = ARRAY [1..n] OF integer;
in the main routine. *)
CONST
|
|
|
|
>
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
PROCEDURE mtt_ludcmp(VAR a: StateMatrix; n: integer;
VAR indx: StateVector; VAR d: real);
{ 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.1 1998/08/14 07:58:13 peterg
## Initial revision
##
###############################################################
}
(* Programs using LUDCMP must define the types
TYPE
glnpbynp = ARRAY [1..np,1..np] OF real;
glnarray = ARRAY [1..n] OF real;
glindx = ARRAY [1..n] OF integer;
in the main routine. *)
CONST
|