/dports/science/elk/elk-7.2.42/src/ |
H A D | gwsefmk.f90 | 147 do ist2=1,nstsv 155 do ist1=1,ist2 157 v(ist1,ist2)=v(ist1,ist2)-t1*z1 230 do ist2=1,nstsv 232 stau(ist2,ist2,it)=stau(ist2,ist2,it)+z2*zv(ist2) 236 do ist2=1,nstsv 286 do ist2=1,nstsv 287 do ist1=1,ist2 288 se(ist1,ist2,iw)=se(ist1,ist2,iw)+v(ist1,ist2) 290 do ist1=ist2+1,nstsv [all …]
|
H A D | vclcore.f90 | 56 do ist2=1,nstsv 58 zrhomt(:,ist2),zfmt) 60 do ist1=1,ist2 61 v(ist1,ist2)=v(ist1,ist2)-zdotc(npc,zrhomt(:,ist1),1,zfmt,1) 73 do ist2=1,ist1-1 74 v(ist1,ist2)=conjg(v(ist2,ist1))
|
H A D | oepvclk.f90 | 137 do ist2=1,nstsv 138 if (evalsv(ist2,ikp).gt.efermi) then 141 zrhomt1(:,:,ist2),zvclmt) 143 gqc,gclgq,ngvc,jlgqrmt,ylmgq,sfacgq,zrhoir1(:,ist2),npcmtmax,zvclmt, & 152 vclvv(ist1,ist2)=vclvv(ist1,ist2)-wqptnr*z1 171 vclcv(ic,ias,ist2)=vclcv(ic,ias,ist2)-wqptnr*z1 220 do ist2=1,nstsv 221 if (evalsv(ist2,ikp).gt.efermi) then 224 zrhomt1(:,ias,ist2),zvclmt) 231 vclvv(ist1,ist2)=vclvv(ist1,ist2)-z1 [all …]
|
H A D | rdmdexcdn.f90 | 62 do ist2=1,nstsv 69 if ((ist2.eq.ist1).and.(t3.lt.epslat)) then 72 t3=max(occsv(ist2,ik2),eps) 77 dedn(ist2,ik2)=dedn(ist2,ik2)+t2*vclijji(ist2,ist1,ik2)
|
H A D | rdmengyxc.f90 | 59 do ist2=1,nstsv 62 t2=t1*wkpt(ik2)*occsv(ist2,ik2)*occsv(ist1,jk) 65 t3=occsv(ist2,ik2)*occsv(ist1,jk) 67 if ((ist2.eq.ist1).and.(t4.lt.epslat)) then 73 engyx=engyx-t2*vclijji(ist2,ist1,ik2)
|
/dports/net/haproxy/haproxy-2.4.10/include/import/ |
H A D | ist.h | 341 struct ist r = ist2; in istdiff() 357 struct ist r = ist2; in istmatch() 373 struct ist r = ist2; in istmatchi() 395 struct ist r = ist2; in istnmatch() 408 struct ist r = ist2; in isteq() 424 struct ist r = ist2; in isteqi() 446 struct ist r = ist2; in istneq() 578 return ist2(dst, ofs); in ist2bin() 601 return ist2(dst, ofs); in ist2str() 623 return ist2(dst, ofs); in ist2bin_lc() [all …]
|
/dports/net/haproxy22/haproxy-2.2.19/include/import/ |
H A D | ist.h | 290 struct ist r = ist2; in istdiff() 306 struct ist r = ist2; in istmatch() 322 struct ist r = ist2; in istmatchi() 344 struct ist r = ist2; in istnmatch() 357 struct ist r = ist2; in isteq() 373 struct ist r = ist2; in isteqi() 395 struct ist r = ist2; in istneq() 517 return ist2(dst, ofs); in ist2bin() 540 return ist2(dst, ofs); in ist2str() 562 return ist2(dst, ofs); in ist2bin_lc() [all …]
|
/dports/net/haproxy23/haproxy-2.3.16/include/import/ |
H A D | ist.h | 290 struct ist r = ist2; in istdiff() 306 struct ist r = ist2; in istmatch() 322 struct ist r = ist2; in istmatchi() 344 struct ist r = ist2; in istnmatch() 357 struct ist r = ist2; in isteq() 373 struct ist r = ist2; in isteqi() 395 struct ist r = ist2; in istneq() 517 return ist2(dst, ofs); in ist2bin() 540 return ist2(dst, ofs); in ist2str() 562 return ist2(dst, ofs); in ist2bin_lc() [all …]
|
/dports/net/haproxy21/haproxy-2.1.12/include/common/ |
H A D | ist.h | 272 struct ist r = ist2; in istdiff() 288 struct ist r = ist2; in istmatch() 304 struct ist r = ist2; in istmatchi() 326 struct ist r = ist2; in istnmatch() 339 struct ist r = ist2; in isteq() 355 struct ist r = ist2; in isteqi() 377 struct ist r = ist2; in istneq() 499 return ist2(dst, ofs); in ist2bin() 522 return ist2(dst, ofs); in ist2str() 544 return ist2(dst, ofs); in ist2bin_lc() [all …]
|
/dports/net/haproxy19/haproxy-1.9.16/include/common/ |
H A D | ist.h | 272 struct ist r = ist2; in istdiff() 288 struct ist r = ist2; in istmatch() 306 struct ist r = ist2; in istnmatch() 319 struct ist r = ist2; in isteq() 335 struct ist r = ist2; in isteqi() 357 struct ist r = ist2; in istneq() 479 return ist2(dst, ofs); in ist2bin() 502 return ist2(dst, ofs); in ist2str() 524 return ist2(dst, ofs); in ist2bin_lc() 547 return ist2(dst, ofs); in ist2str_lc() [all …]
|
/dports/net/haproxy20/haproxy-2.0.26/include/common/ |
H A D | ist.h | 272 struct ist r = ist2; in istdiff() 288 struct ist r = ist2; in istmatch() 306 struct ist r = ist2; in istnmatch() 319 struct ist r = ist2; in isteq() 335 struct ist r = ist2; in isteqi() 357 struct ist r = ist2; in istneq() 479 return ist2(dst, ofs); in ist2bin() 502 return ist2(dst, ofs); in ist2str() 524 return ist2(dst, ofs); in ist2bin_lc() 547 return ist2(dst, ofs); in ist2str_lc() [all …]
|
/dports/net/nuster/nuster-5.0.4.21/include/common/ |
H A D | ist.h | 272 struct ist r = ist2; in istdiff() 288 struct ist r = ist2; in istmatch() 306 struct ist r = ist2; in istnmatch() 319 struct ist r = ist2; in isteq() 335 struct ist r = ist2; in isteqi() 357 struct ist r = ist2; in istneq() 479 return ist2(dst, ofs); in ist2bin() 502 return ist2(dst, ofs); in ist2str() 524 return ist2(dst, ofs); in ist2bin_lc() 547 return ist2(dst, ofs); in ist2str_lc() [all …]
|
/dports/science/octopus/octopus-10.5/share/opencl/ |
H A D | pack.cl | 29 const int ist2 = get_global_id(1); 31 if(ip < np) dest[ist + ist2 + ip*nst] = src[ip + ist2*get_global_size(0)]; 40 const int ist2 = get_global_id(1); 42 if(ip < np) dest[ist + ist2 + ip*nst] = src[ip + ist2*get_global_size(0)]; 50 const int ist2 = get_global_id(0); 53 if(ip < np) dest[ip + ist2*get_global_size(1)] = src[ist + ist2 + ip*nst]; 61 const int ist2 = get_global_id(0); 64 if(ip < np) dest[ip + ist2*get_global_size(1)] = src[ist + ist2 + ip*nst];
|
H A D | rotate.cl | 33 for(int ist2 = 0; ist2 < nst; ist2++){ 34 a0 += uu[ist*lduu + ist2]*psi[ip*ldpsi + ist2]; 51 for(int ist2 = 0; ist2 < nst; ist2++){ 52 double2 xx = uu[ist*lduu + ist2]; 53 double2 yy = psi[ip*ldpsi + ist2];
|
/dports/net/haproxy18/haproxy-1.8.30/include/common/ |
H A D | ist.h | 187 struct ist r = ist2; in istdiff() 203 struct ist r = ist2; in istmatch() 221 struct ist r = ist2; in istnmatch() 234 struct ist r = ist2; in isteq() 252 struct ist r = ist2; in istneq() 420 return ist2(ret.ptr - 1, ret.len + 1); in istfind() 422 return ist2(ret.ptr, 0); in istfind() 435 return ist2(ret.ptr - 1, ret.len + 1); in istskip() 437 return ist2(ret.ptr, 0); in istskip() 466 return ist2(ret.ptr - 1, ret.len + 1); in istist() [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/MeanField/EPM/ |
H A D | hamiltonianMod.f90 | 280 integer :: ist, ist2, ng, ig, ig2 local 337 do ist2 = 1, eigenStates%numStates 347 if(ist == ist2) then 378 do ist2 = 1, eigenStates%numStates 380 Hdiag(ist2, ist) = 0d0 383 … Hdiag(ist2, ist) = Hdiag(ist2, ist) + conjg(eigenStates%eigenVectors(ig2, ist2, ik)) * & 390 Hdiag(ist2, ist) = zdotc(ng, eigenStates%eigenVectors(:, ist2, ik), 1, Hpsimat(:, ist), 1) 398 do ist2 = 1, eigenStates%numStates 399 if(ist == ist2) then 407 if(abs(Hdiag(ist2, ist)) > 2d-10) then [all …]
|
/dports/science/octopus/octopus-10.5/src/sternheimer/ |
H A D | kdotp_calc_inc.F90 | 30 integer :: ik, ist, ist2, idir1, idir2, pdim 82 do ist2 = 1, sys%st%nst 87 … orth_mask(ist2) = .not. (abs(sys%st%eigenval(ist2, ik) - sys%st%eigenval(ist, ik)) < degen_thres) 143 integer :: ip, idim, ist, ist2, ik 164 do ist2 = ist + 1, sys%st%nst 166 call states_elec_get_state(sys%st, sys%gr%mesh, ist2, ik, psi2) 169 if (abs(sys%st%eigenval(ist2, ik) - sys%st%eigenval(ist, ik)) < degen_thres) cycle 172 if(sys%st%occ(ist2, ik) < M_HALF) cycle 179 psi2(ip, idim)*mtxel/(sys%st%eigenval(ist, ik) - sys%st%eigenval(ist2, ik)) 182 kdotp_lr%X(dl_psi)(ip, idim, ist2, ik) = kdotp_lr%X(dl_psi)(ip, idim, ist2, ik) + & [all …]
|
/dports/net/haproxy20/haproxy-2.0.26/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/haproxy19/haproxy-1.9.16/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/haproxy/haproxy-2.4.10/tests/unit/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/haproxy23/haproxy-2.3.16/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/haproxy21/haproxy-2.1.12/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/haproxy18/haproxy-1.8.30/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/haproxy22/haproxy-2.2.19/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|
/dports/net/nuster/nuster-5.0.4.21/tests/ |
H A D | ist.c | 35 if (ist2("foo", 3).ptr == NULL) in test_ist2() 37 if (ist2("foo", 3).len != 3) in test_ist2() 111 if (istzero(ist2(buf, 5), 10).ptr != buf) in test_istzero() 114 if (istzero(ist2(buf, 5), 10).len != 5) in test_istzero() 117 if (istzero(ist2(buf, 5), 5).len != 4) in test_istzero() 123 if (istzero(ist2(buf, 5), 0).len != 0) in test_istzero() 132 int f_istdiff(const struct ist ist1, const struct ist ist2) { return istdiff(ist1, ist2); } in f_istdiff() argument 162 int f_istmatch(const struct ist ist1, const struct ist ist2) { return istmatch(ist1, ist2); } in f_istmatch() argument 201 int f_istnmatch(struct ist ist1, struct ist ist2, size_t count) { return istnmatch(ist1, ist2, coun… in f_istnmatch() argument 267 int f_isteq(const struct ist ist1, const struct ist ist2) { return isteq(ist1, ist2); } in f_isteq() argument [all …]
|