Lines Matching refs:YY
142 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) variable
303 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
309 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
310 SAME = LCE( YY, YT, N )
317 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
318 SAME = LCE( YY, YT, N )
349 $ X, XX, XS, Y, YY, YS, YT, G )
355 $ X, XX, XS, Y, YY, YS, YT, G )
361 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
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,
440 $ XS, Y, YY, YS, YT, G ) argument
466 $ YY( NMAX*INCMAX ) local
592 $ YY, ABS( INCY ), 0, ML - 1,
616 YS( I ) = YY( I )
630 $ LDA, XX, INCX, BETA, YY,
641 $ YY, INCY )
665 ISAME( 10 ) = LCE( YS, YY, LY )
668 $ ML, YS, YY,
682 ISAME( 12 ) = LCE( YS, YY, LY )
685 $ ML, YS, YY,
711 $ INCY, YT, G, YY, EPS, ERR,
785 $ XS, Y, YY, YS, YT, G ) argument
811 $ YY( NMAX*INCMAX ) local
924 CALL CMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
947 YS( I ) = YY( I )
960 $ INCX, BETA, YY, INCY )
969 $ XX, INCX, BETA, YY, INCY )
977 $ BETA, YY, INCY )
1000 ISAME( 9 ) = LCE( YS, YY, LY )
1003 $ YS, YY, ABS( INCY ) )
1015 ISAME( 10 ) = LCE( YS, YY, LY )
1018 $ YS, YY, ABS( INCY ) )
1028 ISAME( 8 ) = LCE( YS, YY, LY )
1031 $ YS, YY, ABS( INCY ) )
1056 $ YY, EPS, ERR, FATAL, NOUT,
1493 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1520 $ YY( NMAX*INCMAX ), Z( NMAX ) local
1595 CALL CMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
1599 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
1627 YS( I ) = YY( I )
1639 CALL CGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1644 CALL CGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1663 ISAME( 6 ) = LCE( YS, YY, LY )
1770 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
1797 $ YY( NMAX*INCMAX ), Z( NMAX ) local
2054 $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, argument
2081 $ YY( NMAX*INCMAX ), Z( NMAX, 2 ) local
2164 CALL CMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
2168 YY( 1 + ABS( INCY )*( N/2 - 1 ) ) = ZERO
2198 YS( I ) = YY( I )
2210 CALL CHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2218 CALL CHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2237 ISAME( 6 ) = LCE( YS, YY, LY )
2910 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) argument
2932 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * ) local
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 )