/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | vcsubs.f90 | 143 INTEGER :: na, nt, i, j, l, k, m local 197 ratd(l,na) = zero 199 IF ( if_pos(l,na) == 1 ) & 200 ratd(l,na) = rat2di(k,na) * sigma(k,l) / vcell + ratd(l,na) 217 rat2d (l, na) = if_pos(l,na) * force (l, na) / atmass (nt) 218 rat2di(l, na) = zero 574 INTEGER :: i, j, k, l, m, na, nt, & local 785 theta (l, k) = theta (l, k) + avec (m, l) * avec (m, k) 978 avec(l, k)=avec2d(l,k)*aveci(l,k)-avec2di(l,k)*avec(l,k) 979 avec(l, k)=avec(l,k)/(avec2d(l,k)-avec2di(l,k)) [all …]
|
H A D | intersite_V.f90 | 53 DO na = 1, nat 59 V(na,nb,1:3) = Hubbard_V(na,nb,1:3) 156 dist_s(na,nb) = dist_s(na,nb) + (tau_sc(k,na) - tau_sc(k,nb))**2 158 dist_s(na,nb) = DSQRT(dist_s(na,nb)) * alat 177 l = 0 180 DO na = 1, 7 182 DO k = 1, l 185 distm(l+1) = MIN(distm(l+1), dist_s(1,nb)) 188 l = l + 1 244 DO l = 1, nat [all …]
|
/dports/textproc/htmltest/htmltest-0.15.0/vendor/github.com/daviddengcn/go-villa/ |
H A D | cmp.go | 30 na, nb := len(a), len(b) 32 for k, l, m := 0, 0, 0; l < na || m < nb; k++ { 33 if m >= nb || l < na && cmp(a[l], b[m]) <= 0 { 120 for k, l, m := 0, 0, 0; l < na || m < nb; k++ { 121 if m >= nb || l < na && cmp(a[l], b[m]) <= 0 { 232 for k, l, m := 0, 0, 0; l < na || m < nb; k++ { 233 if m >= nb || l < na && cmp(a[l], b[m]) <= 0 { 312 for k, l, m := 0, 0, 0; l < na || m < nb; k++ { 313 if m >= nb || l < na && cmp(a[l], b[m]) <= 0 { 390 for k, l, m := 0, 0, 0; l < na || m < nb; k++ { [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/src/ |
H A D | projections_mod.f90 | 12 INTEGER na, n, l, m, ind component 35 INTEGER :: na, nt, n, n1, n2, l, m, ind local 45 DO na = 1, nat 46 nt = ityp (na) 69 nlmchi(nwfc)%na = na 90 nlmchi(nwfc)%na = na 105 nlmchi(nwfc)%na = na 116 nlmchi(nwfc)%na = na 144 INTEGER :: na, nt, nb, l, m local 149 DO na=1,nat [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/kbpp/ |
H A D | integrate_pawppv1.F | 81 integer k1,k2,k3,i,j,i2,j2,k,l,nx,la,na,lb,nb,power_f local 126 d = log_integrate_def(2*l+2,f1,l,rho,log_amesh,icut) 136 do l=0,2*lmax 137 k1 = l+2 138 k2 = 2*l+2 190 d = dble(2*l+1)*nwpw_double_factorial(2*l+1) 194 if ((l.le.sum_l) .and.(l.ge.dif_l)) then 195 if ((l.le.sum_l2).and.(l.ge.dif_l2)) then 253 Gijl(na,na,la,2) = Gijl(na,na,la,2) + d 317 Gijl(na,na,la,4) = Gijl(na,na,la,4) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/pspw/kbpp/ |
H A D | integrate_pawppv1.F | 81 integer k1,k2,k3,i,j,i2,j2,k,l,nx,la,na,lb,nb,power_f 126 d = log_integrate_def(2*l+2,f1,l,rho,log_amesh,icut) 136 do l=0,2*lmax 137 k1 = l+2 138 k2 = 2*l+2 190 d = dble(2*l+1)*nwpw_double_factorial(2*l+1) 194 if ((l.le.sum_l) .and.(l.ge.dif_l)) then 195 if ((l.le.sum_l2).and.(l.ge.dif_l2)) then 253 Gijl(na,na,la,2) = Gijl(na,na,la,2) + d 317 Gijl(na,na,la,4) = Gijl(na,na,la,4) [all …]
|
/dports/accessibility/py-speech-dispatcher/speech-dispatcher-0.10.2/locale/gd/ |
H A D | emojis.dic | 286 neach le aodann na làmhan none 287 ♂ duine le aodann na làmhan none 288 ♀ boireannach le aodann na làmhan none 484 neach na shuidhe lòtais none 485 ♂ duine na shuidhe lòtais none 486 ♀ boireannach na shuidhe lòtais none 1552 cùl làimhe air a thogail tòna soilleir a’ chraicinn none 1553 cùl làimhe air a thogail tòna meadhanach soilleir a’ chraicinn none 1554 cùl làimhe air a thogail tòna meadhanach a’ chraicinn none 1555 cùl làimhe air a thogail tòna meadhanach doilleir a’ chraicinn none [all …]
|
/dports/accessibility/speech-dispatcher/speech-dispatcher-0.10.2/locale/gd/ |
H A D | emojis.dic | 286 neach le aodann na làmhan none 287 ♂ duine le aodann na làmhan none 288 ♀ boireannach le aodann na làmhan none 484 neach na shuidhe lòtais none 485 ♂ duine na shuidhe lòtais none 486 ♀ boireannach na shuidhe lòtais none 1552 cùl làimhe air a thogail tòna soilleir a’ chraicinn none 1553 cùl làimhe air a thogail tòna meadhanach soilleir a’ chraicinn none 1554 cùl làimhe air a thogail tòna meadhanach a’ chraicinn none 1555 cùl làimhe air a thogail tòna meadhanach doilleir a’ chraicinn none [all …]
|
/dports/cad/gmsh/gmsh-4.9.2-source/Geo/ |
H A D | findLinks.cpp | 19 List_T *l; member 53 for(int l = 0; l < 2; l++) { in recurFindLinkedEdges() local 64 List_Read(lk.l, i, &na); in recurFindLinkedEdges() 94 if((pli = (lnk *)Tree_PQuery(links, &li))) { List_Add(pli->l, &na); } in createEdgeLinks() 97 List_Add(li.l, &na); in createEdgeLinks() 137 List_Read(lk.l, j, &na); in orientAndSortEdges() 235 for(auto it = l.begin(); it != l.end(); it++) { in recurFindLinkedFaces() 248 List_Read(lk.l, i, &na); in recurFindLinkedFaces() 274 if((pli = (lnk *)Tree_PQuery(links, &li))) { List_Add(pli->l, &na); } in createFaceLinks() 277 List_Add(li.l, &na); in createFaceLinks() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/LR_Modules/ |
H A D | dynmat_sub.f90 | 291 integer :: i,j,n,m,p,k,l,q,r,na, nb, na1, i1, j1 local 571 (ind_v(l,1,3).eq.na).and.(ind_v(l,1,4).eq.nb)) q=0 573 (ind_v(l,2,3).eq.na).and.(ind_v(l,2,4).eq.nb)) q=0 574 l=l+1 604 do l=1,m 606 call sp2(x,v(l,:),ind_v(l,:,:),nat,scal) 610 na=ind_v(l,r,3) 612 w(i,j,na,nb)=w(i,j,na,nb)-scal*v(l,r) 656 do l=1,m 661 na=ind_v(l,r,3) [all …]
|
/dports/math/gecode/gecode-0916a1a/gecode/gist/ |
H A D | visualnode.cpp | 114 LayoutCursor l(this,na); in layout() local 195 std::string l = in labelPath() local 198 na.setLabel(cur.first,QString(l.c_str())); in labelPath() 317 extentL += shape2[i].l; in getAlpha() 337 int topmostL = shape1[0].l; in merge() 342 shape2[0].l + alpha - shape1[0].l; in merge() 355 int newExtentL = currentExtent1.l; in merge() 359 backoffTo2 += currentExtent2.l - currentExtent1.l; in merge() 366 int newExtentL = currentExtent1.l; in merge() 414 extent.l = std::min(extent.l, -ll); in computeShape() [all …]
|
/dports/devel/tcllib/tcllib-1.20/modules/struct/graph/ |
H A D | filter.c | 64 NA na; in gc_filter() local 183 na->nv [na->nc] = ov[0]; in filter_setup() 190 if (na->value && !na->key) { in filter_setup() 196 if ((na->mode != NA_NONE) && !na->nc) { in filter_setup() 228 if (j < i) { na->nv[j] = na->nv[i]; } in filter_setup() 265 filter_mode_n (na->mode, gx, &l, na->nc, na->nv, g); in filter_run() 267 filter_mode_a (na->mode, gx, &l, na->nc, na->nv, g); in filter_run() 270 if (na->key && na->value) { in filter_run() 271 filter_kv (interp, gx, &l, gf, g, na->key, na->value); in filter_run() 273 filter_k (interp, gx, &l, gf, g, na->key); in filter_run() [all …]
|
/dports/devel/tcllibc/tcllib-1.20/modules/struct/graph/ |
H A D | filter.c | 64 NA na; in gc_filter() local 183 na->nv [na->nc] = ov[0]; in filter_setup() 190 if (na->value && !na->key) { in filter_setup() 196 if ((na->mode != NA_NONE) && !na->nc) { in filter_setup() 228 if (j < i) { na->nv[j] = na->nv[i]; } in filter_setup() 265 filter_mode_n (na->mode, gx, &l, na->nc, na->nv, g); in filter_run() 267 filter_mode_a (na->mode, gx, &l, na->nc, na->nv, g); in filter_run() 270 if (na->key && na->value) { in filter_run() 271 filter_kv (interp, gx, &l, gf, g, na->key, na->value); in filter_run() 273 filter_k (interp, gx, &l, gf, g, na->key); in filter_run() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/utilities/ |
H A D | butter.F | 43 integer i,l,pr,size,rsize,Level,shift,pfrom 53 do l=0,(Level-1) 54 shift = 2**l 58 if (l.eq.(Level-1)) then 80 subroutine Butter_indexes(l,taskid_j,np_j,na, argument 84 integer l,taskid_j,np_j,na(*) 98 if (l.eq.0) then 106 shift = 2**(l-1) 110 if (l.eq.Level) then 131 if ((l.eq.Level).and.(mod(np_j,2).eq.0)) then [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/utilities/ |
H A D | butter.F | 43 integer i,l,pr,size,rsize,Level,shift,pfrom 53 do l=0,(Level-1) 54 shift = 2**l 58 if (l.eq.(Level-1)) then 80 subroutine Butter_indexes(l,taskid_j,np_j,na, argument 84 integer l,taskid_j,np_j,na(*) 98 if (l.eq.0) then 106 shift = 2**(l-1) 110 if (l.eq.Level) then 131 if ((l.eq.Level).and.(mod(np_j,2).eq.0)) then [all …]
|
/dports/science/fasthenry/fasthenry-3.0wr/src/fasthenry/ |
H A D | Prec_cost.c | 14 double OneCubeCost(cubes, i,j,k,l,side, dir_cost) in OneCubeCost() argument 16 int i,j,k,l,side; 22 this_size = cubes[i][j][k][l]->upnumeles[0]; 27 for(p=l-2; p <=l+2; p++) 32 if (abs(m-j) < 2 && abs(n-k) < 2 && abs(p-l) < 2) 81 for(na = nc; na != NULL; na = na->parent) 82 cnts[na->level][na->j][na->k][na->l] += cols*nc->upnumeles[0]; 84 evals[nc->level][nc->j][nc->k][nc->l] += 1; 87 evals[na->level][na->j][na->k][na->l] += 1; 109 na = nc; [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/core/vnl/ |
H A D | vnl_decnum.cxx | 90 unsigned long l = 0L; in operator unsigned long() local 92 return l; // forget the sign in operator unsigned long() 100 long l = 0L; in operator long() local 102 return sign_=='-' ? -l : l; in operator long() 109 unsigned int l = 0; in operator unsigned int() local 111 return l; // forget the sign in operator unsigned int() 119 int l = 0; in operator int() local 121 return sign_=='-' ? -l : l; in operator int() 279 for (--na; na>=0; --na) { in mult() 445 unsigned long l = data_.length(); in compactify() local [all …]
|
/dports/misc/vxl/vxl-3.3.2/core/vnl/ |
H A D | vnl_decnum.cxx | 145 l *= 10; in operator unsigned long() 160 long l = 0L; in operator long() local 163 l *= 10; in operator long() 167 return sign_ == '-' ? -l : l; in operator long() 179 l *= 10; in operator unsigned int() 194 int l = 0; in operator int() local 197 l *= 10; in operator int() 201 return sign_ == '-' ? -l : l; in operator int() 670 if (n < l) in compactify() 672 exp_ += l - n; in compactify() [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/overloading/macros/ |
H A D | %zpk_v_zpk.sci | 10 [ma,na]=size(a) 15 if ma*na==1 then 19 Z{l,k}=[b.P{l,k};a.Z{1}] 20 P{l,k}=[b.Z{l,k};a.P{1}] 25 Z=cell(ma,na);P=cell(ma,na);K=zeros(ma,na); 26 for k=1:na 34 if ma<>mb|na<>nb then 37 Z=cell(ma,na);P=cell(ma,na);K=zeros(ma,na); 38 for k=1:na 40 Z{l,k}=[b.P{l,k};a.Z{l,k}] [all …]
|
H A D | %zpk_q_zpk.sci | 10 [ma,na]=size(a) 15 if ma*na==1 then 19 Z{l,k}=[b.Z{l,k};a.P{1}] 20 P{l,k}=[b.P{l,k};a.Z{1}] 25 Z=cell(ma,na);P=cell(ma,na);K=zeros(ma,na); 26 for k=1:na 34 if ma<>mb|na<>nb then 37 Z=cell(ma,na);P=cell(ma,na);K=zeros(ma,na); 38 for k=1:na 40 Z{l,k}=[b.Z{l,k};a.P{l,k}] [all …]
|
H A D | %zpk_x_zpk.sci | 10 [ma,na]=size(a) 15 if ma*na==1 then 19 Z{l,k}=[b.Z{l,k};a.Z{1}] 20 P{l,k}=[b.P{l,k};a.P{1}] 25 Z=cell(ma,na);P=cell(ma,na);K=zeros(ma,na); 26 for k=1:na 34 if ma<>mb|na<>nb then 37 Z=cell(ma,na);P=cell(ma,na);K=zeros(ma,na); 38 for k=1:na 40 Z{l,k}=[b.Z{l,k};a.Z{l,k}] [all …]
|
/dports/science/py-pyscf/pyscf-2.0.1/pyscf/lib/mcscf/ |
H A D | fci_4pdm.c | 69 for (l = 0; l < nnorb; l++) { in rdm4_0b_t2() 70 pt2[l] += pt1[l]; in rdm4_0b_t2() 73 for (l = 0; l < nnorb; l++) { in rdm4_0b_t2() 115 for (l = 0; l < nnorb; l++) { in rdm4_a_t2() 119 for (l = 0; l < nnorb; l++) { in rdm4_a_t2() 223 for (l = 0; l < norb; l++) { in make_rdm12_sf() 263 for (l = 0; l < norb; l++) { in make_rdm12_spin0() 321 for (l = 0; l < norb; l++) { in FCI4pdm_kern_sf() 407 for (l = 0; l < norb; l++) { in FCI4pdm_kern_spin0() 501 for (l = 0; l < norb; l++) { in FCI3pdm_kern_sf() [all …]
|
/dports/lang/erlang-runtime23/otp-OTP-23.3.4.10/lib/dialyzer/test/small_SUITE_data/src/ |
H A D | comparisons.erl | 277 test_l_ll_na() -> case l() < na() of true -> never; false -> always end. 278 test_l_le_na() -> case l() =< na() of true -> never; false -> always end. 279 test_l_gg_na() -> case l() > na() of true -> always; false -> never end. 280 test_l_ge_na() -> case l() >= na() of true -> always; false -> never end. 302 test_na_ll_l() -> case na() < l() of true -> always; false -> never end. 303 test_na_le_l() -> case na() =< l() of true -> always; false -> never end. 304 test_na_gg_l() -> case na() > l() of true -> never; false -> always end. 305 test_na_ge_l() -> case na() >= l() of true -> never; false -> always end. 341 test_na_ll_na() -> case na() < na() of true -> maybe; false -> maybe_too end. 342 test_na_le_na() -> case na() =< na() of true -> maybe; false -> maybe_too end. [all …]
|
/dports/lang/erlang-runtime24/otp-OTP-24.1.7/lib/dialyzer/test/small_SUITE_data/src/ |
H A D | comparisons.erl | 277 test_l_ll_na() -> case l() < na() of true -> never; false -> always end. 278 test_l_le_na() -> case l() =< na() of true -> never; false -> always end. 279 test_l_gg_na() -> case l() > na() of true -> always; false -> never end. 280 test_l_ge_na() -> case l() >= na() of true -> always; false -> never end. 302 test_na_ll_l() -> case na() < l() of true -> always; false -> never end. 303 test_na_le_l() -> case na() =< l() of true -> always; false -> never end. 304 test_na_gg_l() -> case na() > l() of true -> never; false -> always end. 305 test_na_ge_l() -> case na() >= l() of true -> never; false -> always end. 341 test_na_ll_na() -> case na() < na() of true -> maybe; false -> maybe_too end. 342 test_na_le_na() -> case na() =< na() of true -> maybe; false -> maybe_too end. [all …]
|
/dports/lang/erlang-runtime22/otp-OTP-22.3.4.24/lib/dialyzer/test/small_SUITE_data/src/ |
H A D | comparisons.erl | 277 test_l_ll_na() -> case l() < na() of true -> never; false -> always end. 278 test_l_le_na() -> case l() =< na() of true -> never; false -> always end. 279 test_l_gg_na() -> case l() > na() of true -> always; false -> never end. 280 test_l_ge_na() -> case l() >= na() of true -> always; false -> never end. 302 test_na_ll_l() -> case na() < l() of true -> always; false -> never end. 303 test_na_le_l() -> case na() =< l() of true -> always; false -> never end. 304 test_na_gg_l() -> case na() > l() of true -> never; false -> always end. 305 test_na_ge_l() -> case na() >= l() of true -> never; false -> always end. 341 test_na_ll_na() -> case na() < na() of true -> maybe; false -> maybe_too end. 342 test_na_le_na() -> case na() =< na() of true -> maybe; false -> maybe_too end. [all …]
|