/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zbiry.f | 1 SUBROUTINE ZBIRY(ZR, ZI, ID, KODE, BIR, BII, IERR) argument 125 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, 197 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 206 BII = BII*EAA 210 BII = S2I*C2 216 BII = BII + CC*(STR*ZI+STI*ZR) 226 BII = BII*EAA 338 BII = S1I/SFAC 345 BII = S1I/SFAC 350 BII = 0.0D0
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zbiry.f | 1 SUBROUTINE ZBIRY(ZR, ZI, ID, KODE, BIR, BII, IERR) argument 124 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, local 196 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 205 BII = BII*EAA 209 BII = S2I*C2 215 BII = BII + CC*(STR*ZI+STI*ZR) 225 BII = BII*EAA 337 BII = S1I/SFAC 344 BII = S1I/SFAC 349 BII = 0.0D0
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbiry.f | 1 SUBROUTINE ZBIRY(ZR, ZI, ID, KODE, BIR, BII, IERR) argument 124 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, 196 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 205 BII = BII*EAA 209 BII = S2I*C2 215 BII = BII + CC*(STR*ZI+STI*ZR) 225 BII = BII*EAA 337 BII = S1I/SFAC 344 BII = S1I/SFAC 349 BII = 0.0D0
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zbiry.f | 2 SUBROUTINE ZBIRY (ZR, ZI, ID, KODE, BIR, BII, IERR) argument 136 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, local 209 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 218 BII = BII*EAA 222 BII = S2I*C2 228 BII = BII + CC*(STR*ZI+STI*ZR) 238 BII = BII*EAA 350 BII = S1I/SFAC 357 BII = S1I/SFAC 362 BII = 0.0D0
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zbiry.f | 1 SUBROUTINE ZBIRY(ZR, ZI, ID, KODE, BIR, BII, IERR) argument 124 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, local 196 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 205 BII = BII*EAA 209 BII = S2I*C2 215 BII = BII + CC*(STR*ZI+STI*ZR) 225 BII = BII*EAA 337 BII = S1I/SFAC 344 BII = S1I/SFAC 349 BII = 0.0D0
|
/dports/math/slatec/src/ |
H A D | zbiry.f | 2 SUBROUTINE ZBIRY (ZR, ZI, ID, KODE, BIR, BII, IERR) argument 136 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, 209 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 218 BII = BII*EAA 222 BII = S2I*C2 228 BII = BII + CC*(STR*ZI+STI*ZR) 238 BII = BII*EAA 350 BII = S1I/SFAC 357 BII = S1I/SFAC 362 BII = 0.0D0
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbiry.f | 1 SUBROUTINE ZBIRY(ZR, ZI, ID, KODE, BIR, BII, IERR) argument 124 DOUBLE PRECISION AA, AD, AK, ALIM, ATRM, AZ, AZ3, BB, BII, BIR, 196 BII = C1*S1I + C2*(ZR*S2I+ZI*S2R) 205 BII = BII*EAA 209 BII = S2I*C2 215 BII = BII + CC*(STR*ZI+STI*ZR) 225 BII = BII*EAA 337 BII = S1I/SFAC 344 BII = S1I/SFAC 349 BII = 0.0D0
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | zhbgst.f | 192 DOUBLE PRECISION BII 345 BII = DBLE( BB( KB1, I ) ) 346 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 613 BII = DBLE( BB( 1, I ) ) 614 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 928 BII = DBLE( BB( KB1, I ) ) 929 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1200 BII = DBLE( BB( 1, I ) ) [all …]
|
H A D | chbgst.f | 192 REAL BII 345 BII = REAL( BB( KB1, I ) ) 346 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 613 BII = REAL( BB( 1, I ) ) 614 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 927 BII = REAL( BB( KB1, I ) ) 928 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1199 BII = REAL( BB( 1, I ) ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zhbgst.f | 192 DOUBLE PRECISION BII 345 BII = DBLE( BB( KB1, I ) ) 346 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 613 BII = DBLE( BB( 1, I ) ) 614 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 928 BII = DBLE( BB( KB1, I ) ) 929 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1200 BII = DBLE( BB( 1, I ) ) [all …]
|
H A D | chbgst.f | 192 REAL BII 345 BII = REAL( BB( KB1, I ) ) 346 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 613 BII = REAL( BB( 1, I ) ) 614 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 927 BII = REAL( BB( KB1, I ) ) 928 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1199 BII = REAL( BB( 1, I ) ) [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | zhbgst.f | 103 DOUBLE PRECISION BII 256 BII = DBLE( BB( KB1, I ) ) 257 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 524 BII = DBLE( BB( 1, I ) ) 525 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 527 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 530 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 839 BII = DBLE( BB( KB1, I ) ) 840 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1111 BII = DBLE( BB( 1, I ) ) [all …]
|
H A D | chbgst.f | 103 REAL BII local 256 BII = REAL( BB( KB1, I ) ) 257 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 524 BII = REAL( BB( 1, I ) ) 525 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 527 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 530 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 838 BII = REAL( BB( KB1, I ) ) 839 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1110 BII = REAL( BB( 1, I ) ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | zhbgst.f | 192 DOUBLE PRECISION BII 345 BII = DBLE( BB( KB1, I ) ) 346 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 613 BII = DBLE( BB( 1, I ) ) 614 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 928 BII = DBLE( BB( KB1, I ) ) 929 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1200 BII = DBLE( BB( 1, I ) ) [all …]
|
H A D | chbgst.f | 192 REAL BII 345 BII = REAL( BB( KB1, I ) ) 346 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 613 BII = REAL( BB( 1, I ) ) 614 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 927 BII = REAL( BB( KB1, I ) ) 928 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1199 BII = REAL( BB( 1, I ) ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | chbgst.f | 192 REAL BII 345 BII = REAL( BB( KB1, I ) ) 346 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 613 BII = REAL( BB( 1, I ) ) 614 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 927 BII = REAL( BB( KB1, I ) ) 928 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1199 BII = REAL( BB( 1, I ) ) [all …]
|
H A D | zhbgst.f | 192 DOUBLE PRECISION BII 345 BII = DBLE( BB( KB1, I ) ) 346 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 613 BII = DBLE( BB( 1, I ) ) 614 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 928 BII = DBLE( BB( KB1, I ) ) 929 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1200 BII = DBLE( BB( 1, I ) ) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | chbgst.f | 103 REAL BII 256 BII = REAL( BB( KB1, I ) ) 257 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 524 BII = REAL( BB( 1, I ) ) 525 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 527 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 530 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 838 BII = REAL( BB( KB1, I ) ) 839 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1110 BII = REAL( BB( 1, I ) ) [all …]
|
H A D | zhbgst.f | 103 DOUBLE PRECISION BII 256 BII = DBLE( BB( KB1, I ) ) 257 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 524 BII = DBLE( BB( 1, I ) ) 525 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 527 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 530 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 839 BII = DBLE( BB( KB1, I ) ) 840 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1111 BII = DBLE( BB( 1, I ) ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | chbgst.f | 195 REAL BII local 348 BII = REAL( BB( KB1, I ) ) 349 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 616 BII = REAL( BB( 1, I ) ) 617 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 619 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 622 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 930 BII = REAL( BB( KB1, I ) ) 931 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1202 BII = REAL( BB( 1, I ) ) [all …]
|
H A D | zhbgst.f | 195 DOUBLE PRECISION BII local 348 BII = DBLE( BB( KB1, I ) ) 349 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 616 BII = DBLE( BB( 1, I ) ) 617 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 619 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 622 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 931 BII = DBLE( BB( KB1, I ) ) 932 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1203 BII = DBLE( BB( 1, I ) ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | chbgst.f | 192 REAL BII 345 BII = REAL( BB( KB1, I ) ) 346 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 613 BII = REAL( BB( 1, I ) ) 614 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 927 BII = REAL( BB( KB1, I ) ) 928 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1199 BII = REAL( BB( 1, I ) ) [all …]
|
H A D | zhbgst.f | 192 DOUBLE PRECISION BII 345 BII = DBLE( BB( KB1, I ) ) 346 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 613 BII = DBLE( BB( 1, I ) ) 614 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 616 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 619 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 928 BII = DBLE( BB( KB1, I ) ) 929 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1200 BII = DBLE( BB( 1, I ) ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | chbgst.f | 195 REAL BII 348 BII = REAL( BB( KB1, I ) ) 349 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 616 BII = REAL( BB( 1, I ) ) 617 AB( 1, I ) = ( REAL( AB( 1, I ) ) / BII ) / BII 619 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 622 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 930 BII = REAL( BB( KB1, I ) ) 931 AB( KA1, I ) = ( REAL( AB( KA1, I ) ) / BII ) / BII 1202 BII = REAL( BB( 1, I ) ) [all …]
|
H A D | zhbgst.f | 195 DOUBLE PRECISION BII 348 BII = DBLE( BB( KB1, I ) ) 349 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 616 BII = DBLE( BB( 1, I ) ) 617 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII 619 AB( J-I+1, I ) = AB( J-I+1, I ) / BII 622 AB( I-J+1, J ) = AB( I-J+1, J ) / BII 931 BII = DBLE( BB( KB1, I ) ) 932 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII 1203 BII = DBLE( BB( 1, I ) ) [all …]
|