F95: Tdontran ((hot))

X = (/ (1.0 + 2.0*CMPLX(0.0, 1.0)), (3.0 + 4.0*CMPLX(0.0, 1.0)), & (5.0 + 6.0*CMPLX(0.0, 1.0)), (7.0 + 8.0*CMPLX(0.0, 1.0)), & (9.0 + 10.0*CMPLX(0.0, 1.0)) /)

CALL TDOTRAN(N, X, 1, Y, 1, RESULT)

PROGRAM dot_product_complex INTEGER, PARAMETER :: N = 5 COMPLEX :: X(N), Y(N), RESULT f95 tdontran