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

tests/matrix-product-hermitian.lisp

+8 −8
Original line number Diff line number Diff line
@@ -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