Home
last modified time | relevance | path

Searched refs:WINDEX (Results 1 – 25 of 45) sorted by relevance

12

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlarrv.f763 IF((WINDEX.LT.DOL).OR.
770 LEFT = WORK( WINDEX ) - WERR( WINDEX )
771 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
799 RGAP = WGAP(WINDEX)
817 SAVGAP = WGAP(WINDEX)
818 WGAP(WINDEX) = GAP
858 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
968 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
969 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
999 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dslarrv.f763 IF((WINDEX.LT.DOL).OR.
770 LEFT = WORK( WINDEX ) - WERR( WINDEX )
771 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
799 RGAP = WGAP(WINDEX)
817 SAVGAP = WGAP(WINDEX)
818 WGAP(WINDEX) = GAP
858 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
968 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
969 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
999 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dslarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dzlarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Ddlarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Ddlarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dslarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dclarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dclarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Ddlarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dslarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dzlarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dclarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dslarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Ddlarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dzlarrv.f791 IF((WINDEX.LT.DOL).OR.
798 LEFT = WORK( WINDEX ) - WERR( WINDEX )
799 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
827 RGAP = WGAP(WINDEX)
845 SAVGAP = WGAP(WINDEX)
846 WGAP(WINDEX) = GAP
886 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
996 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
997 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1027 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/
H A Ddlarrv.f762 IF((WINDEX.LT.DOL).OR.
769 LEFT = WORK( WINDEX ) - WERR( WINDEX )
770 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
798 RGAP = WGAP(WINDEX)
816 SAVGAP = WGAP(WINDEX)
817 WGAP(WINDEX) = GAP
857 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
967 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
968 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
998 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/
H A Ddlarrv.f762 IF((WINDEX.LT.DOL).OR.
769 LEFT = WORK( WINDEX ) - WERR( WINDEX )
770 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
798 RGAP = WGAP(WINDEX)
816 SAVGAP = WGAP(WINDEX)
817 WGAP(WINDEX) = GAP
857 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
967 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
968 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
998 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dclarrv.f794 IF((WINDEX.LT.DOL).OR.
801 LEFT = WORK( WINDEX ) - WERR( WINDEX )
802 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
830 RGAP = WGAP(WINDEX)
848 SAVGAP = WGAP(WINDEX)
849 WGAP(WINDEX) = GAP
889 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
999 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
1000 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1030 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dslarrv.f779 IF((WINDEX.LT.DOL).OR.
786 LEFT = WORK( WINDEX ) - WERR( WINDEX )
787 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
815 RGAP = WGAP(WINDEX)
833 SAVGAP = WGAP(WINDEX)
834 WGAP(WINDEX) = GAP
874 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
984 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
985 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1015 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Ddlarrv.f779 IF((WINDEX.LT.DOL).OR.
786 LEFT = WORK( WINDEX ) - WERR( WINDEX )
787 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
815 RGAP = WGAP(WINDEX)
833 SAVGAP = WGAP(WINDEX)
834 WGAP(WINDEX) = GAP
874 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
984 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
985 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1015 $ W(WINDEX)-WERR(WINDEX)
[all …]
H A Dzlarrv.f794 IF((WINDEX.LT.DOL).OR.
801 LEFT = WORK( WINDEX ) - WERR( WINDEX )
802 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
830 RGAP = WGAP(WINDEX)
848 SAVGAP = WGAP(WINDEX)
849 WGAP(WINDEX) = GAP
889 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
999 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
1000 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1030 $ W(WINDEX)-WERR(WINDEX)
[all …]
/dports/math/cblas/lapack-3.10.0/SRC/
H A Dslarrv.f776 IF((WINDEX.LT.DOL).OR.
783 LEFT = WORK( WINDEX ) - WERR( WINDEX )
784 RIGHT = WORK( WINDEX ) + WERR( WINDEX )
812 RGAP = WGAP(WINDEX)
830 SAVGAP = WGAP(WINDEX)
831 WGAP(WINDEX) = GAP
871 $ IWORK( IINDR+WINDEX ), ISUPPZ( 2*WINDEX-1 ),
981 ISUPPZ( 2*WINDEX-1 ) = ISUPPZ( 2*WINDEX-1 )+OLDIEN
982 ISUPPZ( 2*WINDEX ) = ISUPPZ( 2*WINDEX )+OLDIEN
1012 $ W(WINDEX)-WERR(WINDEX)
[all …]

12