Home
last modified time | relevance | path

Searched refs:DOL (Results 1 – 25 of 263) sorted by relevance

1234567891011

/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dsstegr2.f3 $ 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 Ddstegr2.f3 $ 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 Dsstegr2a.f3 $ 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 Ddstegr2a.f3 $ 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 Dsstegr2b.f3 $ 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 Ddstegr2b.f3 $ 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 Ddlarrv.f281 $ 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 Dslarrv.f281 $ 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 Dclarrv.f282 $ 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 Dslarrv.f288 $ 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 Dzlarrv.f282 $ 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 Ddlarrv.f288 $ 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 Dzlarrv.f282 $ 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 Ddlarrv.f288 $ 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 Dslarrv.f288 $ 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 Dclarrv.f282 $ 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 Dclarrv.f282 $ 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 Ddlarrv.f288 $ 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 Dslarrv.f288 $ 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 Dzlarrv.f282 $ 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 Dclarrv.f282 $ 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 Dslarrv.f288 $ 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 Ddlarrv.f288 $ 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 Dzlarrv.f282 $ 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 Ddlarrv.f281 $ 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 …]

1234567891011