/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/ |
H A D | old_pythag.f | 13 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 D | wsqrt.f | 76 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 D | wlog.f | 52 double precision dlamch, logp1, pythag 53 external dlamch, logp1, pythag 98 t = pythag(a,b)
|
H A D | vpythag.f | 16 double precision xr(*),xi(*),pythag local 19 xr(i) = pythag(xr(i),xi(i))
|
H A D | wsign.f | 15 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 D | det.c | 25 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 D | ls_rmsd.f90 | 252 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 D | csroot.f | 7 double precision s,tr,ti,pythag 10 s = dsqrt(0.5d0*(pythag(tr,ti) + dabs(tr)))
|
H A D | imtql1.f | 5 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 D | pythag.f | 1 double precision function pythag(a,b) function 18 20 pythag = p
|
H A D | cinvit.f | 7 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 D | imtqlv.f | 5 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 D | tql1.f | 5 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 D | imtql2.f | 5 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 D | comqr.f | 6 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 D | minfit.f | 5 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 D | pythag.f | 1 double precision function pythag(a,b) function 18 20 pythag = p
|
H A D | tql1.f | 5 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 D | tql2.f | 5 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 D | pythag.f | 1 double precision function pythag(a,b) function 18 20 pythag = p
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/eispack/ |
H A D | pythag.f | 1 double precision function pythag(a,b) function 18 20 pythag = p
|
H A D | tql1.f | 5 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 D | rs.f | 4 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 D | dspev_drv.f90 | 455 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 D | tql2.hpp | 79 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()
|