Home
last modified time | relevance | path

Searched refs:pythag (Results 1 – 25 of 135) sorted by relevance

123456

/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/
H A Dold_pythag.f13 double precision function pythag(a, b)
104 pythag = a
108 pythag = b
124 pythag = x
141 pythag = x + y/s
143 pythag = x
H A Dwsqrt.f76 double precision pythag, dlamch local
77 external pythag, dlamch
109 t = sqrt(2.d0*(abs(a) + pythag(a,b)))
159 t = sqrt(2.d0*(abs(a) + pythag(a,b)))
H A Dwlog.f52 double precision dlamch, logp1, pythag
53 external dlamch, logp1, pythag
98 t = pythag(a,b)
H A Dvpythag.f16 double precision xr(*),xi(*),pythag local
19 xr(i) = pythag(xr(i),xi(i))
H A Dwsign.f15 double precision xr,xi,yr,yi,zr,zi,pythag,t local
18 t = pythag(yr,yi)
/dports/math/scilab/scilab-6.1.1/scilab/modules/linear_algebra/src/c/
H A Ddet.c25 extern double C2F(pythag)(double *a, double *b); /* complex Abs */
85 …if (C2F(pythag)(pMantissaReal, pMantissaImg) == 0.) /* original Fortran code does the fp strict co… in iDetM() local
89 …for (; C2F(pythag)(pMantissaReal, pMantissaImg) < 1 ; *pMantissaReal *= base, *pMantissaImg *= bas… in iDetM()
93 …for (; C2F(pythag)(pMantissaReal, pMantissaImg) > base; *pMantissaReal /= base, *pMantissaImg /= … in iDetM()
/dports/science/xtb/xtb-6.4.1/src/
H A Dls_rmsd.f90252 r1 = pythag(T(3,1),T(4,1))
267 r2 = pythag(T(3,1), T(2,1))
282 r3 = pythag(T(4,2), T(3,2))
456 h=pythag(f,g)
488 g=pythag(f,1.0d0)
498 z=pythag(f,h)
512 z=pythag(f,h)
541 real(dp) :: pythag, a, b local
547 pythag=absa*dsqrt(1.0d0+(absb/absa)**2)
550 pythag=0.0d0
[all …]
/dports/math/eispack/eispack-1.0_14/
H A Dcsroot.f7 double precision s,tr,ti,pythag
10 s = dsqrt(0.5d0*(pythag(tr,ti) + dabs(tr)))
H A Dimtql1.f5 double precision b,c,f,g,p,r,s,tst1,tst2,pythag
71 r = pythag(g,1.0d0)
82 r = pythag(f,g)
H A Dpythag.f1 double precision function pythag(a,b) function
18 20 pythag = p
H A Dcinvit.f7 double precision x,y,eps3,norm,normv,epslon,growto,ilambd,pythag,
100 160 x = x + pythag(ar(i,j),ai(i,j))
151 if (pythag(rm1(i,mp),rm2(i,mp)) .le.
152 x pythag(rm1(mp,mp),rm2(mp,mp))) go to 360
201 x = pythag(rv1(i),rv2(i))
H A Dimtqlv.f5 double precision b,c,f,g,p,r,s,tst1,tst2,pythag
98 r = pythag(g,1.0d0)
109 r = pythag(f,g)
H A Dtql1.f5 double precision c,c2,c3,dl1,el1,f,g,h,p,r,s,s2,tst1,tst2,pythag
77 r = pythag(p,1.0d0)
103 r = pythag(p,e(i))
H A Dimtql2.f5 double precision b,c,f,g,p,r,s,tst1,tst2,pythag
87 r = pythag(g,1.0d0)
98 r = pythag(f,g)
H A Dcomqr.f6 x pythag
72 norm = pythag(hr(i,i-1),hi(i,i-1))
154 norm = pythag(pythag(hr(i-1,i-1),hi(i-1,i-1)),sr)
178 norm = pythag(hr(en,en),si)
H A Dminfit.f5 double precision c,f,g,h,s,x,y,z,tst1,tst2,scale,pythag
238 h = pythag(f,g)
263 g = pythag(f,1.0d0)
275 z = pythag(f,h)
291 z = pythag(f,h)
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/eispack/
H A Dpythag.f1 double precision function pythag(a,b) function
18 20 pythag = p
H A Dtql1.f5 double precision c,c2,c3,dl1,el1,f,g,h,p,r,s,s2,tst1,tst2,pythag
77 r = pythag(p,1.0d0)
103 r = pythag(p,e(i))
H A Dtql2.f5 double precision c,c2,c3,dl1,el1,f,g,h,p,r,s,s2,tst1,tst2,pythag
93 r = pythag(p,1.0d0)
119 r = pythag(p,e(i))
/dports/math/chaco/Chaco-2.2/code/tinvit/
H A Dpythag.f1 double precision function pythag(a,b) function
18 20 pythag = p
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/eispack/
H A Dpythag.f1 double precision function pythag(a,b) function
18 20 pythag = p
H A Dtql1.f5 double precision c,c2,c3,dl1,el1,f,g,h,p,r,s,s2,tst1,tst2,pythag
77 r = pythag(p,1.0d0)
103 r = pythag(p,e(i))
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Drs.f4 real*8 function pythag(a,b)
22 20 pythag = p
92 real*8 c,c2,c3,dl1,el1,f,g,h,p,r,s,s2,tst1,tst2,pythag
164 r = pythag(p,1.0d0)
190 r = pythag(p,e(i))
229 real*8 c,c2,c3,dl1,el1,f,g,h,p,r,s,s2,tst1,tst2,pythag
317 r = pythag(p,1.0d0)
343 r = pythag(p,e(i))
/dports/science/quantum-espresso/q-e-qe-6.7.0/LAXlib/
H A Ddspev_drv.f90455 r=pythag(g,1.0_DP)
463 r=pythag(f,g)
578 FUNCTION pythag(a,b) function
581 REAL(DP) :: a, b, pythag local
586 pythag=absa*sqrt(1.0_DP+(absb/absa)**2)
589 pythag=0.0_DP
591 pythag=absb*sqrt(1.0_DP+(absa/absb)**2)
595 END FUNCTION pythag
/dports/math/viennacl/ViennaCL-1.7.1/viennacl/linalg/
H A Dtql2.hpp79 SCALARTYPE r = viennacl::linalg::detail::pythag<SCALARTYPE>(p, 1); in tql1()
103 r = viennacl::linalg::detail::pythag<SCALARTYPE>(p, e[vcl_size_t(i)]); in tql1()
173 SCALARTYPE r = viennacl::linalg::detail::pythag<SCALARTYPE>(p, 1); in tql2()
205 r = viennacl::linalg::detail::pythag(p, e[vcl_size_t(i)]); in tql2()

123456