| /dports/science/dynare/dynare-4.6.4/matlab/gsa/ |
| H A D | pick.m | 75 dumx=get(dum(end),'xdata');
77 xmid=min(dumx) + 0.5*(max(dumx)-min(dumx));
79 plot(dumx(KK),dumy(KK),'or');
80 if dumx(KK) < xmid
81 text(dumx(KK),dumy(KK),[' ',num2str(K)], ...
85 text(dumx(KK),dumy(KK),[num2str(K),' '], ...
|
| /dports/math/py-Diofant/Diofant-0.13.0/diofant/combinatorics/ |
| H A D | tensor_can.py | 126 def _dumx_remove(dumx, dumx_flat, p0): argument
129 for dx in dumx:
392 dumx = dummies[:]
394 for dx in dumx:
418 md = _min_dummies(dumx, sym, indices)
431 if p_i in dumx[ii]:
434 deltap = dumx[ii]
439 deltap = dumx[ii][p_i_index::2]
515 _dumx_remove(dumx, dumx_flat, p_i)
774 for dumx in dummies:
[all …]
|
| /dports/math/py-sympy/sympy-1.9/sympy/combinatorics/ |
| H A D | tensor_can.py | 128 def _dumx_remove(dumx, dumx_flat, p0):
133 for dx in dumx:
408 dumx = dummies[:]
410 for dx in dumx:
434 md = _min_dummies(dumx, sym, indices)
447 if p_i in dumx[ii]:
450 deltap = dumx[ii]
455 deltap = dumx[ii][p_i_index::2]
531 _dumx_remove(dumx, dumx_flat, p_i)
797 for dumx in dummies:
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/hondo/ |
| H A D | hnd_giaobq10.F | 167 dumx=0.0d0
172 dumx=dumx+xxv(ix,jx,iroot)* yv(iy,jy,iroot)* zv(iz,jz,iroot)
177 dumx=dumx*(aa1*pi212)
182 bq10(ij,2)=bq10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
183 bq10(ij,3)=bq10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
|
| H A D | hnd_giaotv10.F | 188 dumx=xxv(ix,jx,1)* ys(iy,jy) * zs(iz,jz)
199 tv10(ij,2)=tv10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
200 tv10(ij,3)=tv10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
254 dumx=0.0d0
259 dumx=dumx+xxv(ix,jx,iroot)* yv(iy,jy,iroot)* zv(iz,jz,iroot)
264 dumx=dumx*(aa1*pi212)
269 tv10(ij,2)=tv10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
270 tv10(ij,3)=tv10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
|
| H A D | hnd_elfder.F | 283 dumx=0.0d0
288 dumx=dumx + dxv(ix,jx,iroot)*yv(iy,jy,iroot)*
295 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
299 dumx=0.0d0
302 dumx=dumx + xv(ix,jx,iroot)*yv(iy,jy,iroot)*
305 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
|
| H A D | hnd_hlf_ij.F | 98 double precision dumx, dumy, dumz, dumxx, dumyy, dumzz local
237 dumx=0.0d0
241 dumx = dumx + dxv(ix,jx,iroot)* yv(iy,jy,iroot)*
248 dumx =dumx *pij
251 dvij(ij,1)=dvij(ij,1)+dumx
|
| H A D | hnd_giaoh01.F | 169 dumx=0.0d0
173 dumx=dumx+xv(ix,jx,ir)*dyv(iy,jy,ir)*zvz(iz,jz,ir)
181 h01(ij,1,ipt)=h01(ij,1,ipt)+dumx*cij
|
| H A D | hnd_giaos100.F | 137 dumx=xxs(ix,jx)* ys(iy,jy)* zs(iz,jz)
141 s10(ij,2)=s10(ij,2)-cij*(tijz*dumx-tijx*dumz)
142 s10(ij,3)=s10(ij,3)-cij*(tijx*dumy-tijy*dumx)
|
| H A D | hnd_giaos10.F | 139 dumx=xxs(ix,jx)* ys(iy,jy)* zs(iz,jz)
143 s10(ij,2)=s10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
144 s10(ij,3)=s10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
|
| H A D | hnd_tvd_ij.F | 147 double precision dxtdj, dytdj, dztdj, dumx, dumy, dumz
291 dumx =dxtdi (ix,jx)* ys (iy,jy)* zs (iz,jz)
300 ditij(ij,1)=ditij(ij,1)+ dumx*pij
306 dumx =dxtdj (ix,jx)* ys (iy,jy)* zs (iz,jz)
315 djtij(ij,1)=djtij(ij,1)+ dumx*pij
484 dumx=zero
488 dumx=dumx+
495 divij(ij,1)=divij(ij,1)+dumx*pij
501 dumx=zero
505 dumx=dumx+
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/hondo/ |
| H A D | hnd_giaobq10.F | 167 dumx=0.0d0
172 dumx=dumx+xxv(ix,jx,iroot)* yv(iy,jy,iroot)* zv(iz,jz,iroot)
177 dumx=dumx*(aa1*pi212)
182 bq10(ij,2)=bq10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
183 bq10(ij,3)=bq10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
|
| H A D | hnd_giaotv10.F | 188 dumx=xxv(ix,jx,1)* ys(iy,jy) * zs(iz,jz)
199 tv10(ij,2)=tv10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
200 tv10(ij,3)=tv10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
254 dumx=0.0d0
259 dumx=dumx+xxv(ix,jx,iroot)* yv(iy,jy,iroot)* zv(iz,jz,iroot)
264 dumx=dumx*(aa1*pi212)
269 tv10(ij,2)=tv10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
270 tv10(ij,3)=tv10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
|
| H A D | hnd_elfder.F | 283 dumx=0.0d0
288 dumx=dumx + dxv(ix,jx,iroot)*yv(iy,jy,iroot)*
295 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
299 dumx=0.0d0
302 dumx=dumx + xv(ix,jx,iroot)*yv(iy,jy,iroot)*
305 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
|
| H A D | hnd_hlf_ij.F | 98 double precision dumx, dumy, dumz, dumxx, dumyy, dumzz
237 dumx=0.0d0
241 dumx = dumx + dxv(ix,jx,iroot)* yv(iy,jy,iroot)*
248 dumx =dumx *pij
251 dvij(ij,1)=dvij(ij,1)+dumx
|
| H A D | hnd_giaoh01.F | 169 dumx=0.0d0
173 dumx=dumx+xv(ix,jx,ir)*dyv(iy,jy,ir)*zvz(iz,jz,ir)
181 h01(ij,1,ipt)=h01(ij,1,ipt)+dumx*cij
|
| H A D | hnd_giaos100.F | 137 dumx=xxs(ix,jx)* ys(iy,jy)* zs(iz,jz)
141 s10(ij,2)=s10(ij,2)-cij*(tijz*dumx-tijx*dumz)
142 s10(ij,3)=s10(ij,3)-cij*(tijx*dumy-tijy*dumx)
|
| H A D | hnd_giaos10.F | 139 dumx=xxs(ix,jx)* ys(iy,jy)* zs(iz,jz)
143 s10(ij,2)=s10(ij,2)+cij*(qijy*dum+tijz*dumx-tijx*dumz)
144 s10(ij,3)=s10(ij,3)+cij*(qijz*dum+tijx*dumy-tijy*dumx)
|
| H A D | hnd_tvd_ij.F | 147 double precision dxtdj, dytdj, dztdj, dumx, dumy, dumz local
291 dumx =dxtdi (ix,jx)* ys (iy,jy)* zs (iz,jz)
300 ditij(ij,1)=ditij(ij,1)+ dumx*pij
306 dumx =dxtdj (ix,jx)* ys (iy,jy)* zs (iz,jz)
315 djtij(ij,1)=djtij(ij,1)+ dumx*pij
484 dumx=zero
488 dumx=dumx+
495 divij(ij,1)=divij(ij,1)+dumx*pij
501 dumx=zero
505 dumx=dumx+
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/dimqm/ |
| H A D | dim_elfder.F | 353 dumx=0.0d0
357 dumx=dumx + dxv(ix,jx,iroot)*yv(iy,jy,iroot)*
364 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
368 dumx=0.0d0
370 dumx=dumx + xv(ix,jx,iroot)*yv(iy,jy,iroot)*
373 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/dimqm/ |
| H A D | dim_elfder.F | 353 dumx=0.0d0
357 dumx=dumx + dxv(ix,jx,iroot)*yv(iy,jy,iroot)*
364 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
368 dumx=0.0d0
370 dumx=dumx + xv(ix,jx,iroot)*yv(iy,jy,iroot)*
373 elfder(ij,1,ipt) = elfder(ij,1,ipt) + dumx*dij
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/aobasis/ |
| H A D | ai_operator_ra2m.F | 89 REAL(KIND=dp) :: a, b, dumx, dumy, dumz, f0, prefac, & local
163 dumx = 2.0_dp*a*rr(ax + 2*i + 1, bx, 1)
164 IF (ax + 2*i > 0) dumx = dumx - REAL(ax + 2*i, dp)*rr(ax + 2*i - 1, bx, 1)
165 … dsab(ia, ib, 1) = dsab(ia, ib, 1) + prefac*f0*dumx*rr(ay + 2*j, by, 2)*rr(az + 2*k, bz, 3)
|
| H A D | ai_overlap.F | 791 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
792 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1108 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
1109 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1126 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
1127 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1307 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
1308 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1510 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1720 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/aobasis/ |
| H A D | ai_operator_ra2m.F | 89 REAL(KIND=dp) :: a, b, dumx, dumy, dumz, f0, prefac, & local
163 dumx = 2.0_dp*a*rr(ax + 2*i + 1, bx, 1)
164 IF (ax + 2*i > 0) dumx = dumx - REAL(ax + 2*i, dp)*rr(ax + 2*i - 1, bx, 1)
165 … dsab(ia, ib, 1) = dsab(ia, ib, 1) + prefac*f0*dumx*rr(ay + 2*j, by, 2)*rr(az + 2*k, bz, 3)
|
| H A D | ai_overlap.F | 791 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
792 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1108 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
1109 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1126 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
1127 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1307 dumx = 2.0_dp*a*rr(ax + 1, bx, 1)
1308 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1510 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
1720 IF (ax > 0) dumx = dumx - REAL(ax, dp)*rr(ax - 1, bx, 1)
[all …]
|