Home
last modified time | relevance | path

Searched refs:sphi (Results 1 – 25 of 375) sorted by relevance

12345678910>>...15

/dports/science/tinker/tinker/utility/
H A Deuler.f27 real*8 sphi,stheta,spsi
57 sphi = sin(phi)
63 a(2,1) = spsi*stheta*cphi - cpsi*sphi
64 a(3,1) = cpsi*stheta*cphi + spsi*sphi
65 a(1,2) = ctheta * sphi
66 a(2,2) = spsi*stheta*sphi + cpsi*cphi
67 a(3,2) = cpsi*stheta*sphi - spsi*cphi
125 sphi = sin(phi)
132 b(2,2) = spsi*stheta*sphi + cpsi*cphi
151 sphi = sin(phi)
[all …]
/dports/astro/geographiclib/GeographicLib-1.52/src/
H A DGeocentric.cpp39 real sphi, cphi, slam, clam; in IntForward() local
43 Z = (_e2m * n + h) * sphi; in IntForward()
48 Rotation(sphi, cphi, slam, clam, M); in IntForward()
59 real sphi, cphi; in IntReverse() local
71 sphi = (Z/2) / H; in IntReverse()
78 sphi = (h == 0 ? 1 : Z) / H; in IntReverse()
129 sphi = (Z/k1) / H; in IntReverse()
143 sphi = zz / H; in IntReverse()
145 if (Z < 0) sphi = -sphi; // for tiny negative Z (not for prolate) in IntReverse()
149 lat = Math::atan2d(sphi, cphi); in IntReverse()
[all …]
/dports/astro/geographiclib/GeographicLib-1.52/matlab/geographiclib/private/
H A DGeoRotation.m1 function M = GeoRotation(sphi, cphi, slam, clam)
4 % M = GeoRotation(sphi, cphi, slam, clam)
6 % sphi, cphi, slam, clam must all have the same shape, S. M has the
15 S = size(sphi);
17 sphi = sphi(:); cphi = cphi(:); variable
22 M(4,:) = -clam .* sphi; M(5,:) = -slam .* sphi; M(6,:) = cphi;
24 M(7,:) = clam .* cphi; M(8,:) = slam .* cphi; M(9,:) = sphi;
/dports/math/chaco/Chaco-2.2/code/assign/
H A Drotate.c37 double cphi, sphi; /* cosine and sine of phi */ local
47 sphi = sin(phi);
55 a2 = sgamma * sphi + cphi * stheta * onemcg * cphi * ctheta;
56 a3 = -sgamma * cphi * stheta + sphi * onemcg * cphi * ctheta;
58 b1 = -sgamma * sphi + cphi * ctheta * onemcg * cphi * stheta;
60 b3 = sgamma * cphi * ctheta + sphi * onemcg * cphi * stheta;
62 c1 = sgamma * cphi * stheta + cphi * ctheta * onemcg * sphi;
63 c2 = -sgamma * cphi * ctheta + cphi * stheta * onemcg * sphi;
64 c3 = cgamma + sphi * onemcg * sphi;
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dgencycsymelemcfd.f63 sphi=dsin(phi)
69 c(1,2)= dphi*xn(1)*xn(2)-sphi*xn(3)
70 c(1,3)= dphi*xn(1)*xn(3)+sphi*xn(2)
71 c(2,1)= dphi*xn(2)*xn(1)+sphi*xn(3)
73 c(2,3)= dphi*xn(2)*xn(3)-sphi*xn(1)
74 c(3,1)= dphi*xn(3)*xn(1)-sphi*xn(2)
75 c(3,2)= dphi*xn(3)*xn(2)+sphi*xn(1)
162 sphi=dsin(phi)
168 c(1,2)= dphi*xn(1)*xn(2)-sphi*xn(3)
169 c(1,3)= dphi*xn(1)*xn(3)+sphi*xn(2)
[all …]
/dports/math/vtk8/VTK-8.2.0/ThirdParty/libproj/vtklibproj/src/
H A Dpj_mlfn.c36 pj_mlfn(double phi, double sphi, double cphi, double *en) { in pj_mlfn() argument
37 cphi *= sphi; in pj_mlfn()
38 sphi *= sphi; in pj_mlfn()
39 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
40 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/math/vtk9/VTK-9.1.0/ThirdParty/libproj/vtklibproj/src/
H A Dpj_mlfn.c36 pj_mlfn(double phi, double sphi, double cphi, double *en) { in pj_mlfn() argument
37 cphi *= sphi; in pj_mlfn()
38 sphi *= sphi; in pj_mlfn()
39 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
40 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/science/tinker/tinker/source/
H A Dorient.f30 real*8 sphi,stheta,spsi local
63 sphi = sin(phi)
72 a(2,1) = spsi*stheta*cphi - cpsi*sphi
73 a(3,1) = cpsi*stheta*cphi + spsi*sphi
74 a(1,2) = ctheta * sphi
266 real*8 sphi,stheta,spsi local
315 sphi = sin(phi)
322 b(2) = spsi*stheta*sphi + cpsi*cphi
375 real*8 sphi,stheta,spsi local
389 sphi = sin(phi)
[all …]
/dports/graphics/proj/proj-7.2.1/src/
H A Dmlfn.hpp10 inline static double inline_pj_mlfn(double phi, double sphi, double cphi, const double *en) { in inline_pj_mlfn() argument
11 cphi *= sphi; in inline_pj_mlfn()
12 sphi *= sphi; in inline_pj_mlfn()
13 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in inline_pj_mlfn()
14 + sphi*(en[3] + sphi*en[4])))); in inline_pj_mlfn()
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/
H A Dargos_cafe_fso.F205 sphi=sin(phi)
233 if(abs(sphi).gt.small) then
234 sphii=one/sphi
271 + sphi*rm2i*(xsiky*xmz-xsikz*xmy)+
272 + sphi*rn2i*(xskly*xnz-xsklz*xny))
274 + sphi*rm2i*(xsikz*xmx-xsikx*xmz)+
275 + sphi*rn2i*(xsklz*xnx-xsklx*xnz))
277 + sphi*rm2i*(xsikx*xmy-xsiky*xmx)+
278 + sphi*rn2i*(xsklx*xny-xskly*xnx))
280 + sphi*rn2i*(xsjly*xnz-xsjlz*xny)+
[all …]
H A Dargos_cafe_fsd.F214 sphi=sin(phi)
245 if(abs(sphi).gt.small) then
246 sphii=one/sphi
284 + sphi*rm2i*(xsiky*xmz-xsikz*xmy)+
285 + sphi*rn2i*(xskly*xnz-xsklz*xny))
287 + sphi*rm2i*(xsikz*xmx-xsikx*xmz)+
288 + sphi*rn2i*(xsklz*xnx-xsklx*xnz))
290 + sphi*rm2i*(xsikx*xmy-xsiky*xmx)+
291 + sphi*rn2i*(xsklx*xny-xskly*xnx))
293 + sphi*rn2i*(xsjly*xnz-xsjlz*xny)+
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/
H A Dargos_cafe_fsd.F214 sphi=sin(phi)
245 if(abs(sphi).gt.small) then
246 sphii=one/sphi
284 + sphi*rm2i*(xsiky*xmz-xsikz*xmy)+
285 + sphi*rn2i*(xskly*xnz-xsklz*xny))
287 + sphi*rm2i*(xsikz*xmx-xsikx*xmz)+
288 + sphi*rn2i*(xsklz*xnx-xsklx*xnz))
290 + sphi*rm2i*(xsikx*xmy-xsiky*xmx)+
291 + sphi*rn2i*(xsklx*xny-xskly*xnx))
293 + sphi*rn2i*(xsjly*xnz-xsjlz*xny)+
[all …]
H A Dargos_cafe_fso.F205 sphi=sin(phi)
233 if(abs(sphi).gt.small) then
234 sphii=one/sphi
271 + sphi*rm2i*(xsiky*xmz-xsikz*xmy)+
272 + sphi*rn2i*(xskly*xnz-xsklz*xny))
274 + sphi*rm2i*(xsikz*xmx-xsikx*xmz)+
275 + sphi*rn2i*(xsklz*xnx-xsklx*xnz))
277 + sphi*rm2i*(xsikx*xmy-xsiky*xmx)+
278 + sphi*rn2i*(xsklx*xny-xskly*xnx))
280 + sphi*rn2i*(xsjly*xnz-xsjlz*xny)+
[all …]
/dports/devel/boost-docs/boost_1_72_0/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/devel/hyperscan/boost_1_75_0/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/devel/boost-python-libs/boost_1_72_0/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/devel/R-cran-BH/BH/inst/include/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/science/py-scipy/scipy-1.7.1/scipy/_lib/boost/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/math/deal.ii/dealii-803d21ff957e349b3799cd3ef2c840bc78734305/bundled/boost-1.70.0/include/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/math/stanmath/math-4.2.0/lib/boost_1.75.0/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/devel/boost-libs/boost_1_72_0/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp103 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
105 cphi *= sphi; in pj_mlfn()
106 sphi *= sphi; in pj_mlfn()
107 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
108 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/math/py-pystan/pystan-2.19.0.0/pystan/stan/lib/stan_math/lib/boost_1.69.0/boost/geometry/srs/projections/impl/
H A Dpj_mlfn.hpp101 inline T pj_mlfn(T const& phi, T sphi, T cphi, detail::en<T> const& en) in pj_mlfn() argument
103 cphi *= sphi; in pj_mlfn()
104 sphi *= sphi; in pj_mlfn()
105 return(en[0] * phi - cphi * (en[1] + sphi*(en[2] in pj_mlfn()
106 + sphi*(en[3] + sphi*en[4])))); in pj_mlfn()
/dports/graphics/proj/proj-7.2.1/src/transformations/
H A Dmolodensky.cpp132 double sphi = sin(lpz.phi); in calc_standard_params() local
145 dphi = (-dx*sphi*clam) - (dy*sphi*slam) + (dz*cphi) in calc_standard_params()
146 + ((nu * P->es * sphi * cphi * da) / a) in calc_standard_params()
147 + (sphi*cphi * ( rho/(1-f) + nu*(1-f))*df); in calc_standard_params()
164 dh = dx*cphi*clam + dy*cphi*slam + dz*sphi - (a/nu)*da + nu*(1-f)*sphi*sphi*df; in calc_standard_params()
181 double sphi = sin(lpz.phi); in calc_abridged_params() local
190 dphi = -dx*sphi*clam - dy*sphi*slam + dz*cphi + adffda*sin(2*lpz.phi); in calc_abridged_params()
203 dh = dx*cphi*clam + dy*cphi*slam + dz*sphi - da + adffda*sphi*sphi; in calc_abridged_params()
/dports/science/octopus/octopus-10.5/src/grid/
H A Dsubmesh_inc.F9092 FLOAT, intent(in) :: sphi(:)
117 phi(this%map(ip)) = phi(this%map(ip)) + sphi(ip)
137 R_TYPE, intent(inout) :: sphi(:)
148 sphi(ip) = phi(this%map(ip))
153 sphi(ip) = R_CONJ(phi(this%map(ip)))
246 FLOAT, intent(in) :: sphi(:)
263 dotp = dotp + phi(this%map(ip))*sphi(ip)
267 dotp = dotp + phi(this%map(ip))*sphi(ip) &
268 + phi(this%map(ip+1))*sphi(ip+1) &
269 + phi(this%map(ip+2))*sphi(ip+2) &
[all …]
/dports/astro/py-ephem/ephem-4.1.3/libastro/
H A Dparallax.c23 double cphi, sphi, robs, e2 = (2 - 1/298.257)/298.257; in ta_par() local
25 sphi = sin(phi); in ta_par()
26 robs = 1/sqrt(1 - e2 * sphi * sphi); in ta_par()
30 zobs = (robs*(1-e2) + ht) * sphi; in ta_par()

12345678910>>...15