Searched defs:IMTQL1 (Results 1 – 13 of 13) sorted by relevance
/dports/math/cmlib/cmlib-3.0_8/src/eispack/ |
H A D | imtql1.f | 65 100 E(I-1) = E(I) 77 110 CONTINUE 79 120 P = D(L) 103 150 S = F / G 113 200 CONTINUE 126 230 CONTINUE 128 250 I = 1 129 270 D(I) = P 130 290 CONTINUE 135 1000 IERR = L [all …]
|
/dports/math/slatec/src/ |
H A D | imtql1.f | 79 100 E(I-1) = E(I) 91 110 CONTINUE 93 120 P = D(L) 117 150 S = F / G 127 200 CONTINUE 140 230 CONTINUE 142 250 I = 1 143 270 D(I) = P 144 290 CONTINUE 149 1000 IERR = L [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/ |
H A D | ceispack.f | 1620 C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE IMTQL1, argument 1672 100 E(I-1) = E(I) 1686 110 CONTINUE 1688 120 P = D(L) 1721 200 CONTINUE 1747 230 CONTINUE 1749 250 I = 1 1750 270 D(I) = P 1751 290 CONTINUE 1756 1000 IERR = L [all …]
|
H A D | deispack.f | 950 C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE IMTQL1, argument 1002 100 E(I-1) = E(I) 1016 110 CONTINUE 1018 120 P = D(L) 1051 200 CONTINUE 1077 230 CONTINUE 1079 250 I = 1 1080 270 D(I) = P 1081 290 CONTINUE 1086 1000 IERR = L [all …]
|
H A D | zeispack.f | 1674 100 E(I-1) = E(I) 1681 105 DO 110 M = L, N 1688 110 CONTINUE 1690 120 P = D(L) 1723 200 CONTINUE 1749 230 CONTINUE 1751 250 I = 1 1752 270 D(I) = P 1753 290 CONTINUE 1758 1000 IERR = L [all …]
|
H A D | seispack.f | 1001 100 E(I-1) = E(I) 1008 105 DO 110 M = L, N 1015 110 CONTINUE 1017 120 P = D(L) 1050 200 CONTINUE 1076 230 CONTINUE 1078 250 I = 1 1079 270 D(I) = P 1080 290 CONTINUE 1085 1000 IERR = L [all …]
|
/dports/math/openblas/TIMING/EIG/ |
H A D | ceispack.f | 1672 100 E(I-1) = E(I) 1679 105 DO 110 M = L, N 1686 110 CONTINUE 1688 120 P = D(L) 1721 200 CONTINUE 1747 230 CONTINUE 1749 250 I = 1 1750 270 D(I) = P 1751 290 CONTINUE 1756 1000 IERR = L [all …]
|
H A D | zeispack.f | 1674 100 E(I-1) = E(I) 1681 105 DO 110 M = L, N 1688 110 CONTINUE 1690 120 P = D(L) 1723 200 CONTINUE 1749 230 CONTINUE 1751 250 I = 1 1752 270 D(I) = P 1753 290 CONTINUE 1758 1000 IERR = L [all …]
|
H A D | deispack.f | 1002 100 E(I-1) = E(I) 1009 105 DO 110 M = L, N 1016 110 CONTINUE 1018 120 P = D(L) 1051 200 CONTINUE 1077 230 CONTINUE 1079 250 I = 1 1080 270 D(I) = P 1081 290 CONTINUE 1086 1000 IERR = L [all …]
|
H A D | seispack.f | 1001 100 E(I-1) = E(I) 1008 105 DO 110 M = L, N 1015 110 CONTINUE 1017 120 P = D(L) 1050 200 CONTINUE 1076 230 CONTINUE 1078 250 I = 1 1079 270 D(I) = P 1080 290 CONTINUE 1085 1000 IERR = L [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | eispack.F | 5435 100 E(I-1) = E(I) 5442 105 DO 110 M = L, N 5447 110 CONTINUE 5449 120 P = D(L) 5476 200 CONTINUE 5493 230 CONTINUE 5495 250 I = 1 5496 270 D(I) = P 5497 290 CONTINUE 5502 1000 IERR = L [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | eispack.F | 5431 100 E(I-1) = E(I) 5438 105 DO 110 M = L, N 5443 110 CONTINUE 5445 120 P = D(L) 5472 200 CONTINUE 5489 230 CONTINUE 5491 250 I = 1 5492 270 D(I) = P 5493 290 CONTINUE 5498 1000 IERR = L [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/ |
H A D | eispack.F | 5436 100 E(I-1) = E(I) 5443 105 DO 110 M = L, N 5448 110 CONTINUE 5450 120 P = D(L) 5477 200 CONTINUE 5494 230 CONTINUE 5496 250 I = 1 5497 270 D(I) = P 5498 290 CONTINUE 5503 1000 IERR = L [all …]
|