Lines Matching refs:STEMP
149 DOUBLE PRECISION CTEMP, STEMP, TEMP
198 STEMP = S( J )
199 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
202 A( J+1, I ) = CTEMP*TEMP - STEMP*A( J, I )
203 A( J, I ) = STEMP*TEMP + CTEMP*A( J, I )
210 STEMP = S( J )
211 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
214 A( J+1, I ) = CTEMP*TEMP - STEMP*A( J, I )
215 A( J, I ) = STEMP*TEMP + CTEMP*A( J, I )
224 STEMP = S( J-1 )
225 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
228 A( J, I ) = CTEMP*TEMP - STEMP*A( 1, I )
229 A( 1, I ) = STEMP*TEMP + CTEMP*A( 1, I )
236 STEMP = S( J-1 )
237 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
240 A( J, I ) = CTEMP*TEMP - STEMP*A( 1, I )
241 A( 1, I ) = STEMP*TEMP + CTEMP*A( 1, I )
250 STEMP = S( J )
251 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
254 A( J, I ) = STEMP*A( M, I ) + CTEMP*TEMP
255 A( M, I ) = CTEMP*A( M, I ) - STEMP*TEMP
262 STEMP = S( J )
263 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
266 A( J, I ) = STEMP*A( M, I ) + CTEMP*TEMP
267 A( M, I ) = CTEMP*A( M, I ) - STEMP*TEMP
281 STEMP = S( J )
282 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
285 A( I, J+1 ) = CTEMP*TEMP - STEMP*A( I, J )
286 A( I, J ) = STEMP*TEMP + CTEMP*A( I, J )
293 STEMP = S( J )
294 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
297 A( I, J+1 ) = CTEMP*TEMP - STEMP*A( I, J )
298 A( I, J ) = STEMP*TEMP + CTEMP*A( I, J )
307 STEMP = S( J-1 )
308 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
311 A( I, J ) = CTEMP*TEMP - STEMP*A( I, 1 )
312 A( I, 1 ) = STEMP*TEMP + CTEMP*A( I, 1 )
319 STEMP = S( J-1 )
320 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
323 A( I, J ) = CTEMP*TEMP - STEMP*A( I, 1 )
324 A( I, 1 ) = STEMP*TEMP + CTEMP*A( I, 1 )
333 STEMP = S( J )
334 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
337 A( I, J ) = STEMP*A( I, N ) + CTEMP*TEMP
338 A( I, N ) = CTEMP*A( I, N ) - STEMP*TEMP
345 STEMP = S( J )
346 IF( ( CTEMP.NE.ONE ) .OR. ( STEMP.NE.ZERO ) ) THEN
349 A( I, J ) = STEMP*A( I, N ) + CTEMP*TEMP
350 A( I, N ) = CTEMP*A( I, N ) - STEMP*TEMP