Lines Matching +full:x +full:- +full:alpha
6 * http://www.netlib.org/lapack/explore-html/
22 *> of the file are read using list-directed input, the last 17 records
29 *> -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
39 *> 1 2 -1 -2 VALUES OF INCX AND INCY
40 *> 3 NUMBER OF VALUES OF ALPHA
41 *> (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
43 *> (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
79 *> Street, Suite 100, Downers Grove, Illinois 60515-1263, USA.
82 *> -- Written on 10-August-1987.
86 *> 10-9-00: Change STATUS='NEW' to 'UNKNOWN' so that the testers
106 * -- Reference BLAS test routine (version 3.4.1) --
107 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
108 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
139 $ X( NMAX ), XS( NMAX*INCMAX ), variable
237 * Values of ALPHA
240 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
297 A( I, J ) = MAX( I - J + 1, 0 )
299 X( J ) = J
303 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
308 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
316 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
349 $ X, XX, XS, Y, YY, YS, YT, G )
355 $ X, XX, XS, Y, YY, YS, YT, G )
366 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
372 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
378 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
415 9989 FORMAT( ' FOR ALPHA ',
423 9985 FORMAT( ' ERROR IN CMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
429 9983 FORMAT( 1X, A6, ' WAS NOT TESTED' )
431 9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
432 9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
439 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
446 * -- Written on 10-August-1987.
463 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ), local
470 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL local
515 $ M = MAX( N - ND, 0 )
527 KL = MAX( KU - 1, 0 )
529 KU = N - 1
530 KL = M - 1
568 * Generate the vector X.
571 CALL CMAKE( 'GE', ' ', ' ', 1, NL, X, 1, XX,
572 $ ABS( INCX ), 0, NL - 1, RESET, TRANSL )
574 X( NL/2 ) = ZERO
575 XX( 1 + ABS( INCX )*( NL/2 - 1 ) ) = ZERO
583 ALPHA = ALF( IA )
592 $ YY, ABS( INCY ), 0, ML - 1,
605 ALS = ALPHA
625 $ TRANS, M, N, ALPHA, LDA, INCX, BETA,
629 CALL CGEMV( TRANS, M, N, ALPHA, AA,
635 $ TRANS, M, N, KL, KU, ALPHA, LDA,
639 CALL CGBMV( TRANS, M, N, KL, KU, ALPHA,
644 * Check if error-exit was taken incorrectly.
658 ISAME( 4 ) = ALS.EQ.ALPHA
675 ISAME( 6 ) = ALS.EQ.ALPHA
709 CALL CMVCH( TRANS, M, N, ALPHA, A,
710 $ NMAX, X, INCX, BETA, Y,
752 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
756 $ ALPHA, LDA, INCX, BETA, INCY
764 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
768 $ ' - SUSPECT *******' )
770 9995 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', 4( I3, ',' ), '(',
771 $ F4.1, ',', F4.1, '), A,', I3, ', X,', I2, ',(', F4.1, ',',
773 9994 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', 2( I3, ',' ), '(',
774 $ F4.1, ',', F4.1, '), A,', I3, ', X,', I2, ',(', F4.1, ',',
776 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
784 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
791 * -- Written on 10-August-1987.
808 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ), local
815 COMPLEX ALPHA, ALS, BETA, BLS, TRANSL local
868 K = N - 1
901 * Generate the vector X.
904 CALL CMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX,
905 $ ABS( INCX ), 0, N - 1, RESET, TRANSL )
907 X( N/2 ) = ZERO
908 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
916 ALPHA = ALF( IA )
925 $ ABS( INCY ), 0, N - 1, RESET,
936 ALS = ALPHA
956 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
959 CALL CHEMV( UPLO, N, ALPHA, AA, LDA, XX,
964 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
968 CALL CHBMV( UPLO, N, K, ALPHA, AA, LDA,
973 $ UPLO, N, ALPHA, INCX, BETA, INCY
976 CALL CHPMV( UPLO, N, ALPHA, AA, XX, INCX,
980 * Check if error-exit was taken incorrectly.
993 ISAME( 3 ) = ALS.EQ.ALPHA
1008 ISAME( 4 ) = ALS.EQ.ALPHA
1022 ISAME( 3 ) = ALS.EQ.ALPHA
1054 CALL CMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1094 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1097 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1100 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1109 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1113 $ ' - SUSPECT *******' )
1115 9995 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', I3, ',(', F4.1, ',',
1116 $ F4.1, '), AP, X,', I2, ',(', F4.1, ',', F4.1, '), Y,', I2,
1118 9994 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', 2( I3, ',' ), '(',
1119 $ F4.1, ',', F4.1, '), A,', I3, ', X,', I2, ',(', F4.1, ',',
1121 9993 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', I3, ',(', F4.1, ',',
1122 $ F4.1, '), A,', I3, ', X,', I2, ',(', F4.1, ',', F4.1, '), ',
1124 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1132 $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z ) argument
1138 * -- Written on 10-August-1987.
1155 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ), local
1218 K = N - 1
1257 * Generate the vector X.
1260 CALL CMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX,
1261 $ ABS( INCX ), 0, N - 1, RESET,
1264 X( N/2 ) = ZERO
1265 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1342 * Check if error-exit was taken incorrectly.
1407 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X,
1416 Z( I ) = XX( 1 + ( I - 1 )*
1418 XX( 1 + ( I - 1 )*ABS( INCX ) )
1419 $ = X( I )
1422 $ INCX, ZERO, X, INCX, XT, G,
1473 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1477 $ ' - SUSPECT *******' )
1479 9995 FORMAT( 1X, I6, ': ', A6, '(', 3( '''', A1, ''',' ), I3, ', AP, ',
1480 $ 'X,', I2, ') .' )
1481 9994 FORMAT( 1X, I6, ': ', A6, '(', 3( '''', A1, ''',' ), 2( I3, ',' ),
1482 $ ' A,', I3, ', X,', I2, ') .' )
1483 9993 FORMAT( 1X, I6, ': ', A6, '(', 3( '''', A1, ''',' ), I3, ', A,',
1484 $ I3, ', X,', I2, ') .' )
1485 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1493 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1500 * -- Written on 10-August-1987.
1517 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ), local
1524 COMPLEX ALPHA, ALS, TRANSL local
1560 $ M = MAX( N - ND, 0 )
1578 * Generate the vector X.
1581 CALL CMAKE( 'GE', ' ', ' ', 1, M, X, 1, XX, ABS( INCX ),
1582 $ 0, M - 1, RESET, TRANSL )
1584 X( M/2 ) = ZERO
1585 XX( 1 + ABS( INCX )*( M/2 - 1 ) ) = ZERO
1596 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
1599 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1603 ALPHA = ALF( IA )
1609 $ AA, LDA, M - 1, N - 1, RESET, TRANSL )
1617 ALS = ALPHA
1635 $ ALPHA, INCX, INCY, LDA
1639 CALL CGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1644 CALL CGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1648 * Check if error-exit was taken incorrectly.
1660 ISAME( 3 ) = ALS.EQ.ALPHA
1692 Z( I ) = X( I )
1696 Z( I ) = X( M - I + 1 )
1703 W( 1 ) = Y( N - J + 1 )
1707 CALL CMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1709 $ AA( 1 + ( J - 1 )*LDA ), EPS,
1745 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1752 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1756 $ ' - SUSPECT *******' )
1759 9994 FORMAT( 1X, I6, ': ', A6, '(', 2( I3, ',' ), '(', F4.1, ',', F4.1,
1760 $ '), X,', I2, ', Y,', I2, ', A,', I3, ') ',
1762 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1770 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1777 * -- Written on 10-August-1987.
1794 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ), local
1801 COMPLEX ALPHA, TRANSL local
1862 * Generate the vector X.
1865 CALL CMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX, ABS( INCX ),
1866 $ 0, N - 1, RESET, TRANSL )
1868 X( N/2 ) = ZERO
1869 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
1874 ALPHA = CMPLX( RALPHA, RZERO )
1881 $ AA, LDA, N - 1, N - 1, RESET, TRANSL )
1917 * Check if error-exit was taken incorrectly.
1961 Z( I ) = X( I )
1965 Z( I ) = X( N - I + 1 )
1976 LJ = N - J + 1
1978 CALL CMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2035 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2039 $ ' - SUSPECT *******' )
2042 9994 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', I3, ',', F4.1, ', X,',
2044 9993 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', I3, ',', F4.1, ', X,',
2046 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2054 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
2061 * -- Written on 10-August-1987.
2078 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ), local
2085 COMPLEX ALPHA, ALS, TRANSL local
2147 * Generate the vector X.
2150 CALL CMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX, ABS( INCX ),
2151 $ 0, N - 1, RESET, TRANSL )
2153 X( N/2 ) = ZERO
2154 XX( 1 + ABS( INCX )*( N/2 - 1 ) ) = ZERO
2165 $ ABS( INCY ), 0, N - 1, RESET, TRANSL )
2168 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2172 ALPHA = ALF( IA )
2173 NULL = N.LE.0.OR.ALPHA.EQ.ZERO
2179 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2188 ALS = ALPHA
2207 $ ALPHA, INCX, INCY, LDA
2210 CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2215 $ ALPHA, INCX, INCY
2218 CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2222 * Check if error-exit was taken incorrectly.
2234 ISAME( 3 ) = ALS.EQ.ALPHA
2268 Z( I, 1 ) = X( I )
2272 Z( I, 1 ) = X( N - I + 1 )
2281 Z( I, 2 ) = Y( N - I + 1 )
2286 W( 1 ) = ALPHA*CONJG( Z( J, 2 ) )
2287 W( 2 ) = CONJG( ALPHA )*CONJG( Z( J, 1 ) )
2293 LJ = N - J + 1
2344 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2347 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2355 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2359 $ ' - SUSPECT *******' )
2362 9994 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', I3, ',(', F4.1, ',',
2363 $ F4.1, '), X,', I2, ', Y,', I2, ', AP) ',
2365 9993 FORMAT( 1X, I6, ': ', A6, '(''', A1, ''',', I3, ',(', F4.1, ',',
2366 $ F4.1, '), X,', I2, ', Y,', I2, ', A,', I3, ') ',
2368 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2377 * Requires a special version of the error-handling routine XERBLA.
2378 * ALPHA, RALPHA, BETA, A, X and Y should not need to be defined.
2382 * -- Written on 10-August-1987.
2393 COMPLEX ALPHA, BETA local
2396 COMPLEX A( 1, 1 ), X( 1 ), Y( 1 ) local
2408 * it is called, and is then tested and re-set by CHKXER.
2414 CALL CGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2417 CALL CGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2420 CALL CGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2423 CALL CGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2426 CALL CGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2429 CALL CGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2433 CALL CGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2436 CALL CGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2439 CALL CGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2442 CALL CGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2445 CALL CGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2448 CALL CGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2451 CALL CGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2454 CALL CGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2458 CALL CHEMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2461 CALL CHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2464 CALL CHEMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2467 CALL CHEMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2470 CALL CHEMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2474 CALL CHBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2477 CALL CHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2480 CALL CHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2483 CALL CHBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2486 CALL CHBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2489 CALL CHBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2493 CALL CHPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2496 CALL CHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2499 CALL CHPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2502 CALL CHPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2506 CALL CTRMV( '/', 'N', 'N', 0, A, 1, X, 1 )
2509 CALL CTRMV( 'U', '/', 'N', 0, A, 1, X, 1 )
2512 CALL CTRMV( 'U', 'N', '/', 0, A, 1, X, 1 )
2515 CALL CTRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2518 CALL CTRMV( 'U', 'N', 'N', 2, A, 1, X, 1 )
2521 CALL CTRMV( 'U', 'N', 'N', 0, A, 1, X, 0 )
2525 CALL CTBMV( '/', 'N', 'N', 0, 0, A, 1, X, 1 )
2528 CALL CTBMV( 'U', '/', 'N', 0, 0, A, 1, X, 1 )
2531 CALL CTBMV( 'U', 'N', '/', 0, 0, A, 1, X, 1 )
2534 CALL CTBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2537 CALL CTBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2540 CALL CTBMV( 'U', 'N', 'N', 0, 1, A, 1, X, 1 )
2543 CALL CTBMV( 'U', 'N', 'N', 0, 0, A, 1, X, 0 )
2547 CALL CTPMV( '/', 'N', 'N', 0, A, X, 1 )
2550 CALL CTPMV( 'U', '/', 'N', 0, A, X, 1 )
2553 CALL CTPMV( 'U', 'N', '/', 0, A, X, 1 )
2556 CALL CTPMV( 'U', 'N', 'N', -1, A, X, 1 )
2559 CALL CTPMV( 'U', 'N', 'N', 0, A, X, 0 )
2563 CALL CTRSV( '/', 'N', 'N', 0, A, 1, X, 1 )
2566 CALL CTRSV( 'U', '/', 'N', 0, A, 1, X, 1 )
2569 CALL CTRSV( 'U', 'N', '/', 0, A, 1, X, 1 )
2572 CALL CTRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2575 CALL CTRSV( 'U', 'N', 'N', 2, A, 1, X, 1 )
2578 CALL CTRSV( 'U', 'N', 'N', 0, A, 1, X, 0 )
2582 CALL CTBSV( '/', 'N', 'N', 0, 0, A, 1, X, 1 )
2585 CALL CTBSV( 'U', '/', 'N', 0, 0, A, 1, X, 1 )
2588 CALL CTBSV( 'U', 'N', '/', 0, 0, A, 1, X, 1 )
2591 CALL CTBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2594 CALL CTBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2597 CALL CTBSV( 'U', 'N', 'N', 0, 1, A, 1, X, 1 )
2600 CALL CTBSV( 'U', 'N', 'N', 0, 0, A, 1, X, 0 )
2604 CALL CTPSV( '/', 'N', 'N', 0, A, X, 1 )
2607 CALL CTPSV( 'U', '/', 'N', 0, A, X, 1 )
2610 CALL CTPSV( 'U', 'N', '/', 0, A, X, 1 )
2613 CALL CTPSV( 'U', 'N', 'N', -1, A, X, 1 )
2616 CALL CTPSV( 'U', 'N', 'N', 0, A, X, 0 )
2620 CALL CGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2623 CALL CGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2626 CALL CGERC( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2629 CALL CGERC( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2632 CALL CGERC( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2636 CALL CGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2639 CALL CGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2642 CALL CGERU( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2645 CALL CGERU( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2648 CALL CGERU( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2652 CALL CHER( '/', 0, RALPHA, X, 1, A, 1 )
2655 CALL CHER( 'U', -1, RALPHA, X, 1, A, 1 )
2658 CALL CHER( 'U', 0, RALPHA, X, 0, A, 1 )
2661 CALL CHER( 'U', 2, RALPHA, X, 1, A, 1 )
2665 CALL CHPR( '/', 0, RALPHA, X, 1, A )
2668 CALL CHPR( 'U', -1, RALPHA, X, 1, A )
2671 CALL CHPR( 'U', 0, RALPHA, X, 0, A )
2675 CALL CHER2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2678 CALL CHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2681 CALL CHER2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2684 CALL CHER2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2687 CALL CHER2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2691 CALL CHPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2694 CALL CHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2697 CALL CHPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2700 CALL CHPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2710 9999 FORMAT( ' ', A6, ' PASSED THE TESTS OF ERROR-EXITS' )
2711 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2729 * -- Written on 10-August-1987.
2737 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2741 PARAMETER ( RROGUE = -1.0E10 )
2772 IF( ( I.LE.J.AND.J - I.LE.KU ).OR.
2773 $ ( I.GE.J.AND.I - J.LE.KL ) )THEN
2800 AA( I + ( J - 1 )*LDA ) = A( I, J )
2803 AA( I + ( J - 1 )*LDA ) = ROGUE
2808 DO 60 I1 = 1, KU + 1 - J
2809 AA( I1 + ( J - 1 )*LDA ) = ROGUE
2811 DO 70 I2 = I1, MIN( KL + KU + 1, KU + 1 + M - J )
2812 AA( I2 + ( J - 1 )*LDA ) = A( I2 + J - KU - 1, J )
2815 AA( I3 + ( J - 1 )*LDA ) = ROGUE
2823 IEND = J - 1
2835 DO 100 I = 1, IBEG - 1
2836 AA( I + ( J - 1 )*LDA ) = ROGUE
2839 AA( I + ( J - 1 )*LDA ) = A( I, J )
2842 AA( I + ( J - 1 )*LDA ) = ROGUE
2845 JJ = J + ( J - 1 )*LDA
2853 IBEG = MAX( 1, KL + 2 - J )
2866 IEND = MIN( KL + 1, 1 + M - J )
2868 DO 140 I = 1, IBEG - 1
2869 AA( I + ( J - 1 )*LDA ) = ROGUE
2872 AA( I + ( J - 1 )*LDA ) = A( I + J - KK, J )
2875 AA( I + ( J - 1 )*LDA ) = ROGUE
2878 JJ = KK + ( J - 1 )*LDA
2909 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2916 * -- Written on 10-August-1987.
2926 COMPLEX ALPHA, BETA local
2932 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * ) local
2957 INCXL = -1
2964 INCYL = -1
2970 * Compute expected result in YT using data in A, X and Y.
2980 YT( IY ) = YT( IY ) + A( J, I )*X( JX )
2981 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) )
2986 YT( IY ) = YT( IY ) + CONJG( A( J, I ) )*X( JX )
2987 G( IY ) = G( IY ) + ABS1( A( J, I ) )*ABS1( X( JX ) )
2992 YT( IY ) = YT( IY ) + A( I, J )*X( JX )
2993 G( IY ) = G( IY ) + ABS1( A( I, J ) )*ABS1( X( JX ) )
2997 YT( IY ) = ALPHA*YT( IY ) + BETA*Y( IY )
2998 G( IY ) = ABS1( ALPHA )*G( IY ) + ABS1( BETA )*ABS1( Y( IY ) )
3006 ERRI = ABS( YT( I ) - YY( 1 + ( I - 1 )*ABS( INCY ) ) )/EPS
3023 $ YY( 1 + ( I - 1 )*ABS( INCY ) )
3026 $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT( I )
3033 9999 FORMAT( ' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
3036 9998 FORMAT( 1X, I7, 2( ' (', G15.6, ',', G15.6, ')' ) )
3047 * -- Written on 10-August-1987.
3079 * -- Written on 10-August-1987.
3110 DO 30 I = 1, IBEG - 1
3133 * distributed between -0.5 and 0.5.
3137 * -- Written on 10-August-1987.
3170 I = I - 1000*( I/1000 )
3171 J = J - 1000*( J/1000 )
3176 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
3182 REAL FUNCTION SDIFF( X, Y )
3186 * -- Written on 10-August-1987.
3190 REAL X, Y local
3192 SDIFF = X - Y
3204 * -- Written on 10-August-1987.
3239 * -- Written on 10-August-1987.