/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | slahqr.c | 37 static real ulp, sum, tst1, h43h34, disc, unfl, ovfl, work[1]; in slahqr_() local 279 h43h34 = s * -.4375f * s; in slahqr_() 287 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in slahqr_() 292 disc = disc * disc + h43h34; in slahqr_() 300 h33 = h33 * h44 - h43h34; in slahqr_() 306 h43h34 = 0.f; in slahqr_() 324 v1 = (h33s * h44s - h43h34) / h21 + h12; in slahqr_()
|
H A D | dlahqr.c | 37 static doublereal ulp, sum, tst1, h43h34, disc, unfl, ovfl; in dlahqr_() local 282 h43h34 = s * -.4375 * s; in dlahqr_() 290 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in dlahqr_() 295 disc = disc * disc + h43h34; in dlahqr_() 303 h33 = h33 * h44 - h43h34; in dlahqr_() 309 h43h34 = 0.; in dlahqr_() 327 v1 = (h33s * h44s - h43h34) / h21 + h12; in dlahqr_()
|
/dports/math/R-cran-igraph/igraph/src/ |
H A D | dlaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/src_f77/ |
H A D | slaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
H A D | dlaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, local 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
/dports/math/algae/algae-4.3.6/arpack/ |
H A D | dlaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/arpack/ |
H A D | dlaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
H A D | slaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
/dports/science/getdp/getdp-3.4.0-source/contrib/Arpack/ |
H A D | slaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
H A D | dlaqrb.f | 144 & h43h34, h44, h44s, ovfl, s, smlnum, sn, sum, 301 h43h34 = dat2*s*s 311 h43h34 = h( i, i-1 )*h( i-1, i ) 332 v1 = ( h33s*h44s-h43h34 ) / h21 + h12
|
/dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
H A D | dlaqrb.c | 146 doublereal ulp, sum, tst1, h43h34, unfl, ovfl; in igraphdlaqrb_() local 358 h43h34 = s * -.4375 * s; in igraphdlaqrb_() 368 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in igraphdlaqrb_() 391 v1 = (h33s * h44s - h43h34) / h21 + h12; in igraphdlaqrb_()
|
/dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/ARPACK/ |
H A D | dlaqrb.c | 147 static doublereal ulp, sum, tst1, h43h34, unfl, ovfl; in dlaqrb_() local 360 h43h34 = s * -.4375 * s; in dlaqrb_() 370 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in dlaqrb_() 393 v1 = (h33s * h44s - h43h34) / h21 + h12; in dlaqrb_()
|
H A D | slaqrb.c | 147 static real ulp, sum, tst1, h43h34, unfl, ovfl, work[1]; in slaqrb_() local 357 h43h34 = s * -.4375f * s; in slaqrb_() 367 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in slaqrb_() 390 v1 = (h33s * h44s - h43h34) / h21 + h12; in slaqrb_()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/ |
H A D | dlaqrb.c | 140 static doublereal ulp, sum, tst1, h43h34, unfl, ovfl; in dlaqrb_() local 353 h43h34 = s * -.4375 * s; in dlaqrb_() 363 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in dlaqrb_() 386 v1 = (h33s * h44s - h43h34) / h21 + h12; in dlaqrb_()
|
H A D | slaqrb.c | 140 static real ulp, sum, tst1, h43h34, unfl, ovfl, work[1]; in slaqrb_() local 350 h43h34 = s * -.4375f * s; in slaqrb_() 360 h43h34 = h__[i__ + (i__ - 1) * h_dim1] * h__[i__ - 1 + i__ * in slaqrb_() 383 v1 = (h33s * h44s - h43h34) / h21 + h12; in slaqrb_()
|
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/ |
H A D | dlahqr.lisp | 39 (h21 0.0) (h22 0.0) (h33 0.0) (h33s 0.0) (h43h34 0.0) (h44 0.0) 47 h33s h43h34 h44 h44s ovfl s smlnum sn sum 156 (setf h43h34 (* dat2 s s))) 169 (setf h43h34 192 (setf disc (+ (* disc disc) h43h34)) 199 (setf h33 (- (* h33 h44) h43h34)) 204 (setf h43h34 zero))))) 232 (setf v1 (+ (/ (- (* h33s h44s) h43h34) h21) h12))
|
/dports/math/gmm++/gmm-5.4/include/gmm/ |
H A D | gmm_dense_qr.h | 483 T h33, h44, h43h34, v1(0), v2(0), v3(0); in Wilkinson_double_shift_qr_step() local 488 h43h34 = dat2*s*s; in Wilkinson_double_shift_qr_step() 492 h43h34 = H(n-1, n-2) * H(n-2, n-1); in Wilkinson_double_shift_qr_step() 502 v1 = (h33s*h44s-h43h34) / h21 + h12; in Wilkinson_double_shift_qr_step()
|
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/gmm/ |
H A D | gmm_dense_qr.h | 482 T h33, h44, h43h34, v1(0), v2(0), v3(0); in Wilkinson_double_shift_qr_step() local 487 h43h34 = dat2*s*s; in Wilkinson_double_shift_qr_step() 491 h43h34 = H(n-1, n-2) * H(n-2, n-1); in Wilkinson_double_shift_qr_step() 501 v1 = (h33s*h44s-h43h34) / h21 + h12; in Wilkinson_double_shift_qr_step()
|
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/ALGLIB/ |
H A D | alglibinternal.cpp | 5781 double h43h34; in hsschur_internalauxschur() local 5928 h43h34 = dat2*s*s; in hsschur_internalauxschur() 5939 h43h34 = h->ptr.pp_double[i][i-1]*h->ptr.pp_double[i-1][i]; in hsschur_internalauxschur() 5942 disc = disc*disc+h43h34; in hsschur_internalauxschur() 5953 h33 = h33*h44-h43h34; in hsschur_internalauxschur() 5961 h43h34 = 0; in hsschur_internalauxschur() 5982 v1 = (h33s*h44s-h43h34)/h21+h12; in hsschur_internalauxschur()
|