/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | chgeqz.f | 384 IFRSTM = 1 387 IFRSTM = ILO 512 CALL CROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 514 CALL CROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 553 CALL CROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 555 CALL CROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 571 CALL CSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 572 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 603 IF( IFRSTM.GT.ILAST ) 604 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 385 IFRSTM = 1 388 IFRSTM = ILO 513 CALL ZROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 515 CALL ZROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 554 CALL ZROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 556 CALL ZROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 572 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 573 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 604 IF( IFRSTM.GT.ILAST ) 605 $ IFRSTM = ILO [all …]
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | chgeqz.f | 384 IFRSTM = 1 387 IFRSTM = ILO 512 CALL CROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 514 CALL CROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 553 CALL CROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 555 CALL CROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 571 CALL CSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 572 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 603 IF( IFRSTM.GT.ILAST ) 604 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 385 IFRSTM = 1 388 IFRSTM = ILO 513 CALL ZROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 515 CALL ZROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 554 CALL ZROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 556 CALL ZROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 572 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 573 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 604 IF( IFRSTM.GT.ILAST ) 605 $ IFRSTM = ILO [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | zhgeqz.f | 490 IFRSTM = 1 493 IFRSTM = ILO 615 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 617 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 650 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 652 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 665 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 666 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 691 IF( IFRSTM.GT.ILAST ) 692 $ IFRSTM = ILO [all …]
|
H A D | chgeqz.f | 489 IFRSTM = 1 492 IFRSTM = ILO 614 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 616 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 649 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 651 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 664 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 665 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 690 IF( IFRSTM.GT.ILAST ) 691 $ IFRSTM = ILO [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | chgeqz.f | 348 IFRSTM = 1 351 IFRSTM = ILO 473 CALL CROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 475 CALL CROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 508 CALL CROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 510 CALL CROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 523 CALL CSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 524 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 549 IF( IFRSTM.GT.ILAST ) 550 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 349 IFRSTM = 1 352 IFRSTM = ILO 474 CALL ZROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 476 CALL ZROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 509 CALL ZROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 511 CALL ZROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 524 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 525 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 550 IF( IFRSTM.GT.ILAST ) 551 $ IFRSTM = ILO [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | chgeqz.f | 348 IFRSTM = 1 351 IFRSTM = ILO 473 CALL CROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 475 CALL CROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 508 CALL CROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 510 CALL CROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 523 CALL CSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 524 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 549 IF( IFRSTM.GT.ILAST ) 550 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 349 IFRSTM = 1 352 IFRSTM = ILO 474 CALL ZROT( JCH+1-IFRSTM, A( IFRSTM, JCH ), 1, 476 CALL ZROT( JCH-IFRSTM, B( IFRSTM, JCH ), 1, 509 CALL ZROT( ILAST-IFRSTM, A( IFRSTM, ILAST ), 1, 511 CALL ZROT( ILAST-IFRSTM, B( IFRSTM, ILAST ), 1, 524 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, B( IFRSTM, ILAST ), 1 ) 525 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, A( IFRSTM, ILAST ), 550 IF( IFRSTM.GT.ILAST ) 551 $ IFRSTM = ILO [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
H A D | zhgeqz.f | 374 IFRSTM = 1 377 IFRSTM = ILO 499 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 501 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 534 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 536 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 549 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 550 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 575 IF( IFRSTM.GT.ILAST ) 576 $ IFRSTM = ILO [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | chgeqz.f | 490 IFRSTM = 1 493 IFRSTM = ILO 624 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 626 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 659 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 661 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 674 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 675 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 700 IF( IFRSTM.GT.ILAST ) 701 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 491 IFRSTM = 1 494 IFRSTM = ILO 625 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 627 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 660 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 662 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 675 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 676 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 701 IF( IFRSTM.GT.ILAST ) 702 $ IFRSTM = ILO [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zhgeqz.f | 491 IFRSTM = 1 494 IFRSTM = ILO 625 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 627 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 660 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 662 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 675 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 676 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 701 IF( IFRSTM.GT.ILAST ) 702 $ IFRSTM = ILO [all …]
|
H A D | chgeqz.f | 490 IFRSTM = 1 493 IFRSTM = ILO 624 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 626 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 659 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 661 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 674 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 675 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 700 IF( IFRSTM.GT.ILAST ) 701 $ IFRSTM = ILO [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | chgeqz.f | 490 IFRSTM = 1 493 IFRSTM = ILO 624 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 626 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 659 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 661 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 674 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 675 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 700 IF( IFRSTM.GT.ILAST ) 701 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 491 IFRSTM = 1 494 IFRSTM = ILO 625 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 627 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 660 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 662 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 675 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 676 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 701 IF( IFRSTM.GT.ILAST ) 702 $ IFRSTM = ILO [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | chgeqz.f | 490 IFRSTM = 1 493 IFRSTM = ILO 624 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 626 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 659 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 661 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 674 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 675 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 700 IF( IFRSTM.GT.ILAST ) 701 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 491 IFRSTM = 1 494 IFRSTM = ILO 625 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 627 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 660 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 662 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 675 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 676 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 701 IF( IFRSTM.GT.ILAST ) 702 $ IFRSTM = ILO [all …]
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | zhgeqz.f | 374 IFRSTM = 1 377 IFRSTM = ILO 499 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 501 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 534 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 536 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 549 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 550 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 575 IF( IFRSTM.GT.ILAST ) 576 $ IFRSTM = ILO [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | chgeqz.f | 493 IFRSTM = 1 496 IFRSTM = ILO 618 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 620 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 653 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 655 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 668 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 669 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 694 IF( IFRSTM.GT.ILAST ) 695 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 494 IFRSTM = 1 497 IFRSTM = ILO 619 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 621 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 654 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 656 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 669 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 670 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 695 IF( IFRSTM.GT.ILAST ) 696 $ IFRSTM = ILO [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/complex16/ |
H A D | zhgeqz.f | 374 IFRSTM = 1 377 IFRSTM = ILO 499 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 501 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 534 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 536 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 549 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 550 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 575 IF( IFRSTM.GT.ILAST ) 576 $ IFRSTM = ILO [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | chgeqz.f | 490 IFRSTM = 1 493 IFRSTM = ILO 624 CALL CROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 626 CALL CROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 659 CALL CROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 661 CALL CROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 674 CALL CSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 675 CALL CSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 700 IF( IFRSTM.GT.ILAST ) 701 $ IFRSTM = ILO [all …]
|
H A D | zhgeqz.f | 491 IFRSTM = 1 494 IFRSTM = ILO 625 CALL ZROT( JCH+1-IFRSTM, H( IFRSTM, JCH ), 1, 627 CALL ZROT( JCH-IFRSTM, T( IFRSTM, JCH ), 1, 660 CALL ZROT( ILAST-IFRSTM, H( IFRSTM, ILAST ), 1, 662 CALL ZROT( ILAST-IFRSTM, T( IFRSTM, ILAST ), 1, 675 CALL ZSCAL( ILAST-IFRSTM, SIGNBC, T( IFRSTM, ILAST ), 1 ) 676 CALL ZSCAL( ILAST+1-IFRSTM, SIGNBC, H( IFRSTM, ILAST ), 701 IF( IFRSTM.GT.ILAST ) 702 $ IFRSTM = ILO [all …]
|