Lines Matching refs:RALPHA
1763 REAL ERR, ERRMAX, RALPHA, RALS local
1834 RALPHA = REAL( ALF( IA ) )
1835 ALPHA = CMPLX( RALPHA, RZERO )
1836 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
1850 RALS = RALPHA
1865 $ RALPHA, INCX, LDA
1868 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1872 $ RALPHA, INCX
1875 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA )
1890 ISAME( 3 ) = RALS.EQ.RALPHA
1986 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1988 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2355 REAL RALPHA local
2613 CALL CHER( '/', 0, RALPHA, X, 1, A, 1 )
2616 CALL CHER( 'U', -1, RALPHA, X, 1, A, 1 )
2619 CALL CHER( 'U', 0, RALPHA, X, 0, A, 1 )
2622 CALL CHER( 'U', 2, RALPHA, X, 1, A, 1 )
2626 CALL CHPR( '/', 0, RALPHA, X, 1, A )
2629 CALL CHPR( 'U', -1, RALPHA, X, 1, A )
2632 CALL CHPR( 'U', 0, RALPHA, X, 0, A )