/dports/astro/oskar/OSKAR-2.8.0/extern/cfitsio/ |
H A D | wcssub.c | 201 double phia, phib, temp; in ffgics() local 259 phia = temp; in ffgics() 268 phia += pi; in ffgics() 277 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 348 phia = temp; in ffgics() 366 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 437 double phia, phib, temp; in ffgicsa() local 526 phia = temp; in ffgicsa() 535 phia += pi; in ffgicsa() 544 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgicsa() [all …]
|
/dports/astro/cfitsio/cfitsio-3.49/ |
H A D | wcssub.c | 201 double phia, phib, temp; in ffgics() local 259 phia = temp; in ffgics() 268 phia += pi; in ffgics() 277 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 348 phia = temp; in ffgics() 366 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 437 double phia, phib, temp; in ffgicsa() local 526 phia = temp; in ffgicsa() 535 phia += pi; in ffgicsa() 544 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgicsa() [all …]
|
/dports/science/healpix/Healpix_3.50/src/healpy/cfitsio/ |
H A D | wcssub.c | 201 double phia, phib, temp; in ffgics() local 259 phia = temp; in ffgics() 268 phia += pi; in ffgics() 277 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 348 phia = temp; in ffgics() 366 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 437 double phia, phib, temp; in ffgicsa() local 526 phia = temp; in ffgicsa() 535 phia += pi; in ffgicsa() 544 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgicsa() [all …]
|
/dports/astro/py-astropy/astropy-5.0/cextern/cfitsio/lib/ |
H A D | wcssub.c | 201 double phia, phib, temp; in ffgics() local 259 phia = temp; in ffgics() 268 phia += pi; in ffgics() 277 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 348 phia = temp; in ffgics() 366 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgics() 437 double phia, phib, temp; in ffgicsa() local 526 phia = temp; in ffgicsa() 535 phia += pi; in ffgicsa() 544 phia = (phia + phib) /2.; /* use the average of the 2 values */ in ffgicsa() [all …]
|
/dports/comms/wsjtz/wsjtx/lib/ft4/ |
H A D | sync4d.f90 | 26 phia=0.0 36 csynca(k)=cmplx(cos(phia),sin(phia)) 40 phia=mod(phia+dphia,twopi)
|
/dports/devel/boost-docs/boost_1_72_0/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
H A D | functions.hpp | 186 std::vector<std::size_t> const& phia, std::vector<std::size_t> const& phib) in prod() argument 197 auto const q = size_type(phia.size()); in prod() 211 if(pa < phia.size()) in prod() 221 if( na.at(phia.at(i)-1) != nb.at(phib.at(i)-1)) in prod() 234 for(auto i = 0ul; i < phia.size(); ++i) in prod() 235 * std::remove(phia1.begin(), phia1.end(), phia.at(i)) = phia.at(i); in prod()
|
/dports/devel/hyperscan/boost_1_75_0/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
H A D | functions.hpp | 186 std::vector<std::size_t> const& phia, std::vector<std::size_t> const& phib) in prod() argument 197 auto const q = size_type(phia.size()); in prod() 211 if(pa < phia.size()) in prod() 221 if( na.at(phia.at(i)-1) != nb.at(phib.at(i)-1)) in prod() 234 for(auto i = 0ul; i < phia.size(); ++i) in prod() 235 * std::remove(phia1.begin(), phia1.end(), phia.at(i)) = phia.at(i); in prod()
|
/dports/devel/R-cran-BH/BH/inst/include/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
H A D | functions.hpp | 186 std::vector<std::size_t> const& phia, std::vector<std::size_t> const& phib) in prod() argument 197 auto const q = size_type(phia.size()); in prod() 211 if(pa < phia.size()) in prod() 221 if( na.at(phia.at(i)-1) != nb.at(phib.at(i)-1)) in prod() 234 for(auto i = 0ul; i < phia.size(); ++i) in prod() 235 * std::remove(phia1.begin(), phia1.end(), phia.at(i)) = phia.at(i); in prod()
|
/dports/math/stanmath/math-4.2.0/lib/boost_1.75.0/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
H A D | functions.hpp | 186 std::vector<std::size_t> const& phia, std::vector<std::size_t> const& phib) in prod() argument 197 auto const q = size_type(phia.size()); in prod() 211 if(pa < phia.size()) in prod() 221 if( na.at(phia.at(i)-1) != nb.at(phib.at(i)-1)) in prod() 234 for(auto i = 0ul; i < phia.size(); ++i) in prod() 235 * std::remove(phia1.begin(), phia1.end(), phia.at(i)) = phia.at(i); in prod()
|
/dports/science/py-scipy/scipy-1.7.1/scipy/_lib/boost/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
/dports/devel/boost-libs/boost_1_72_0/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
/dports/devel/boost-python-libs/boost_1_72_0/boost/numeric/ublas/tensor/ |
H A D | multiplication.hpp | 55 SizeType const*const phia, SizeType const*const phib, in ttt() argument 62 assert(nc[k] == na[phia[k]-1]); in ttt() 74 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 75 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 80 assert(na[phia[k-s]-1] == nb[phib[k-r]-1]); in ttt() 81 for(size_t ia = 0u; ia < na[phia[k-s]-1]; a += wa[phia[k-s]-1], b += wb[phib[k-r]-1], ++ia) in ttt() 539 SizeType const*const phia, SizeType const*const phib, in outer() argument 546 assert(nc[k] == na[phia[k]-1]); in outer() 753 SizeType const*const phia, SizeType const*const phib, in ttt() argument 775 if( na[phia[i]-1] != nc[i] ) in ttt() [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/lagr/ |
H A D | cs_lagr_poisson.c | 168 cs_real_t *phia; in _lageqp() local 179 BFT_MALLOC(phia , ncelet, cs_real_t); in _lageqp() 199 phia[iel] = 0.0; in _lageqp() 294 phia[iel], in _lageqp() 343 phia, phia, in _lageqp() 373 BFT_FREE(phia); in _lageqp()
|
/dports/devel/ftnchek/ftnchek-3.3.1/test/ |
H A D | t208x.f | 23 double precision phin,phinn,phia,phian 66 common/phi /phia (0:nbp1,0:nbp1) 106 double precision phin,phinn,phia,phian 135 common/phi /phia (0:nbp1,0:nbp1) 339 double precision u,phin,phinn,phia,phian 351 common/phi /phia (0:nbp1,0:nbp1) 401 double precision phin,phia 410 dimension phia (0:nbp1,0:nbp1) 462 double precision u,phin,phinn,phia,phian 471 common/phi /phia (0:nbp1,0:nbp1) [all …]
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | rhoofd.F90 | 91 real(dp), pointer :: r2cut(:), Clocal(:,:), Dlocal(:,:), phia(:,:) local 155 nullify ( ilocal, ilc, iorb, Dlocal, Clocal, phia ) 159 if ( DirectPhi ) allocate( phia(maxoa,nsp) ) 297 call all_phi( is, +1, dxsp, maxoa, nphiloc, phia(:,isp) ) 300 phia(:,isp) = 0.0_dp 307 Clocal(:,ic) = dsqrt(2._dp) * phia(iphi,:) 391 if ( DirectPhi ) deallocate( phia )
|
H A D | rhoofdsp.F90 | 87 real(dp), pointer :: phia(:,:) => null() local 127 nullify(ilocal, ilc, iorb, phia, Clocal, Dlocal, DscfL) 136 call re_alloc(phia, 1, maxoa, 1, nsp, "phia", "rhoofdsp") 273 call all_phi( is, +1, dxsp, maxoa, nphiloc, phia(:,isp) ) 275 phia(:,isp) = 0.0_dp 280 Clocal(:,ic) = phia(iphi,:) 381 call de_alloc( phia, 'phia', 'vmatsp' )
|
/dports/devel/boost-docs/boost_1_72_0/libs/numeric/ublas/test/tensor/ |
H A D | test_functions.cpp | 194 auto phia = std::vector<std::size_t> ( q ); // concatenation for a in BOOST_FIXTURE_TEST_CASE_TEMPLATE() local 197 std::iota(phia.begin(), phia.end(), 1ul); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 198 std::transform( phia.begin(), phia.end(), phib.begin(), in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 201 auto c = ublas::prod(a, b, phia, phib); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 205 acc *= a.extents().at(phia.at(i)-1); in BOOST_FIXTURE_TEST_CASE_TEMPLATE()
|
/dports/devel/boost-python-libs/boost_1_72_0/libs/numeric/ublas/test/tensor/ |
H A D | test_functions.cpp | 194 auto phia = std::vector<std::size_t> ( q ); // concatenation for a in BOOST_FIXTURE_TEST_CASE_TEMPLATE() local 197 std::iota(phia.begin(), phia.end(), 1ul); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 198 std::transform( phia.begin(), phia.end(), phib.begin(), in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 201 auto c = ublas::prod(a, b, phia, phib); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 205 acc *= a.extents().at(phia.at(i)-1); in BOOST_FIXTURE_TEST_CASE_TEMPLATE()
|
/dports/math/stanmath/math-4.2.0/lib/boost_1.75.0/libs/numeric/ublas/test/tensor/ |
H A D | test_functions.cpp | 194 auto phia = std::vector<std::size_t> ( q ); // concatenation for a in BOOST_FIXTURE_TEST_CASE_TEMPLATE() local 197 std::iota(phia.begin(), phia.end(), 1ul); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 198 std::transform( phia.begin(), phia.end(), phib.begin(), in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 201 auto c = ublas::prod(a, b, phia, phib); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 205 acc *= a.extents().at(phia.at(i)-1); in BOOST_FIXTURE_TEST_CASE_TEMPLATE()
|
/dports/devel/boost-libs/boost_1_72_0/libs/numeric/ublas/test/tensor/ |
H A D | test_functions.cpp | 194 auto phia = std::vector<std::size_t> ( q ); // concatenation for a in BOOST_FIXTURE_TEST_CASE_TEMPLATE() local 197 std::iota(phia.begin(), phia.end(), 1ul); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 198 std::transform( phia.begin(), phia.end(), phib.begin(), in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 201 auto c = ublas::prod(a, b, phia, phib); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 205 acc *= a.extents().at(phia.at(i)-1); in BOOST_FIXTURE_TEST_CASE_TEMPLATE()
|
/dports/devel/hyperscan/boost_1_75_0/libs/numeric/ublas/test/tensor/ |
H A D | test_functions.cpp | 194 auto phia = std::vector<std::size_t> ( q ); // concatenation for a in BOOST_FIXTURE_TEST_CASE_TEMPLATE() local 197 std::iota(phia.begin(), phia.end(), 1ul); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 198 std::transform( phia.begin(), phia.end(), phib.begin(), in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 201 auto c = ublas::prod(a, b, phia, phib); in BOOST_FIXTURE_TEST_CASE_TEMPLATE() 205 acc *= a.extents().at(phia.at(i)-1); in BOOST_FIXTURE_TEST_CASE_TEMPLATE()
|