Lines Matching refs:REAL
117 INTRINSIC CONJG,REAL
177 AP(KK+J-1) = REAL(AP(KK+J-1)) +
178 + REAL(X(J)*TEMP1+Y(J)*TEMP2)
180 AP(KK+J-1) = REAL(AP(KK+J-1))
196 AP(KK+J-1) = REAL(AP(KK+J-1)) +
197 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
199 AP(KK+J-1) = REAL(AP(KK+J-1))
215 AP(KK) = REAL(AP(KK)) +
216 + REAL(X(J)*TEMP1+Y(J)*TEMP2)
223 AP(KK) = REAL(AP(KK))
232 AP(KK) = REAL(AP(KK)) +
233 + REAL(X(JX)*TEMP1+Y(JY)*TEMP2)
242 AP(KK) = REAL(AP(KK))
