/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | sstegr2.f | 3 $ LIWORK, DOL, DOU, ZOFFSET, INFO ) 11 INTEGER DOL, DOU, IL, INFO, IU, 313 IF ( DOL.LT.1 .OR. DOL.GT.NZCMIN ) THEN 316 IF ( DOU.LT.1 .OR. DOU.GT.NZCMIN .OR. DOU.LT.DOL) THEN 421 $ IWORK( IINSPL ), M, DOL, DOU, 442 $ DOL, DOU, MINRGP, RTOL1, RTOL2, 473 IF( DOL.NE.1 .OR. DOU.NE.M ) THEN 474 M = DOU - DOL +1 483 CALL SLASRT( 'I', DOU - DOL +1, W(DOL), IINFO ) 489 DO 60 J = DOL, DOU - 1
|
H A D | dstegr2.f | 3 $ LIWORK, DOL, DOU, ZOFFSET, INFO ) argument 11 INTEGER DOL, DOU, IL, INFO, IU, local 313 IF ( DOL.LT.1 .OR. DOL.GT.NZCMIN ) THEN 316 IF ( DOU.LT.1 .OR. DOU.GT.NZCMIN .OR. DOU.LT.DOL) THEN 421 $ IWORK( IINSPL ), M, DOL, DOU, 442 $ DOL, DOU, MINRGP, RTOL1, RTOL2, 473 IF( DOL.NE.1 .OR. DOU.NE.M ) THEN 474 M = DOU - DOL +1 483 CALL DLASRT( 'I', DOU - DOL +1, W(DOL), IINFO ) 489 DO 60 J = DOL, DOU - 1
|
H A D | sstegr2a.f | 3 $ LIWORK, DOL, DOU, NEEDIL, NEEDIU, 15 INTEGER DOL, DOU, IL, INDERR, INFO, IU, LDZ, LIWORK, 340 IF ( DOL.LT.1 .OR. DOL.GT.NZCMIN ) THEN 343 IF ( DOU.LT.1 .OR. DOU.GT.NZCMIN .OR. DOU.LT.DOL) THEN 361 NEEDIU = DOL 445 $ IWORK( IINSPL ), M, DOL, DOU, NEEDIL, NEEDIU,
|
H A D | dstegr2a.f | 3 $ LIWORK, DOL, DOU, NEEDIL, NEEDIU, argument 15 INTEGER DOL, DOU, IL, INDERR, INFO, IU, LDZ, LIWORK, local 340 IF ( DOL.LT.1 .OR. DOL.GT.NZCMIN ) THEN 343 IF ( DOU.LT.1 .OR. DOU.GT.NZCMIN .OR. DOU.LT.DOL) THEN 361 NEEDIU = DOL 445 $ IWORK( IINSPL ), M, DOL, DOU, NEEDIL, NEEDIU,
|
H A D | sstegr2b.f | 3 $ LIWORK, DOL, DOU, NEEDIL, NEEDIU, 16 INTEGER DOL, DOU, INDWLC, INFO, LDZ, LIWORK, LWORK, M, 288 $ DOL, DOU, NEEDIL, NEEDIU, MINRGP, RTOL1, RTOL2, 329 IF( DOL.NE.1 .OR. DOU.NE.M ) THEN 330 M = DOU - DOL +1
|
H A D | dstegr2b.f | 3 $ LIWORK, DOL, DOU, NEEDIL, NEEDIU, argument 16 INTEGER DOL, DOU, INDWLC, INFO, LDZ, LIWORK, LWORK, M, local 288 $ DOL, DOU, NEEDIL, NEEDIU, MINRGP, RTOL1, RTOL2, 329 IF( DOL.NE.1 .OR. DOU.NE.M ) THEN 330 M = DOU - DOL +1
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlarrv.f | 281 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 369 IF(DOL.GT.1) THEN 371 ZUSEDL = DOL-1 391 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 528 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 533 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 535 J = DOL - 1 630 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 637 NEWFTT = DOL - 1 [all …]
|
H A D | slarrv.f | 281 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 369 IF(DOL.GT.1) THEN 371 ZUSEDL = DOL-1 391 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 528 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 533 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 535 J = DOL - 1 630 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 637 NEWFTT = DOL - 1 [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | clarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
H A D | slarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | zlarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
H A D | dlarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zlarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
H A D | dlarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | slarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | clarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | clarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
H A D | dlarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | slarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | zlarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | clarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
H A D | slarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | dlarrv.f | 288 $ ISPLIT, M, DOL, DOU, MINRGP, 298 INTEGER DOL, DOU, INFO, LDZ, M, N 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 643 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 650 NEWFTT = DOL - 1 [all …]
|
H A D | zlarrv.f | 282 $ ISPLIT, M, DOL, DOU, MINRGP, argument 292 INTEGER DOL, DOU, INFO, LDZ, M, N local 382 IF(DOL.GT.1) THEN 384 ZUSEDL = DOL-1 404 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 541 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 546 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 548 J = DOL - 1 647 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 654 NEWFTT = DOL - 1 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlarrv.f | 281 $ ISPLIT, M, DOL, DOU, MINRGP, 292 INTEGER DOL, DOU, INFO, LDZ, M, N 368 IF(DOL.GT.1) THEN 370 ZUSEDL = DOL-1 390 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 527 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 532 IF(WBEGIN+OLDFST-1.LT.DOL) THEN 534 J = DOL - 1 629 IF((DOL.EQ.1).AND.(DOU.EQ.M)) THEN 636 NEWFTT = DOL - 1 [all …]
|