Lines Matching refs:RALPHA
1808 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS local
1879 RALPHA = DBLE( ALF( IA ) )
1880 ALPHA = DCMPLX( RALPHA, RZERO )
1881 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
1895 RALS = RALPHA
1910 $ RALPHA, INCX, LDA
1913 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1917 $ RALPHA, INCX
1920 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1935 ISAME( 3 ) = RALS.EQ.RALPHA
2031 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
2033 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2401 DOUBLE PRECISION RALPHA local
2659 CALL ZHER( '/', 0, RALPHA, X, 1, A, 1 )
2662 CALL ZHER( 'U', -1, RALPHA, X, 1, A, 1 )
2665 CALL ZHER( 'U', 0, RALPHA, X, 0, A, 1 )
2668 CALL ZHER( 'U', 2, RALPHA, X, 1, A, 1 )
2672 CALL ZHPR( '/', 0, RALPHA, X, 1, A )
2675 CALL ZHPR( 'U', -1, RALPHA, X, 1, A )
2678 CALL ZHPR( 'U', 0, RALPHA, X, 0, A )