Home
last modified time | relevance | path

Searched refs:SASUM (Results 1 – 25 of 582) sorted by relevance

12345678910>>...24

/dports/math/cmlib/cmlib-3.0_8/src/blas/
H A Dsasum.f1 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 Dsasum.f2 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 Dsasum.f1 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 Dsasum.f2 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 Dstupid_e.F20 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 Dstupid_e.F20 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 Ddrsblas3.f16 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 Dsget39.f129 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 Dsbdt01.f166 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 Dsget39.f129 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 Dsbdt01.f166 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 Dsget39.f129 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 Dsbdt01.f166 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 Dsget39.f129 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 Dsbdt01.f166 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 Dsget39.f132 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 Dsbdt01.f168 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 Dsget39.f132 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 Dsbdt01.f168 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 Dsget39.f132 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 Dsbdt01.f168 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 Dsget39.f132 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 Dsget39.f129 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 Dsget39.f132 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 Dsbdt01.f168 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 ) )

12345678910>>...24