(FILECREATED "23-Jun-86 14:25:04" ("compiled on " {QV}LISP>MATRIXOPS.;14) "12-Nov-85 14:59:23" recompiled changes: CHOLESKYFACTOR LSOLV LUFACTOR LUINVERSE LUSOLV QRFACTOR QROLS QRQTY QRQY RSOLV SVDFACTOR in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "23-Jun-86 14:22:28" {QV}LISP>MATRIXOPS.;14 42671 changes to: (FNS CHOLESKYFACTOR LSOLV LUFACTOR LUINVERSE LUSOLV QRFACTOR QROLS QRQTY QRQY RSOLV SVDFACTOR) previous date: "17-Jun-86 18:26:14" {QV}LISP>MATRIXOPS.;13) CHOLESKYFACTOR D1 (P 6 J P 4 TEMP P 3 WORK P 2 K P 0 P I 1 FACTORMATRIX I 0 MATRIX) @`@ go@ @j @ lH@k o@ A@ gg b,`A goA A @ oA @jkAjk HkjHgg JI$A JdAk doo K JA JdAk d A JdAk K JdJdHkHkJkNMA NJAk A NJAk dK JdK NA NJAk dA NJAk d \KJkkANHJkHNJ Nk^lJkZA(653Q BLAS.AXPY 625Q FMINUS 605Q ARRAY-DIMENSION 576Q ARRAYBASE 554Q ARRAY-DIMENSION 545Q ARRAYBASE 536Q ARRAYBASE 513Q ARRAYBASE 474Q ARRAY-DIMENSION 465Q ARRAYBASE 455Q ARRAY-DIMENSION 446Q ARRAYBASE 372Q ARRAYBASE 362Q ARRAY-DIMENSION 353Q ARRAYBASE 342Q SQRT 322Q ARRAY-DIMENSION 313Q ARRAYBASE 304Q ARRAYBASE 277Q HELP 245Q ARRAY-DIMENSION 236Q ARRAYBASE 220Q MAKE-ARRAY 202Q BLAS.ARRAYBLT 167Q HELP 155Q ARRAY-DIMENSIONS 151Q ARRAY-DIMENSIONS 144Q HELP 127Q ARRAY-ELEMENT-TYPE 111Q MAKE-ARRAY 100Q ARRAY-DIMENSIONS 70Q HELP 56Q ARRAY-DIMENSION 44Q ARRAY-RANK 35Q ARRAY-DIMENSION 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (215Q FLOAT 212Q :ELEMENT-TYPE 132Q SINGLE-FLOAT 121Q ARRAYTYPE# 106Q FLOAT 103Q :ELEMENT-TYPE 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 274Q "Zero pivot element" 266Q 0.0 163Q "Illegal FACTORMATRIX" 140Q "Must be an array of FLOATP's" 64Q "Matrix not sqaure" 23Q "Must be an array of FLOATP's") MTRANSPOSE D1 (P 11Q DESTBASE P 10Q SOURCEBASE P 7 J P 5 DESTBASE P 4 SOURCEBASE P 3 I P 1 N P 0 M I 1 DESTMATRIX I 0 SOURCEMATRIX) @`@ go@ @j @k AIHhgg b-`A goA A IHhoA IdH-Hkj@ A KJLIKkMKHI Kk[Akj@ A  ONOOIOOHkH Ok_(274Q \FLOATARRAYBLT 242Q ARRAYBASE 236Q ARRAYBASE 216Q \FLOATARRAYBLT 171Q ARRAYBASE 165Q ARRAYBASE 145Q HELP 126Q ARRAY-DIMENSIONS 121Q HELP 104Q ARRAY-ELEMENT-TYPE 66Q MAKE-ARRAY 42Q ARRAY-DIMENSION 35Q ARRAY-DIMENSION 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (107Q SINGLE-FLOAT 76Q ARRAYTYPE# 63Q FLOAT 60Q :ELEMENT-TYPE 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 141Q "DESTMATRIX of incorrect size" 115Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") MINVERT D1 (P 0 PIVOTVECTOR I 1 SOLUTION I 0 MATRIX) @j @H HA (24Q LUINVERSE 17Q LUFACTOR 7 MAKE-ARRAY 4 ARRAY-DIMENSION) NIL () LSOLV D1 (P 5 J P 3 I P 1 N P 0 M I 2 BVECTOR I 1 CVECTOR I 0 LMATRIX) z@`@ go@ A`A goA @j @k IHoI A IoI BIgg b)`B goB B IoI IkjKJho AjkBjkI B B d@ @k dIkkMLB Mkd @MkMIIBMkIM B MB Md@ Md@k dMk]@ Kd@k dK=i9Kk[)B(526Q ARRAY-DIMENSION 517Q ARRAYBASE 465Q ARRAY-DIMENSION 456Q ARRAYBASE 440Q ARRAYBASE 431Q ARRAYBASE 424Q BLAS.AXPY 401Q FMINUS 360Q ARRAYBASE 322Q ARRAY-DIMENSION 315Q ARRAYBASE 302Q ARRAYBASE 276Q ARRAYBASE 272Q BLAS.ARRAYBLT 256Q HELP 223Q HELP 210Q ARRAY-TOTAL-SIZE 203Q HELP 166Q ARRAY-ELEMENT-TYPE 150Q MAKE-ARRAY 132Q HELP 117Q ARRAY-TOTAL-SIZE 112Q HELP 73Q ARRAY-DIMENSION 66Q ARRAY-DIMENSION 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (171Q SINGLE-FLOAT 160Q ARRAYTYPE# 145Q FLOAT 142Q :ELEMENT-TYPE 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 253Q "LMATRIX has a zero diagonal element" 217Q "BVECTOR not of size" 177Q "Must be an array of FLOATP's" 126Q "CVECTOR not of size" 106Q "Order of system less than" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") LUFACTOR D1 (P 13Q KPLUS1 P 12Q J P 10Q OBJECT P 7 TEMP P 6 PIVOTINDEX P 5 K P 0 N I 2 FACTORMATRIX I 1 PIVOTVECTOR I 0 MATRIX)  @`@ go@ A`A ioA @j 1@ lH@k o@ A kHA oA BHdhgg b,`B goB B @ oB @jkBjk Hlj"MLBMHMHdM MؾjA A M.A A MAO`OoO YIAg AA A A A MNB MNBk do 1NM[B MNBk d_B MNBk B MdBk dB MdBk OoB MdBk d BMHMkHdMk HkMkMk OOB ONBk d_NMCB ONBk B OMBk dB OMBk OOBMHOHBOHOHdO Ok_uMk]:A A HkػjK&KAO`OoO ZJAg AA A KHkB(1301Q ERROR 1257Q ERROR 1162Q BLAS.AXPY 1114Q ARRAY-DIMENSION 1104Q ARRAYBASE 1062Q ARRAY-DIMENSION 1052Q ARRAYBASE 1042Q ARRAY-DIMENSION 1032Q ARRAYBASE 1001Q ARRAY-DIMENSION 771Q ARRAYBASE 737Q BLAS.SCAL 715Q FMINUS 674Q ARRAY-DIMENSION 665Q ARRAYBASE 642Q ARRAY-DIMENSION 633Q ARRAYBASE 611Q ARRAY-DIMENSION 602Q ARRAYBASE 572Q ARRAY-DIMENSION 563Q ARRAYBASE 537Q ARRAY-DIMENSION 530Q ARRAYBASE 513Q FEQP 467Q ARRAY-DIMENSION 460Q ARRAYBASE 421Q ERROR 377Q ERROR 316Q BLAS.MAX 262Q BLAS.ARRAYBLT 247Q HELP 235Q ARRAY-DIMENSIONS 231Q ARRAY-DIMENSIONS 224Q HELP 207Q ARRAY-ELEMENT-TYPE 171Q MAKE-ARRAY 147Q HELP 135Q ARRAY-TOTAL-SIZE 125Q ARRAY-RANK 120Q HELP 106Q ARRAY-DIMENSION 73Q ARRAY-RANK 64Q ARRAY-DIMENSION 56Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (1276Q PASET 1241Q ARRAYTYPE# 416Q PASET 361Q ARRAYTYPE# 212Q SINGLE-FLOAT 201Q ARRAYTYPE# 166Q FLOAT 163Q :ELEMENT-TYPE 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 1252Q "Not an array" 661Q 1.0 510Q 0.0 372Q "Not an array" 243Q "Illegal FACTORMATRIX" 220Q "Must be an array of FLOATP's" 143Q "PIVOTVECTOR not of size N" 114Q "MATRIX not square" 52Q "Must be a pointer array" 23Q "Must be an array of FLOATP's") LUINVERSE D1 (P 15Q OBJECT P 14Q I P 12Q L P 11Q TEMPARRAY P 10Q K P 6 TEMP P 5 J P 3 TEMP P 2 K P 0 N I 2 SOLUTION I 1 PIVOTVECTOR I 0 LUMATRIX) c@`@ go@ A`A ioA @j @ lH@k o@ A kHA oA BHdhgg b4`B goB B l@ B oB @jkBjk HkjJIB JdBk n?jB JdBk dB JdBk d [BJHJ HkJkMLCB MJBk dB MJBk hNBJHBMHJk Mk]JkZRjHlHgg  OOHkOk OOCO OB OOBk dB OOBk hOk_HkOkML'O Md^BMHBOHd Mk]A O`OoO A A O_OBOHBOHd Om_*B(1123Q BLAS.SWAP 1057Q ERROR 1017Q BLAS.AXPY 766Q ARRAYBASE 721Q ARRAY-DIMENSION 710Q ARRAYBASE 666Q ARRAY-DIMENSION 655Q ARRAYBASE 645Q ARRAYBASE 603Q MAKE-ARRAY 544Q BLAS.AXPY 516Q ARRAY-DIMENSION 507Q ARRAYBASE 465Q ARRAY-DIMENSION 456Q ARRAYBASE 433Q BLAS.SCAL 422Q FMINUS 402Q ARRAY-DIMENSION 373Q ARRAYBASE 347Q ARRAY-DIMENSION 340Q ARRAYBASE 323Q ARRAY-DIMENSION 314Q ARRAYBASE 272Q BLAS.ARRAYBLT 257Q HELP 245Q ARRAY-DIMENSIONS 241Q ARRAY-DIMENSIONS 231Q ARRAY-RANK 224Q HELP 207Q ARRAY-ELEMENT-TYPE 171Q MAKE-ARRAY 147Q HELP 135Q ARRAY-TOTAL-SIZE 125Q ARRAY-RANK 120Q HELP 106Q ARRAY-DIMENSION 73Q ARRAY-RANK 64Q ARRAY-DIMENSION 56Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (1041Q ARRAYTYPE# 600Q FLOAT 575Q :ELEMENT-TYPE 212Q SINGLE-FLOAT 201Q ARRAYTYPE# 166Q FLOAT 163Q :ELEMENT-TYPE 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 1052Q "Not an array" 253Q "SOLUTION not an N x N array" 220Q "Must be an array of FLOATP's" 143Q "PIVOTVECTOR not a vector of size N" 114Q "MATRIX not square" 52Q "Must be an array of pointers" 23Q "Must be an array of FLOATP's") LUSOLV D1 (P 10Q TEMP P 7 K P 5 OBJECT P 4 TEMP P 3 PIVOTINDEX P 2 K P 0 N I 3 SOLUTION I 2 CVECTOR I 1 PIVOTVECTOR I 0 LUMATRIX)  @`@ go@ A`A ioA B`B goB @j @ lH@k o@ A kHA oA B kHB oB CHgg b0`C goC C kHC oC BjkCjkH Hlj"JIAM`MoM A A JC KdKJ'C KC JdC JLL@JHJkHCJkkHJk JkZ|jHkNO`C OC Od@ Od@k d OOOO _@OHCjkO Om_C(724Q BLAS.AXPY 705Q FMINUS 643Q ARRAY-DIMENSION 633Q ARRAYBASE 614Q ARRAYBASE 605Q ARRAYBASE 553Q BLAS.AXPY 512Q ARRAYBASE 471Q ARRAYBASE 462Q ARRAYBASE 434Q ARRAYBASE 407Q ERROR 343Q BLAS.ARRAYBLT 327Q HELP 315Q ARRAY-TOTAL-SIZE 305Q ARRAY-RANK 300Q HELP 263Q ARRAY-ELEMENT-TYPE 245Q MAKE-ARRAY 227Q HELP 215Q ARRAY-TOTAL-SIZE 205Q ARRAY-RANK 200Q HELP 166Q ARRAY-TOTAL-SIZE 156Q ARRAY-RANK 151Q HELP 137Q ARRAY-DIMENSION 124Q ARRAY-RANK 115Q ARRAY-DIMENSION 107Q HELP 72Q ARRAY-ELEMENT-TYPE 56Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (373Q ARRAYTYPE# 266Q SINGLE-FLOAT 255Q ARRAYTYPE# 242Q FLOAT 237Q :ELEMENT-TYPE 75Q SINGLE-FLOAT 64Q ARRAYTYPE# 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 403Q "Not an array" 323Q "SOLUTION not avector of size N" 274Q "Must be an array of FLOATP's" 223Q "CVECTOR not a vector of size N" 174Q "PIVOTVECTOR not a vector of size N" 145Q "MATRIX not square" 103Q "Must be an array of FLOATP's" 52Q "Must be an array of pointers" 23Q "Must be an array of FLOATP's") MTIMES D1 (P 6 P P 5 N P 4 M P 3 BDIMS P 2 RANKB P 1 ADIMS P 0 RANKA I 2 PRODUCT I 1 B I 0 A)  @`@ go@ A`A goA @ @ A A 1HkkIHkIIJkkKHkHlo@ JkJloA KMo LkONkJMkdj@ A h OO,OOOdOOd_Ol_OBId K gg bV`B goB B LkNkkl#LkNBjNkLBjLBj NBk oB Lkj@ A B OONkjNOdO$O"qMkjhMOdO$dO*O(=O,OO.dOO0d_,O*k_*O.l_.O0Nd_0O O&O,O$k_$O&l_&Ok_oB(557Q ARRAYBASE 553Q ARRAYBASE 547Q ARRAYBASE 536Q HELP 524Q ARRAY-DIMENSION 514Q ARRAY-DIMENSION 446Q ARRAY-RANK 441Q HELP 424Q ARRAY-ELEMENT-TYPE 406Q MAKE-ARRAY 375Q \APPEND2 370Q LDIFF 365Q LAST 263Q ARRAYBASE 257Q ARRAYBASE 232Q HELP 215Q HELP 173Q HELP 112Q ARRAY-DIMENSIONS 103Q ARRAY-RANK 74Q ARRAY-DIMENSIONS 65Q ARRAY-RANK 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (427Q SINGLE-FLOAT 416Q ARRAYTYPE# 403Q SINGLE-FLOAT 400Q :ELEMENT-TYPE 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 532Q "Product of incorrect size" 435Q "Must be an array of FLOATP's" 227Q "Args not conformable" 211Q "B not a one-d or two-d array" 167Q "A not a one-d or two-d array" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") QRFACTOR D1 (P 11Q TEMP P 10Q J P 6 NRMXL P 5 L P 3 I P 1 P P 0 N I 2 FACTORMATRIX I 1 QRAUX I 0 MATRIX)  @`@ go@ A`A goA @j @k A kIA oA B@ gg b,`B goB B @ oB @jkBjk IkjKJA KhKk[HdIIkjMdLBHkBMIMIHM ^ooB MdBk dN oNBMIMIHM B MdBk n?jB MdBk dIkMk OOUBMIMIBOIMIHM B MdBk d _BMIMIBOIMIHM Ok_A MB MdBk dB MdBk N Mk](755Q FMINUS 745Q ARRAY-DIMENSION 736Q ARRAYBASE 714Q ARRAY-DIMENSION 705Q ARRAYBASE 676Q ARRAYBASE 660Q BLAS.AXPY 630Q FMINUS 607Q ARRAY-DIMENSION 600Q ARRAYBASE 574Q BLAS.DOTPROD 506Q ARRAY-DIMENSION 477Q ARRAYBASE 462Q ARRAY-DIMENSION 453Q ARRAYBASE 446Q BLAS.SCAL 421Q FMINUS 376Q ARRAY-DIMENSION 367Q ARRAYBASE 345Q BLAS.NRM2 256Q ARRAYBASE 236Q BLAS.ARRAYBLT 223Q HELP 211Q ARRAY-DIMENSIONS 205Q ARRAY-DIMENSIONS 200Q HELP 163Q ARRAY-ELEMENT-TYPE 145Q MAKE-ARRAY 134Q ARRAY-DIMENSIONS 124Q HELP 112Q ARRAY-TOTAL-SIZE 102Q ARRAY-RANK 73Q ARRAY-DIMENSION 66Q ARRAY-DIMENSION 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (166Q SINGLE-FLOAT 155Q ARRAYTYPE# 142Q FLOAT 137Q :ELEMENT-TYPE 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 426Q 1.0 363Q 0.0 352Q 0.0 217Q "Illegal FACTORMATRIX" 174Q "Must be an array of FLOATP's" 120Q "QRAUX not of size P" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") QROLS D1 (P 6 TEMP P 5 J P 1 P P 0 N I 6 YHAT I 5 RSD I 4 B I 3 QTY I 2 Y I 1 QRAUX I 0 QRMATRIX) @`@ go@ A`A goA B`B goB @j @k "A kIA oA B kHB oB CHgg b)`C goC HC oC DIgg b)`D goD ID oD EF@ABC CjkDjkI jIkLMEiHICIkEIk oEjkI jIHkٺdJJkLMF1CjkFjkI oFIk jIHkٻdKKkLMD`F goF HF ToF H`E goE HE oE @ Md@k dho@ D MD Md@ Md@k dMdj#D Md @MIDjkM MmԽA Mdh@ Md@k d@ Md@k A Md@MIMIEMkHM @ Md@k d @MIMIEMkHM @ Md@k NMmԽ@A Mdh@ Md@k d@ Md@k A Md@MIMIFMkHM @ Md@k d @MIMIFMkHM @ Md@k NMmԽ(1661Q ARRAY-DIMENSION 1652Q ARRAYBASE 1645Q BLAS.AXPY 1624Q FMINUS 1603Q ARRAY-DIMENSION 1574Q ARRAYBASE 1570Q BLAS.DOTPROD 1532Q ARRAYBASE 1522Q ARRAY-DIMENSION 1513Q ARRAYBASE 1471Q ARRAY-DIMENSION 1462Q ARRAYBASE 1435Q ARRAYBASE 1407Q ARRAY-DIMENSION 1400Q ARRAYBASE 1373Q BLAS.AXPY 1352Q FMINUS 1331Q ARRAY-DIMENSION 1322Q ARRAYBASE 1316Q BLAS.DOTPROD 1260Q ARRAYBASE 1250Q ARRAY-DIMENSION 1241Q ARRAYBASE 1217Q ARRAY-DIMENSION 1210Q ARRAYBASE 1163Q ARRAYBASE 1146Q BLAS.AXPY 1133Q FMINUS 1114Q ARRAYBASE 1061Q ARRAY-DIMENSION 1052Q ARRAYBASE 1034Q ARRAYBASE 1025Q ARRAYBASE 1020Q HELP 771Q ARRAY-DIMENSION 762Q ARRAYBASE 752Q HELP 735Q ARRAY-TOTAL-SIZE 727Q HELP 712Q ARRAY-ELEMENT-TYPE 674Q HELP 657Q ARRAY-TOTAL-SIZE 651Q HELP 634Q ARRAY-ELEMENT-TYPE 567Q BLAS.ARRAYFILL 554Q BLAS.ARRAYBLT 504Q BLAS.ARRAYFILL 467Q BLAS.ARRAYBLT 427Q BLAS.ARRAYBLT 414Q QRQTY 366Q HELP 354Q ARRAY-TOTAL-SIZE 346Q HELP 331Q ARRAY-ELEMENT-TYPE 313Q MAKE-ARRAY 275Q HELP 263Q ARRAY-TOTAL-SIZE 255Q HELP 240Q ARRAY-ELEMENT-TYPE 222Q MAKE-ARRAY 204Q HELP 172Q ARRAY-TOTAL-SIZE 162Q ARRAY-RANK 155Q HELP 143Q ARRAY-TOTAL-SIZE 133Q ARRAY-RANK 124Q ARRAY-DIMENSION 117Q ARRAY-DIMENSION 111Q HELP 74Q ARRAY-ELEMENT-TYPE 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (715Q SINGLE-FLOAT 704Q ARRAYTYPE# 637Q SINGLE-FLOAT 626Q ARRAYTYPE# 334Q SINGLE-FLOAT 323Q ARRAYTYPE# 310Q FLOAT 305Q :ELEMENT-TYPE 243Q SINGLE-FLOAT 232Q ARRAYTYPE# 217Q FLOAT 214Q :ELEMENT-TYPE 77Q SINGLE-FLOAT 66Q ARRAYTYPE# 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 1014Q "Singular Matrix" 746Q "RSD not of size N" 723Q "Must be an array of FLOATP's" 670Q "XB not of size N" 645Q "Must be an array of FLOATP's" 561Q 0.0 474Q 0.0 362Q "B not of size P" 342Q "Must be an array of FLOATP's" 271Q "QTY not of size N" 251Q "Must be an array of FLOATP's" 200Q "Y not of size N" 151Q "QRAUX not of size P" 105Q "Must be an array of FLOATP's" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") QRQTY D1 (P 5 TEMP P 4 J P 1 P P 0 N I 3 PRODUCT I 2 Y I 1 QRAUX I 0 QRMATRIX) @`@ go@ A`A goA B`B goB @j @k A kIA oA B kHB oB CHgg b)`C goC HC oC BjkCjkH IHkٺdJJjLKA Ldh@ Ld@k d@ Ld@k A Ld@LILICLkHL @ Ld@k d @LILICLkHL @ Ld@k MLk\TC(567Q ARRAY-DIMENSION 560Q ARRAYBASE 553Q BLAS.AXPY 532Q FMINUS 511Q ARRAY-DIMENSION 502Q ARRAYBASE 476Q BLAS.DOTPROD 440Q ARRAYBASE 430Q ARRAY-DIMENSION 421Q ARRAYBASE 377Q ARRAY-DIMENSION 370Q ARRAYBASE 343Q ARRAYBASE 311Q BLAS.ARRAYBLT 275Q HELP 263Q ARRAY-TOTAL-SIZE 255Q HELP 240Q ARRAY-ELEMENT-TYPE 222Q MAKE-ARRAY 204Q HELP 172Q ARRAY-TOTAL-SIZE 162Q ARRAY-RANK 155Q HELP 143Q ARRAY-TOTAL-SIZE 133Q ARRAY-RANK 124Q ARRAY-DIMENSION 117Q ARRAY-DIMENSION 111Q HELP 74Q ARRAY-ELEMENT-TYPE 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (243Q SINGLE-FLOAT 232Q ARRAYTYPE# 217Q FLOAT 214Q :ELEMENT-TYPE 77Q SINGLE-FLOAT 66Q ARRAYTYPE# 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 271Q "PRODUCT not of size N" 251Q "Must be an array of FLOATP's" 200Q "Y not of size N" 151Q "QRAUX not of size P" 105Q "Must be an array of FLOATP's" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") QRQY D1 (P 5 TEMP P 4 J P 1 P P 0 N I 3 PRODUCT I 2 Y I 1 QRAUX I 0 QRMATRIX) @`@ go@ A`A goA B`B goB @j @k A kIA oA B kHB oB CHgg b)`C goC HC oC BjkCjkH jIHkٺdJJkKLA Ldh@ Ld@k d@ Ld@k A Ld@LILICLkHL @ Ld@k d @LILICLkHL @ Ld@k MLmԼRC(571Q ARRAY-DIMENSION 562Q ARRAYBASE 555Q BLAS.AXPY 534Q FMINUS 513Q ARRAY-DIMENSION 504Q ARRAYBASE 500Q BLAS.DOTPROD 442Q ARRAYBASE 432Q ARRAY-DIMENSION 423Q ARRAYBASE 401Q ARRAY-DIMENSION 372Q ARRAYBASE 345Q ARRAYBASE 311Q BLAS.ARRAYBLT 275Q HELP 263Q ARRAY-TOTAL-SIZE 255Q HELP 240Q ARRAY-ELEMENT-TYPE 222Q MAKE-ARRAY 204Q HELP 172Q ARRAY-TOTAL-SIZE 162Q ARRAY-RANK 155Q HELP 143Q ARRAY-TOTAL-SIZE 133Q ARRAY-RANK 124Q ARRAY-DIMENSION 117Q ARRAY-DIMENSION 111Q HELP 74Q ARRAY-ELEMENT-TYPE 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (243Q SINGLE-FLOAT 232Q ARRAYTYPE# 217Q FLOAT 214Q :ELEMENT-TYPE 77Q SINGLE-FLOAT 66Q ARRAYTYPE# 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 271Q "PRODUCT not of size N" 251Q "Must be an array of FLOATP's" 200Q "Y not of size N" 151Q "QRAUX not of size P" 105Q "Must be an array of FLOATP's" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") QRSOLV D1 (I 3 SOLUTION I 2 BVECTOR I 1 QRAUX I 0 QRMATRIX) @dABC C (13Q RSOLV 7 QRQTY) NIL () MREGRESS D1 (P 1 QRMATRIX P 0 QRAUX I 4 YHAT I 3 RSD I 2 B I 1 X I 0 Y) &Ak gg AH IH@hBCD (43Q QROLS 25Q QRFACTOR 15Q MAKE-ARRAY 4 ARRAY-DIMENSION) (12Q FLOAT 7 :ELEMENT-TYPE) () RSOLV D1 (P 10Q JLESS1 P 7 J P 6 JJ P 4 INDEXLIMIT P 3 I P 1 N P 0 M I 2 BVECTOR I 1 CVECTOR I 0 RMATRIX)  @`@ go@ A`A goA @j @k IHoI A IoI BIgg b)`B goB B IoI IkjKJho AjkBjkI IkB LB Ld@ Ld@k dLk"NMIN_k_B Od @OIBjkO B OB Od@ Od@k dNk^@ Kd@k dK'i#Kk[B(554Q ARRAY-DIMENSION 545Q ARRAYBASE 513Q ARRAY-DIMENSION 503Q ARRAYBASE 464Q ARRAYBASE 454Q ARRAYBASE 447Q BLAS.AXPY 432Q FMINUS 412Q ARRAYBASE 340Q ARRAY-DIMENSION 331Q ARRAYBASE 313Q ARRAYBASE 304Q ARRAYBASE 272Q BLAS.ARRAYBLT 256Q HELP 223Q HELP 210Q ARRAY-TOTAL-SIZE 203Q HELP 166Q ARRAY-ELEMENT-TYPE 150Q MAKE-ARRAY 132Q HELP 117Q ARRAY-TOTAL-SIZE 112Q HELP 73Q ARRAY-DIMENSION 66Q ARRAY-DIMENSION 60Q HELP 43Q ARRAY-ELEMENT-TYPE 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (171Q SINGLE-FLOAT 160Q ARRAYTYPE# 145Q FLOAT 142Q :ELEMENT-TYPE 46Q SINGLE-FLOAT 35Q ARRAYTYPE# 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 253Q "RMATRIX has a zero diagonal element" 217Q "BVECTOR not of size" 177Q "Must be an array of FLOATP's" 126Q "CVECTOR not of size" 106Q "Order of system less than" 54Q "Must be an array of FLOATP's" 23Q "Must be an array of FLOATP's") MSOLVE D1 (P 0 PIVOTVECTOR I 2 SOLUTION I 1 CVECTOR I 0 MATRIX) @j @H HAB (25Q LUSOLV 17Q LUFACTOR 7 MAKE-ARRAY 4 ARRAY-DIMENSION) NIL () SVDFACTOR D1 (P 25Q Q P 24Q J P 22Q V P 21Q S P 20Q C P 17Q R P 16Q Q P 15Q P P 14Q K P 12Q J P 10Q RCOUNT P 7 SCOUNT P 6 SLIMIT P 5 EPS P 4 NT P 3 I P 1 N P 0 M I 3 VMATRIX I 2 UMATRIX I 1 SVECTOR I 0 XMATRIX) m@`@ go@ Bj Bk @ lo@ AIgg b0`A goA A kIA oA BHIhgg b,`B goB B @ oB CIdhgg b-`C goC C IdhoC @hdB oC IkjKJC KdCk n?jKk[IoIldlljLdkl_Ok_NoO Llj OOeLkOkbOOHBOIBOIH _BOIBOIH _BOIBOIH _A OOA OOOO]OOo_OO_doOd_$ _$oOO$o _"oOoO"_"OO$O"_ lOOMdOOOOMOk_moOO_OO_doOd_$ _$OO$oo _ OO$O _"O O"BOIBOIH O O"COICOId Ok_Ok_lL-A LkdA dMMLkټOj8IkjO(O&IA O(d _*A O(O*O(dLoO*BO(IH O(k_(A(1540Q BLAS.SCAL 1475Q ARRAYBASE 1466Q SQRT 1446Q ARRAYBASE 1366Q ARRAYBASE 1344Q ARRAYBASE 1305Q BLAS.ROT 1263Q BLAS.ROT 1224Q SQRT 1177Q SQRT 1031Q SQRT 1004Q SQRT 715Q ARRAYBASE 676Q ARRAYBASE 667Q BLAS.DOTPROD 647Q BLAS.DOTPROD 627Q BLAS.DOTPROD 545Q HELP 435Q ARRAY-DIMENSION 426Q ARRAYBASE 406Q BLAS.ARRAYFILL 376Q BLAS.ARRAYBLT 366Q HELP 347Q ARRAY-DIMENSIONS 342Q HELP 325Q ARRAY-ELEMENT-TYPE 307Q MAKE-ARRAY 265Q HELP 253Q ARRAY-DIMENSIONS 247Q ARRAY-DIMENSIONS 242Q HELP 225Q ARRAY-ELEMENT-TYPE 207Q MAKE-ARRAY 165Q HELP 153Q ARRAY-TOTAL-SIZE 143Q ARRAY-RANK 136Q HELP 121Q ARRAY-ELEMENT-TYPE 103Q MAKE-ARRAY 65Q HELP 51Q ARRAY-RANK 42Q ARRAY-DIMENSION 35Q ARRAY-DIMENSION 27Q HELP 12Q ARRAY-ELEMENT-TYPE) (330Q SINGLE-FLOAT 317Q ARRAYTYPE# 304Q FLOAT 301Q :ELEMENT-TYPE 230Q SINGLE-FLOAT 217Q ARRAYTYPE# 204Q FLOAT 201Q :ELEMENT-TYPE 124Q SINGLE-FLOAT 113Q ARRAYTYPE# 100Q FLOAT 75Q :ELEMENT-TYPE 15Q SINGLE-FLOAT 4 ARRAYTYPE#) ( 1524Q 1.0 1220Q .5 1213Q 1.0 1163Q 4.0 1136Q 1.0 1050Q 0.0 1040Q 0.0 1025Q .5 1013Q 1.0 770Q 4.0 750Q 1.0 540Q "Number of sweeps exceeds sweep limit." 470Q 1.0E-6 402Q 0.0 362Q "Illegal VMATRIX" 336Q "Must be an array of FLOATP's" 261Q "Illegal UMATRIX" 236Q "Must be an array of FLOATP's" 161Q "Illegal SVECTOR" 132Q "Must be an array of FLOATP's" 61Q "XMATRIX not a matrix" 23Q "Must be an array of FLOATP's") SVDTEST D1 (P 11Q CC P 7 PP P 5 TT P 3 L P 2 VV P 1 SS P 0 UU) | ogg lgg ogg jooML:ooONoo OOMHKj OHKk OHKl MOHKl MOHKl OOHKl OdHKl OdHKl MdHKl MOdHKl MOdHKl OMdHKl OOdHKl OMdHKl OOdHKl MddHKl OddHKl OddHKl MOOHKl KkػOk_Ok_Mk]o (571Q TIMEALL 521Q ASET 502Q ASET 464Q ASET 446Q ASET 431Q ASET 412Q ASET 374Q ASET 355Q ASET 337Q ASET 321Q ASET 303Q ASET 270Q ASET 254Q ASET 240Q ASET 223Q ASET 207Q ASET 173Q ASET 161Q ASET 150Q ASET 44Q MAKE-ARRAY 27Q MAKE-ARRAY 14Q MAKE-ARRAY) (41Q FLOAT 36Q :ELEMENT-TYPE 24Q FLOAT 21Q :ELEMENT-TYPE 11Q FLOAT 6 :ELEMENT-TYPE) ( 566Q (SVDNASH UU SS VV) 125Q 1.0 121Q 4.0 102Q 1.0 76Q 2.0 60Q 1.0 54Q 3.0 33Q (23Q 23Q) 3 (30Q 23Q)) \FLOATAREFMACRO D1 (P 2 INDEXFORM P 1 BINDICES P 0 BARRAY I 0 ARGS) Z@ lo@ @@Ik IgIgIgHohhggHhgJoh(34Q EQLENGTH 17Q HELP 3 LENGTH) (114Q LLSH 105Q ARRAYBASE 102Q \GETBASEFLOATP 57Q ARRAY-DIMENSION 52Q ITIMES 44Q IPLUS) ( 121Q (1) 64Q (1) 13Q "\FLOATAREF takes no more than three args") \FLOATASETMACRO D1 (P 3 INDEXFORM P 2 BINDICES P 1 BARRAY P 0 BNEWVALUE I 0 ARGS) `@ lo@ @@@Jk JgJgJgIohhggIhgKoHh(40Q EQLENGTH 17Q HELP 3 LENGTH) (120Q LLSH 111Q ARRAYBASE 106Q \PUTBASEFLOATP 63Q ARRAY-DIMENSION 56Q ITIMES 50Q IPLUS) ( 125Q (1) 70Q (1) 13Q "\FLOATASET takes no more than four args") (PRETTYCOMPRINT MATRIXOPSCOMS) (RPAQQ MATRIXOPSCOMS ((FNS CHOLESKYFACTOR MTRANSPOSE MINVERT LSOLV LUFACTOR LUINVERSE LUSOLV MTIMES QRFACTOR QROLS QRQTY QRQY QRSOLV MREGRESS RSOLV MSOLVE SVDFACTOR SVDTEST \FLOATAREFMACRO \FLOATASETMACRO) (VARS STACK) (MACROS \FLOATAREF \FLOATASET) (FILES BLAS))) (RPAQQ STACK ((80 27 89) (80 27 88) (75 25 90) (62 24 87) (62 22 87) (62 23 87) (62 24 93) (62 24 93) (58 23 87) (58 18 80) (58 18 89) (58 17 88) (58 18 82) (58 19 93) (50 18 89) (50 18 86) (50 19 72) (50 19 79) (50 20 80) (56 20 82) (70 20 91))) (PUTPROPS \FLOATAREF MACRO (ARGS (* *) (\FLOATAREFMACRO ARGS))) (PUTPROPS \FLOATASET MACRO (ARGS (* *) (\FLOATASETMACRO ARGS))) (FILESLOAD BLAS) (PUTPROPS MATRIXOPS COPYRIGHT ("Xerox Corporation" 1986)) NIL