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)