/dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
H A D | cnvert.f | 85 IF(L2.NE.0) IWORK(6,KK)=IWORK(6,KK)+IWORK(6,L2) 87 IF(L3.NE.0) IWORK(6,KK)=IWORK(6,KK)+IWORK(6,L3) 92 IK=IWORK(6,K)-IWORK(6,KK) 107 IWORK(2,KK)=IWORK(6,KK) 108 IWORK(3,KK)=IWORK(6,KK) 111 IWORK(2,KK)=MIN0(IWORK(2,KK),IWORK(2,L3)) 112 IWORK(3,KK)=MAX0(IWORK(3,KK),IWORK(3,L3)) 132 IF(L2.NE.0) IWORK(1,KK)=MAX0(IWORK(1,L2),IWORK(1,KK)) 133 IF(L3.NE.0) IWORK(1,KK)=MAX0(IWORK(1,L3)+1,IWORK(1,KK)) 142 IWORK(1,K)=IWORK(2,K) [all …]
|
H A D | join2.f | 157 40 CALL RDIST(MM,M,N,A,IWORK(BC+1),IWORK(BR+1),I,N,TH,IWORK(NR+I), 160 50 CALL CDIST(MM,M,N,A,IWORK(BC+1),IWORK(BR+1),J,M,TH,IWORK(NC+J), 206 IWORK(BR+I1)=-IWORK(BR+I1) 209 IWORK(BR+I2)=-IWORK(BR+I2) 210 IWORK(BR+I1)=-IWORK(BR+I1) 267 IF(IWORK(BR+I).GE.0.AND.(IWORK(NR+I).EQ.I1.OR. 288 IWORK(BC+J1)=-IWORK(BC+J1) 291 IWORK(BC+J2)=-IWORK(BC+J2) 292 IWORK(BC+J1)=-IWORK(BC+J1) 349 IF(IWORK(BC+J).GE.0.AND.(IWORK(NC+J).EQ.J1.OR. [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TOOLS/ |
H A D | pchkxmat.f | 118 IWORK( 1, 1 ) = MA 120 IWORK( 2, 1 ) = NA 122 IWORK( 3, 1 ) = IA 124 IWORK( 4, 1 ) = JA 323 IWORK( 1, 1 ) = MA 325 IWORK( 2, 1 ) = NA 327 IWORK( 3, 1 ) = IA 329 IWORK( 4, 1 ) = JA 348 IWORK( 12, 1 ) = MB 350 IWORK( 13, 1 ) = NB [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1987 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1997 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1988 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1998 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2007 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2016 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1995 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2005 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2014 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2023 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1996 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2024 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1995 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2005 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2014 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2023 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1996 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2024 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/ |
H A D | dgesvd.f | 717 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 771 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 783 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 794 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 840 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 846 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1998 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2008 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2017 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2026 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | sgesvd.f | 642 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 696 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 708 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 719 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 765 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 771 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1911 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1921 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1930 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1939 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | dgesvd.f | 642 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 696 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 708 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 719 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 765 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 771 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1911 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1921 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1930 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1939 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1995 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2005 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2014 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2023 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1996 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2024 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1995 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2005 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2014 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2023 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1996 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2024 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dgesvd.f | 642 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 696 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 708 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 719 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 765 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 771 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1911 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1921 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1930 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1939 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 642 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 696 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 708 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 719 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 765 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 771 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1911 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1921 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1930 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1939 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dgesvd.f | 641 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 695 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 707 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 718 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 764 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 770 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1910 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1920 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1929 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1938 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1987 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1997 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1988 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1998 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2007 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2016 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dgesvd.f | 717 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 771 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 783 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 794 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 840 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 846 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1998 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2008 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2017 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2026 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
H A D | sgesvd.f | 718 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 772 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 784 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 795 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 841 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 847 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1999 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2009 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2018 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2027 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dgesvd.f | 714 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 768 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 780 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 791 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 837 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 843 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1987 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1997 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2006 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2015 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | sgesvd.f | 715 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 769 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 781 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 792 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 838 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 844 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1988 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 1998 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2007 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) 2016 $ WORK( IWORK ), LWORK-IWORK+1, IERR ) [all …]
|