Lines Matching refs:REAL
3 REAL ALPHA
18 * where alpha is a real scalar, x is an n element vector and A is an
42 * ALPHA - REAL .
106 INTRINSIC CONJG,REAL
126 IF ((N.EQ.0) .OR. (ALPHA.EQ.REAL(ZERO))) RETURN
153 AP(KK+J-1) = REAL(AP(KK+J-1)) + REAL(X(J)*TEMP)
155 AP(KK+J-1) = REAL(AP(KK+J-1))
169 AP(KK+J-1) = REAL(AP(KK+J-1)) + REAL(X(JX)*TEMP)
171 AP(KK+J-1) = REAL(AP(KK+J-1))
185 AP(KK) = REAL(AP(KK)) + REAL(TEMP*X(J))
192 AP(KK) = REAL(AP(KK))
201 AP(KK) = REAL(AP(KK)) + REAL(TEMP*X(JX))
208 AP(KK) = REAL(AP(KK))
