Home
last modified time | relevance | path

Searched refs:SQRE (Results 1 – 25 of 343) sorted by relevance

12345678910>>...14

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dslasd0.f150 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
159 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
186 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
190 M = N + SQRE
207 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
255 SQREI = SQRE
292 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
293 SQREI = SQRE
H A Ddlasd0.f152 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
161 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
188 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
192 M = N + SQRE
209 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
257 SQREI = SQRE
294 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
295 SQREI = SQRE
H A Ddlasd1.f204 SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, argument
213 INTEGER INFO, LDU, LDVT, NL, NR, SQRE
249 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
258 M = N + SQRE
293 CALL DLASD2( NL, NR, SQRE, K, D, WORK( IZ ), ALPHA, BETA, U, LDU,
301 CALL DLASD3( NL, NR, SQRE, K, D, WORK( IQ ), LDQ, WORK( ISIGMA ),
H A Dslasd1.f204 SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, argument
213 INTEGER INFO, LDU, LDVT, NL, NR, SQRE
249 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
258 M = N + SQRE
293 CALL SLASD2( NL, NR, SQRE, K, D, WORK( IZ ), ALPHA, BETA, U, LDU,
301 CALL SLASD3( NL, NR, SQRE, K, D, WORK( IQ ), LDQ, WORK( ISIGMA ),
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dslasd0.f148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
H A Ddlasd0.f148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
H A Dslasd1.f202 SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, argument
210 INTEGER INFO, LDU, LDVT, NL, NR, SQRE
246 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
255 M = N + SQRE
290 CALL SLASD2( NL, NR, SQRE, K, D, WORK( IZ ), ALPHA, BETA, U, LDU,
298 CALL SLASD3( NL, NR, SQRE, K, D, WORK( IQ ), LDQ, WORK( ISIGMA ),
/dports/math/blas/lapack-3.10.0/SRC/
H A Ddlasd0.f148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
H A Dslasd0.f148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Ddlasd0.f1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local
104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
108 M = N + SQRE
125 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
173 SQREI = SQRE
210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
211 SQREI = SQRE
H A Dslasd0.f1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local
104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
108 M = N + SQRE
125 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
173 SQREI = SQRE
210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
211 SQREI = SQRE
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddlasd0.f148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
H A Dslasd0.f148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dslasd0.f148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
H A Ddlasd0.f148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/
H A Ddlasd0.f1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
114 M = N + SQRE
131 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
179 SQREI = SQRE
216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
217 SQREI = SQRE
H A Dslasd0.f1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
114 M = N + SQRE
131 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
179 SQREI = SQRE
216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
217 SQREI = SQRE
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddlasd0.f150 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
159 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local
186 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
190 M = N + SQRE
207 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
255 SQREI = SQRE
292 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
293 SQREI = SQRE
H A Dslasd0.f150 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
159 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE local
186 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
190 M = N + SQRE
207 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
255 SQREI = SQRE
292 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
293 SQREI = SQRE
/dports/math/openblas/TIMING/EIG/EIGSRC/
H A Ddlasd0.f1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
114 M = N + SQRE
131 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
179 SQREI = SQRE
216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
217 SQREI = SQRE
H A Dslasd0.f1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
110 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
114 M = N + SQRE
131 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
179 SQREI = SQRE
216 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
217 SQREI = SQRE
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Ddlasd0.f1 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
108 M = N + SQRE
125 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
173 SQREI = SQRE
210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
211 SQREI = SQRE
H A Dslasd0.f1 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
10 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
104 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
108 M = N + SQRE
125 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
173 SQREI = SQRE
210 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
211 SQREI = SQRE
/dports/math/cblas/lapack-3.10.0/SRC/
H A Dslasd0.f148 SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL SLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE
H A Ddlasd0.f148 SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, argument
156 INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE
183 ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
187 M = N + SQRE
204 CALL DLASDQ( 'U', SQRE, N, M, N, 0, D, E, VT, LDVT, U, LDU, U,
252 SQREI = SQRE
289 IF( ( SQRE.EQ.0 ) .AND. ( I.EQ.LL ) ) THEN
290 SQREI = SQRE

12345678910>>...14