/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlarrv.f | 763 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 D | slarrv.f | 763 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 D | clarrv.f | 791 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 D | slarrv.f | 776 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 D | zlarrv.f | 791 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 D | dlarrv.f | 776 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 D | zlarrv.f | 791 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 D | dlarrv.f | 776 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 D | slarrv.f | 776 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 D | clarrv.f | 791 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 D | clarrv.f | 791 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 D | dlarrv.f | 776 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 D | slarrv.f | 776 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 D | zlarrv.f | 791 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 D | clarrv.f | 791 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 D | slarrv.f | 776 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 D | dlarrv.f | 776 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 D | zlarrv.f | 791 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 D | dlarrv.f | 762 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 D | dlarrv.f | 762 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 D | clarrv.f | 794 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 D | slarrv.f | 779 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 D | dlarrv.f | 779 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 D | zlarrv.f | 794 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 D | slarrv.f | 776 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 …]
|