Home
last modified time | relevance | path

Searched refs:ASUM (Results 1 – 25 of 83) sorted by relevance

1234

/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/
H A Dpsasum_.c20 void psasum_( int * N, float * ASUM, in psasum_() argument
23 void psasum_( N, ASUM, X, IX, JX, DESCX, INCX ) in psasum_()
28 float * ASUM;
201 *ASUM = ZERO;
228 *ASUM = ABS( X[Xii+Xjj*Xd[LLD_]] );
246 svasum_( &Xnq, ((char *) ASUM), ((char *)( X+(Xii+Xjj*Xld) )),
259 Csgsum2d( ctxt, ROW, &top, 1, 1, ((char *)ASUM), 1, -1,
278 svasum_( &Xnp, ((char *) ASUM),
291 Csgsum2d( ctxt, COLUMN, &top, 1, 1, ((char *)ASUM), 1, -1,
H A Dpdasum_.c20 void pdasum_( int * N, double * ASUM, in pdasum_() argument
23 void pdasum_( N, ASUM, X, IX, JX, DESCX, INCX ) in pdasum_()
28 double * ASUM;
201 *ASUM = ZERO;
228 *ASUM = ABS( X[Xii+Xjj*Xd[LLD_]] );
246 dvasum_( &Xnq, ((char *) ASUM), ((char *)( X+(Xii+Xjj*Xld) )),
259 Cdgsum2d( ctxt, ROW, &top, 1, 1, ((char *)ASUM), 1, -1,
278 dvasum_( &Xnp, ((char *) ASUM),
291 Cdgsum2d( ctxt, COLUMN, &top, 1, 1, ((char *)ASUM), 1, -1,
H A Dpscasum_.c20 void pscasum_( int * N, float * ASUM, in pscasum_() argument
23 void pscasum_( N, ASUM, X, IX, JX, DESCX, INCX ) in pscasum_()
28 float * ASUM;
202 *ASUM = ZERO;
231 *ASUM = ABS( ((float *) Xptr)[REAL_PART] ) +
251 scvasum_( &Xnq, ((char *) ASUM), Mptr( ((char *) X), Xii,
264 Csgsum2d( ctxt, ROW, &top, 1, 1, ((char *)ASUM), 1, -1,
284 scvasum_( &Xnp, ((char *) ASUM), Mptr( ((char *) X), Xii,
297 Csgsum2d( ctxt, COLUMN, &top, 1, 1, ((char *)ASUM), 1, -1,
H A Dpdzasum_.c20 void pdzasum_( int * N, double * ASUM, in pdzasum_() argument
23 void pdzasum_( N, ASUM, X, IX, JX, DESCX, INCX ) in pdzasum_()
28 double * ASUM;
202 *ASUM = ZERO;
231 *ASUM = ABS( ((double *) Xptr)[REAL_PART] ) +
251 dzvasum_( &Xnq, ((char *) ASUM), Mptr( ((char *) X), Xii,
264 Cdgsum2d( ctxt, ROW, &top, 1, 1, ((char *)ASUM), 1, -1,
284 dzvasum_( &Xnp, ((char *) ASUM), Mptr( ((char *) X), Xii,
297 Cdgsum2d( ctxt, COLUMN, &top, 1, 1, ((char *)ASUM), 1, -1,
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpdzsum1.f1 SUBROUTINE PDZSUM1( N, ASUM, X, IX, JX, DESCX, INCX ) argument
10 DOUBLE PRECISION ASUM
173 ASUM = ZERO
183 ASUM = ABS( X( IIX+(JJX-1)*LDX ) )
198 ASUM = DZSUM1( NQ, X( IIX+(JJX-1)*LDX ), LDX )
199 CALL DGSUM2D( ICTXT, 'Rowwise', RCTOP, 1, 1, ASUM, 1,
213 ASUM = DZSUM1( NP, X( IIX+(JJX-1)*LDX ), 1 )
214 CALL DGSUM2D( ICTXT, 'Columnwise', CCTOP, 1, 1, ASUM, 1,
H A Dpscsum1.f1 SUBROUTINE PSCSUM1( N, ASUM, X, IX, JX, DESCX, INCX ) argument
10 REAL ASUM local
173 ASUM = ZERO
183 ASUM = ABS( X( IIX+(JJX-1)*LDX ) )
198 ASUM = SCSUM1( NQ, X( IIX+(JJX-1)*LDX ), LDX )
199 CALL SGSUM2D( ICTXT, 'Rowwise', RCTOP, 1, 1, ASUM, 1,
213 ASUM = SCSUM1( NP, X( IIX+(JJX-1)*LDX ), 1 )
214 CALL SGSUM2D( ICTXT, 'Columnwise', CCTOP, 1, 1, ASUM, 1,
/dports/math/openblas/OpenBLAS-0.3.18/benchmark/
H A Dasum.c30 #undef ASUM
34 #define ASUM BLASFUNC(dzasum) macro
36 #define ASUM BLASFUNC(scasum) macro
40 #define ASUM BLASFUNC(dasum) macro
42 #define ASUM BLASFUNC(sasum) macro
118 result = ASUM(&m, x, &inc_x); in main()
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/LHS/
H A DBetaic.f90319 ASUM=0.
328 ASUM=RSAPB2*ASUM+BSUM
331 ASUM=RSAPB*ASUM
332 ASUM=ASUM+(DA-.5)*SUMK+BO*LOG(SAPB*OMX)-BO-GAMALN(SBP1,0.)
336 ATEST=ALIM*ABS(ASUM)
338 A2=A2*ASUM/AK
401 ASUM=0.
413 ASUM=RA1*(ASUM+BSUM)
415 ASUM=ASUM+GBZ(1)
418 P=COE*ASUM
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTZBLAS/
H A Ddzvasum.f1 SUBROUTINE DZVASUM( N, ASUM, X, INCX ) argument
10 DOUBLE PRECISION ASUM local
51 ASUM = DZASUM( N, X, INCX )
H A Dsvasum.f1 SUBROUTINE SVASUM( N, ASUM, X, INCX ) argument
10 REAL ASUM local
51 ASUM = SASUM( N, X, INCX )
H A Dscvasum.f1 SUBROUTINE SCVASUM( N, ASUM, X, INCX ) argument
10 REAL ASUM local
51 ASUM = SCASUM( N, X, INCX )
H A Ddvasum.f1 SUBROUTINE DVASUM( N, ASUM, X, INCX ) argument
10 DOUBLE PRECISION ASUM local
51 ASUM = DASUM( N, X, INCX )
/dports/math/cmlib/cmlib-3.0_8/src/amoslib/
H A Ddasyjy.f53 DOUBLE PRECISION ABW2, AKM, ALFA, ALFA1, ALFA2, AP, AR, ASUM, AZ,
340 ASUM = 1.0D0
361 ASUM = ASUM + TA
405 ASUM = 1.0D0
453 ASUM = ASUM + SUMA*TB
458 ASUM=ASUM+SUMA*TB
477 Y(JN) = FLGJY*PHI*(FI*ASUM+DFI*BSUM)/WK(7)
H A Dasyjy.f54 REAL ABW2, AKM, ALFA, ALFA1, ALFA2, AP, AR, ASUM, AZ,
341 ASUM = 1.0E0
362 ASUM = ASUM + TA
406 ASUM = 1.0E0
454 ASUM = ASUM + SUMA*TB
459 ASUM=ASUM+SUMA*TB
478 Y(JN) = FLGJY*PHI*(FI*ASUM+DFI*BSUM)/WK(7)
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddasyjy.f66 DOUBLE PRECISION ABW2, AKM, ALFA, AP, AR, ASUM, AZ, local
345 ASUM = 1.0D0
366 ASUM = ASUM + TA
410 ASUM = 1.0D0
458 ASUM = ASUM + SUMA*TB
463 ASUM=ASUM+SUMA*TB
482 Y(JN) = FLGJY*PHI*(FI*ASUM+DFI*BSUM)/WK(7)
/dports/math/slatec/src/
H A Ddasyjy.f66 DOUBLE PRECISION ABW2, AKM, ALFA, ALFA1, ALFA2, AP, AR, ASUM, AZ,
352 ASUM = 1.0D0
373 ASUM = ASUM + TA
417 ASUM = 1.0D0
465 ASUM = ASUM + SUMA*TB
470 ASUM=ASUM+SUMA*TB
489 Y(JN) = FLGJY*PHI*(FI*ASUM+DFI*BSUM)/WK(7)
H A Dcunhj.f3 + ASUM, BSUM)
44 COMPLEX ARG, ASUM, BSUM, CFNU, CONE, CR, CZERO, DR, P, PHI,
496 ASUM = CZERO
517 ASUM = ASUM + SUMA*CMPLX(PP,0.0E0)
536 ASUM = ASUM + CONE
590 ASUM = CZERO
633 ASUM = ASUM + SUMA
634 ASUMR = REAL(ASUM)
635 ASUMI = AIMAG(ASUM)
655 ASUM = ASUM + CONE
H A Dasyjy.f64 REAL ABW2, AKM, ALFA, ALFA1, ALFA2, AP, AR, ASUM, AZ,
350 ASUM = 1.0E0
371 ASUM = ASUM + TA
415 ASUM = 1.0E0
463 ASUM = ASUM + SUMA*TB
468 ASUM=ASUM+SUMA*TB
487 Y(JN) = FLGJY*PHI*(FI*ASUM+DFI*BSUM)/WK(7)
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Ddasyjy.f66 DOUBLE PRECISION ABW2, AKM, ALFA, ALFA1, ALFA2, AP, AR, ASUM, AZ, local
352 ASUM = 1.0D0
373 ASUM = ASUM + TA
417 ASUM = 1.0D0
465 ASUM = ASUM + SUMA*TB
470 ASUM=ASUM+SUMA*TB
489 Y(JN) = FLGJY*PHI*(FI*ASUM+DFI*BSUM)/WK(7)
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dcunhj.f2 * ASUM, BSUM)
34 COMPLEX ARG, ASUM, BSUM, CFNU, CONE, CR, CZERO, DR, P, PHI,
486 ASUM = CZERO
507 ASUM = ASUM + SUMA*CMPLX(PP,0.0E0)
526 ASUM = ASUM + CONE
580 ASUM = CZERO
623 ASUM = ASUM + SUMA
624 ASUMR = REAL(ASUM)
625 ASUMI = AIMAG(ASUM)
645 ASUM = ASUM + CONE
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dcunhj.f2 * ASUM, BSUM) argument
34 COMPLEX ARG, ASUM, BSUM, CFNU, CONE, CR, CZERO, DR, P, PHI, local
486 ASUM = CZERO
507 ASUM = ASUM + SUMA*CMPLX(PP,0.0E0)
526 ASUM = ASUM + CONE
580 ASUM = CZERO
623 ASUM = ASUM + SUMA
624 ASUMR = REAL(ASUM)
625 ASUMI = AIMAG(ASUM)
645 ASUM = ASUM + CONE
/dports/math/clblas/clBLAS-2.10/src/tests/correctness/
H A Dcorr-asum.cpp186 TEST_P(ASUM, sasum) { in TEST_P() argument
193 TEST_P(ASUM, dasum) { in TEST_P() argument
200 TEST_P(ASUM, scasum) { in TEST_P() argument
207 TEST_P(ASUM, dzasum) { in TEST_P() argument
/dports/math/clblas/clBLAS-2.10/src/tests/performance/
H A Dperf-asum.cpp268 TEST_P(ASUM, sasum) in TEST_P() argument
277 TEST_P(ASUM, dasum) in TEST_P() argument
285 TEST_P(ASUM, scasum) in TEST_P() argument
294 TEST_P(ASUM, dzasum) in TEST_P() argument
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/
H A Dpdqrt13.f142 DOUBLE PRECISION AJJ, ASUM, BIGNUM, SMLNUM local
185 CALL PDASUM( M, ASUM, A, IA, J, DESCA, 1 )
187 AJJ = AJJ + SIGN( ASUM, AJJ )
H A Dpzqrt13.f142 DOUBLE PRECISION ASUM, BIGNUM, SMLNUM local
187 CALL PDZASUM( M, ASUM, A, IA, J, DESCA, 1 )
189 AJJ = AJJ + DCMPLX( SIGN( ASUM, DBLE( AJJ ) ) )

1234