/dports/math/cmlib/cmlib-3.0_8/src/blas/ |
H A D | sasum.f | 1 REAL FUNCTION SASUM(N,SX,INCX) function 39 SASUM = 0.0E0 47 SASUM = SASUM + ABS(SX(I)) 59 SASUM = SASUM + ABS(SX(I)) 64 SASUM = SASUM + ABS(SX(I)) + ABS(SX(I + 1)) + ABS(SX(I + 2))
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | sasum.f | 2 REAL FUNCTION SASUM (N, SX, INCX) 48 SASUM = 0.0E0 58 SASUM = SASUM + ABS(SX(IX)) 70 SASUM = SASUM + ABS(SX(I)) 75 SASUM = SASUM + ABS(SX(I)) + ABS(SX(I+1)) + ABS(SX(I+2)) +
|
/dports/math/math77/MATH77/ |
H A D | sasum.f | 1 REAL FUNCTION SASUM(N,X,INCX) function 16 SASUM = 0.0E0 24 SASUM = SASUM + ABS(X(I)) 36 SASUM = SASUM + ABS(X(I)) 41 SASUM = SASUM + ABS(X(I)) + ABS(X(I + 1)) + ABS(X(I + 2))
|
/dports/math/slatec/src/ |
H A D | sasum.f | 2 REAL FUNCTION SASUM (N, SX, INCX) 48 SASUM = 0.0E0 58 SASUM = SASUM + ABS(SX(IX)) 70 SASUM = SASUM + ABS(SX(I)) 75 SASUM = SASUM + ABS(SX(I)) + ABS(SX(I+1)) + ABS(SX(I+2)) +
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rimp2/debugging/ |
H A D | stupid_e.F | 20 External SASUM, ISAMAX, SDot 21 Double precision SASUM, SDot 41 ChkSum = SASUM(NVir*NVir, A, 1) 51 ChkSum = SASUM(NVir*NVir, B, 1) 65 ChkSum = SASUM(NVir*NVir, B, 1) 102 External SASUM, ISAMAX 103 Double precision SASUM 108 ChkSum = SASUM(NElem, A, 1)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rimp2/debugging/ |
H A D | stupid_e.F | 20 External SASUM, ISAMAX, SDot 21 Double precision SASUM, SDot 41 ChkSum = SASUM(NVir*NVir, A, 1) 51 ChkSum = SASUM(NVir*NVir, B, 1) 65 ChkSum = SASUM(NVir*NVir, B, 1) 102 External SASUM, ISAMAX 103 Double precision SASUM 108 ChkSum = SASUM(NElem, A, 1)
|
/dports/math/math77/MATH77/demo/ |
H A D | drsblas3.f | 16 external SASUM, SNRM2, ISAMAX 17 real SASUM, SNRM2 variable 41 T1 = SASUM(N3, B, 1) - 15.0e0 49 T1 = SASUM(5, D2, 1) 55 T1 = SASUM(5, C3, 1) + SASUM(5, D3, 1)
|
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | sget39.f | 129 REAL SASUM, SDOT, SLAMCH, SLANGE 130 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 247 XNORM = SASUM( N, X, 1 ) 248 RESID = SASUM( N, Y, 1 ) 270 XNORM = SASUM( N, X, 1 ) 271 RESID = SASUM( N, Y, 1 ) 309 RESID = SASUM( 2*N, Y, 1 ) 311 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 346 RESID = SASUM( 2*N, Y, 1 ) 348 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 166 REAL SASUM, SLAMCH, SLANGE 167 EXTERNAL SASUM, SLAMCH, SLANGE 203 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 217 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 232 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 247 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 257 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | sget39.f | 129 REAL SASUM, SDOT, SLAMCH, SLANGE 130 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 247 XNORM = SASUM( N, X, 1 ) 248 RESID = SASUM( N, Y, 1 ) 270 XNORM = SASUM( N, X, 1 ) 271 RESID = SASUM( N, Y, 1 ) 309 RESID = SASUM( 2*N, Y, 1 ) 311 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 346 RESID = SASUM( 2*N, Y, 1 ) 348 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 166 REAL SASUM, SLAMCH, SLANGE 167 EXTERNAL SASUM, SLAMCH, SLANGE 203 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 217 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 232 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 247 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 257 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | sget39.f | 129 REAL SASUM, SDOT, SLAMCH, SLANGE 130 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 247 XNORM = SASUM( N, X, 1 ) 248 RESID = SASUM( N, Y, 1 ) 270 XNORM = SASUM( N, X, 1 ) 271 RESID = SASUM( N, Y, 1 ) 309 RESID = SASUM( 2*N, Y, 1 ) 311 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 346 RESID = SASUM( 2*N, Y, 1 ) 348 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 166 REAL SASUM, SLAMCH, SLANGE 167 EXTERNAL SASUM, SLAMCH, SLANGE 203 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 217 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 232 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 247 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 257 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | sget39.f | 129 REAL SASUM, SDOT, SLAMCH, SLANGE local 130 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 247 XNORM = SASUM( N, X, 1 ) 248 RESID = SASUM( N, Y, 1 ) 270 XNORM = SASUM( N, X, 1 ) 271 RESID = SASUM( N, Y, 1 ) 309 RESID = SASUM( 2*N, Y, 1 ) 311 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 346 RESID = SASUM( 2*N, Y, 1 ) 348 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 166 REAL SASUM, SLAMCH, SLANGE local 167 EXTERNAL SASUM, SLAMCH, SLANGE 203 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 217 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 232 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 247 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 257 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | sget39.f | 132 REAL SASUM, SDOT, SLAMCH, SLANGE 133 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 250 XNORM = SASUM( N, X, 1 ) 251 RESID = SASUM( N, Y, 1 ) 273 XNORM = SASUM( N, X, 1 ) 274 RESID = SASUM( N, Y, 1 ) 312 RESID = SASUM( 2*N, Y, 1 ) 314 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 349 RESID = SASUM( 2*N, Y, 1 ) 351 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 168 REAL SASUM, SLAMCH, SLANGE 169 EXTERNAL SASUM, SLAMCH, SLANGE 205 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 219 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 234 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 249 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 259 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | sget39.f | 132 REAL SASUM, SDOT, SLAMCH, SLANGE local 133 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 250 XNORM = SASUM( N, X, 1 ) 251 RESID = SASUM( N, Y, 1 ) 273 XNORM = SASUM( N, X, 1 ) 274 RESID = SASUM( N, Y, 1 ) 312 RESID = SASUM( 2*N, Y, 1 ) 314 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 349 RESID = SASUM( 2*N, Y, 1 ) 351 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 168 REAL SASUM, SLAMCH, SLANGE local 169 EXTERNAL SASUM, SLAMCH, SLANGE 205 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 219 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 234 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 249 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 259 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | sget39.f | 132 REAL SASUM, SDOT, SLAMCH, SLANGE local 133 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 250 XNORM = SASUM( N, X, 1 ) 251 RESID = SASUM( N, Y, 1 ) 273 XNORM = SASUM( N, X, 1 ) 274 RESID = SASUM( N, Y, 1 ) 312 RESID = SASUM( 2*N, Y, 1 ) 314 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 349 RESID = SASUM( 2*N, Y, 1 ) 351 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 168 REAL SASUM, SLAMCH, SLANGE local 169 EXTERNAL SASUM, SLAMCH, SLANGE 205 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 219 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 234 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 249 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 259 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | sget39.f | 132 REAL SASUM, SDOT, SLAMCH, SLANGE 133 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 250 XNORM = SASUM( N, X, 1 ) 251 RESID = SASUM( N, Y, 1 ) 273 XNORM = SASUM( N, X, 1 ) 274 RESID = SASUM( N, Y, 1 ) 312 RESID = SASUM( 2*N, Y, 1 ) 314 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 349 RESID = SASUM( 2*N, Y, 1 ) 351 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | sget39.f | 129 REAL SASUM, SDOT, SLAMCH, SLANGE 130 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 247 XNORM = SASUM( N, X, 1 ) 248 RESID = SASUM( N, Y, 1 ) 270 XNORM = SASUM( N, X, 1 ) 271 RESID = SASUM( N, Y, 1 ) 309 RESID = SASUM( 2*N, Y, 1 ) 311 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 346 RESID = SASUM( 2*N, Y, 1 ) 348 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | sget39.f | 132 REAL SASUM, SDOT, SLAMCH, SLANGE 133 EXTERNAL ISAMAX, SASUM, SDOT, SLAMCH, SLANGE 250 XNORM = SASUM( N, X, 1 ) 251 RESID = SASUM( N, Y, 1 ) 273 XNORM = SASUM( N, X, 1 ) 274 RESID = SASUM( N, Y, 1 ) 312 RESID = SASUM( 2*N, Y, 1 ) 314 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) ) 349 RESID = SASUM( 2*N, Y, 1 ) 351 $ EPS*( NORMTB*SASUM( 2*N, X, 1 ) ) )
|
H A D | sbdt01.f | 168 REAL SASUM, SLAMCH, SLANGE 169 EXTERNAL SASUM, SLAMCH, SLANGE 205 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 219 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 234 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 249 RESID = MAX( RESID, SASUM( M, WORK, 1 ) ) 259 RESID = MAX( RESID, SASUM( M, WORK, 1 ) )
|