Loading tests/axpy.lisp +5 −5 Original line number Diff line number Diff line ;; Regression test AXPY for GSLL, automatically generated ;; ;; Copyright 2009, 2011 Liam M. Healy ;; Copyright 2009, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -33,7 +33,7 @@ 'SINGLE-FLOAT :INITIAL-CONTENTS '(32.5f0 42.73f0 -17.24f0 43.31f0 -16.12f0 -8.25f0 21.44f0 -49.08f0))) (SCALAR -39.66f0)) (grid:copy-to (AXPY SCALAR V1 V2))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array 'single-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(1400.77d0 -284.06839999999994d0 -147.7214d0 Loading @@ -55,7 +55,7 @@ -16.12d0 -8.25d0 21.44d0 -49.08d0))) (SCALAR -39.66d0)) (GRID:COPY-TO (AXPY SCALAR V1 V2))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array 'double-float)))) #+fsbv (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST Loading @@ -80,7 +80,7 @@ #C(19.68f0 -5.55f0) #C(-8.82f0 25.37f0) #C(-30.58f0 31.67f0)))) (SCALAR #C(-39.66f0 -49.46f0))) (GRID:COPY-TO (AXPY SCALAR V1 V2))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array '(complex single-float))))) #+fsbv (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST Loading Loading @@ -110,4 +110,4 @@ #C(-39.66d0 -49.46d0) #C(19.68d0 -5.55d0) #C(-8.82d0 25.37d0) #C(-30.58d0 31.67d0)))) (SCALAR #C(-39.66d0 -49.46d0))) (GRID:COPY-TO (AXPY SCALAR V1 V2)))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array '(complex double-float)))))) tests/bessel.lisp +13 −12 Original line number Diff line number Diff line ;; Regression test BESSEL for GSLL, automatically generated ;; ;; Copyright 2009 Liam M. Healy ;; Copyright 2009, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -31,7 +31,7 @@ (LISP-UNIT::ASSERT-NUMERICAL-EQUAL #(0.35283402861563773d0 0.12894324947440206d0 0.033995719807568436d0 0.007039629755871686d0) (grid:copy-to (cylindrical-bessel-J-array-order 2.0d0 4 2))) (grid:copy-to (cylindrical-bessel-J-array-order 2.0d0 4 2) 'array 'double-float)) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST -0.016940739325064968d0 1.8993556609468549d-16) (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-Y0 4.0d0))) Loading @@ -49,7 +49,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-YN-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 11.301921952136329d0 2.7297681442535893d-14) (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-I0 4.0d0))) Loading @@ -70,7 +70,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-IN-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.2070019212239867d0 2.241925168997723d-16) (MULTIPLE-VALUE-LIST Loading @@ -94,7 +94,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-IN-SCALED-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.011159676085853023d0 2.0424662435034432d-17) (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-K0 4.0d0))) Loading Loading @@ -130,7 +130,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-KN-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST -0.18920062382698205d0 1.6804391107692678d-16) (MULTIPLE-VALUE-LIST (SPHERICAL-BESSEL-J0 4.0d0))) Loading @@ -151,7 +151,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-JL-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-0.18920062382698208d0 0.11611074925915742d0 Loading @@ -160,7 +160,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-JL-STEED-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.16341090521590299d0 1.4513803955642766d-16) (MULTIPLE-VALUE-LIST (SPHERICAL-BESSEL-Y0 4.0d0))) Loading @@ -181,7 +181,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-YL-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.12495806717151219d0 5.5492529314587895d-17) (MULTIPLE-VALUE-LIST Loading @@ -206,7 +206,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-IL-SCALED-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.39269908169872414d0 1.743934249004316d-16) (MULTIPLE-VALUE-LIST Loading @@ -231,7 +231,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-KL-SCALED-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.43017147387562193d0 7.641380397338472d-16) (MULTIPLE-VALUE-LIST (cylindrical-bessel-J 3.0d0 4.0d0))) Loading @@ -243,7 +243,8 @@ (grid:copy-to (cylindrical-bessel-J-array-x 0.5d0 (grid:make-foreign-array 'double-float :initial-contents '(1.0d0 2.0d0 3.0d0)))))) (grid:make-foreign-array 'double-float :initial-contents '(1.0d0 2.0d0 3.0d0))) 'array 'double-float))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST -0.1820221159534852d0 2.020851441225493d-15) (MULTIPLE-VALUE-LIST (cylindrical-bessel-Y 3.0d0 4.0d0))) Loading tests/blas-copy.lisp +5 −5 Original line number Diff line number Diff line ;; Regression test BLAS-COPY for GSLL, automatically generated ;; ;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Copyright 2009, 2010, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading @@ -27,7 +27,7 @@ 'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5f0 8.24f0 3.29f0))) (V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2)))) (GRID:COPY-TO V2 'array 'single-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-34.5d0 8.24d0 3.29d0)) (MULTIPLE-VALUE-LIST Loading @@ -36,7 +36,7 @@ 'DOUBLE-FLOAT :INITIAL-CONTENTS '(-34.5d0 8.24d0 3.29d0))) (V2 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2)))) (GRID:COPY-TO V2 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))) (MULTIPLE-VALUE-LIST Loading @@ -49,7 +49,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2)))) (GRID:COPY-TO V2 'array '(complex single-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) Loading @@ -65,4 +65,4 @@ (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2))))) (GRID:COPY-TO V2 'array '(complex double-float)))))) tests/blas-swap.lisp +5 −5 Original line number Diff line number Diff line ;; Regression test BLAS-SWAP for GSLL, automatically generated ;; ;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Copyright 2009, 2010, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -31,7 +31,7 @@ 'SINGLE-FLOAT :INITIAL-CONTENTS '(-8.93f0 34.12f0 -6.15f0)))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))) (LIST (GRID:COPY-TO V1 'array 'single-float) (GRID:COPY-TO V2 'array 'single-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST (LIST #(-8.93d0 34.12d0 -6.15d0) Loading @@ -46,7 +46,7 @@ 'DOUBLE-FLOAT :INITIAL-CONTENTS '(-8.93d0 34.12d0 -6.15d0)))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))) (LIST (GRID:COPY-TO V1 'array 'double-float) (GRID:COPY-TO V2 'array 'double-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST (LIST Loading @@ -64,7 +64,7 @@ :INITIAL-CONTENTS '(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0))))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))) (LIST (GRID:COPY-TO V1 'array '(complex single-float)) (GRID:COPY-TO V2 'array '(complex single-float)))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST (LIST Loading @@ -84,4 +84,4 @@ :INITIAL-CONTENTS '(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))) (LIST (GRID:COPY-TO V1 'array '(complex double-float)) (GRID:COPY-TO V2 'array '(complex double-float))))))) tests/column.lisp +13 −13 Original line number Diff line number Diff line ;; Regression test COLUMN for GSLL, automatically generated ;; ;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Copyright 2009, 2010, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -30,7 +30,7 @@ (-8.93f0 34.12f0 -6.15f0) (49.27f0 -13.49f0 32.5f0)))) (COL (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array 'single-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(8.24d0 34.12d0 -13.49d0)) (MULTIPLE-VALUE-LIST Loading @@ -41,7 +41,7 @@ (-8.93d0 34.12d0 -6.15d0) (49.27d0 -13.49d0 32.5d0)))) (COL (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(3.29f0 -8.93f0) #C(-6.15f0 49.27f0) #C(32.5f0 42.73f0))) (MULTIPLE-VALUE-LIST Loading @@ -55,7 +55,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(complex single-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) Loading @@ -70,7 +70,7 @@ (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) (COL (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(complex double-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) (MULTIPLE-VALUE-LIST Loading @@ -85,7 +85,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 8))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) (MULTIPLE-VALUE-LIST Loading @@ -100,7 +100,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 8))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) (MULTIPLE-VALUE-LIST Loading @@ -114,7 +114,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 16))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) (MULTIPLE-VALUE-LIST Loading @@ -129,7 +129,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 16))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) (MULTIPLE-VALUE-LIST Loading @@ -143,7 +143,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 32))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) (MULTIPLE-VALUE-LIST Loading @@ -157,7 +157,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 32))))) #+int64 (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) Loading @@ -173,7 +173,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 64))))) #+int64 (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) Loading @@ -189,5 +189,5 @@ (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL)))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 64)))))) Loading
tests/axpy.lisp +5 −5 Original line number Diff line number Diff line ;; Regression test AXPY for GSLL, automatically generated ;; ;; Copyright 2009, 2011 Liam M. Healy ;; Copyright 2009, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -33,7 +33,7 @@ 'SINGLE-FLOAT :INITIAL-CONTENTS '(32.5f0 42.73f0 -17.24f0 43.31f0 -16.12f0 -8.25f0 21.44f0 -49.08f0))) (SCALAR -39.66f0)) (grid:copy-to (AXPY SCALAR V1 V2))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array 'single-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(1400.77d0 -284.06839999999994d0 -147.7214d0 Loading @@ -55,7 +55,7 @@ -16.12d0 -8.25d0 21.44d0 -49.08d0))) (SCALAR -39.66d0)) (GRID:COPY-TO (AXPY SCALAR V1 V2))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array 'double-float)))) #+fsbv (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST Loading @@ -80,7 +80,7 @@ #C(19.68f0 -5.55f0) #C(-8.82f0 25.37f0) #C(-30.58f0 31.67f0)))) (SCALAR #C(-39.66f0 -49.46f0))) (GRID:COPY-TO (AXPY SCALAR V1 V2))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array '(complex single-float))))) #+fsbv (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST Loading Loading @@ -110,4 +110,4 @@ #C(-39.66d0 -49.46d0) #C(19.68d0 -5.55d0) #C(-8.82d0 25.37d0) #C(-30.58d0 31.67d0)))) (SCALAR #C(-39.66d0 -49.46d0))) (GRID:COPY-TO (AXPY SCALAR V1 V2)))))) (GRID:COPY-TO (AXPY SCALAR V1 V2) 'array '(complex double-float))))))
tests/bessel.lisp +13 −12 Original line number Diff line number Diff line ;; Regression test BESSEL for GSLL, automatically generated ;; ;; Copyright 2009 Liam M. Healy ;; Copyright 2009, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -31,7 +31,7 @@ (LISP-UNIT::ASSERT-NUMERICAL-EQUAL #(0.35283402861563773d0 0.12894324947440206d0 0.033995719807568436d0 0.007039629755871686d0) (grid:copy-to (cylindrical-bessel-J-array-order 2.0d0 4 2))) (grid:copy-to (cylindrical-bessel-J-array-order 2.0d0 4 2) 'array 'double-float)) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST -0.016940739325064968d0 1.8993556609468549d-16) (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-Y0 4.0d0))) Loading @@ -49,7 +49,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-YN-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 11.301921952136329d0 2.7297681442535893d-14) (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-I0 4.0d0))) Loading @@ -70,7 +70,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-IN-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.2070019212239867d0 2.241925168997723d-16) (MULTIPLE-VALUE-LIST Loading @@ -94,7 +94,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-IN-SCALED-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.011159676085853023d0 2.0424662435034432d-17) (MULTIPLE-VALUE-LIST (CYLINDRICAL-BESSEL-K0 4.0d0))) Loading Loading @@ -130,7 +130,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (CYLINDRICAL-BESSEL-KN-ARRAY 2.0d0 BESARR 2) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST -0.18920062382698205d0 1.6804391107692678d-16) (MULTIPLE-VALUE-LIST (SPHERICAL-BESSEL-J0 4.0d0))) Loading @@ -151,7 +151,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-JL-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-0.18920062382698208d0 0.11611074925915742d0 Loading @@ -160,7 +160,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-JL-STEED-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.16341090521590299d0 1.4513803955642766d-16) (MULTIPLE-VALUE-LIST (SPHERICAL-BESSEL-Y0 4.0d0))) Loading @@ -181,7 +181,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-YL-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.12495806717151219d0 5.5492529314587895d-17) (MULTIPLE-VALUE-LIST Loading @@ -206,7 +206,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-IL-SCALED-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.39269908169872414d0 1.743934249004316d-16) (MULTIPLE-VALUE-LIST Loading @@ -231,7 +231,7 @@ (LET ((BESARR (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 4))) (SPHERICAL-BESSEL-KL-SCALED-ARRAY 4.0d0 BESARR) (GRID:COPY-TO BESARR)))) (GRID:COPY-TO BESARR 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.43017147387562193d0 7.641380397338472d-16) (MULTIPLE-VALUE-LIST (cylindrical-bessel-J 3.0d0 4.0d0))) Loading @@ -243,7 +243,8 @@ (grid:copy-to (cylindrical-bessel-J-array-x 0.5d0 (grid:make-foreign-array 'double-float :initial-contents '(1.0d0 2.0d0 3.0d0)))))) (grid:make-foreign-array 'double-float :initial-contents '(1.0d0 2.0d0 3.0d0))) 'array 'double-float))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST -0.1820221159534852d0 2.020851441225493d-15) (MULTIPLE-VALUE-LIST (cylindrical-bessel-Y 3.0d0 4.0d0))) Loading
tests/blas-copy.lisp +5 −5 Original line number Diff line number Diff line ;; Regression test BLAS-COPY for GSLL, automatically generated ;; ;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Copyright 2009, 2010, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading @@ -27,7 +27,7 @@ 'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5f0 8.24f0 3.29f0))) (V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2)))) (GRID:COPY-TO V2 'array 'single-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-34.5d0 8.24d0 3.29d0)) (MULTIPLE-VALUE-LIST Loading @@ -36,7 +36,7 @@ 'DOUBLE-FLOAT :INITIAL-CONTENTS '(-34.5d0 8.24d0 3.29d0))) (V2 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2)))) (GRID:COPY-TO V2 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))) (MULTIPLE-VALUE-LIST Loading @@ -49,7 +49,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2)))) (GRID:COPY-TO V2 'array '(complex single-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) Loading @@ -65,4 +65,4 @@ (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) (BLAS-COPY V1 V2) (GRID:COPY-TO V2))))) (GRID:COPY-TO V2 'array '(complex double-float))))))
tests/blas-swap.lisp +5 −5 Original line number Diff line number Diff line ;; Regression test BLAS-SWAP for GSLL, automatically generated ;; ;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Copyright 2009, 2010, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -31,7 +31,7 @@ 'SINGLE-FLOAT :INITIAL-CONTENTS '(-8.93f0 34.12f0 -6.15f0)))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))) (LIST (GRID:COPY-TO V1 'array 'single-float) (GRID:COPY-TO V2 'array 'single-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST (LIST #(-8.93d0 34.12d0 -6.15d0) Loading @@ -46,7 +46,7 @@ 'DOUBLE-FLOAT :INITIAL-CONTENTS '(-8.93d0 34.12d0 -6.15d0)))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))) (LIST (GRID:COPY-TO V1 'array 'double-float) (GRID:COPY-TO V2 'array 'double-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST (LIST Loading @@ -64,7 +64,7 @@ :INITIAL-CONTENTS '(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0))))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2))))) (LIST (GRID:COPY-TO V1 'array '(complex single-float)) (GRID:COPY-TO V2 'array '(complex single-float)))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST (LIST Loading @@ -84,4 +84,4 @@ :INITIAL-CONTENTS '(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))))) (BLAS-SWAP V2 V1) (LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))) (LIST (GRID:COPY-TO V1 'array '(complex double-float)) (GRID:COPY-TO V2 'array '(complex double-float)))))))
tests/column.lisp +13 −13 Original line number Diff line number Diff line ;; Regression test COLUMN for GSLL, automatically generated ;; ;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Copyright 2009, 2010, 2011, 2014 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -30,7 +30,7 @@ (-8.93f0 34.12f0 -6.15f0) (49.27f0 -13.49f0 32.5f0)))) (COL (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array 'single-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(8.24d0 34.12d0 -13.49d0)) (MULTIPLE-VALUE-LIST Loading @@ -41,7 +41,7 @@ (-8.93d0 34.12d0 -6.15d0) (49.27d0 -13.49d0 32.5d0)))) (COL (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array 'double-float)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(3.29f0 -8.93f0) #C(-6.15f0 49.27f0) #C(32.5f0 42.73f0))) (MULTIPLE-VALUE-LIST Loading @@ -55,7 +55,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(complex single-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) Loading @@ -70,7 +70,7 @@ (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) (COL (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(complex double-float))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) (MULTIPLE-VALUE-LIST Loading @@ -85,7 +85,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 8))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) (MULTIPLE-VALUE-LIST Loading @@ -100,7 +100,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 8))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) (MULTIPLE-VALUE-LIST Loading @@ -114,7 +114,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 16))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) (MULTIPLE-VALUE-LIST Loading @@ -129,7 +129,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 16))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) (MULTIPLE-VALUE-LIST Loading @@ -143,7 +143,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 32))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) (MULTIPLE-VALUE-LIST Loading @@ -157,7 +157,7 @@ (COL (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 32))))) #+int64 (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) Loading @@ -173,7 +173,7 @@ (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(signed-byte 64))))) #+int64 (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) Loading @@ -189,5 +189,5 @@ (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :DIMENSIONS '3))) (GRID:COPY-TO (COLUMN M1 1 COL)))))) (GRID:COPY-TO (COLUMN M1 1 COL) 'array '(unsigned-byte 64))))))