f2cl results collected by cl-test-grid

Results on the last two Quicklisp distributions

 quicklisp 2014-09-14quicklisp 2014-08-26
abcl-1.2.0-fasl42-linux-x86
(LOAD toms717 FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD toms419 FAIL) COMMON-LISP:SIMPLE-TYPE-ERROR : 0 cannot be converted to type (DOUBLE-FLOAT).
(LOAD lapack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD fishpack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
abcl-1.2.1-fasl42-linux-x86
(LOAD toms717 FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD toms419 FAIL) COMMON-LISP:SIMPLE-TYPE-ERROR : 0 cannot be converted to type (DOUBLE-FLOAT).
(LOAD lapack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD fishpack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
abcl-1.2.1-fasl42-macosx-x64
(LOAD toms717 FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD toms419 FAIL) COMMON-LISP:SIMPLE-TYPE-ERROR : 0 cannot be converted to type (DOUBLE-FLOAT).
(LOAD lapack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD fishpack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
abcl-1.3.0-fasl42-linux-x86
(LOAD toms717 FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD toms419 FAIL) COMMON-LISP:SIMPLE-TYPE-ERROR : 0 cannot be converted to type (DOUBLE-FLOAT).
(LOAD lapack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD fishpack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
abcl-1.3.1-fasl42-linux-x86
(LOAD toms717 FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD toms419 FAIL) COMMON-LISP:SIMPLE-TYPE-ERROR : 0 cannot be converted to type (DOUBLE-FLOAT).
(LOAD lapack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
(LOAD fishpack FAIL) COMMON-LISP:SIMPLE-ERROR : The assertion (<= -32768 JVM::OFFSET 32767) failed.
ccl-1.10-f96-macosx-x86
ccl-1.10-rc1-r16192-f96-macosx-x86
ccl-1.8-r15286m-f95-linux-x86
ccl-1.9-f96-linux-x64
ccl-1.9-f96-linux-x86
ccl-1.9-r15756-f96-linux-x86
clisp-2.49-unix-i386
(LOAD lapack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system lapack from pathname /Users/pnathan/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/lapack.asd: LOAD: A file with name F2CL does not exist
(LOAD blas-real FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-real from pathname /Users/pnathan/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-real.asd: LOAD: A file with name F2CL does not exist
(LOAD blas-complex FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-complex from pathname /Users/pnathan/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-complex.asd: LOAD: A file with name F2CL does not exist
clisp-2.49-unix-x64
(LOAD lapack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system lapack from pathname /home/hijarian/systems/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/lapack.asd: LOAD: Файл с именем F2CL не существует
(LOAD blas-real FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-real from pathname /home/hijarian/systems/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-real.asd: LOAD: Файл с именем F2CL не существует
(LOAD blas-complex FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-complex from pathname /home/hijarian/systems/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-complex.asd: LOAD: Файл с именем F2CL не существует
(LOAD lapack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system lapack from pathname /home/hijarian/projects/others/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/lapack.asd: LOAD: Файл с именем F2CL не существует
(LOAD blas-real FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-real from pathname /home/hijarian/projects/others/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-real.asd: LOAD: Файл с именем F2CL не существует
(LOAD blas-complex FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-complex from pathname /home/hijarian/projects/others/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-complex.asd: LOAD: Файл с именем F2CL не существует
clisp-2.49-unix-x86
(LOAD lapack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system lapack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/lapack.asd: LOAD: A file with name F2CL does not exist
(LOAD blas-real FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-real from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-real.asd: LOAD: A file with name F2CL does not exist
(LOAD blas-complex FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-complex from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20140826-hg/packages/blas-complex.asd: LOAD: A file with name F2CL does not exist
cmu-snapshot-2013-04__20d_unicode_-linux-x86
cmu-snapshot-2014-01__20e_unicode_-linux-x86
cmu-snapshot-2014-05-dirty__20e_unicode_-linux-x86
ecl-13.5.1-76a84246-linux-x64-bytecode
(LOAD lapack FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (COND ((>= M MNTHR) (COND (WNTUN (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (SETF NCVT 0) (COND ((OR WNTVO WNTVAS) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF NCVT N))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT 0 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA DUM 1 DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (IF WNTVAS (DLACPY "F" N N A LDA VT LDVT))) ((AND WNTUO WNTVN) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL10))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) ((AND WNTUO WNTVAS) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "L" N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL20))) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTUS (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))) (WNTUA (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (COND (WNTUAS (DLACPY "L" M N A LDA U LDU) (IF WNTUS (SETF NCU N)) (IF WNTUA (SETF NCU M)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M NCU N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVAS (DLACPY "U" N N A LDA VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTUO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (IF (OR WNTUAS WNTUO) (SETF NRU M)) (IF WNTUN (SETF NRU 0)) (IF (OR WNTVAS WNTVO) (SETF NCVT N)) (IF WNTVN (SETF NCVT 0)) (COND ((AND (NOT WNTUO) (NOT WNTVO)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) ((AND (NOT WNTUO) WNTVO) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) (T (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)))))) Too large jump
ecl-13.5.1-76a84246-linux-x64-lisp-to-c
(LOAD lapack FAIL) COMMON-LISP:FILE-ERROR : Filesystem error with pathname #P"/home/hijarian/systems/cl-test-grid/work-dir/agent/test-runs/20140915180851-ecl-13.5.1-76a84246-linux-x64-lisp-to-c/fasl/ql/dists/quicklisp/software/f2cl-20140826-hg/packages/lapack/zlaqr3.fas". Either 1) the file does not exist, or 2) we are not allowed to access the file, or 3) the pathname points to a broken symbolic link.
(LOAD lapack FAIL) COMMON-LISP:FILE-ERROR : Filesystem error with pathname #P"/home/hijarian/systems/cl-test-grid/work-dir/agent/test-runs/20140908163429-ecl-13.5.1-76a84246-linux-x64-lisp-to-c/fasl/ql/dists/quicklisp/software/f2cl-20140826-hg/packages/lapack/zlaqr3.fas". Either 1) the file does not exist, or 2) we are not allowed to access the file, or 3) the pathname points to a broken symbolic link.
ecl-13.5.1-efec0ee0-linux-x64-bytecode
(LOAD lapack FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (COND ((>= M MNTHR) (COND (WNTUN (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (SETF NCVT 0) (COND ((OR WNTVO WNTVAS) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF NCVT N))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT 0 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA DUM 1 DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (IF WNTVAS (DLACPY "F" N N A LDA VT LDVT))) ((AND WNTUO WNTVN) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL10))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) ((AND WNTUO WNTVAS) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "L" N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL20))) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTUS (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))) (WNTUA (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (COND (WNTUAS (DLACPY "L" M N A LDA U LDU) (IF WNTUS (SETF NCU N)) (IF WNTUA (SETF NCU M)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M NCU N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVAS (DLACPY "U" N N A LDA VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTUO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (IF (OR WNTUAS WNTUO) (SETF NRU M)) (IF WNTUN (SETF NRU 0)) (IF (OR WNTVAS WNTVO) (SETF NCVT N)) (IF WNTVN (SETF NCVT 0)) (COND ((AND (NOT WNTUO) (NOT WNTVO)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) ((AND (NOT WNTUO) WNTVO) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) (T (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)))))) Too large jump
ecl-13.5.1-efec0ee0-linux-x64-lisp-to-c
ecl-13.5.1-unknown-linux-i686-bytecode
(LOAD lapack FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (COND ((>= M MNTHR) (COND (WNTUN (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (SETF NCVT 0) (COND ((OR WNTVO WNTVAS) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF NCVT N))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT 0 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA DUM 1 DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (IF WNTVAS (DLACPY "F" N N A LDA VT LDVT))) ((AND WNTUO WNTVN) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL10))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) ((AND WNTUO WNTVAS) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "L" N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL20))) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTUS (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))) (WNTUA (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (COND (WNTUAS (DLACPY "L" M N A LDA U LDU) (IF WNTUS (SETF NCU N)) (IF WNTUA (SETF NCU M)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M NCU N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVAS (DLACPY "U" N N A LDA VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTUO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (IF (OR WNTUAS WNTUO) (SETF NRU M)) (IF WNTUN (SETF NRU 0)) (IF (OR WNTVAS WNTVO) (SETF NCVT N)) (IF WNTVN (SETF NCVT 0)) (COND ((AND (NOT WNTUO) (NOT WNTVO)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) ((AND (NOT WNTUO) WNTVO) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) (T (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)))))) Too large jump
(LOAD lapack FAIL) SI:SIMPLE-PROGRAM-ERROR : In form (COND ((>= M MNTHR) (COND (WNTUN (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (SETF NCVT 0) (COND ((OR WNTVO WNTVAS) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF NCVT N))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT 0 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA DUM 1 DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (IF WNTVAS (DLACPY "F" N N A LDA VT LDVT))) ((AND WNTUO WNTVN) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL10))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) ((AND WNTUO WNTVAS) (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD (MAX (THE F2CL-LIB:INTEGER4 WRKBL) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL LDA N) N))) (F2CL-LIB:INT-MUL N N))) (SETF LDWRKU LDA) (SETF LDWRKR N)) (T (SETF LDWRKU (THE F2CL-LIB:INTEGER4 (TRUNCATE (- LWORK (* N N) N) N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "L" N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (SETF IU (F2CL-LIB:INT-ADD IE N)) (F2CL-LIB:FDO (I 1 (F2CL-LIB:INT-ADD I LDWRKU)) ((> I M) NIL) (TAGBODY (SETF CHUNK (MIN (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB M I) 1)) (THE F2CL-LIB:INTEGER4 LDWRKU))) (DGEMM "N" "N" CHUNK N N ONE (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLACPY "F" CHUNK N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (I 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) LABEL20))) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTUS (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M N N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))) (WNTUA (COND (WNTVN (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IR 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKR LDA)) (T (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IR 1)) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N 0 M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) DUM 1 U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVO (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL 2 N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL 2 LDA N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR LDA)) ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL (F2CL-LIB:INT-ADD LDA N) N))) (SETF LDWRKU LDA) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N)) (T (SETF LDWRKU N) (SETF IR (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF LDWRKR N))) (SETF ITAU (F2CL-LIB:INT-ADD IR (F2CL-LIB:INT-MUL LDWRKR N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU) (DLACPY "F" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IR) ((1 *)) WORK-%OFFSET%) LDWRKR A LDA)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE A-%DATA% DOUBLE-FLOAT (2 1) ((1 LDA) (1 *)) A-%OFFSET%) LDA) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))) (WNTVAS (COND ((>= LWORK (F2CL-LIB:INT-ADD (F2CL-LIB:INT-MUL N N) (MAX (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-ADD N M)) (THE F2CL-LIB:INTEGER4 (F2CL-LIB:INT-MUL 4 N)) (THE F2CL-LIB:INTEGER4 BDSPAC)))) (SETF IU 1) (COND ((>= LWORK (F2CL-LIB:INT-ADD WRKBL (F2CL-LIB:INT-MUL LDA N))) (SETF LDWRKU LDA)) (T (SETF LDWRKU N))) (SETF ITAU (F2CL-LIB:INT-ADD IU (F2CL-LIB:INT-MUL LDWRKU N))) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT ((+ IU 1)) ((1 *)) WORK-%OFFSET%) LDWRKU) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (DLACPY "U" N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" N N N (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N N 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)) (DGEMM "N" "N" M N N ONE U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IU) ((1 *)) WORK-%OFFSET%) LDWRKU ZERO A LDA) (DLACPY "F" M N A LDA U LDU)) (T (SETF ITAU 1) (SETF IWORK (F2CL-LIB:INT-ADD ITAU N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7) (DGEQRF M N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6)) (SETF IERR VAR-7)) (DLACPY "L" M N A LDA U LDU) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8) (DORGQR M M N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAU) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7)) (SETF IERR VAR-8)) (DLACPY "U" N N A LDA VT LDVT) (DLASET "L" (F2CL-LIB:INT-SUB N 1) (F2CL-LIB:INT-SUB N 1) ZERO ZERO (F2CL-LIB:ARRAY-SLICE VT-%DATA% DOUBLE-FLOAT (2 1) ((1 LDVT) (1 *)) VT-%OFFSET%) LDVT) (SETF IE ITAU) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD N N VT LDVT S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13) (DORMBR "Q" "R" "N" M N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12)) (SETF IERR VAR-13)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N N M 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))))))))) (T (SETF IE 1) (SETF ITAUQ (F2CL-LIB:INT-ADD IE N)) (SETF ITAUP (F2CL-LIB:INT-ADD ITAUQ N)) (SETF IWORK (F2CL-LIB:INT-ADD ITAUP N)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10) (DGEBRD M N A LDA S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9)) (SETF IERR VAR-10)) (COND (WNTUAS (DLACPY "L" M N A LDA U LDU) (IF WNTUS (SETF NCU N)) (IF WNTUA (SETF NCU M)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M NCU N U LDU (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVAS (DLACPY "U" N N A LDA VT LDVT) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N VT LDVT (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTUO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "Q" M N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUQ) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (COND (WNTVO (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9) (DORGBR "P" N N N A LDA (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (ITAUP) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) (F2CL-LIB:INT-ADD (F2CL-LIB:INT-SUB LWORK IWORK) 1) IERR) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8)) (SETF IERR VAR-9)))) (SETF IWORK (F2CL-LIB:INT-ADD IE N)) (IF (OR WNTUAS WNTUO) (SETF NRU M)) (IF WNTUN (SETF NRU 0)) (IF (OR WNTVAS WNTVO) (SETF NCVT N)) (IF WNTVN (SETF NCVT 0)) (COND ((AND (NOT WNTUO) (NOT WNTVO)) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) ((AND (NOT WNTUO) WNTVO) (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) A LDA U LDU DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14))) (T (MULTIPLE-VALUE-BIND (VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13 VAR-14) (DBDSQR "U" N NCVT NRU 0 S (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IE) ((1 *)) WORK-%OFFSET%) VT LDVT A LDA DUM 1 (F2CL-LIB:ARRAY-SLICE WORK-%DATA% DOUBLE-FLOAT (IWORK) ((1 *)) WORK-%OFFSET%) INFO) (DECLARE (IGNORE VAR-0 VAR-1 VAR-2 VAR-3 VAR-4 VAR-5 VAR-6 VAR-7 VAR-8 VAR-9 VAR-10 VAR-11 VAR-12 VAR-13)) (SETF INFO VAR-14)))))) Too large jump
ecl-13.5.1-unknown-linux-i686-lisp-to-c
sbcl-1.1.11-linux-x86
sbcl-1.1.16-linux-x86
sbcl-1.2.0.debian-linux-x64
sbcl-1.2.3-linux-x64

Breakdown by testcases: for every failed testcase the lisp implmentations it fails on

The library does not have a testsuite adapter for CL Test Grid.

To reports overview

Generated at: 2014-09-17 10:19:07 GMT.