/dports/devel/ga/ga-5.8/global/examples/scf/ |
H A D | integ.F | 70 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 D | cscf.h | 20 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 D | integ.f | 67 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 D | diagon.f | 42 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 D | cscf.h | 15 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 D | cscf120lin.h | 15 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 D | cscf15.h | 15 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 D | cscf30.h | 15 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 D | cscf60lin.h | 15 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 D | cscf60.h | 15 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 D | cscf240lin.h | 15 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 D | scf.f | 187 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 D | th_autocovariances.m | 139 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 D | UnivariateSpectralDensity.m | 99 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 D | plane.c | 25 {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 D | plane.Z | 54 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 D | loada.F | 32 ij = iky(i) + j 33 kl = iky(k) + l 56 ij = iky(i) + j
|
H A D | loadab.F | 52 ij = iky(i) + j 53 kl = iky(k) + l
|
H A D | loadg.F | 59 ij = iky(i) + j 60 kl = iky(k) + l
|
H A D | makehs.F | 24 ii = iky(i) + i 26 jj = iky(j) + j
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/ |
H A D | loada.F | 32 ij = iky(i) + j 33 kl = iky(k) + l 56 ij = iky(i) + j
|
H A D | loadg.F | 59 ij = iky(i) + j 60 kl = iky(k) + l
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/mrpt/fci/ |
H A D | fci_intchk.F | 20 ij = iky(i)+j 31 kl = iky(k)+l
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/mrpt/fci/ |
H A D | fci_intchk.F | 20 ij = iky(i)+j 31 kl = iky(k)+l
|
/dports/science/madness/madness-ebb3fd7/src/apps/moldft/fci/ |
H A D | fci_intchk.F | 20 ij = iky(i)+j 31 kl = iky(k)+l
|