Home
last modified time | relevance | path

Searched defs:HTRIDI (Results 1 – 9 of 9) sorted by relevance

/dports/math/cmlib/cmlib-3.0_8/src/eispack/
H A Dhtridi.f73 100 D(I) = AR(I,I)
88 130 E(I) = 0.0E0
96 150 CONTINUE
115 170 F = 0.0E0
124 180 CONTINUE
132 200 CONTINUE
137 240 CONTINUE
154 260 CONTINUE
159 280 CONTINUE
162 290 HH = D(I)
[all …]
/dports/math/slatec/src/
H A Dhtridi.f89 100 D(I) = AR(I,I)
104 130 E(I) = 0.0E0
112 150 CONTINUE
131 170 F = 0.0E0
140 180 CONTINUE
148 200 CONTINUE
153 240 CONTINUE
170 260 CONTINUE
175 280 CONTINUE
178 290 HH = D(I)
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/
H A Dceispack.f1428 INTEGER I,J,K,L,N,II,NM,JP1
1429 REAL AR(NM,N),AI(NM,N),D(N),E(N),E2(N),TAU(2,N)
1430 REAL F,G,H,FI,GI,HH,SI,SCALE,PYTHAG local
1435 COMMON / LATIME / OPS, ITCNT
1438 REAL ITCNT, OPS
1519 150 CONTINUE
1538 170 F = 0.0E0
1560 240 CONTINUE
1577 260 CONTINUE
1582 280 CONTINUE
[all …]
H A Dzeispack.f1498 100 D(I) = AR(I,I)
1513 130 E(I) = 0.0D0
1521 150 CONTINUE
1540 170 F = 0.0D0
1549 180 CONTINUE
1557 200 CONTINUE
1562 240 CONTINUE
1579 260 CONTINUE
1584 280 CONTINUE
1587 290 HH = D(I)
[all …]
/dports/math/openblas/TIMING/EIG/
H A Dceispack.f1496 100 D(I) = AR(I,I)
1511 130 E(I) = 0.0E0
1519 150 CONTINUE
1538 170 F = 0.0E0
1547 180 CONTINUE
1555 200 CONTINUE
1560 240 CONTINUE
1577 260 CONTINUE
1582 280 CONTINUE
1585 290 HH = D(I)
[all …]
H A Dzeispack.f1498 100 D(I) = AR(I,I)
1513 130 E(I) = 0.0D0
1521 150 CONTINUE
1540 170 F = 0.0D0
1549 180 CONTINUE
1557 200 CONTINUE
1562 240 CONTINUE
1579 260 CONTINUE
1584 280 CONTINUE
1587 290 HH = D(I)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/
H A Deispack.F5288 100 D(I) = AR(I,I)
5303 130 E(I) = 0.0D0
5311 150 CONTINUE
5330 170 F = 0.0D0
5339 180 CONTINUE
5347 200 CONTINUE
5352 240 CONTINUE
5369 260 CONTINUE
5374 280 CONTINUE
5377 290 HH = D(I)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/
H A Deispack.F5284 100 D(I) = AR(I,I)
5299 130 E(I) = 0.0D0
5307 150 CONTINUE
5326 170 F = 0.0D0
5335 180 CONTINUE
5343 200 CONTINUE
5348 240 CONTINUE
5365 260 CONTINUE
5370 280 CONTINUE
5373 290 HH = D(I)
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/
H A Deispack.F5289 100 D(I) = AR(I,I)
5304 130 E(I) = 0.0D0
5312 150 CONTINUE
5331 170 F = 0.0D0
5340 180 CONTINUE
5348 200 CONTINUE
5353 240 CONTINUE
5370 260 CONTINUE
5375 280 CONTINUE
5378 290 HH = D(I)
[all …]