Home
last modified time | relevance | path

Searched refs:SMLSIZ (Results 1 – 25 of 369) sorted by relevance

12345678910>>...15

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dsbdsdc.f235 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
294 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
298 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddbdsdc.f235 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
294 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
298 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddlalsd.f179 SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, argument
189 INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ
308 IF( N.LE.SMLSIZ ) THEN
341 NLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
343 SMLSZP = SMLSIZ + 1
346 VT = 1 + SMLSIZ*N
416 ELSE IF( NSIZE.LE.SMLSIZ ) THEN
434 CALL DLASDA( ICMPQ1, SMLSIZ, NSIZE, SQRE, D( ST ),
447 CALL DLALSA( ICMPQ2, SMLSIZ, NSIZE, NRHS, B( ST, 1 ),
493 ELSE IF( NSIZE.LE.SMLSIZ ) THEN
[all …]
H A Dslalsd.f179 SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, argument
189 INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ
308 IF( N.LE.SMLSIZ ) THEN
341 NLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
343 SMLSZP = SMLSIZ + 1
346 VT = 1 + SMLSIZ*N
416 ELSE IF( NSIZE.LE.SMLSIZ ) THEN
434 CALL SLASDA( ICMPQ1, SMLSIZ, NSIZE, SQRE, D( ST ),
447 CALL SLALSA( ICMPQ2, SMLSIZ, NSIZE, NRHS, B( ST, 1 ),
493 ELSE IF( NSIZE.LE.SMLSIZ ) THEN
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Dsbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Dslalsd.f177 SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, argument
186 INTEGER INFO, LDB, N, NRHS, RANK, SMLSIZ
305 IF( N.LE.SMLSIZ ) THEN
338 NLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
340 SMLSZP = SMLSIZ + 1
343 VT = 1 + SMLSIZ*N
413 ELSE IF( NSIZE.LE.SMLSIZ ) THEN
431 CALL SLASDA( ICMPQ1, SMLSIZ, NSIZE, SQRE, D( ST ),
444 CALL SLALSA( ICMPQ2, SMLSIZ, NSIZE, NRHS, B( ST, 1 ),
490 ELSE IF( NSIZE.LE.SMLSIZ ) THEN
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dsbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Dsbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/math/lapack/lapack-3.10.0/SRC/
H A Ddbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Dsbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/
H A Ddbdsdc.f147 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
206 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
210 Q( 1+SMLSIZ*N ) = ONE
259 IF( N.LE.SMLSIZ ) THEN
297 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
298 SMLSZP = SMLSIZ + 1
302 IVT = 1 + SMLSIZ
354 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
361 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
363 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Dsbdsdc.f147 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
206 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
210 Q( 1+SMLSIZ*N ) = ONE
259 IF( N.LE.SMLSIZ ) THEN
297 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
298 SMLSZP = SMLSIZ + 1
302 IVT = 1 + SMLSIZ
354 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
361 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
363 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dsbdsdc.f235 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ, local
294 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
298 Q( 1+SMLSIZ*N ) = ONE
349 IF( N.LE.SMLSIZ ) THEN
386 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
387 SMLSZP = SMLSIZ + 1
391 IVT = 1 + SMLSIZ
443 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
450 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
452 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddbdsdc.f235 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ, local
294 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
298 Q( 1+SMLSIZ*N ) = ONE
349 IF( N.LE.SMLSIZ ) THEN
386 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
387 SMLSZP = SMLSIZ + 1
391 IVT = 1 + SMLSIZ
443 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
450 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
452 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/math/openblas/TIMING/EIG/EIGSRC/
H A Dsbdsdc.f147 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
206 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
210 Q( 1+SMLSIZ*N ) = ONE
259 IF( N.LE.SMLSIZ ) THEN
297 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
298 SMLSZP = SMLSIZ + 1
302 IVT = 1 + SMLSIZ
354 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
361 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
363 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddbdsdc.f147 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
206 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
210 Q( 1+SMLSIZ*N ) = ONE
259 IF( N.LE.SMLSIZ ) THEN
297 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
298 SMLSZP = SMLSIZ + 1
302 IVT = 1 + SMLSIZ
354 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
361 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
363 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dsbdsdc.f141 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ, local
200 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
204 Q( 1+SMLSIZ*N ) = ONE
252 IF( N.LE.SMLSIZ ) THEN
289 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
290 SMLSZP = SMLSIZ + 1
294 IVT = 1 + SMLSIZ
346 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
353 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
355 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddbdsdc.f141 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ, local
200 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
204 Q( 1+SMLSIZ*N ) = ONE
252 IF( N.LE.SMLSIZ ) THEN
289 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
290 SMLSZP = SMLSIZ + 1
294 IVT = 1 + SMLSIZ
346 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
353 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
355 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Ddbdsdc.f141 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
200 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
204 Q( 1+SMLSIZ*N ) = ONE
252 IF( N.LE.SMLSIZ ) THEN
289 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
290 SMLSZP = SMLSIZ + 1
294 IVT = 1 + SMLSIZ
346 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
353 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
355 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Dsbdsdc.f141 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
200 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
204 Q( 1+SMLSIZ*N ) = ONE
252 IF( N.LE.SMLSIZ ) THEN
289 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
290 SMLSZP = SMLSIZ + 1
294 IVT = 1 + SMLSIZ
346 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
353 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
355 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
/dports/math/cblas/lapack-3.10.0/SRC/
H A Dsbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'SBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( REAL( N ) / REAL( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL SLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),
H A Ddbdsdc.f232 $ MLVL, NM1, NSIZE, PERM, POLES, QSTART, SMLSIZ,
291 SMLSIZ = ILAENV( 9, 'DBDSDC', ' ', 0, 0, 0, 0 )
295 Q( 1+SMLSIZ*N ) = ONE
346 IF( N.LE.SMLSIZ ) THEN
383 MLVL = INT( LOG( DBLE( N ) / DBLE( SMLSIZ+1 ) ) / LOG( TWO ) ) + 1
384 SMLSZP = SMLSIZ + 1
388 IVT = 1 + SMLSIZ
440 Q( N+( SMLSIZ+QSTART-1 )*N ) = ONE
447 $ LDVT, SMLSIZ, IWORK, WORK( WSTART ), INFO )
449 CALL DLASDA( ICOMPQ, SMLSIZ, NSIZE, SQRE, D( START ),

12345678910>>...15