Commit ee46e1e1 authored by Liam M. Healy's avatar Liam M. Healy

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

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