/dports/benchmarks/hpl/hpl-2.3/src/pgesv/ |
H A D | HPL_pdupdateNN.c | 109 nq0, nn, test; local 147 mp = PANEL->mp - jb; iroff = PANEL->ii; nq0 = 0; 172 nn = n - nq0; nn = Mmin( nb, nn ); 189 Uv1 = vsip_msubview_d( Av0, PANEL->ii, PANEL->jj+nq0, jb, nn ); 190 Av1 = vsip_msubview_d( Av0, PANEL->ii+jb, PANEL->jj+nq0, mp, nn ); 204 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; 211 if( ( nn = n - nq0 ) > 0 ) 275 nq0 = 0; curr = ( PANEL->grid->myrow == PANEL->prow ? 1 : 0 ); 302 nn = n - nq0; nn = Mmin( nb, nn ); 352 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; [all …]
|
H A D | HPL_pdupdateNT.c | 109 nq0, nn, test; local 147 mp = PANEL->mp - jb; iroff = PANEL->ii; nq0 = 0; 172 nn = n - nq0; nn = Mmin( nb, nn ); 189 Uv1 = vsip_msubview_d( Av0, PANEL->ii, PANEL->jj+nq0, jb, nn ); 190 Av1 = vsip_msubview_d( Av0, PANEL->ii+jb, PANEL->jj+nq0, mp, nn ); 204 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; 211 if( ( nn = n - nq0 ) > 0 ) 275 nq0 = 0; curr = ( PANEL->grid->myrow == PANEL->prow ? 1 : 0 ); 302 nn = n - nq0; nn = Mmin( nb, nn ); 353 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; [all …]
|
H A D | HPL_pdupdateTT.c | 109 nq0, nn, test; local 147 mp = PANEL->mp - jb; iroff = PANEL->ii; nq0 = 0; 172 nn = n - nq0; nn = Mmin( nb, nn ); 189 Uv1 = vsip_msubview_d( Av0, PANEL->ii, PANEL->jj+nq0, jb, nn ); 190 Av1 = vsip_msubview_d( Av0, PANEL->ii+jb, PANEL->jj+nq0, mp, nn ); 204 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; 211 if( ( nn = n - nq0 ) > 0 ) 275 nq0 = 0; curr = ( PANEL->grid->myrow == PANEL->prow ? 1 : 0 ); 302 nn = n - nq0; nn = Mmin( nb, nn ); 353 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; [all …]
|
H A D | HPL_pdupdateTN.c | 109 nq0, nn, test; 147 mp = PANEL->mp - jb; iroff = PANEL->ii; nq0 = 0; 172 nn = n - nq0; nn = Mmin( nb, nn ); 189 Uv1 = vsip_msubview_d( Av0, PANEL->ii, PANEL->jj+nq0, jb, nn ); 190 Av1 = vsip_msubview_d( Av0, PANEL->ii+jb, PANEL->jj+nq0, mp, nn ); 204 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; 211 if( ( nn = n - nq0 ) > 0 ) 275 nq0 = 0; curr = ( PANEL->grid->myrow == PANEL->prow ? 1 : 0 ); 302 nn = n - nq0; nn = Mmin( nb, nn ); 353 Aptr = Mptr( Aptr, 0, nn, lda ); nq0 += nn; [all …]
|
/dports/science/qmcpack/qmcpack-3.11.0/src/AFQMC/Hamiltonians/ |
H A D | KPFactorizedHamiltonian.cpp | 362 for (int nd = 0, nt = 0, nq0 = 0; nd < ndet; nd++, nq0 += nkpts * nspins) in getHamiltonianOperations_shared() local 372 …std::fill_n(to_address(LQKank[nq0 + Q][K].origin()), LQKank[nq0 + Q][K].num_elements(), SPComplexT… in getHamiltonianOperations_shared() 375 …std::fill_n(to_address(LQKank[nq0 + nkpts + Q][K].origin()), LQKank[nq0 + nkpts + Q][K].num_elemen… in getHamiltonianOperations_shared() 397 for (int nd = 0, nt = 0, nq0 = 0; nd < ndet; nd++, nq0 += number_of_symmetric_Q * nspins) in getHamiltonianOperations_shared() local 405 …std::fill_n(to_address(LQKbnl[nq0 + Q][K].origin()), LQKbnl[nq0 + Q][K].num_elements(), SPComplexT… in getHamiltonianOperations_shared() 479 for (int nd = 0, nq0 = 0; nd < ndet; nd++, nq0 += nkpts * nspins) in getHamiltonianOperations_shared() local 555 for (int nd = 0, nq0 = 0; nd < ndet; nd++, nq0 += number_of_symmetric_Q * nspins) in getHamiltonianOperations_shared() local 1245 for (int nd = 0, nq0 = 0; nd < ndet; nd++, nq0 += nkpts * nspins) in getHamiltonianOperations_batched() local 1326 for (int nd = 0, nq0 = 0; nd < ndet; nd++, nq0 += number_of_symmetric_Q * nspins) in getHamiltonianOperations_batched() local 1364 Sp3Tensor_ref Lbnl(to_address(LQKbnl[nq0 + Qmap[Q] - 1][QK].origin()), in getHamiltonianOperations_batched() [all …]
|
H A D | KPTHCHamiltonian.cpp | 836 for (int nd = 0, nt = 0, nq0 = 0; nd < ndet; nd++, nq0 += (nkpts + 1) * nspins) in getHamiltonianOperations() local 844 …std::fill_n(to_address(LQKank[nq0 + Q][K].origin()), LQKank[nq0 + Q][K].num_elements(), SPComplexT… in getHamiltonianOperations() 847 std::fill_n(to_address(LQKank[nq0 + nkpts + 1 + Q][K].origin()), in getHamiltonianOperations() 848 LQKank[nq0 + nkpts + 1 + Q][K].num_elements(), SPComplexType(0.0)); in getHamiltonianOperations()
|
/dports/science/qmcpack/qmcpack-3.11.0/src/QMCTools/ |
H A D | QPParser.cpp | 255 int nq0 = atoi(it0->c_str()) - 1; in getGeometry() local 259 core[nq0] = atoi(it->c_str()); in getGeometry() 260 q[nq0] -= core[nq0]; in getGeometry() 262 … std::cout << "1 Found ECP for atom " << nq0 << " with zcore " << core[nq0] << std::endl; in getGeometry() 270 std::cerr << "Atom: " << nq0 << std::endl; in getGeometry() 276 if (nq != nq0 + 1) in getGeometry() 279 std::cerr << "Atom: " << nq0 << std::endl; in getGeometry() 286 std::cerr << "Atom: " << nq0 << std::endl; in getGeometry() 290 core[nq0] = core[nq - 1]; in getGeometry() 291 q[nq0] -= core[nq0]; in getGeometry() [all …]
|
H A D | GamesAsciiParser.cpp | 400 int nq0 = atoi(it0->c_str()) - 1; in getGeometry() local 404 core[nq0] = atoi(it->c_str()); in getGeometry() 405 q[nq0] -= core[nq0]; in getGeometry() 406 std::cout << "Found ECP for atom " << nq0 << " with zcore " << core[nq0] << std::endl; in getGeometry() 414 std::cerr << "Atom: " << nq0 << std::endl; in getGeometry() 420 if (nq != nq0 + 1) in getGeometry() 423 std::cerr << "Atom: " << nq0 << std::endl; in getGeometry() 430 std::cerr << "Atom: " << nq0 << std::endl; in getGeometry() 434 core[nq0] = core[nq - 1]; in getGeometry() 435 q[nq0] -= core[nq0]; in getGeometry() [all …]
|
/dports/science/qmcpack/qmcpack-3.11.0/src/AFQMC/HamiltonianOperations/ |
H A D | KP3IndexFactorizationIO.hpp | 321 for (int nd = 0, nt = 0, nq0 = 0; nd < ndet; nd++, nq0 += (nkpts + 1) * nspins) in loadKP3IndexFactorization() local 329 … std::fill_n(std::addressof(*LQKank[nq0 + Q][K].origin()), LQKank[nq0 + Q][K].num_elements(), in loadKP3IndexFactorization() 333 std::fill_n(std::addressof(*LQKank[nq0 + nkpts + 1 + Q][K].origin()), in loadKP3IndexFactorization() 334 LQKank[nq0 + nkpts + 1 + Q][K].num_elements(), SPComplexType(0.0)); in loadKP3IndexFactorization() 342 for (int nd = 0, nt = 0, nq0 = 0; nd < ndet; nd++, nq0 += (nkpts + 1) * nspins) in loadKP3IndexFactorization() local 401 Sp3Tensor_ref Lank(std::addressof(*LQKank[nq0 + Q][K].origin()), {na, nchol, nk}); in loadKP3IndexFactorization() 406 … Sp3Tensor_ref Lank(std::addressof(*LQKank[nq0 + nkpts][K].origin()), {na, nchol, nk}); in loadKP3IndexFactorization() 421 Sp3Tensor_ref Lank(std::addressof(*LQKank[nq0 + Q][K].origin()), {na, nchol, nk}); in loadKP3IndexFactorization() 481 Sp3Tensor_ref Lank(std::addressof(*LQKank[nq0 + Q][K].origin()), {na, nchol, nk}); in loadKP3IndexFactorization() 486 … Sp3Tensor_ref Lank(std::addressof(*LQKank[nq0 + nkpts][K].origin()), {na, nchol, nk}); in loadKP3IndexFactorization() [all …]
|
/dports/cad/alliance/alliance/src/cells/src/rflib/ |
H A D | rf_dec_bufad2.vbe | 5 nq0 : inout BIT; 21 nq0 <= not i0; 22 q0 <= not nq0;
|
H A D | rf_dec_bufad2.ap | 56 S 500,1000,500,4000,200,nq0,UP,CALU1
|
/dports/cad/alliance/alliance/src/cells/src/rf2lib/ |
H A D | rf2_dec_bufad2_l.vbe | 5 nq0 : inout BIT; 21 nq0 <= not i0; 22 q0 <= not nq0;
|
H A D | rf2_dec_bufad2_r.vbe | 5 nq0 : inout BIT; 21 nq0 <= not i0; 22 q0 <= not nq0;
|
/dports/graphics/gpxsee/GPXSee-7.32/src/map/ |
H A D | albersequal.cpp | 65 double nq0; in AlbersEqual() local 109 nq0 = _n * q0; in AlbersEqual() 110 _rho0 = (_c < nq0) ? 0 : _a_over_n * sqrt(_c - nq0); in AlbersEqual()
|
/dports/math/saga/saga-8.1.3/saga-gis/src/tools/projection/pj_geotrans/geotrans/ |
H A D | albers.c | 188 double nq0; in Set_Albers_Parameters() local 271 nq0 = n * q0; in Set_Albers_Parameters() 272 if (C < nq0) in Set_Albers_Parameters() 275 rho0 = Albers_a_OVER_n * sqrt(C - nq0); in Set_Albers_Parameters()
|
/dports/math/R-cran-gss/gss/R/ |
H A D | project.sscden1.R | 134 theta.wk <- 1:nq0 136 if (nq0-1) theta.wk[-fix] <- theta1 179 nq0 <- length(id.r) functionVar 180 if (nq0>1) { 183 if (nq0-2) {
|
H A D | project.sshzd1.R | 126 if (nq0-1) theta.wk[id.q0] <- theta1 151 nq0 <- length(id.q) functionVar 155 if (nq0-1) { 159 if (nq0-2) {
|
/dports/science/berkeleygw/BGW-2.0.0/Epsilon/ |
H A D | input.f90 | 271 if(pol%nq0>0) qgr%r(1:3,1) = 0d0 296 if (iq<=pol%nq0) then 307 if (iq<=pol%nq0) then 695 if (pol%nq0>0) then 705 pol%nq0, pol%qpt(:,1:pol%nq0), pol%nmtx_of_q(1:pol%nq0), nmtx0, & 734 write(10) ((pol%qpt(ii,iq),ii=1,3),iq=1,pol%nq0) 748 write(12) pol%nq0,((pol%qpt(ii,iq),ii=1,3),iq=1,pol%nq0) 772 pol%nq1, pol%qpt(:,pol%nq0+1:pol%nq), pol%nmtx_of_q(pol%nq0+1:pol%nq), nmtx, & 794 write(11) pol%nq,pol%nq0,((pol%qpt(jj,iq),jj=1,3),iq=1,pol%nq) !?????? 808 write(13) pol%nq1, ((pol%qpt(jj,iq),jj=1,3),iq=pol%nq0+1,pol%nq) [all …]
|
H A D | inread.f90 | 53 pol%nq0=0 181 pol%nq0 = pol%nq0 + 1 602 pol%nq1 = pol%nq - pol%nq0 603 if (.not.pol%subsample.and.pol%nq0>1) then 658 pol%need_WFNq = (pol%nq0>0.and.pol%valueq0==1.and.pol%iqexactlyzero==0)&
|
H A D | epsilon_main.f90 | 193 if (pol%nq0>0) then 195 if (pol%icutv==TRUNC_NONE .and. any(all(abs(pol%qpt(:,:pol%nq0))<TOL_ZERO,dim=1))) then 290 is_q0 = iq<=pol%nq0 302 if (.not.is_q0) my_iq = iq - pol%nq0 1419 if (pol%nq0>0) call close_file(10) ! chi0mat 1423 if (pol%nq0>0) call close_file(12) ! eps0mat
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pzaxpy.c | 176 npcol, nq, nq0, nz, ione=1, tmp1, wksz; local 379 nq0 = MYROC0( tmp1, nn, desc_Y[NB_], npcol ); 380 tmp1 = nq0 / desc_Y[NB_]; 381 wksz = np + MYROC0( tmp1, nq0, desc_Y[NB_], lcmq );
|
/dports/graphics/ossim/ossim-OrchidIsland-2.11.1/src/projection/ |
H A D | ossimAlbersProjection.cpp | 303 double nq0; in Set_Albers_Parameters() local 386 nq0 = n * q0; in Set_Albers_Parameters() 387 if (C < nq0) in Set_Albers_Parameters() 390 rho0 = Albers_a_OVER_n * sqrt(C - nq0); in Set_Albers_Parameters()
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/ |
H A D | distrib.f90 | 45 integer :: numbl_max,nnp,nn,np0,mq0,nq0,cls,neig,lrwork,lwork,nbr,nbc local 286 nq0 = numroc(nn,scal%nbl,0,0,scal%npcol) 287 lwork = nmat + (np0+nq0+scal%nbl)*scal%nbl
|
/dports/science/berkeleygw/BGW-2.0.0/Sigma/ |
H A D | sigma_main.f90 | 335 sig%nq = sig%nq0 + sig%nq1 495 SAFE_ALLOCATE(sig%subweights, (sig%nq0)) 498 do irq=1,sig%nq0 560 fact = 1D0/(dble(gr%nf-sig%nq0+1)*crys%celvol) 561 coulfact = 8D0*PI_D/(dble(gr%nf-sig%nq0+1)*crys%celvol) 900 call irrbz(syms,gr%nf,gr%f,nrq,neq,indrq,rq,sig%nq,sig%qpt,itnrq,kg0,nfix=sig%nq0) 924 if (sig%subsample.and.irq<=sig%nq0) then 1025 gr%nf-sig%nq0+1,ncoul,isrtrq,sig%iscreen,vq,sig%q0vec,vcoul, & 1030 fact = 1D0/(dble(gr%nf-sig%nq0+1)*crys%celvol) 1031 coulfact = 8D0*PI_D/(dble(gr%nf-sig%nq0+1)*crys%celvol) [all …]
|
H A D | inread.f90 | 89 sig%nq0=0 193 sig%nq0 = sig%nq0 + 1 446 sig%nq1 = sig%nq - sig%nq0
|