| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
| H A D | cppequ.f | 1 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
21 * CPPEQU computes row and column scalings intended to equilibrate a argument
68 REAL ONE, ZERO
72 LOGICAL UPPER
73 INTEGER I, JJ
74 REAL SMIN
98 CALL XERBLA( 'CPPEQU', -INFO ) argument
127 10 CONTINUE
140 20 CONTINUE
168 * End of CPPEQU argument
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
| H A D | cppequ.f | 126 CHARACTER UPLO
127 INTEGER INFO, N
128 REAL AMAX, SCOND
131 REAL S( * )
138 REAL ONE, ZERO
142 LOGICAL UPPER
143 INTEGER I, JJ
144 REAL SMIN
197 10 CONTINUE
210 20 CONTINUE
[all …]
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | cppequ.f | 116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
194 10 CONTINUE
207 20 CONTINUE
235 * End of CPPEQU argument
|
| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | cppequ.f | 116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
194 10 CONTINUE
207 20 CONTINUE
235 * End of CPPEQU argument
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | cppequ.f | 116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
194 10 CONTINUE
207 20 CONTINUE
235 * End of CPPEQU argument
|
| /dports/math/lapack/lapack-3.10.0/SRC/ |
| H A D | cppequ.f | 116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
194 10 CONTINUE
207 20 CONTINUE
235 * End of CPPEQU argument
|
| /dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
| H A D | cppequ.f | 1 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
127 10 CONTINUE
140 20 CONTINUE
168 * End of CPPEQU argument
|
| /dports/math/cblas/lapack-3.10.0/SRC/ |
| H A D | cppequ.f | 116 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
194 10 CONTINUE
207 20 CONTINUE
235 * End of CPPEQU argument
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | cppequ.f | 118 SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) subroutine
197 10 CONTINUE
210 20 CONTINUE
238 * End of CPPEQU argument
|