/dports/science/cdo/cdo-2.0.0/src/ |
H A D | EOFs.cc | 55 for (size_t i = 0; i < npack; ++i) in scale_eigvec_time() 76 for (size_t i = 0; i < npack; ++i) in scale_eigvec_time() 88 for (size_t i = 0; i < npack; ++i) out[pack[i]] /= sum; in scale_eigvec_time() 252 size_t npack = SIZE_MAX; in EOFs() local 291 if (npack == SIZE_MAX) in EOFs() 293 npack = 0; in EOFs() 298 pack[npack] = i; in EOFs() 299 npack++; in EOFs() 328 … for (size_t i = 0; i < npack; ++i) eofdata[varID][levelID].covar[i].resize(npack, 0.0); in EOFs() 398 if (npack < (size_t) nts) nts_out = npack; in EOFs() [all …]
|
H A D | Eof3d.cc | 50 size_t temp_size = 0, npack = 0; in EOF3d() local 244 npack = 0; // TODO already set to 0 in EOF3d() 252 pack[npack] = i; in EOF3d() 253 npack++; in EOF3d() 261 for (size_t i = 0; i < npack; i++) sum_w += weight[pack[i]]; in EOF3d() 264 if (npack < 1) in EOF3d() 324 for (size_t i = 0; i < npack; i++) in EOF3d() 344 #pragma omp parallel for default(none) shared(sum, npack, eigenvec, pack) in EOF3d() 346 for (size_t i = 0; i < npack; i++) eigenvec[pack[i]] /= sum; in EOF3d() 351 #pragma omp parallel for default(none) shared(eigenvec, pack, missval, npack) in EOF3d() [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
H A D | argos_space_pack_init.F | 43 npack=1 48 ipack(npack)=ipack(npack)+1 51 npack=npack+1 52 ipack(npack)=1 109 write(lfnout,1002) ' Packing solute in ',npack, 110 + ' integers : ',(ipack(i),i=1,npack) 121 if(npack.eq.mis2) npack=0 125 if(npack.gt.0) then 126 if(.not.ma_push_get(mt_int,msa*npack,'lpack',l_pack,i_pack))
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
H A D | argos_space_pack_init.F | 43 npack=1 48 ipack(npack)=ipack(npack)+1 51 npack=npack+1 52 ipack(npack)=1 109 write(lfnout,1002) ' Packing solute in ',npack, 110 + ' integers : ',(ipack(i),i=1,npack) 121 if(npack.eq.mis2) npack=0 125 if(npack.gt.0) then 126 if(.not.ma_push_get(mt_int,msa*npack,'lpack',l_pack,i_pack))
|
/dports/science/cdcl/dcl-5.4.8-C/src/misc1/bitlib/ |
H A D | sbytes.c | 24 /* Subroutine */ int sbytes_(integer *npack, integer *isam, integer *ibit, in sbytes_() argument 45 --npack; in sbytes_() 79 npack[wpo] &= ishift_(&msk2, &i__2); in sbytes_() 80 npack[wpo] |= ishift_(&sbits, &lshift); in sbytes_() 84 npack[wpo] &= ishift_(&mask[ubits - 1], &rbits); in sbytes_() 85 npack[wpo] |= btmp; in sbytes_() 89 npack[wpo + 1] &= mask[rshift + 31]; in sbytes_() 90 npack[wpo + 1] |= btmp; in sbytes_()
|
H A D | gbytes.c | 24 /* Subroutine */ int gbytes_(integer *npack, integer *isam, integer *ibit, in gbytes_() argument 44 --npack; in gbytes_() 74 isam[i__] = msk1 & ishift_(&npack[wpo], &shft); in gbytes_() 76 i__2 = npack[wpo] & mask[rbits - 1]; in gbytes_() 79 btmpr = ishift_(&npack[wpo + 1], &i__2) & mask[shft - 1]; in gbytes_()
|
H A D | gbyte.c | 25 /* Subroutine */ int gbyte_(integer *npack, integer *iout, integer *ibit, in gbyte_() argument 32 --npack; in gbyte_() 35 gbytes_(&npack[1], iout, ibit, nbits, &c__0, &c__1); in gbyte_()
|
H A D | sbyte.c | 25 /* Subroutine */ int sbyte_(integer *npack, integer *iout, integer *ibit, in sbyte_() argument 32 --npack; in sbyte_() 35 sbytes_(&npack[1], iout, ibit, nbits, &c__0, &c__1); in sbyte_()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/TMatrix/test/ |
H A D | test.f | 3 integer npack,N variable 4 parameter (npack=12000,N=256) 5 real*8 A(npack,N) 6 real*8 C(npack,N) 20 do i=1,npack 33 call dgemmtest(npack,N,N,A,B,C)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/TMatrix/test/ |
H A D | test.f | 3 integer npack,N variable 4 parameter (npack=12000,N=256) 5 real*8 A(npack,N) 6 real*8 C(npack,N) 20 do i=1,npack 33 call dgemmtest(npack,N,N,A,B,C)
|
/dports/science/bagel/bagel-1.2.2/src/ci/fci/ |
H A D | distfci_bb.h | 53 const size_t npack = nunoc*(nunoc-1)/2; in compute() local 54 std::unique_ptr<double[]> ints(new double[npack*la]); in compute() 55 std::unique_ptr<double[]> ints2(new double[npack*la]); in compute() 56 std::fill_n(ints.get(), npack*la, 0.0); in compute() 59 std::unique_ptr<double[]> h(new double[npack*npack]); in compute() 84 … dgemm_("N", "N", la, npack, npack, 1.0, ints.get(), la, h.get(), npack, 0.0, ints2.get(), la); in compute()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/ewald/ |
H A D | ewald_strfac.F | 21 npack = ewald_npack() 25 notzero_npack = (npack.gt.0) 34 value=BA_alloc_get(mt_int,npack,'i_indxe',i_indx(2),i_indx(1)) 36 > BA_alloc_get(mt_int,npack,'j_indxe',j_indx(2),j_indx(1)) 38 > BA_alloc_get(mt_int,npack,'k_indxe',k_indx(2),k_indx(1)) 183 call ewald_strfac_sub(npack, 196 subroutine ewald_strfac_sub(npack, 201 integer npack,indxi(*),indxj(*),indxk(*) 205 do indx=1,npack
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/ewald/ |
H A D | ewald_strfac.F | 21 npack = ewald_npack() 25 notzero_npack = (npack.gt.0) 34 value=BA_alloc_get(mt_int,npack,'i_indxe',i_indx(2),i_indx(1)) 36 > BA_alloc_get(mt_int,npack,'j_indxe',j_indx(2),j_indx(1)) 38 > BA_alloc_get(mt_int,npack,'k_indxe',k_indx(2),k_indx(1)) 183 call ewald_strfac_sub(npack, 196 subroutine ewald_strfac_sub(npack, 201 integer npack,indxi(*),indxj(*),indxk(*) 205 do indx=1,npack
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/lattice/ |
H A D | pack.F | 798 integer npack local 820 integer npack local 827 npack = nida(nb) 841 integer npack local 848 npack = nidb(nb) 1003 npack2 = 2*npack 1069 npack2 = 2*npack 1125 npack2 = 2*npack 1302 npack2 = 2*npack 1355 integer np,npack [all …]
|
/dports/net-mgmt/2ping/2ping-4.5.1/tests/ |
H A D | test_utils.py | 72 self.assertEqual(utils.npack(1), b"\x01") 73 self.assertEqual(utils.npack(1234), b"\x04\xd2") 74 self.assertEqual(utils.npack(123456), b"\x01\xe2\x40") 77 self.assertEqual(utils.npack(1, 2), b"\x00\x01") 78 self.assertEqual(utils.npack(1234, 2), b"\x04\xd2") 79 self.assertEqual(utils.npack(123456, 4), b"\x00\x01\xe2\x40")
|
/dports/net-mgmt/2ping/2ping-4.5.1/twoping/ |
H A D | packets.py | 81 return npack(self.time_us, 8) 103 return npack(self.generation, 2) + npack(self.time_us, 8) 142 return npack(flags, 2) + random_data 181 out = npack(len(batteries), 2) 183 out += npack(i, 2) 184 out += npack(batteries[i], 2) 256 return npack(self.rtt_us, 4) 287 out = npack(len(output_ids), 2) 362 return npack(self.delay_us, 4) 509 out += npack(segment.id, 4) [all …]
|
/dports/math/cado-nfs/cado-nfs-f4284e2391121b2bfb97bc4880b6273c7250dc2f/linalg/bwc/ |
H A D | matmul-sliced.cpp | 94 unsigned int npack; member 139 unsigned int npack = L1_CACHE_SIZE; in MATMUL_NAME() local 140 if (pl) param_list_parse_uint(pl, "l1_cache_size", &npack); in MATMUL_NAME() 141 npack /= sizeof(abelt); in MATMUL_NAME() 142 mm->npack = npack; in MATMUL_NAME() 168 unsigned int nslices = iceildiv(i1-i0, mm->npack); in MATMUL_NAME() 185 unsigned int npack = packbase + (s < nslices1); in MATMUL_NAME() local 186 next = current + npack; in MATMUL_NAME() 188 slice_info si; memset(&si,0,sizeof(si)); si.nrows = npack; in MATMUL_NAME() 198 for(unsigned int di = 0 ; di < npack ; di++) { in MATMUL_NAME() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/band/lib/cpsp/ |
H A D | cpsp_relativistic.F | 248 call Cram_npack(nb,npack) 463 call Cram_npack(nb,npack) 730 call Cram_npack(nb,npack) 915 integer nfft3d,npack1,npack 1119 call Cram_npack(nb,npack) 1124 call zscal(npack,cxr,exi,1) 1220 integer nfft3d,npack1,npack 1249 call Cram_npack(nb,npack) 1253 call zscal(npack,cxr,exi,1) 1338 call Cram_npack(nb,npack) [all …]
|
/dports/science/lammps/lammps-stable_29Sep2021/src/KOKKOS/ |
H A D | gridcomm_kokkos.cpp | 191 swap[nswap].npack = in setup_regular() 229 swap[nswap].npack = in setup_regular() 267 swap[nswap].npack = in setup_regular() 305 swap[nswap].npack = in setup_regular() 343 swap[nswap].npack = in setup_regular() 381 swap[nswap].npack = in setup_regular() 409 ngrid = MAX(ngrid,swap[i].npack); in setup_regular() 603 offset += send[m].npack; in setup_tiled() 641 nbufs += send[m].npack; in setup_tiled() 706 if (swap[m].npack) MPI_Send(buf1,nper*swap[m].npack,datatype, in forward_comm_kspace_regular() [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/band/lib/cpsp/ |
H A D | cpsp_relativistic.F | 248 call Cram_npack(nb,npack) 383 integer nfft3d,G(3),npack1,npack 463 call Cram_npack(nb,npack) 648 integer nfft3d,npack1,npack 852 call Cram_npack(nb,npack) 857 call zscal(npack,cxr,exi,1) 953 integer nfft3d,npack1,npack 982 call Cram_npack(nb,npack) 986 call zscal(npack,cxr,exi,1) 1071 call Cram_npack(nb,npack) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/lib/ke/ |
H A D | ke.F | 445 subroutine ke_Precondition(npack,neall,psi,gradk) argument 447 integer npack,neall local 448 complex*16 psi(npack,neall) 449 complex*16 gradk(npack,neall) 475 value = BA_push_get(mt_dcpl,npack,'tmp1',tmp1(2),tmp1(1)) 484 do k=1,npack 569 subroutine ke_Precondition2(npack,neall,residual,Kresidual) argument 571 integer npack,neall local 572 complex*16 residual(npack,neall) 573 complex*16 Kresidual(npack,neall) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/lattice/ |
H A D | pack.F | 955 integer npack local 977 integer npack local 984 npack = nida(nb) 998 integer npack local 1005 npack = nidb(nb) 1160 npack2 = 2*npack 1226 npack2 = 2*npack 1282 npack2 = 2*npack 1459 npack2 = 2*npack 1512 integer np,npack [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/paw/paw_psi/ |
H A D | paw_psi.F | 15 subroutine paw_psi_MakeOrtho(npack,ne,psi) argument 17 integer npack,ne local 18 double complex psi(npack,ne) 49 real*8 function paw_psi_CheckOrtho(npack,ne,psi) 51 integer npack,ne local 52 double complex psi(npack,ne) 84 subroutine paw_psi_CheckOrtho2(npack,ne,psi) argument 86 integer npack,ne local 87 double complex psi(npack,ne)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/paw/paw_psi/ |
H A D | paw_psi.F | 15 subroutine paw_psi_MakeOrtho(npack,ne,psi) argument 17 integer npack,ne local 18 double complex psi(npack,ne) 49 real*8 function paw_psi_CheckOrtho(npack,ne,psi) 51 integer npack,ne 52 double complex psi(npack,ne) 84 subroutine paw_psi_CheckOrtho2(npack,ne,psi) argument 86 integer npack,ne local 87 double complex psi(npack,ne)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/pspw/lib/ke/ |
H A D | ke.F | 445 subroutine ke_Precondition(npack,neall,psi,gradk) argument 447 integer npack,neall local 448 complex*16 psi(npack,neall) 449 complex*16 gradk(npack,neall) 529 do k=1,npack 568 subroutine ke_Precondition2(npack,neall,residual,Kresidual) argument 570 integer npack,neall local 571 complex*16 residual(npack,neall) 572 complex*16 Kresidual(npack,neall) 597 do k=1,npack
|