f2cl results collected by cl-test-grid

Results on the last two Quicklisp distributions

 quicklisp 2017-07-25quicklisp 2017-06-30
abcl-1.2.1-fasl42-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
abcl-1.3.0-fasl42-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: don't recognize component type :FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: don't recognize component type :FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: don't recognize component type :FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: don't recognize component type :FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: don't recognize component type :FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: don't recognize component type :FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: don't recognize component type :FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: don't recognize component type :FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: don't recognize component type :FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: don't recognize component type :FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: don't recognize component type :FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: don't recognize component type :FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: don't recognize component type :FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: don't recognize component type :FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: don't recognize component type :FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: don't recognize component type :FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: don't recognize component type :FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: don't recognize component type :FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: don't recognize component type :FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: don't recognize component type :FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: don't recognize component type :FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: don't recognize component type :FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: don't recognize component type :FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: don't recognize component type :FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: don't recognize component type :FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: don't recognize component type :FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: don't recognize component type :FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: don't recognize component type :FILE
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 odepack 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.
(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 odepack 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.2-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 odepack 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.
(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 odepack 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.4.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 odepack 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.
(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 odepack 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.5.0-fasl43-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 odepack 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.
(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 odepack 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.
acl-10.0-linux-x86
acl-10.0m-linux-x86
(LOAD quadpack FAIL) common-lisp:package-error : Package "QUADPACK" does not exist. Use defpackage to create new packages
(LOAD odepack FAIL) common-lisp:package-error : Package "ODEPACK" does not exist. Use defpackage to create new packages
(LOAD minpack FAIL) common-lisp:package-error : Package "MINPACK" does not exist. Use defpackage to create new packages
(LOAD lapack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD colnew FAIL) common-lisp:package-error : Package "COLNEW" does not exist. Use defpackage to create new packages
(LOAD blas-real FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-package FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-complex FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD quadpack FAIL) common-lisp:package-error : Package "QUADPACK" does not exist. Use defpackage to create new packages
(LOAD odepack FAIL) common-lisp:package-error : Package "ODEPACK" does not exist. Use defpackage to create new packages
(LOAD minpack FAIL) common-lisp:package-error : Package "MINPACK" does not exist. Use defpackage to create new packages
(LOAD lapack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD colnew FAIL) common-lisp:package-error : Package "COLNEW" does not exist. Use defpackage to create new packages
(LOAD blas-real FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-package FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-complex FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
acl-10.0ms-linux-x86
(LOAD quadpack FAIL) common-lisp:package-error : Package "QUADPACK" does not exist. Use defpackage to create new packages
(LOAD odepack FAIL) common-lisp:package-error : Package "ODEPACK" does not exist. Use defpackage to create new packages
(LOAD minpack FAIL) common-lisp:package-error : Package "MINPACK" does not exist. Use defpackage to create new packages
(LOAD lapack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD colnew FAIL) common-lisp:package-error : Package "COLNEW" does not exist. Use defpackage to create new packages
(LOAD blas-real FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-package FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-complex FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD quadpack FAIL) common-lisp:package-error : Package "QUADPACK" does not exist. Use defpackage to create new packages
(LOAD odepack FAIL) common-lisp:package-error : Package "ODEPACK" does not exist. Use defpackage to create new packages
(LOAD minpack FAIL) common-lisp:package-error : Package "MINPACK" does not exist. Use defpackage to create new packages
(LOAD lapack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD colnew FAIL) common-lisp:package-error : Package "COLNEW" does not exist. Use defpackage to create new packages
(LOAD blas-real FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-package FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-hompack FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas-complex FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
(LOAD blas FAIL) common-lisp:package-error : "COMMON-LISP" is not the name of a package.
acl-10.0s-linux-x86
ccl-1.10-r16196-f96-linux-x86
ccl-1.11-r16635-f96-linux-x86
ccl-1.8-r15286m-f95-linux-x86
(LOAD toms717 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD toms715 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD toms419 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD quadpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD odepack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD minpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD fishpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD f2cl-asdf FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/COMPONENT" .
(LOAD f2cl FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD colnew FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD blas-hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD blas 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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD toms717 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD toms715 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD toms419 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD quadpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD odepack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD minpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD fishpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD f2cl-asdf FAIL) CCL::NO-SUCH-PACKAGE : There is no package named "ASDF/COMPONENT" .
(LOAD f2cl FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD colnew FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD blas-hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
(LOAD blas 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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: There is no package named "ASDF/COMPONENT" .
ccl-1.9-r15756-f96-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
clisp-2.49-unix-x86
(LOAD toms717 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD toms715 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD toms419 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD quadpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD odepack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD minpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD fishpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD f2cl-asdf FAIL) SYSTEM::SIMPLE-PACKAGE-ERROR : SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD f2cl FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD colnew FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD blas-hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD blas 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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD toms717 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD toms715 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD toms419 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD quadpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD odepack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD minpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD fishpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD f2cl-asdf FAIL) SYSTEM::SIMPLE-PACKAGE-ERROR : SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD f2cl FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD colnew FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD blas-hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
(LOAD blas 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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: SYSTEM::%FIND-PACKAGE: There is no package with name "UIOP"
cmu-snapshot-2013-04__20d_unicode_-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
cmu-snapshot-2014-01__20e_unicode_-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
cmu-snapshot-2014-05-dirty__20e_unicode_-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
cmu-snapshot-2014-12___20f_unicode_-linux-x86
cmu-snapshot-2016-12__21b_unicode_-linux-x86
ecl-13.5.1-unknown-linux-i686-bytecode
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
ecl-13.5.1-unknown-linux-i686-lisp-to-c
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
ecl-16.0.0-98fc12d3-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-16.0.0-98fc12d3-linux-i686-lisp-to-c
ecl-16.1.2-unknown-linux-x86-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-16.1.2-unknown-linux-x86-lisp-to-c
sbcl-1.0.58-linux-x86
(LOAD toms717 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD toms715 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD toms419 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD quadpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD odepack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD minpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD fishpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD f2cl-asdf FAIL) SB-KERNEL:SIMPLE-PACKAGE-ERROR : The name "UIOP" does not designate any package.
(LOAD f2cl FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD colnew FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD blas-hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD blas 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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD toms717 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD toms715 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD toms419 FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD quadpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD odepack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD minpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD fishpack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD f2cl-asdf FAIL) SB-KERNEL:SIMPLE-PACKAGE-ERROR : The name "UIOP" does not designate any package.
(LOAD f2cl FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD colnew FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD blas-hompack FAIL) ASDF:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
(LOAD blas 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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: The name "UIOP" does not designate any package.
sbcl-1.1.11-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
sbcl-1.1.16-linux-x86
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms717 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms717 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms717.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms715 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms715 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms715.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD toms419 FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system toms419 from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/toms419.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD quadpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system quadpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/quadpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD odepack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system odepack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/odepack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD minpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system minpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/minpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD lapack FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/lapack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD fishpack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system fishpack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/fishpack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD f2cl FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD colnew FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system colnew from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/colnew.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-real FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-hompack FAIL) ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR : Error while trying to load definition for system blas-hompack from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/packages/blas-hompack.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas-complex FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-complex.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
(LOAD blas FAIL) ASDF/FIND-SYSTEM: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-20170630-git/packages/blas-real.asd: Error while trying to load definition for system f2cl from pathname /home/testgrid/cl-test-grid/work-dir/agent/quicklisp/dists/quicklisp/software/f2cl-20170630-git/f2cl.asd: don't recognize component type FILE
sbcl-1.2.6-linux-x86
sbcl-1.3.12-linux-x86
sbcl-1.3.17-linux-x86

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: 2017-08-15 02:48:38 GMT.