/dports/math/R-cran-psych/psych/R/ |
H A D | read.clipboard.R | 44 xij <- scan(con,what="char") functionVar 46 m <- length(xij) 49 if(names) {name <- xij[cumsum(1:n)] 50 xij <- xij[-cumsum(seq(1:n))] 53 xij <- as.numeric(xij) 55 X[upper.tri(X, diag = diag)] <- xij 73 xij <- scan(con,what="char") functionVar 75 m <- length(xij) 81 xij <- xij[-c(1,1+cumsum(n:2))]} 82 xij <- as.numeric(xij) [all …]
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | geom_helper.f90 | 114 real(dp), intent(in) :: xai(3), xaj(3), xij(3) local 121 xd (:) = xij(:) - (xaj(:)-xai(:)) 146 pure function cell_a(recell,xai,xaj,xij) result(n) 151 real(dp), intent(in) :: xai(3), xaj(3), xij(3) local 156 n = cell_d(recell,xai,xaj,xij,1) 164 real(dp), intent(in) :: xai(3), xaj(3), xij(3) local 169 n = cell_d(recell,xai,xaj,xij,2) 177 real(dp), intent(in) :: xai(3), xaj(3), xij(3) local 182 n = cell_d(recell,xai,xaj,xij,3) 190 real(dp), intent(in) :: xai(3), xaj(3), xij(3) local [all …]
|
H A D | m_hs_matrix.f90 | 176 xij,numh,listhptr,listh,H,S, & argument 388 k(3) * (xij(3,ind) - xo(3)) 443 xij,numh,listhptr,listh,H,S, & argument 657 k(3) * (xij(3,ind) - xo(3)) 710 xij,numh,listhptr,listh,H,S, & argument 812 xijo(:) = xij(:,ind) - ( & 851 k(3) * (xij(3,ind) - xo(3)) 873 xijo(:) = xij(:,ind) - ( & 895 xij,numh,listhptr,listh,H,S, & argument 998 xijo(:) = xij(:,ind) - ( & [all …]
|
H A D | hsparse.F | 61 use neighbour, only : jna=>jan, xij, r2ij, maxna=>maxnna 246 call ordvec( tol, 3, nna, xij, index ) 305 rjk = sqrt( (xij(1,kna)-xij(1,jnat))**2 + 306 & (xij(2,kna)-xij(2,jnat))**2 + 307 & (xij(3,kna)-xij(3,jnat))**2 ) 377 call ordvec( tol, 3, nna, xij, index ) 426 rjk = sqrt( (xij(1,kna)-xij(1,jnat))**2 + 427 . (xij(2,kna)-xij(2,jnat))**2 + 428 . (xij(3,kna)-xij(3,jnat))**2 ) 468 xijo(1:3,ind) = xij(1:3,jnat)
|
H A D | diag2kspiral.F90 | 11 xij, indxuo, nk, kpoint, wk, & argument 267 kpoint(2,ik) * xij(2,ind) + & 268 kpoint(3,ik) * xij(3,ind) 270 qxij = qwh(1) * xij(1,ind) + & 271 qwh(2) * xij(2,ind) + & 272 qwh(3) * xij(3,ind) 332 kpoint(2,ik) * xij(2,ind) + & 333 kpoint(3,ik) * xij(3,ind) 335 qxij = qwh(1) * xij(1,ind) + & 336 qwh(2) * xij(2,ind) + & [all …]
|
H A D | diagpol.f | 10 . xij, indxuo, kpoint, eo, psi, ng, 63 . xij(3,*), psi(ng,nuotot,nuo), Haux(ng,nuotot,nuo), 82 kxij = kpoint(1) * xij(1,ind) + 83 . kpoint(2) * xij(2,ind) + 84 . kpoint(3) * xij(3,ind) 117 kxij = kpoint(1) * xij(1,ind) + 118 . kpoint(2) * xij(2,ind) + 119 . kpoint(3) * xij(3,ind)
|
H A D | create_Sparsity_SC.F90 | 31 TM,ucell,lasto,xa,xij,isc_off) ! 3. option argument 67 real(dp), intent(in), optional :: xij(:,:) local 92 if ( present(xij) ) then 118 UC=UC,TM=TM,ucell=ucell,lasto=lasto,xa=xa,xij=xij, & 143 UC=UC,TM=TM,ucell=ucell,lasto=lasto,xa=xa,xij=xij, & 198 UC,TM,ucell,lasto,xa,xij, & argument 232 real(dp), intent(in), optional :: xij(:,:) local 348 TM,ucell,lasto,xa,xij,& argument 372 real(dp), intent(in) :: xij(:,:) local 418 xij(:,i)) [all …]
|
H A D | diagk.F | 180 kxij = kpoint(1,ik) * xij(1,ind) + 181 . kpoint(2,ik) * xij(2,ind) + 182 . kpoint(3,ik) * xij(3,ind) 287 kxij = kpoint(1,ik) * xij(1,ind) + 288 . kpoint(2,ik) * xij(2,ind) + 289 . kpoint(3,ik) * xij(3,ind) 318 kxij = kpoint(1,ik) * xij(1,ind) + 319 . kpoint(2,ik) * xij(2,ind) + 320 . kpoint(3,ik) * xij(3,ind) 429 kxij = kpoint(1,ik) * xij(1,ind) + [all …]
|
H A D | m_sparse.F90 | 134 real(dp), pointer :: xij(:,:) local 150 xij => val (xij_2D) 177 xijo(:) = xij(:,ind) - ( xa(:,ja)-xa(:,ia) ) 232 real(dp), pointer :: xij(:,:) local 243 xij => val (xij_2D) 270 xijo(:) = xij(:,ind) - ( xa(:,ja) - xa(:,ia) ) 348 real(dp), pointer :: xij(:,:) local 366 xij => val(xij_2D) 533 real(dp), pointer :: xij(:,:) local 546 xij => val(xij_2D) [all …]
|
H A D | diag2k.F | 11 . xij, indxuo, nk, kpoint, wk, 199 kxij = kpoint(1,ik) * xij(1,ind) + 200 . kpoint(2,ik) * xij(2,ind) + 201 . kpoint(3,ik) * xij(3,ind) 278 kxij = kpoint(1,ik) * xij(1,ind) + 279 . kpoint(2,ik) * xij(2,ind) + 280 . kpoint(3,ik) * xij(3,ind) 313 . kpoint(3,ik) * xij(3,ind) 446 kxij = kpoint(1,ik) * xij(1,ind) + 447 & kpoint(2,ik) * xij(2,ind) + [all …]
|
H A D | diag3k.F | 11 . xij, indxuo, nk, kpoint, wk, 197 kxij = kpoint(1,ik) * xij(1,ind) + 198 . kpoint(2,ik) * xij(2,ind) + 199 . kpoint(3,ik) * xij(3,ind) 276 kxij = kpoint(1,ik) * xij(1,ind) + 277 . kpoint(2,ik) * xij(2,ind) + 278 . kpoint(3,ik) * xij(3,ind) 312 . kpoint(3,ik) * xij(3,ind) 428 kxij = kpoint(1,ik) * xij(1,ind) + 429 . kpoint(2,ik) * xij(2,ind) + [all …]
|
H A D | pdosk.F | 11 . xij, indxuo, nk, kpoint, wk, eo, 80 . xij(3,maxnh), kpoint(3,nk), eo(maxo,maxspn,nk), 128 kxij = kpoint(1,IK) * xij(1,ind) + 129 . kpoint(2,IK) * xij(2,ind) + 130 . kpoint(3,IK) * xij(3,ind) 165 kxij = kpoint(1,IK) * xij(1,ind) + 166 . kpoint(2,IK) * xij(2,ind) + 167 . kpoint(3,IK) * xij(3,ind) 195 kxij = kpoint(1,IK) * xij(1,ind) + 196 . kpoint(2,IK) * xij(2,ind) + [all …]
|
H A D | atom_graph.F90 | 76 use neighbour, only: jna=>jan, xij, r2ij, maxna => maxnna 234 call ordvec( tol, 3, nna, xij, index ) 272 rjk = VNORM( xij(:,kna) - xij(:,jnat) ) 334 call ordvec( tol, 3, nna, xij, index ) 374 rjk = VNORM( xij(:,kna) - xij(:,jnat) ) 385 if ( lxijo ) xijo(1:3,ind) = xij(1:3,jnat) 386 sc(1:3,ind) = reduce(xa(1:3,ia),xij(1:3,jnat), & 432 function reduce(xi,xij,xj,rcell) result(sc) 433 real(dp), intent(in) :: xi(3), xj(3), xij(3) local 441 y = xi + xij - xj
|
/dports/math/z3/z3-z3-4.8.13/examples/python/ |
H A D | all_interval_series.py | 21 xij = [ [ Bool("x_%d_%d" % (i,j)) for j in range(n)] for i in range(n) ] 28 s.add(AtMost(xij[i] + [1])) 29 s.add(Or(xij[i])) 31 xi = [ xij[i][j] for i in range(n) ] 34 dji = [ [ diff_at_j_is_i(xij, j, i + 1) for i in range(n-1)] for j in range(n-1) ] 42 return s, xij 44 def process_model(s, xij, n): argument 56 if is_true(m.eval(xij[i][j])): 58 block += [xij[i][j]] 67 s, xij = ais(n) [all …]
|
/dports/math/py-z3-solver/z3-z3-4.8.10/examples/python/ |
H A D | all_interval_series.py | 21 xij = [ [ Bool("x_%d_%d" % (i,j)) for j in range(n)] for i in range(n) ] 28 s.add(AtMost(xij[i] + [1])) 29 s.add(Or(xij[i])) 31 xi = [ xij[i][j] for i in range(n) ] 34 dji = [ [ diff_at_j_is_i(xij, j, i + 1) for i in range(n-1)] for j in range(n-1) ] 42 return s, xij 44 def process_model(s, xij, n): argument 56 if is_true(m.eval(xij[i][j])): 58 block += [xij[i][j]] 67 s, xij = ais(n) [all …]
|
/dports/cad/feappv/feappv-4.1i/program/ |
H A D | interp1.f | 28 real*8 den, rn, xi, xid,xii,xij, xs(3,*), shp(*), x(ndm,*) local 72 xij = dble(j-1)*rn 73 shp(1) = shp(1)*(xi - xij) 74 den = den * (xii - xij) 82 xij = dble(j-1)*rn 83 shp(2) = shp(2)*(xi - xij) 84 den = den * (xii - xij) 95 xij = dble(j-1)*rn 96 shp(i) = shp(i)*(xi - xij) 97 den = den * (xii - xij)
|
/dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/src/ |
H A D | fix_continuum_weighted.cpp | 387 vectorAddMultiple3D(xij, t, nkj, r); in integrate_phi() 484 cont_vars[i][4] += gradrhoj*xij[0]; in post_integrate() 485 cont_vars[i][5] += gradrhoj*xij[1]; in post_integrate() 486 cont_vars[i][6] += gradrhoj*xij[2]; in post_integrate() 487 strain[i][0] += gradrhoj*xij[0]*vxj; in post_integrate() 488 strain[i][1] += gradrhoj*xij[1]*vxj; in post_integrate() 489 strain[i][2] += gradrhoj*xij[2]*vxj; in post_integrate() 490 strain[i][3] += gradrhoj*xij[0]*vyj; in post_integrate() 491 strain[i][4] += gradrhoj*xij[1]*vyj; in post_integrate() 492 strain[i][5] += gradrhoj*xij[2]*vyj; in post_integrate() [all …]
|
/dports/science/chrono/chrono-7.0.1/src/chrono_multicore/physics/ |
H A D | ChFluidKernels.h | 93 inline real3 grad_poly6(const real3& xij, const real d, const real& h) { in grad_poly6() argument 94 return (d <= h) * -945.0 / (32.0 * F_PI * Pow(h, 9)) * Pow((h * h - d * d), 2) * xij; in grad_poly6() 100 inline real3 grad_spiky(const real3& xij, const real dist, const real& h) { in grad_spiky() argument 101 return (dist <= h) * KGSPIKY * xij; in grad_spiky() 109 inline real3 unormalized_grad_spiky(const real3& xij, const real d, const real& h) { in unormalized_grad_spiky() argument 111 return -k * (1.0 - d / h) / h * xij / d; in unormalized_grad_spiky() 114 inline real3 viscosity(const real3& xij, const real d, const real& h) { in viscosity() argument 116 (-(d * d * d) / (2 * h * h * h) + (d * d) / (h * h) + (h) / (2 * d) - 1) * xij; in viscosity() 118 inline real3 grad2_viscosity(const real3& xij, const real d, const real& h) { in grad2_viscosity() argument
|
/dports/science/gromacs/gromacs-2021.4/src/gromacs/mdlib/ |
H A D | vsite.cpp | 362 rvec xij; in constr_vsite2FD() local 405 rvec xij, xjk, temp; in constr_vsite3FD() local 431 rvec xij, xjk, xp; in constr_vsite3FAD() local 458 rvec xij, xik, temp; in constr_vsite3OUT() local 462 cprod(xij, xik, temp); in constr_vsite3OUT() 536 rvec_sub(ra, xij, rja); in constr_vsite4FDN() 537 rvec_sub(rb, xij, rjb); in constr_vsite4FDN() 955 rvec xij; in spread_vsite2FD() local 1352 fk[XX] = b * fv[XX] + xij[ZZ] * cfy - xij[YY] * cfz; in spread_vsite3OUT() 1353 fk[YY] = -xij[ZZ] * cfx + b * fv[YY] + xij[XX] * cfz; in spread_vsite3OUT() [all …]
|
/dports/math/minizinc/libminizinc-2.5.5/solvers/MIP/ |
H A D | MIP_solverinstance.cpp | 146 const double xij = slvOut.x[varXij[nN * i + j]]; in generate() local 148 MZN_ASSERT_HARD_MSG(1e-4 > fabs(xij), in generate() 149 "circuit: X[" << (i + 1) << ", " << (j + 1) << "]==" << xij); in generate() 152 -1e-4 < xij && 1.0 + 1e-4 > xij, // adjusted from 1e-6 to 1e-4 for CBC. 7.8.19 in generate() 153 "circuit: X[" << (i + 1) << ", " << (j + 1) << "]==" << xij); in generate() 154 if (1e-4 <= xij) { in generate() 155 mapFlow[make_pair(min(i, j), max(i, j))] += xij; in generate()
|
/dports/math/R-cran-VGAM/VGAM/man/ |
H A D | fill.Rd | 26 A support function for the argument \code{xij}, it generates a matrix 75 All terms in the \code{xij} 106 Hence \code{xij} does not affect constraint matrices. 116 \code{xij = op ~ lop + rop + fill(mop)}, whereas 117 \code{xij = op ~ lop + rop + fill1(mop) + fill2(mop)} would retain 122 % have a different meaning when \code{xij} is used. 187 xij = list(op ~ lop + rop + fill(lop)), 192 coef(fit1, matrix = TRUE) # Unchanged with 'xij' 209 xij = list(BS(lop,rop) ~ BS(lop,rop) + 273 % xij = list(op ~ lop + rop + mop), [all …]
|
/dports/math/blis/blis-0.8.1/frame/include/level0/ |
H A D | bli_scal2s_mxn.h | 62 ctype* restrict xij = xj + i*rs_x; \ 65 PASTEMAC(ch,scal2js)( *alpha, *xij, *yij ); \ 78 ctype* restrict xij = xj + i*rs_x; \ 81 PASTEMAC(ch,scal2s)( *alpha, *xij, *yij ); \
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/prepar/ |
H A D | pre_torang.F | 11 real*8 xij(3),xkj(3),xkl(3),xm(3),xn(3) 14 xij(i)=x(i,ia)-x(i,ja) 24 xm(i)=xij(j)*xkj(k)-xkj(j)*xij(k)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/prepar/ |
H A D | pre_torang.F | 11 real*8 xij(3),xkj(3),xkl(3),xm(3),xn(3) 14 xij(i)=x(i,ia)-x(i,ja) 24 xm(i)=xij(j)*xkj(k)-xkj(j)*xij(k)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
H A D | argos_prepare_torang.F | 11 real*8 xij(3),xkj(3),xkl(3),xm(3),xn(3) 14 xij(i)=x(i,ia)-x(i,ja) 24 xm(i)=xij(j)*xkj(k)-xkj(j)*xij(k)
|