Lines Matching refs:RALPHA
1866 REAL ERR, ERRMAX, RALPHA, RALS local
1943 RALPHA = REAL( ALF( IA ) )
1944 ALPHA = CMPLX( RALPHA, RZERO )
1945 NULL = N.LE.0.OR.RALPHA.EQ.RZERO
1959 RALS = RALPHA
1974 $ RALPHA, INCX, LDA
1977 CALL CCHER( IORDER, UPLO, N, RALPHA, XX,
1982 $ RALPHA, INCX
1985 CALL CCHPR( IORDER, UPLO, N, RALPHA,
2001 ISAME( 3 ) = RALS.EQ.RALPHA
2097 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, RALPHA, INCX, LDA
2099 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, RALPHA, INCX