Closed
Description
On a AMD FX(tm)-8320 Eight-Core Processor machine running Windows and with OpenBLAS complied with 64 bit integer support the following program
program test
complex*16 :: a(4,4), b(4,4), c(4,4)
a(:,:) = (1.0d0, 1.0d0)
b(:,:) = 1.0d0
call zgemm('N', 'N', 4_8, 4_8, 4_8, (1.0d0, 0.0d0), a, 4_8, b, 4_8, (0.0d0, 0.0d0), c, 4_8)
write(*,*) c
end program
gives the wrong answer
( 0.0000000000000000 , 8.0000000000000000 ) ( 0.0000000000000000
, 8.0000000000000000 ) ( 0.0000000000000000 , 8.0000000000000000
) ( 0.0000000000000000 , 8.0000000000000000 ) ( 0.0000000000000000
, 8.0000000000000000 ) ( 0.0000000000000000 , 8.0000000000000000
) ( 0.0000000000000000 , 8.0000000000000000 ) ( 0.0000000000000000
, 8.0000000000000000 ) ( 0.0000000000000000 , 8.0000000000000000
) ( 0.0000000000000000 , 8.0000000000000000 ) ( 0.00000000000000
00 , 8.0000000000000000 ) ( 0.0000000000000000 , 8.00000000000000
00 ) ( 0.0000000000000000 , 8.0000000000000000 ) ( 0.000000000000
0000 , 8.0000000000000000 ) ( 0.0000000000000000 , 8.000000000000
0000 ) ( 0.0000000000000000 , 8.0000000000000000 )