Searched refs:CCOMP (Results 1 - 2 of 2) sorted by relevance

/external/eigen/blas/testing/
H A Dcblat1.f611 SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)
620 COMPLEX CCOMP(LEN), CSIZE(LEN), CTRUE(LEN) local in subroutine:CTEST
631 SCOMP(2*I-1) = REAL(CCOMP(I))
632 SCOMP(2*I) = AIMAG(CCOMP(I))
H A Dzblat1.f611 SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)
620 COMPLEX*16 CCOMP(LEN), CSIZE(LEN), CTRUE(LEN) local in subroutine:CTEST
631 SCOMP(2*I-1) = DBLE(CCOMP(I))
632 SCOMP(2*I) = DIMAG(CCOMP(I))

Completed in 81 milliseconds