/dports/math/R-cran-robustbase/robustbase/src/ |
H A D | rffastmcd.f | 170 double precision initcov(nvar*nvar), initmean(nvar) 183 double precision med(nvar), mad(nvar), sd(nvar), means(nvar), 184 * bmeans(nvar), w(nvar), fv1(nvar), fv2(nvar) 187 * sscp1((nvar+1)*(nvar+1)), corr1(nvar*nvar), 188 * cova1(nvar*nvar), cinv1(nvar*nvar), 189 * cova2(nvar*nvar), cinv2(nvar*nvar), 190 * z(nvar*nvar) 294 nv_2 = nvar*nvar 1516 double precision sscp(nvar+1,nvar+1), cova(nvar,nvar) 1551 double precision a(nvar,nvar), b(nvar,nvar), sd(nvar) [all …]
|
/dports/science/tinker/tinker/source/ |
H A D | gda.f | 285 nvar = nvar + 1 287 nvar = nvar + 1 289 nvar = nvar + 1 293 nvar = nvar + 1 315 nvar = nvar + 1 317 nvar = nvar + 1 319 nvar = nvar + 1 342 nvar = nvar + 1 379 nvar = nvar + 1 381 nvar = nvar + 1 [all …]
|
H A D | minimize.f | 96 nvar = nvar + 1 111 nvar = nvar + 1 113 nvar = nvar + 1 115 nvar = nvar + 1 128 nvar = nvar + 1 130 nvar = nvar + 1 132 nvar = nvar + 1 253 nvar = nvar + 1 255 nvar = nvar + 1 257 nvar = nvar + 1 [all …]
|
H A D | optimize.f | 95 nvar = nvar + 1 110 nvar = nvar + 1 112 nvar = nvar + 1 114 nvar = nvar + 1 127 nvar = nvar + 1 129 nvar = nvar + 1 131 nvar = nvar + 1 250 nvar = nvar + 1 252 nvar = nvar + 1 254 nvar = nvar + 1 [all …]
|
H A D | newton.f | 132 nvar = nvar + 1 134 nvar = nvar + 1 136 nvar = nvar + 1 150 nvar = nvar + 1 152 nvar = nvar + 1 154 nvar = nvar + 1 259 nvar = nvar + 1 261 nvar = nvar + 1 263 nvar = nvar + 1 281 nvar = nvar + 1 [all …]
|
H A D | sniffer.f | 144 nvar = nvar + 1 161 nvar = nvar + 1 163 nvar = nvar + 1 165 nvar = nvar + 1 241 nvar = nvar + 1 438 nvar = nvar + 1 440 nvar = nvar + 1 442 nvar = nvar + 1 460 nvar = nvar + 1 462 nvar = nvar + 1 [all …]
|
H A D | critical.f | 107 nvar = nvar + 1 109 nvar = nvar + 1 111 nvar = nvar + 1 148 nvar = nvar + 1 150 nvar = nvar + 1 152 nvar = nvar + 1 259 nvar = nvar + 1 261 nvar = nvar + 1 263 nvar = nvar + 1 281 nvar = nvar + 1 [all …]
|
H A D | simplex.f | 37 integer i,j,k,nvar local 105 allocate (y(nvar+1)) 106 allocate (p(nvar,nvar+1)) 111 do i = 1, nvar 119 do j = 1, nvar 122 do i = 1, nvar 132 ilo = nvar + 1 134 do i = 1, nvar 144 ihi = nvar + 1 309 do i = 1, nvar [all …]
|
H A D | monte.f | 574 nvar = nvar + 1 576 nvar = nvar + 1 578 nvar = nvar + 1 592 nvar = nvar + 1 594 nvar = nvar + 1 596 nvar = nvar + 1 639 nvar = nvar + 1 641 nvar = nvar + 1 643 nvar = nvar + 1 661 nvar = nvar + 1 [all …]
|
H A D | pssrigid.f | 125 if (neigen .gt. nvar) neigen = nvar 180 nvar = nvar + 1 195 nvar = nvar + 1 265 nvar = 0 268 nvar = nvar + 1 288 nvar = nvar + 1 478 call diagq (nvar,nvar,matrix,eigen,vects) 546 nvar = nvar + 1 560 nvar = nvar + 1 625 nvar = nvar + 1 [all …]
|
H A D | scan.f | 276 nvar = nvar + 1 278 nvar = nvar + 1 280 nvar = nvar + 1 297 nvar = nvar + 1 299 nvar = nvar + 1 301 nvar = nvar + 1 342 nvar = nvar + 1 344 nvar = nvar + 1 346 nvar = nvar + 1 629 nvar = nvar + 1 [all …]
|
H A D | diffeq.f | 75 do i = 1, nvar 230 do i = 1, nvar 354 do i = 1, nvar 375 do i = 1, nvar 422 do j = 1, nvar 475 integer i,nvar local 486 nvar = 0 488 nvar = nvar + 1 490 nvar = nvar + 1 492 nvar = nvar + 1 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/optim/mepgs/ |
H A D | mepgs_drv.F | 686 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 688 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 690 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 694 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 1840 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 1842 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 1844 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 1848 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 2618 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 2643 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/optim/mepgs/ |
H A D | mepgs_drv.F | 680 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 682 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 684 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 688 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 1834 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 1836 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 1838 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 1842 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 2608 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 2633 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) [all …]
|
/dports/science/tinker/tinker/other/ |
H A D | agda.f | 296 nvar = nvar + 1 319 nvar = nvar + 1 347 nvar = nvar + 1 349 nvar = nvar + 1 351 nvar = nvar + 1 366 nvar = nvar + 1 369 nvar = nvar + 1 372 nvar = nvar + 1 403 nvar = nvar + 1 405 nvar = nvar + 1 [all …]
|
H A D | qrsolver.f | 29 integer i,j,k,nvar local 42 allocate (c(nvar)) 43 allocate (d(nvar)) 44 allocate (af(nvar,nvar)) 49 do i = 1, nvar 50 do j = i, nvar 60 do k = 1, nvar-1 62 do i = k, nvar 93 d(nvar) = af(nvar,nvar) 104 do j = 1, nvar-1 [all …]
|
/dports/science/tinker/tinker/utility/ |
H A D | trudge.f | 93 nvar = 0 96 nvar = nvar + 1 98 nvar = nvar + 1 100 nvar = nvar + 1 123 nvar = 0 126 nvar = nvar + 1 128 nvar = nvar + 1 130 nvar = nvar + 1 207 nvar = nvar + 1 209 nvar = nvar + 1 [all …]
|
/dports/math/R-cran-psych/psych/R/ |
H A D | sim.item.R | 2 function (nvar = 72 ,nsub = 500, argument 13 {radia <- seq(0,2*pi,len=nvar+1) 15 …} else rad <- c(rep(0,nvar/4),rep(pi/2,nvar/4),rep(pi,nvar/4),rep(3*pi/2,nvar/4)) #simple struc… 59 if(is.null(d)) {d <- seq(low,high,(high-low)/(nvar-1))} else {if(length(d)==1) d <- rep(d,nvar)} 60 if(is.null(a)) {a <- rep(1,nvar)} 76 if(is.null(d)) {d <- seq(low,high,(high-low)/(nvar-1))} else {if(length(d)==1) d <- rep(d,nvar)} 77 if(is.null(a)) {a <- rep(1,nvar)} 97 if(is.null(d)) {d <- seq(low,high,(high-low)/(nvar-1))} else {if(length(d)==1) d <- rep(d,nvar)} 98 if(is.null(a)) {a <- rep(1,nvar)} 113 if(is.null(d)) {d <- seq(low,high,(high-low)/(nvar-1))} else {if(length(d)==1) d <- rep(d,nvar)} [all …]
|
/dports/science/dynare/dynare-4.6.4/contrib/ms-sbvar/TZcode/MatlabFiles/ |
H A D | impulseo.m | 6 % Y(T*nvar) = XB + U, X: T*k, B: k*nvar. The matrix 27 nvar = nn(1); variable 35 imf = zeros(imstep,nvar*nvar); 39 M = zeros(nvar*(lags+1),nvar); 51 Mtem = zeros(nvar,nvar); 53 Mtem = Ah(:,nvar*(k-1)+1:nvar*k)*M(nvar*(t-k)+1:nvar*(t-k+1),:) + Mtem; 56 M(nvar*t+1:nvar*(t+1),:) = Mtem; 65 M(1:nvar*lags,:) = M(nvar+1:nvar*(lags+1),:); 66 Mtem = zeros(nvar,nvar); 68 Mtem = Ah(:,nvar*(k-1)+1:nvar*k)*M(nvar*(lags-k)+1:nvar*(lags-k+1),:) + Mtem; [all …]
|
H A D | fn_impulse.m | 37 nvar = nn(1); variable 42 % Row: nvar equations 45 imf = zeros(imstep,nvar*nvar); 48 M = zeros(nvar*(lags+1),nvar); 59 Mtem = Ah(:,1:nvar*t)*M(1:nvar*t,:); 60 % Row: nvar equations, each for the nvar variables at tth lag 61 M(nvar+1:nvar*(t+1),:)=M(1:nvar*t,:); 69 Mtem = Ah(:,1:nvar*lags)*M(1:nvar*lags,:); 70 % Row: nvar equations, each for the nvar variables at tth lag 71 M(nvar+1:nvar*(t+1),:) = M(1:nvar*t,:); [all …]
|
H A D | dataxy.m | 25 % xty: X'Y: k-by-nvar 26 % yty: Y'Y: nvar-by-nvar 32 % Bh: ncoef-by-nvar estimated reduced-form parameter; column: nvar; 81 const(1:nvar) = zeros(nvar,1); 92 for k=1:nvar 101 phi(ndobs+1:fss,nvar*(k-1)+1:nvar*k) = xdgel(sb-k:nSample-k,:); 109 for k=1:nvar 119 phi(nvar+1,:) = mu(6)*phi(nvar+1,:); 120 y(nvar+1,:) = mu(6)*y(nvar+1,:); 140 phi(:,ncoef-nexo+1:ncoef-1) = z(lags+1:end,nvar+1:nvar+nexo-1); [all …]
|
H A D | zimpulse.m | 9 % Y(T*nvar) = XB + U, X: T*k, B: k*nvar. The matrix 33 nvar = nn(1); variable 41 imf = zeros(imstep,nvar*nvar); 44 M = zeros(nvar*(lags+1),nvar); 46 M(1:nvar,:) = swish; 55 Mtem = Ah(:,1:nvar*t)*M(1:nvar*t,:); 56 % Row: nvar equations, each for the nvar variables at tth lag 57 M(nvar+1:nvar*(t+1),:)=M(1:nvar*t,:); 65 Mtem = Ah(:,1:nvar*lags)*M(1:nvar*lags,:); 66 % Row: nvar equations, each for the nvar variables at tth lag [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/optim/tropt/ |
H A D | tropt_drv.F | 437 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 528 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 530 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 532 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 536 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 1931 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 1950 call dgemm('n', 'n', nvar, nvar, nvar, 1d0, dbl_mb(k_pmat), nvar, 1952 call dgemm('n', 'n', nvar, nvar, nvar, 1d0, dbl_mb(k_work), nvar, 1956 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 1966 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/optim/tropt/ |
H A D | tropt_drv.F | 437 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 528 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 530 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 532 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 536 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 1926 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 1945 call dgemm('n', 'n', nvar, nvar, nvar, 1d0, dbl_mb(k_pmat), nvar, 1947 call dgemm('n', 'n', nvar, nvar, nvar, 1d0, dbl_mb(k_work), nvar, 1951 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 1961 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/driver/ |
H A D | opt_drv.F | 402 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 520 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 522 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, 524 call dgemm('n','t',nvar,nvar,nvar,1d0,dbl_mb(k_t),nvar, 528 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 2898 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 2923 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 2933 call output(hess, 1, nvar, 1, nvar, nvar, nvar, 1) 4936 call output(dbl_mb(k_hess),1,nvar,1,nvar,nvar,nvar,1) 4938 call dgemm('n','n',nvar,nvar,nvar,1d0,dbl_mb(k_c),nvar, [all …]
|