/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cuncsd2by1.f | 285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 378 ITAUP2 = ITAUP1 + MAX( 1, P ) 379 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 511 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 523 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 566 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 583 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 620 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 639 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 680 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | dorcsd2by1.f | 263 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 342 ITAUP2 = ITAUP1 + MAX( 1, P ) 343 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 474 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 486 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 529 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 546 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 583 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 602 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 643 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | zuncsd2by1.f | 284 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 377 ITAUP2 = ITAUP1 + MAX( 1, P ) 378 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 510 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 522 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 565 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 582 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 619 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 638 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 679 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | sorcsd2by1.f | 261 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 340 ITAUP2 = ITAUP1 + MAX( 1, P ) 341 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 472 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 484 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 527 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 544 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 581 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 600 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 641 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | cuncsd2by1.f | 285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 382 ITAUP2 = ITAUP1 + MAX( 1, P ) 383 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 538 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 550 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 593 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 610 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 647 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 666 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 707 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | sorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | zuncsd2by1.f | 284 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 381 ITAUP2 = ITAUP1 + MAX( 1, P ) 382 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 536 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 548 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 591 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 608 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 645 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 664 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 705 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | sorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | zuncsd2by1.f | 284 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 381 ITAUP2 = ITAUP1 + MAX( 1, P ) 382 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 536 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 548 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 591 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 608 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 645 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 664 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 705 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | cuncsd2by1.f | 285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 382 ITAUP2 = ITAUP1 + MAX( 1, P ) 383 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 538 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 550 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 593 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 610 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 647 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 666 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 707 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | dorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | cuncsd2by1.f | 285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 382 ITAUP2 = ITAUP1 + MAX( 1, P ) 383 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 538 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 550 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 593 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 610 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 647 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 666 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 707 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | dorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | zuncsd2by1.f | 284 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 381 ITAUP2 = ITAUP1 + MAX( 1, P ) 382 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 536 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 548 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 591 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 608 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 645 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 664 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 705 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | sorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | cuncsd2by1.f | 285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 382 ITAUP2 = ITAUP1 + MAX( 1, P ) 383 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 538 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 550 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 593 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 610 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 647 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 666 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 707 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | zuncsd2by1.f | 284 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 381 ITAUP2 = ITAUP1 + MAX( 1, P ) 382 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 536 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 548 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 591 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 608 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 645 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 664 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 705 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | sorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dorcsd2by1.f | 262 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, local 344 ITAUP2 = ITAUP1 + MAX( 1, P ) 345 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 502 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 514 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 557 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 574 CALL DORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 611 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 630 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 671 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | cuncsd2by1.f | 286 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, local 383 ITAUP2 = ITAUP1 + MAX( 1, P ) 384 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 536 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 548 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 591 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 608 CALL CUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 645 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 664 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 705 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | zuncsd2by1.f | 285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 382 ITAUP2 = ITAUP1 + MAX( 1, P ) 383 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 534 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 546 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 589 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 606 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 643 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 662 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 703 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
H A D | sorcsd2by1.f | 262 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, local 344 ITAUP2 = ITAUP1 + MAX( 1, P ) 345 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 502 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 514 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 557 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 574 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 611 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 630 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 671 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | sorcsd2by1.f | 259 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1, 341 ITAUP2 = ITAUP1 + MAX( 1, P ) 342 ITAUQ1 = ITAUP2 + MAX( 1, M-P ) 499 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 511 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 554 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 571 CALL SORGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2), 608 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), 627 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO ) 668 $ WORK(IPHI), WORK(ITAUP1), WORK(ITAUP2), [all …]
|