Home
last modified time | relevance | path

Searched defs:IMTQL1 (Results 1 – 13 of 13) sorted by relevance

/dports/math/cmlib/cmlib-3.0_8/src/eispack/
H A Dimtql1.f65 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 Dimtql1.f79 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 Dceispack.f1620 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 Ddeispack.f950 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 Dzeispack.f1674 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 Dseispack.f1001 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 Dceispack.f1672 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 Dzeispack.f1674 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 Ddeispack.f1002 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 Dseispack.f1001 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 Deispack.F5435 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 Deispack.F5431 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 Deispack.F5436 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 …]