/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/ |
H A D | gpdahle.F | 240 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 D | pcamax_.c | 20 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 D | pzamax_.c | 20 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 D | pcmax1.f | 10 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 D | pzmax1.f | 10 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 D | dppequ.f | 117 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 D | sppequ.f | 117 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 D | cppequ.f | 116 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 D | sppequ.f | 115 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 D | zppequ.f | 116 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 D | dppequ.f | 115 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 D | zppequ.f | 116 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 D | cppequ.f | 116 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 D | sppequ.f | 115 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 D | dppequ.f | 115 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 D | sppequ.f | 115 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 D | dppequ.f | 115 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 D | cppequ.f | 116 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 D | dppequ.f | 1 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 D | cppequ.f | 1 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 D | sppequ.f | 1 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 D | zppequ.f | 1 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 D | cppequ.f | 116 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 D | zppequ.f | 116 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 D | dppequ.f | 115 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 )
|