Lines Matching refs:RALPHA
1802 REAL ERR, ERRMAX, RALPHA, RALS local
1873 RALPHA = REAL( ALF( IA ) )
1874 ALPHA = CMPLX( RALPHA, RZERO )
1875 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
1889 RALS = RALPHA
1904 $ RALPHA, INCX, LDA
1907 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1911 $ RALPHA, INCX
1914 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1929 ISAME( 3 ) = RALS.EQ.RALPHA
2025 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2027 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2394 REAL RALPHA local
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 )