Lines Matching refs:ONE
215 COMPLEX ONE
216 PARAMETER ( ONE = ( 1.0E+0, 0.0E+0 ) )
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
281 $ V( K+1, 1 ), LDV, ONE, WORK, LDWORK )
287 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
296 $ LASTV-K, LASTC, K, -ONE, V( K+1, 1 ), LDV,
297 $ WORK, LDWORK, ONE, C( K+1, 1 ), LDC )
303 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
331 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
338 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
339 $ ONE, WORK, LDWORK )
345 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
355 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
356 $ ONE, C( 1, K+1 ), LDC )
362 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
400 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
407 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
408 $ ONE, WORK, LDWORK )
414 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
423 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
424 $ ONE, C, LDC )
430 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
461 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
469 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
475 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
484 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
485 $ ONE, C, LDC )
491 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
532 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
539 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
540 $ ONE, WORK, LDWORK )
546 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
556 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
557 $ ONE, C( K+1, 1 ), LDC )
563 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
591 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
597 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
598 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
604 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
614 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
615 $ ONE, C( 1, K+1 ), LDC )
621 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
659 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
667 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
673 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
683 $ -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
689 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
720 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
727 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
734 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
743 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
744 $ ONE, C, LDC )
750 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,