| /dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/src/ |
| H A D | division.f90 | 95 INTEGER :: nkr local
105 nkr = (nkstot - nkl * npool) / 1
114 IF (my_pool_id >= nkr) iks = iks + nkr * 1 !kunit
152 INTEGER :: nkl, nkr local
158 nkr = nktot - nkl * npool
167 IF (my_pool_id >= nkr ) lower_bnd = my_pool_id * nkl + 1 + nkr
235 nkr = nktot - nkl * npool
244 IF (my_pool_id >= nkr ) lower_bnd = my_pool_id * nkl + 1 + nkr
294 INTEGER :: nkr local
301 nkr = nbnd - nkl * nimage
[all …]
|
| /dports/science/berkeleygw/BGW-2.0.0/Sigma/ |
| H A D | sig2wan.f90 | 38 integer :: spin,eqpn,eof,is,ikr,ikf,ib,isym,nkr,nkf,nb,nsym variable
84 nkr=0
104 if (is.eq.spin) nkr=nkr+1
113 if (nkr.le.0) then
123 SAFE_ALLOCATE(kr, (3,nkr))
124 SAFE_ALLOCATE(eig, (nb,nkr))
176 write(tmpstr1,*)nkr
232 ikr_do: do ikr = 1, nkr
|
| /dports/science/berkeleygw/BGW-2.0.0/MeanField/ESPRESSO/ |
| H A D | kgrid.f90 | 245 nkr=ikr
248 SAFE_ALLOCATE(kr, (3,nkr))
249 SAFE_ALLOCATE(kw, (nkr))
250 do ikr=1,nkr
265 if (nkr.lt.nkf) then
279 nkfq=nkr*nrc
281 if(trs) nkfq = min(nkfq * 2, nkr * 48)
323 call write_octopus(22, nkr, kr, kw, nk, dk)
325 call write_espresso(22, nkr, kr, kw)
353 write(23,'(i7)')nkr
[all …]
|
| H A D | kgrid_routines.f90 | 109 subroutine sort(nkf,nkr,kpoint,kweight,kindex,eps) argument
110 integer, intent(in) :: nkf,nkr local
127 do ik1=1,nkr
128 do ik2=1,nkr-1
156 subroutine dqunfold(nkr,kr,nkf,kf,kfw,nr,r,trs,eps) argument
157 integer, intent(in) :: nkr !< number of kpoints before unfolding local
174 do ikr=1,nkr
|
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | kgrid.F | 54 . ng(3), ni, nkr(3), nktot, proj(3,3)
136 nkr(j) = ni * nktot / kdsc(j,j)
141 if (nkr(2) .lt. nkr(ir)) ir = 2
142 if (nkr(1) .lt. nkr(ir)) ir = 1
146 nk = nkr(ir)
|
| H A D | kgridinit.F | 78 . ng(3), ni, nkr(3), nktot, factor(3,3),
279 nkr(j) = ni * nktot / kdsc(j,j)
284 if (nkr(2) .lt. nkr(ir)) ir = 2
285 if (nkr(1) .lt. nkr(ir)) ir = 1
288 nk = nkr(ir)
|
| H A D | find_kgrid.F | 65 . ng(3), ni, nkr(3), nktot,
189 nkr(j) = ni * nktot / kdsc(j,j)
194 if (nkr(2) .lt. nkr(ir)) ir = 2
195 if (nkr(1) .lt. nkr(ir)) ir = 1
199 nk = nkr(ir)
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | kpoint_grid.f90 | 56 INTEGER :: nkr, i, j, k, ns, n, nk local
61 nkr=nk1*nk2*nk3
62 ALLOCATE (xkg( 3,nkr),wkk(nkr))
63 ALLOCATE (equiv( nkr))
81 DO nk=1,nkr
89 DO nk=1,nkr
152 DO nk=1,nkr
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
| H A D | clinear.f90 | 7 integer :: npr,nkr local
13 nkr = nk1*nk2*nk3
15 noint(1:nkr)=point(1:nkr)
23 nkr = nk1*nk2*nk3
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/simple/ |
| H A D | read_export.f90 | 42 integer :: npool, nkbl, nkl, nkr, npwx_g local
80 nkr = ( nkstot - nkl * npool ) / kunit
83 IF( my_pool_id < nkr ) nkl = nkl + kunit
87 IF( my_pool_id >= nkr ) iks = iks + nkr * kunit
|
| /dports/print/tex-luatex/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|
| H A D | parse_ofm.c | 125 nkr = 0; nwr = 0; nkg = 0; nwg = 0; in ofm_organize()
218 eval_four_bytes(&nkr); /* Kinds of font rules */ in ofm_organize()
227 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp)) in ofm_organize()
239 glues_start = rules_start+nkr; in ofm_organize()
|
| /dports/devel/tex-synctex/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|
| /dports/devel/tex-web2c/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|
| /dports/japanese/tex-ptex/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|
| /dports/print/tex-basic-engines/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|
| /dports/print/tex-aleph/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|
| /dports/print/tex-xetex/texlive-20150521-source/texk/web2c/omegafonts/ |
| H A D | extra_routines.c | 84 unsigned nkr=0; variable
117 nkr = i + 1; in compute_ofm_extra_stuff()
143 warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); in compute_ofm_extra_stuff()
144 nkr = nwr = 0; in compute_ofm_extra_stuff()
157 if (nki+nkp+nkm+nkf+nkr+nkg > 0) { in output_ofm_extra_stuff()
|
| H A D | out_ofm.c | 83 nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
84 nco = 29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; in compute_ofm_subsizes()
120 out_ofm_4(nkr); out_ofm_4(nwr); in output_ofm_subsizes()
|