Lines Matching full:complex
3 * Test program for the COMPLEX Level 2 Blas.
72 COMPLEX ZERO, ONE
91 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
371 9993 FORMAT( ' TESTS OF THE COMPLEX LEVEL 2 BLAS', //' THE F',
412 COMPLEX ZERO, HALF
423 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
431 COMPLEX
757 COMPLEX ZERO, HALF
768 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
776 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL
1104 COMPLEX ZERO, HALF, ONE
1115 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1121 COMPLEX TRANSL
1466 COMPLEX ZERO, HALF, ONE
1477 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1485 COMPLEX ALPHA, ALS, TRANSL
1492 COMPLEX W( 1 )
1743 COMPLEX ZERO, HALF, ONE
1754 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1762 COMPLEX ALPHA, TRANSL
1770 COMPLEX W( 1 )
2027 COMPLEX ZERO, HALF, ONE
2038 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2046 COMPLEX ALPHA, ALS, TRANSL
2055 COMPLEX W( 2 )
2354 COMPLEX ALPHA, BETA
2357 COMPLEX A( 1, 1 ), X( 1 ), Y( 1 )
2695 COMPLEX ZERO, ONE
2697 COMPLEX ROGUE
2704 COMPLEX TRANSL
2710 COMPLEX A( NMAX, * ), AA( * )
2715 COMPLEX CBEG
2882 COMPLEX ZERO
2887 COMPLEX ALPHA, BETA
2893 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
2896 COMPLEX C
3015 COMPLEX RI( * ), RJ( * )
3049 COMPLEX AA( LDA, * ), AS( LDA, * )
3092 COMPLEX FUNCTION CBEG( RESET )
3094 * Generates complex numbers as pairs of random numbers uniformly
