/dports/science/tinker/tinker/utility/ |
H A D | euler.f | 27 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 D | Geocentric.cpp | 39 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 D | GeoRotation.m | 1 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 D | rotate.c | 37 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 D | gencycsymelemcfd.f | 63 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 D | pj_mlfn.c | 36 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 D | pj_mlfn.c | 36 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 D | orient.f | 30 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 D | mlfn.hpp | 10 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 D | argos_cafe_fso.F | 205 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 D | argos_cafe_fsd.F | 214 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 D | argos_cafe_fsd.F | 214 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 D | argos_cafe_fso.F | 205 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 103 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 D | pj_mlfn.hpp | 101 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 D | molodensky.cpp | 132 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 D | submesh_inc.F90 | 92 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 D | parallax.c | 23 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()
|