/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dgesvdq.f | 439 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 464 WNTUA = LSAME( JOBU, 'A' ) 466 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 541 ELSE IF ( WNTUA ) THEN 556 ELSE IF ( WNTUA ) THEN 781 IF ( WNTUA ) CALL DLASET('G', M, M, ZERO, ONE, U, LDU) 925 ELSE IF ( WNTUA ) THEN
|
H A D | sgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 467 WNTUA = LSAME( JOBU, 'A' ) 469 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 544 ELSE IF ( WNTUA ) THEN 559 ELSE IF ( WNTUA ) THEN 784 IF ( WNTUA ) CALL SLASET('G', M, M, ZERO, ONE, U, LDU) 928 ELSE IF ( WNTUA ) THEN
|
H A D | cgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 540 ELSE IF ( WNTUA ) THEN 555 ELSE IF ( WNTUA ) THEN 778 IF ( WNTUA ) CALL CLASET('G', M, M, CZERO, CONE, U, LDU) 922 ELSE IF ( WNTUA ) THEN
|
H A D | zgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 538 ELSE IF ( WNTUA ) THEN 553 ELSE IF ( WNTUA ) THEN 776 IF ( WNTUA ) CALL ZLASET('G', M, M, CZERO, CONE, U, LDU) 920 ELSE IF ( WNTUA ) THEN
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | sgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 467 WNTUA = LSAME( JOBU, 'A' ) 469 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 544 ELSE IF ( WNTUA ) THEN 559 ELSE IF ( WNTUA ) THEN 784 IF ( WNTUA ) CALL SLASET('G', M, M, ZERO, ONE, U, LDU) 928 ELSE IF ( WNTUA ) THEN
|
H A D | cgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 540 ELSE IF ( WNTUA ) THEN 555 ELSE IF ( WNTUA ) THEN 778 IF ( WNTUA ) CALL CLASET('G', M, M, CZERO, CONE, U, LDU) 922 ELSE IF ( WNTUA ) THEN
|
H A D | dgesvdq.f | 439 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 464 WNTUA = LSAME( JOBU, 'A' ) 466 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 541 ELSE IF ( WNTUA ) THEN 556 ELSE IF ( WNTUA ) THEN 781 IF ( WNTUA ) CALL DLASET('G', M, M, ZERO, ONE, U, LDU) 925 ELSE IF ( WNTUA ) THEN
|
H A D | zgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 538 ELSE IF ( WNTUA ) THEN 553 ELSE IF ( WNTUA ) THEN 776 IF ( WNTUA ) CALL ZLASET('G', M, M, CZERO, CONE, U, LDU) 920 ELSE IF ( WNTUA ) THEN
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dgesvdq.f | 439 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 464 WNTUA = LSAME( JOBU, 'A' ) 466 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 541 ELSE IF ( WNTUA ) THEN 556 ELSE IF ( WNTUA ) THEN 781 IF ( WNTUA ) CALL DLASET('G', M, M, ZERO, ONE, U, LDU) 925 ELSE IF ( WNTUA ) THEN
|
H A D | sgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 467 WNTUA = LSAME( JOBU, 'A' ) 469 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 544 ELSE IF ( WNTUA ) THEN 559 ELSE IF ( WNTUA ) THEN 784 IF ( WNTUA ) CALL SLASET('G', M, M, ZERO, ONE, U, LDU) 928 ELSE IF ( WNTUA ) THEN
|
H A D | cgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 540 ELSE IF ( WNTUA ) THEN 555 ELSE IF ( WNTUA ) THEN 778 IF ( WNTUA ) CALL CLASET('G', M, M, CZERO, CONE, U, LDU) 922 ELSE IF ( WNTUA ) THEN
|
H A D | zgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 538 ELSE IF ( WNTUA ) THEN 553 ELSE IF ( WNTUA ) THEN 776 IF ( WNTUA ) CALL ZLASET('G', M, M, CZERO, CONE, U, LDU) 920 ELSE IF ( WNTUA ) THEN
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | cgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 540 ELSE IF ( WNTUA ) THEN 555 ELSE IF ( WNTUA ) THEN 778 IF ( WNTUA ) CALL CLASET('G', M, M, CZERO, CONE, U, LDU) 922 ELSE IF ( WNTUA ) THEN
|
H A D | dgesvdq.f | 439 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 464 WNTUA = LSAME( JOBU, 'A' ) 466 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 541 ELSE IF ( WNTUA ) THEN 556 ELSE IF ( WNTUA ) THEN 781 IF ( WNTUA ) CALL DLASET('G', M, M, ZERO, ONE, U, LDU) 925 ELSE IF ( WNTUA ) THEN
|
H A D | sgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 467 WNTUA = LSAME( JOBU, 'A' ) 469 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 544 ELSE IF ( WNTUA ) THEN 559 ELSE IF ( WNTUA ) THEN 784 IF ( WNTUA ) CALL SLASET('G', M, M, ZERO, ONE, U, LDU) 928 ELSE IF ( WNTUA ) THEN
|
H A D | zgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 538 ELSE IF ( WNTUA ) THEN 553 ELSE IF ( WNTUA ) THEN 776 IF ( WNTUA ) CALL ZLASET('G', M, M, CZERO, CONE, U, LDU) 920 ELSE IF ( WNTUA ) THEN
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | cgesvdq.f | 442 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, local 471 WNTUA = LSAME( JOBU, 'A' ) 473 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 542 ELSE IF ( WNTUA ) THEN 557 ELSE IF ( WNTUA ) THEN 780 IF ( WNTUA ) CALL CLASET('G', M, M, CZERO, CONE, U, LDU) 924 ELSE IF ( WNTUA ) THEN
|
H A D | dgesvdq.f | 441 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, local 466 WNTUA = LSAME( JOBU, 'A' ) 468 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 543 ELSE IF ( WNTUA ) THEN 558 ELSE IF ( WNTUA ) THEN 783 IF ( WNTUA ) CALL DLASET('G', M, M, ZERO, ONE, U, LDU) 927 ELSE IF ( WNTUA ) THEN
|
H A D | sgesvdq.f | 442 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, local 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 546 ELSE IF ( WNTUA ) THEN 561 ELSE IF ( WNTUA ) THEN 786 IF ( WNTUA ) CALL SLASET('G', M, M, ZERO, ONE, U, LDU) 930 ELSE IF ( WNTUA ) THEN
|
H A D | zgesvdq.f | 442 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, local 471 WNTUA = LSAME( JOBU, 'A' ) 473 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 540 ELSE IF ( WNTUA ) THEN 555 ELSE IF ( WNTUA ) THEN 778 IF ( WNTUA ) CALL ZLASET('G', M, M, CZERO, CONE, U, LDU) 922 ELSE IF ( WNTUA ) THEN
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | cgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 540 ELSE IF ( WNTUA ) THEN 555 ELSE IF ( WNTUA ) THEN 778 IF ( WNTUA ) CALL CLASET('G', M, M, CZERO, CONE, U, LDU) 922 ELSE IF ( WNTUA ) THEN
|
H A D | dgesvdq.f | 439 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 464 WNTUA = LSAME( JOBU, 'A' ) 466 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 541 ELSE IF ( WNTUA ) THEN 556 ELSE IF ( WNTUA ) THEN 781 IF ( WNTUA ) CALL DLASET('G', M, M, ZERO, ONE, U, LDU) 925 ELSE IF ( WNTUA ) THEN
|
H A D | sgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 467 WNTUA = LSAME( JOBU, 'A' ) 469 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 544 ELSE IF ( WNTUA ) THEN 559 ELSE IF ( WNTUA ) THEN 784 IF ( WNTUA ) CALL SLASET('G', M, M, ZERO, ONE, U, LDU) 928 ELSE IF ( WNTUA ) THEN
|
H A D | zgesvdq.f | 440 $ LQUERY, LSVC0, LSVEC, ROWPRM, RSVEC, RTRANS, WNTUA, 469 WNTUA = LSAME( JOBU, 'A' ) 471 LSVC0 = WNTUS .OR. WNTUR .OR. WNTUA 538 ELSE IF ( WNTUA ) THEN 553 ELSE IF ( WNTUA ) THEN 776 IF ( WNTUA ) CALL ZLASET('G', M, M, CZERO, CONE, U, LDU) 920 ELSE IF ( WNTUA ) THEN
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cgesvd.f | 242 LOGICAL LQUERY, WNTUA, WNTUAS, WNTUN, WNTUO, WNTUS, 277 WNTUA = LSAME( JOBU, 'A' ) 279 WNTUAS = WNTUA .OR. WNTUS 289 IF( .NOT.( WNTUA .OR. WNTUS .OR. WNTUO .OR. WNTUN ) ) THEN 409 ELSE IF( WNTUA .AND. WNTVN ) THEN 419 ELSE IF( WNTUA .AND. WNTVO ) THEN 430 ELSE IF( WNTUA .AND. WNTVAS ) THEN 457 IF( WNTUA ) THEN 1533 ELSE IF( WNTUA ) THEN 2079 IF( WNTUA )
|