| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
| H A D | strsna.f | 274 CHARACTER HOWMNY, JOB
275 INTEGER INFO, LDT, LDVL, LDVR, LDWORK, M, MM, N
280 REAL S( * ), SEP( * ), T( LDT, * ), VL( LDVL, * ),
281 $ VR( LDVR, * ), WORK( LDWORK, * )
287 REAL ZERO, ONE, TWO
291 LOGICAL PAIR, SOMCON, WANTBH, WANTS, WANTSP
292 INTEGER I, IERR, IFST, ILST, J, K, KASE, KS, N2, NN
293 REAL BIGNUM, COND, CS, DELTA, DUMM, EPS, EST, LNRM,
294 $ MU, PROD, PROD1, PROD2, RNRM, SCALE, SMLNUM, SN
302 REAL SDOT, SLAMCH, SLAPY2, SNRM2
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
| H A D | strsna.f | 24 * STRSNA estimates reciprocal condition numbers for specified argument
178 REAL ZERO, ONE, TWO
182 LOGICAL PAIR, SOMCON, WANTBH, WANTS, WANTSP
183 INTEGER I, IERR, IFST, ILST, J, K, KASE, KS, N2, NN
184 REAL BIGNUM, COND, CS, DELTA, DUMM, EPS, EST, LNRM,
185 $ MU, PROD, PROD1, PROD2, RNRM, SCALE, SMLNUM, SN
192 REAL SDOT, SLAMCH, SLAPY2, SNRM2
382 20 CONTINUE
415 30 CONTINUE
430 50 CONTINUE
[all …]
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | strsna.f | 264 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
372 CALL XERBLA( 'STRSNA', -INFO ) argument
492 20 CONTINUE
525 30 CONTINUE
531 40 CONTINUE
540 50 CONTINUE
601 * End of STRSNA argument
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | strsna.f | 262 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
369 CALL XERBLA( 'STRSNA', -INFO ) argument
489 20 CONTINUE
522 30 CONTINUE
528 40 CONTINUE
537 50 CONTINUE
598 * End of STRSNA argument
|
| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | strsna.f | 262 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
369 CALL XERBLA( 'STRSNA', -INFO ) argument
489 20 CONTINUE
522 30 CONTINUE
528 40 CONTINUE
537 50 CONTINUE
598 * End of STRSNA argument
|
| /dports/math/lapack/lapack-3.10.0/SRC/ |
| H A D | strsna.f | 262 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
369 CALL XERBLA( 'STRSNA', -INFO ) argument
489 20 CONTINUE
522 30 CONTINUE
528 40 CONTINUE
537 50 CONTINUE
598 * End of STRSNA argument
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | strsna.f | 262 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
369 CALL XERBLA( 'STRSNA', -INFO ) argument
489 20 CONTINUE
522 30 CONTINUE
528 40 CONTINUE
537 50 CONTINUE
598 * End of STRSNA argument
|
| /dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
| H A D | strsna.f | 1 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
262 CALL XERBLA( 'STRSNA', -INFO ) argument
382 20 CONTINUE
415 30 CONTINUE
421 40 CONTINUE
430 50 CONTINUE
491 * End of STRSNA argument
|
| /dports/math/cblas/lapack-3.10.0/SRC/ |
| H A D | strsna.f | 262 SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, subroutine
369 CALL XERBLA( 'STRSNA', -INFO ) argument
489 20 CONTINUE
522 30 CONTINUE
528 40 CONTINUE
537 50 CONTINUE
598 * End of STRSNA argument
|