Skip to content
Snippets Groups Projects
Commit ee46e1e1 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Results of test matrix-product-hermitian as single-floats

parent 019cc0e3
No related branches found
No related tags found
No related merge requests found
...@@ -22,12 +22,12 @@ ...@@ -22,12 +22,12 @@
(LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-HERMITIAN (LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-HERMITIAN
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST (LIST
#2A((#C(161635.16 -134299.77) #C(93510.016 -191870.72) #2A((#C(161635.16f0 -134299.77f0) #C(93510.016f0 -191870.72f0)
#C(55739.336 13621.439)) #C(55739.336f0 13621.439f0))
(#C(-68526.41 125188.29) #C(46318.242 59787.605) (#C(-68526.41f0 125188.29f0) #C(46318.242f0 59787.605f0)
#C(-28142.984 5816.9385)) #C(-28142.984f0 5816.9385f0))
(#C(-139503.38 55690.902) #C(2898.8164 49116.78) (#C(-139503.38f0 55690.902f0) #C(2898.8164f0 49116.78f0)
#C(-57882.3 -176350.63)))) #C(-57882.3f0 -176350.63f0))))
(MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-LIST
(LET ((M1 (LET ((M1
(GRID:MAKE-FOREIGN-ARRAY (GRID:MAKE-FOREIGN-ARRAY
...@@ -93,8 +93,8 @@ ...@@ -93,8 +93,8 @@
(MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2))))) (MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST (LIST
#(#C(117171.67 19582.54) #C(18787.117 29534.742) #(#C(117171.67f0 19582.54f0) #C(18787.117f0 29534.742f0)
#C(-104992.03 72729.13))) #C(-104992.03f0 72729.13f0)))
(MULTIPLE-VALUE-LIST (MULTIPLE-VALUE-LIST
(LET ((M1 (LET ((M1
(GRID:MAKE-FOREIGN-ARRAY (GRID:MAKE-FOREIGN-ARRAY
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment