Lines Matching refs:ONE
215 COMPLEX*16 ONE
216 PARAMETER ( ONE = ( 1.0D+0, 0.0D+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 )
297 $ -ONE, V( K+1, 1 ), LDV, WORK, LDWORK,
298 $ ONE, C( K+1, 1 ), LDC )
304 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
332 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
339 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
340 $ ONE, WORK, LDWORK )
346 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
356 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
357 $ ONE, C( 1, K+1 ), LDC )
363 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
401 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
409 $ ONE, C, LDC, V, LDV,
410 $ ONE, WORK, LDWORK )
416 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
426 $ -ONE, V, LDV, WORK, LDWORK,
427 $ ONE, C, LDC )
433 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
464 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
472 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
478 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
487 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
488 $ ONE, C, LDC )
494 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
535 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
542 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
543 $ ONE, WORK, LDWORK )
549 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
559 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
560 $ ONE, C( K+1, 1 ), LDC )
566 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
594 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
600 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
601 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
607 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
617 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
618 $ ONE, C( 1, K+1 ), LDC )
624 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
662 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
670 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
676 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
686 $ -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
692 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
723 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
730 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
737 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
746 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
747 $ ONE, C, LDC )
753 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
