/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | sbdsdc.f | 235 $ 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 D | dbdsdc.f | 235 $ 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 D | dlalsd.f | 179 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 D | slalsd.f | 179 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 D | dbdsdc.f | 232 $ 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 D | sbdsdc.f | 232 $ 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 D | slalsd.f | 177 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 D | sbdsdc.f | 232 $ 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 D | dbdsdc.f | 232 $ 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 D | dbdsdc.f | 232 $ 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 D | sbdsdc.f | 232 $ 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 D | dbdsdc.f | 232 $ 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 D | sbdsdc.f | 232 $ 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 D | dbdsdc.f | 147 $ 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 D | sbdsdc.f | 147 $ 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 D | sbdsdc.f | 235 $ 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 D | dbdsdc.f | 235 $ 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 D | sbdsdc.f | 147 $ 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 D | dbdsdc.f | 147 $ 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 D | sbdsdc.f | 141 $ 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 D | dbdsdc.f | 141 $ 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 D | dbdsdc.f | 141 $ 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 D | sbdsdc.f | 141 $ 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 D | sbdsdc.f | 232 $ 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 D | dbdsdc.f | 232 $ 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 ),
|