Home
last modified time | relevance | path

Searched refs:IFRSTM (Results 1 – 25 of 54) sorted by relevance

123

/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/
H A Dchgeqz.f384 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 Dzhgeqz.f385 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 Dchgeqz.f384 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 Dzhgeqz.f385 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 Dzhgeqz.f490 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 Dchgeqz.f489 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 Dchgeqz.f348 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 Dzhgeqz.f349 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 Dchgeqz.f348 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 Dzhgeqz.f349 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 Dzhgeqz.f374 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 Dchgeqz.f490 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 Dzhgeqz.f491 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 Dzhgeqz.f491 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 Dchgeqz.f490 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 Dchgeqz.f490 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 Dzhgeqz.f491 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 Dchgeqz.f490 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 Dzhgeqz.f491 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 Dzhgeqz.f374 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 Dchgeqz.f493 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 Dzhgeqz.f494 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 Dzhgeqz.f374 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 Dchgeqz.f490 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 Dzhgeqz.f491 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 …]

123