Lines Matching full:complex
3 * Test program for the COMPLEX*16 Level 2 Blas.
72 COMPLEX*16 ZERO, ONE
92 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
372 9993 FORMAT( ' TESTS OF THE COMPLEX*16 LEVEL 2 BLAS', //' THE F',
413 COMPLEX*16 ZERO, HALF
425 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
433 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
759 COMPLEX*16 ZERO, HALF
771 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
779 COMPLEX*16 ALPHA, ALS, BETA, BLS, TRANSL
1107 COMPLEX*16 ZERO, HALF, ONE
1119 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1125 COMPLEX*16 TRANSL
1470 COMPLEX*16 ZERO, HALF, ONE
1482 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1490 COMPLEX*16 ALPHA, ALS, TRANSL
1497 COMPLEX*16 W( 1 )
1748 COMPLEX*16 ZERO, HALF, ONE
1760 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1768 COMPLEX*16 ALPHA, TRANSL
1776 COMPLEX*16 W( 1 )
2033 COMPLEX*16 ZERO, HALF, ONE
2045 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2053 COMPLEX*16 ALPHA, ALS, TRANSL
2062 COMPLEX*16 W( 2 )
2361 COMPLEX*16 ALPHA, BETA
2364 COMPLEX*16 A( 1, 1 ), X( 1 ), Y( 1 )
2702 COMPLEX*16 ZERO, ONE
2705 COMPLEX*16 ROGUE
2712 COMPLEX*16 TRANSL
2718 COMPLEX*16 A( NMAX, * ), AA( * )
2723 COMPLEX*16 ZBEG
2890 COMPLEX*16 ZERO
2895 COMPLEX*16 ALPHA, BETA
2901 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
2904 COMPLEX*16 C
3023 COMPLEX*16 RI( * ), RJ( * )
3057 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3100 COMPLEX*16 FUNCTION ZBEG( RESET )
3102 * Generates complex numbers as pairs of random numbers uniformly
