Index: mttroot/mtt/bin/trans/p/mtt_lubksb.p ================================================================== --- mttroot/mtt/bin/trans/p/mtt_lubksb.p +++ mttroot/mtt/bin/trans/p/mtt_lubksb.p @@ -1,13 +1,20 @@ -PROCEDURE lubksb(a: StateMatrix; n: INTEGER; indx: StateVector; VAR b: StateVector); +PROCEDURE mtt_lubksb(a: StateMatrix; n: INTEGER; indx: StateVector; VAR b: StateVector); + +{ 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/17 12:58:16 peterg +## Initial revision +## ############################################################### } (* Programs using LUBKSB must define the types Index: mttroot/mtt/bin/trans/p/mtt_ludcmp.p ================================================================== --- mttroot/mtt/bin/trans/p/mtt_ludcmp.p +++ mttroot/mtt/bin/trans/p/mtt_ludcmp.p @@ -1,17 +1,25 @@ -PROCEDURE ludcmp(VAR a: glnpbynp; n,np: integer; - VAR indx: glindx; VAR d: real); -(* Programs using LUDCMP must define the types +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. *)