Home
last modified time | relevance | path

Searched refs:AMAX (Results 1 – 25 of 1645) sorted by relevance

12345678910>>...66

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/
H A Dgpdahle.F240 AMAX = MAX( AMAX, ABS(AMATRX(IVW,I)) )
250 TEST = FFMIN.LE.AMAX .AND. AMAX.LE.FFMAX
267 TEST = FFMIN.LE.AMAX .AND. AMAX.LE.FFMAX
285 TEST = FFMIN.LE.AMAX .AND. AMAX.LE.FFMAX
305 TEST = FFMIN.LE.AMAX .AND. AMAX.LE.FFMAX
327 TEST = FFMIN .LE. AMAX .AND. AMAX .LE. FFMAX
424 AMAX = MAX( AMAX, ABS(AMATRX(IVW,I,J)) )
435 TEST = FFMIN .LE. AMAX .AND. AMAX .LE. FFMAX
447 TEST = FFMIN .LE. AMAX .AND. AMAX .LE. FFMAX
459 TEST = FFMIN .LE. AMAX .AND. AMAX .LE. FFMAX
[all …]
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/
H A Dpcamax_.c20 void pcamax_( int * N, float * AMAX, int * INDX, in pcamax_() argument
23 void pcamax_( N, AMAX, INDX, X, IX, JX, DESCX, INCX ) in pcamax_()
28 float * AMAX;
211 *INDX = 0; AMAX[REAL_PART] = ZERO; AMAX[IMAG_PART] = ZERO;
346 AMAX[REAL_PART] = work[0][REAL_PART];
378 AMAX[REAL_PART] = ZERO;
379 AMAX[IMAG_PART] = ZERO;
393 if( ( AMAX[REAL_PART] != ZERO ) || ( AMAX[IMAG_PART] != ZERO ) )
562 AMAX[REAL_PART] = ZERO;
563 AMAX[IMAG_PART] = ZERO;
[all …]
H A Dpzamax_.c20 void pzamax_( int * N, double * AMAX, int * INDX, in pzamax_() argument
23 void pzamax_( N, AMAX, INDX, X, IX, JX, DESCX, INCX ) in pzamax_()
28 double * AMAX;
211 *INDX = 0; AMAX[REAL_PART] = ZERO; AMAX[IMAG_PART] = ZERO;
346 AMAX[REAL_PART] = work[0][REAL_PART];
378 AMAX[REAL_PART] = ZERO;
379 AMAX[IMAG_PART] = ZERO;
393 if( ( AMAX[REAL_PART] != ZERO ) || ( AMAX[IMAG_PART] != ZERO ) )
562 AMAX[REAL_PART] = ZERO;
563 AMAX[IMAG_PART] = ZERO;
[all …]
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpcmax1.f10 COMPLEX AMAX local
188 AMAX = ZERO
200 AMAX = X( IIX+(JJX-1)*LDX )
232 AMAX = WORK( 1 )
233 IF( AMAX.EQ.ZERO ) THEN
247 AMAX = ZERO
255 IF( AMAX.NE.ZERO ) THEN
305 AMAX = WORK( 1 )
306 IF( AMAX.EQ.ZERO ) THEN
320 AMAX = ZERO
[all …]
H A Dpzmax1.f10 COMPLEX*16 AMAX
187 AMAX = ZERO
199 AMAX = X( IIX+(JJX-1)*LDX )
231 AMAX = WORK( 1 )
232 IF( AMAX.EQ.ZERO ) THEN
246 AMAX = ZERO
254 IF( AMAX.NE.ZERO ) THEN
304 AMAX = WORK( 1 )
305 IF( AMAX.EQ.ZERO ) THEN
319 AMAX = ZERO
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddppequ.f117 SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
127 DOUBLE PRECISION AMAX, SCOND
174 AMAX = ZERO
182 AMAX = S( 1 )
194 AMAX = MAX( AMAX, S( I ) )
207 AMAX = MAX( AMAX, S( I ) )
232 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dsppequ.f117 SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
127 REAL AMAX, SCOND
174 AMAX = ZERO
182 AMAX = S( 1 )
194 AMAX = MAX( AMAX, S( I ) )
207 AMAX = MAX( AMAX, S( I ) )
232 SCOND = SQRT( SMIN ) / SQRT( AMAX )
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dcppequ.f116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 REAL AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dsppequ.f115 SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 REAL AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dzppequ.f116 SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 DOUBLE PRECISION AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Ddppequ.f115 SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 DOUBLE PRECISION AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzppequ.f116 SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 DOUBLE PRECISION AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dcppequ.f116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 REAL AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dsppequ.f115 SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 REAL AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Ddppequ.f115 SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 DOUBLE PRECISION AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dsppequ.f115 SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 REAL AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Ddppequ.f115 SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 DOUBLE PRECISION AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dcppequ.f116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 REAL AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Ddppequ.f1 SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
11 DOUBLE PRECISION AMAX, SCOND local
105 AMAX = ZERO
113 AMAX = S( 1 )
125 AMAX = MAX( AMAX, S( I ) )
138 AMAX = MAX( AMAX, S( I ) )
163 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dcppequ.f1 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
11 REAL AMAX, SCOND local
106 AMAX = ZERO
114 AMAX = S( 1 )
126 AMAX = MAX( AMAX, S( I ) )
139 AMAX = MAX( AMAX, S( I ) )
164 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dsppequ.f1 SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
11 REAL AMAX, SCOND local
105 AMAX = ZERO
113 AMAX = S( 1 )
125 AMAX = MAX( AMAX, S( I ) )
138 AMAX = MAX( AMAX, S( I ) )
163 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dzppequ.f1 SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
11 DOUBLE PRECISION AMAX, SCOND local
106 AMAX = ZERO
114 AMAX = S( 1 )
126 AMAX = MAX( AMAX, S( I ) )
139 AMAX = MAX( AMAX, S( I ) )
164 SCOND = SQRT( SMIN ) / SQRT( AMAX )
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dcppequ.f116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 REAL AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Dzppequ.f116 SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
125 DOUBLE PRECISION AMAX, SCOND
173 AMAX = ZERO
181 AMAX = S( 1 )
193 AMAX = MAX( AMAX, S( I ) )
206 AMAX = MAX( AMAX, S( I ) )
231 SCOND = SQRT( SMIN ) / SQRT( AMAX )
H A Ddppequ.f115 SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) argument
124 DOUBLE PRECISION AMAX, SCOND
171 AMAX = ZERO
179 AMAX = S( 1 )
191 AMAX = MAX( AMAX, S( I ) )
204 AMAX = MAX( AMAX, S( I ) )
229 SCOND = SQRT( SMIN ) / SQRT( AMAX )

12345678910>>...66