Home
last modified time | relevance | path

Searched refs:iky (Results 1 – 25 of 161) sorted by relevance

1234567

/dports/devel/ga/ga-5.8/global/examples/scf/
H A Dinteg.F70 subroutine addin(g, i, j, k, l, fock, dens, iky) argument
72 dimension fock(*), dens(*), iky(*)
79 ik = iky(i) + k
80 il = iky(i) + l
81 ij = iky(i) + j
82 jk = iky(max(j,k)) + min(j,k)
83 jl = iky(max(j,l)) + min(j,l)
84 kl = iky(k) + l
H A Dcscf.h20 c routine ininrm (rnorm and iky)
32 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
47 $ rnorm(maxnbfn),iky(maxnbfn), icut1, icut2, icut3, icut4,
50 integer*8 iky, icut1, icut2, icut3, icut4, natom, nocc, nbfn,
/dports/devel/ga/ga-5.8/tcgmsg/examples/
H A Dinteg.f67 subroutine addin(g, i, j, k, l, fock, dens, iky) argument
69 dimension fock(*), dens(*), iky(*)
76 ik = iky(i) + k
77 il = iky(i) + l
78 ij = iky(i) + j
79 jk = iky(max(j,k)) + min(j,k)
80 jl = iky(max(j,l)) + min(j,l)
81 kl = iky(k) + l
H A Ddiagon.f42 subroutine jacobi(a,iky,newbas,q,ilifq,nrow,e,iop1, argument
47 dimension a(*),q(*),e(*),iky(*),ilifq(*)
58 ikyi=iky(i)
68 ikyi=iky(i)
79 ikyj=iky(j)
97 jj=iky(k)+j
103 ij=iky(k)+i
104 jj=j+iky(k)
114 e(i)=a(iky(i)+i)
H A Dcscf.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dcscf120lin.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dcscf15.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dcscf30.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dcscf60lin.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dcscf60.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dcscf240lin.h15 c routine ininrm (rnorm and iky)
27 c iky(1:nbfn) = iky(i) = i*(i-1)/2 to speed up fock build
40 $ iky(nbfn), icut1, icut2, icut3
H A Dscf.f187 iky(i) = i*(i-1)/2
289 ij = iky(i) + j
346 ij = iky(i) + j
355 kl = iky(k) + l
365 $ dens, iky)
490 tester = max(tester, abs(fock(iky(i)+j)))
505 fock(iky(i)+i) = fock(iky(i)+i) + shift
509 call jacobi(fock, iky, nbfn, orbs, ilifq, nbfn, evals, iop1,
/dports/science/dynare/dynare-4.6.4/matlab/
H A Dth_autocovariances.m139 iky = inv_order_var(ivar); variable
141 iky = ivar; variable
146 iky = iky(find(all(x(iky,:) < options_.Schur_vec_tol,2))); variable
149 aa = ghx(iky,:);
150 bb = ghu(iky,:);
156 Gamma_y{nar+3}(stationary_vars) = AS(iky,:)*Ex+(dr.ghs2(iky)+dr.ghxx(iky,:)*vx(:)+...
160 Gamma_y{nar+3}(stationary_vars) = (dr.ghs2(iky)+ dr.ghuu(iky,:)*M_.Sigma_e(:))/2;
194 b2(:,exo_names_orig_ord) = ghu(iky,:);
217 iky = inv_order_var(ivar); variable
219 aa = ghx(iky,:); %R in Uhlig (2001)
[all …]
H A DUnivariateSpectralDensity.m99 iky = iv(ivar); variable
101 iky = iky(find(any(abs(ghx(iky,:)*u) < options_.Schur_vec_tol,2))); variable
102 ivar = oo_.dr.order_var(iky);
105 iky = iv(ivar); variable
106 aa = ghx(iky,:);
107 bb = ghu(iky,:);
/dports/graphics/opendx/dx-4.4.4/src/exec/libdx/
H A Dplane.c25 {int t=ikx; ikx=iky; iky=t;}; in shear()
65 if (iy>=iky) continue; in shear()
82 if (iy>=iky) break; in shear()
137 if (iy>=iky) continue; in shear()
262 if (iy>=iky) break; in shear()
438 if (iy>=iky) break; in shear()
619 if (iy>=iky) break; in shear()
795 if (iy>=iky) break; in shear()
971 if (iy>=iky) break; in shear()
2797 if (ti1) {int t=ikx; ikx=iky; iky=t;}; in plane()
[all …]
H A Dplane.Z54 if (iy>=iky) continue; $\
71 if (iy>=iky) break; $\
127 if (iy>=iky) continue; $\
138 while (f<1 && iy<iky) { $\
151 while (iy<iky && ky>0) { $\
283 X(int,ikx,iky);
386 int isx, isy, ikx, iky;
429 iky = CEIL(maxy) - isy + 1;
430 if (ikx==0 || iky==0) return OK;
438 if (ti1) X(int,ikx,iky); /* transpose input? */
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/selci/
H A Dloada.F32 ij = iky(i) + j
33 kl = iky(k) + l
56 ij = iky(i) + j
H A Dloadab.F52 ij = iky(i) + j
53 kl = iky(k) + l
H A Dloadg.F59 ij = iky(i) + j
60 kl = iky(k) + l
H A Dmakehs.F24 ii = iky(i) + i
26 jj = iky(j) + j
/dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/
H A Dloada.F32 ij = iky(i) + j
33 kl = iky(k) + l
56 ij = iky(i) + j
H A Dloadg.F59 ij = iky(i) + j
60 kl = iky(k) + l
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/mrpt/fci/
H A Dfci_intchk.F20 ij = iky(i)+j
31 kl = iky(k)+l
/dports/science/nwchem-data/nwchem-7.0.2-release/src/mrpt/fci/
H A Dfci_intchk.F20 ij = iky(i)+j
31 kl = iky(k)+l
/dports/science/madness/madness-ebb3fd7/src/apps/moldft/fci/
H A Dfci_intchk.F20 ij = iky(i)+j
31 kl = iky(k)+l

1234567