/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dgesvdq.f | 440 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 471 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 472 RSVEC = WNTVR .OR. WNTVA 508 ELSE IF ( WNTUR .AND. WNTVA ) THEN 639 IF ( WNTVA ) THEN 655 IF ( WNTVA ) THEN 675 IF ( WNTVA ) THEN 697 IF ( WNTVA ) THEN 782 IF ( WNTVA ) CALL DLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | sgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 474 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 475 RSVEC = WNTVR .OR. WNTVA 511 ELSE IF ( WNTUR .AND. WNTVA ) THEN 642 IF ( WNTVA ) THEN 658 IF ( WNTVA ) THEN 678 IF ( WNTVA ) THEN 700 IF ( WNTVA ) THEN 785 IF ( WNTVA ) CALL SLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | cgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 638 IF ( WNTVA ) THEN 654 IF ( WNTVA ) THEN 674 IF ( WNTVA ) THEN 696 IF ( WNTVA ) THEN 779 IF ( WNTVA ) CALL CLASET('G', N, N, CZERO, CONE, V, LDV)
|
H A D | zgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 636 IF ( WNTVA ) THEN 652 IF ( WNTVA ) THEN 672 IF ( WNTVA ) THEN 694 IF ( WNTVA ) THEN 777 IF ( WNTVA ) CALL ZLASET('G', N, N, CZERO, CONE, V, LDV)
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | sgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 474 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 475 RSVEC = WNTVR .OR. WNTVA 511 ELSE IF ( WNTUR .AND. WNTVA ) THEN 642 IF ( WNTVA ) THEN 658 IF ( WNTVA ) THEN 678 IF ( WNTVA ) THEN 700 IF ( WNTVA ) THEN 785 IF ( WNTVA ) CALL SLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | cgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 638 IF ( WNTVA ) THEN 654 IF ( WNTVA ) THEN 674 IF ( WNTVA ) THEN 696 IF ( WNTVA ) THEN 779 IF ( WNTVA ) CALL CLASET('G', N, N, CZERO, CONE, V, LDV)
|
H A D | dgesvdq.f | 440 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 471 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 472 RSVEC = WNTVR .OR. WNTVA 508 ELSE IF ( WNTUR .AND. WNTVA ) THEN 639 IF ( WNTVA ) THEN 655 IF ( WNTVA ) THEN 675 IF ( WNTVA ) THEN 697 IF ( WNTVA ) THEN 782 IF ( WNTVA ) CALL DLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | zgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 636 IF ( WNTVA ) THEN 652 IF ( WNTVA ) THEN 672 IF ( WNTVA ) THEN 694 IF ( WNTVA ) THEN 777 IF ( WNTVA ) CALL ZLASET('G', N, N, CZERO, CONE, V, LDV)
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dgesvdq.f | 440 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 471 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 472 RSVEC = WNTVR .OR. WNTVA 508 ELSE IF ( WNTUR .AND. WNTVA ) THEN 639 IF ( WNTVA ) THEN 655 IF ( WNTVA ) THEN 675 IF ( WNTVA ) THEN 697 IF ( WNTVA ) THEN 782 IF ( WNTVA ) CALL DLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | sgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 474 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 475 RSVEC = WNTVR .OR. WNTVA 511 ELSE IF ( WNTUR .AND. WNTVA ) THEN 642 IF ( WNTVA ) THEN 658 IF ( WNTVA ) THEN 678 IF ( WNTVA ) THEN 700 IF ( WNTVA ) THEN 785 IF ( WNTVA ) CALL SLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | cgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 638 IF ( WNTVA ) THEN 654 IF ( WNTVA ) THEN 674 IF ( WNTVA ) THEN 696 IF ( WNTVA ) THEN 779 IF ( WNTVA ) CALL CLASET('G', N, N, CZERO, CONE, V, LDV)
|
H A D | zgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 636 IF ( WNTVA ) THEN 652 IF ( WNTVA ) THEN 672 IF ( WNTVA ) THEN 694 IF ( WNTVA ) THEN 777 IF ( WNTVA ) CALL ZLASET('G', N, N, CZERO, CONE, V, LDV)
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | cgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 638 IF ( WNTVA ) THEN 654 IF ( WNTVA ) THEN 674 IF ( WNTVA ) THEN 696 IF ( WNTVA ) THEN 779 IF ( WNTVA ) CALL CLASET('G', N, N, CZERO, CONE, V, LDV)
|
H A D | dgesvdq.f | 440 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 471 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 472 RSVEC = WNTVR .OR. WNTVA 508 ELSE IF ( WNTUR .AND. WNTVA ) THEN 639 IF ( WNTVA ) THEN 655 IF ( WNTVA ) THEN 675 IF ( WNTVA ) THEN 697 IF ( WNTVA ) THEN 782 IF ( WNTVA ) CALL DLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | sgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 474 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 475 RSVEC = WNTVR .OR. WNTVA 511 ELSE IF ( WNTUR .AND. WNTVA ) THEN 642 IF ( WNTVA ) THEN 658 IF ( WNTVA ) THEN 678 IF ( WNTVA ) THEN 700 IF ( WNTVA ) THEN 785 IF ( WNTVA ) CALL SLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | zgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 636 IF ( WNTVA ) THEN 652 IF ( WNTVA ) THEN 672 IF ( WNTVA ) THEN 694 IF ( WNTVA ) THEN 777 IF ( WNTVA ) CALL ZLASET('G', N, N, CZERO, CONE, V, LDV)
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | cgesvdq.f | 443 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR local 478 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 479 RSVEC = WNTVR .OR. WNTVA 507 ELSE IF ( WNTUR .AND. WNTVA ) THEN 640 IF ( WNTVA ) THEN 656 IF ( WNTVA ) THEN 676 IF ( WNTVA ) THEN 698 IF ( WNTVA ) THEN 781 IF ( WNTVA ) CALL CLASET('G', N, N, CZERO, CONE, V, LDV)
|
H A D | dgesvdq.f | 442 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR local 473 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 474 RSVEC = WNTVR .OR. WNTVA 510 ELSE IF ( WNTUR .AND. WNTVA ) THEN 641 IF ( WNTVA ) THEN 657 IF ( WNTVA ) THEN 677 IF ( WNTVA ) THEN 699 IF ( WNTVA ) THEN 784 IF ( WNTVA ) CALL DLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | sgesvdq.f | 443 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR local 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 513 ELSE IF ( WNTUR .AND. WNTVA ) THEN 644 IF ( WNTVA ) THEN 660 IF ( WNTVA ) THEN 680 IF ( WNTVA ) THEN 702 IF ( WNTVA ) THEN 787 IF ( WNTVA ) CALL SLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | zgesvdq.f | 443 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR local 478 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 479 RSVEC = WNTVR .OR. WNTVA 507 ELSE IF ( WNTUR .AND. WNTVA ) THEN 638 IF ( WNTVA ) THEN 654 IF ( WNTVA ) THEN 674 IF ( WNTVA ) THEN 696 IF ( WNTVA ) THEN 779 IF ( WNTVA ) CALL ZLASET('G', N, N, CZERO, CONE, V, LDV)
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | cgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 638 IF ( WNTVA ) THEN 654 IF ( WNTVA ) THEN 674 IF ( WNTVA ) THEN 696 IF ( WNTVA ) THEN 779 IF ( WNTVA ) CALL CLASET('G', N, N, CZERO, CONE, V, LDV)
|
H A D | dgesvdq.f | 440 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 471 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 472 RSVEC = WNTVR .OR. WNTVA 508 ELSE IF ( WNTUR .AND. WNTVA ) THEN 639 IF ( WNTVA ) THEN 655 IF ( WNTVA ) THEN 675 IF ( WNTVA ) THEN 697 IF ( WNTVA ) THEN 782 IF ( WNTVA ) CALL DLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | sgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 474 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 475 RSVEC = WNTVR .OR. WNTVA 511 ELSE IF ( WNTUR .AND. WNTVA ) THEN 642 IF ( WNTVA ) THEN 658 IF ( WNTVA ) THEN 678 IF ( WNTVA ) THEN 700 IF ( WNTVA ) THEN 785 IF ( WNTVA ) CALL SLASET('G', N, N, ZERO, ONE, V, LDV)
|
H A D | zgesvdq.f | 441 $ WNTUF, WNTUR, WNTUS, WNTVA, WNTVR 476 WNTVA = LSAME( JOBV, 'A' ) .OR. LSAME( JOBV, 'V' ) 477 RSVEC = WNTVR .OR. WNTVA 505 ELSE IF ( WNTUR .AND. WNTVA ) THEN 636 IF ( WNTVA ) THEN 652 IF ( WNTVA ) THEN 672 IF ( WNTVA ) THEN 694 IF ( WNTVA ) THEN 777 IF ( WNTVA ) CALL ZLASET('G', N, N, CZERO, CONE, V, LDV)
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cgesvd.f | 243 $ WNTVA, WNTVAS, WNTVN, WNTVO, WNTVS 282 WNTVA = LSAME( JOBVT, 'A' ) 284 WNTVAS = WNTVA .OR. WNTVS 291 ELSE IF( .NOT.( WNTVA .OR. WNTVS .OR. WNTVO .OR. WNTVN ) .OR. 302 ELSE IF( LDVT.LT.1 .OR. ( WNTVA .AND. LDVT.LT.N ) .OR. 559 ELSE IF( WNTVA .AND. WNTUN ) THEN 569 ELSE IF( WNTVA .AND. WNTUO ) THEN 580 ELSE IF( WNTVA .AND. WNTUAS ) THEN 608 IF( WNTVA ) THEN 3042 ELSE IF( WNTVA ) THEN [all …]
|