Home
last modified time | relevance | path

Searched refs:nrow (Results 1 – 25 of 6224) sorted by relevance

12345678910>>...249

/dports/math/R-cran-pls/pls/tests/RUnit/common/
H A Drunit.predict.R14 n <- nrow(olx)
16 ntest <- nrow(oltest)
25 checkEquals(nrow(predict(mod)), n - 1)
26 checkEquals(nrow(predict(mod, type = "scores")), n - 1)
35 checkEquals(nrow(predict(mod)), n)
36 checkEquals(nrow(predict(mod, type = "scores")), n)
47 n <- nrow(oly)
55 checkEquals(nrow(predict(mod)), n - 1)
65 checkEquals(nrow(predict(mod)), n)
80 n <- nrow(olx)
[all …]
/dports/math/trlan/trlan-201009/dyn/
H A Dttrl.f9085 nrow = 1000
90 maxmv = nrow
91 lde = nrow
258 Call op(nrow, 1, evec(:, i), lde, wrk, nrow)
259 nm(i) = Dot_product(evec(1:nrow, i), evec(1:nrow, i))
260 rq(i) = Dot_product(evec(1:nrow, i), wrk(1:nrow))
261 wrk(1:nrow) = wrk(1:nrow) - eval(i)*evec(1:nrow,i)
262 res2(i) = Dot_product(wrk(1:nrow), wrk(1:nrow))
334 yout(i*ldy+1:i*ldy+nrow) = xin(i*ldx+1:i*ldx+nrow)
349 Do j = 1, nrow
[all …]
/dports/math/spooles/spooles.2.2/SubMtx/src/
H A DinitRandom.c22 int nrow, in SubMtx_initRandom() argument
65 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandom()
94 nent = nrow*ncol ; in SubMtx_initRandom()
205 ncol = nrow ; in SubMtx_initRandom()
206 nent = nrow ; in SubMtx_initRandom()
220 ncol = nrow ; in SubMtx_initRandom()
248 ncol = nrow ; in SubMtx_initRandom()
312 int nrow, in SubMtx_initRandomUpperTriangle() argument
357 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandomUpperTriangle()
618 int nrow, in SubMtx_initRandomLowerTriangle() argument
[all …]
H A Dinit.c19 int nrow, in SubMtx_nbytesNeeded() argument
85 nint += 2*nrow ; in SubMtx_nbytesNeeded()
212 int nrow, in SubMtx_setFields() argument
229 if ( nrow <= 0 ) { in SubMtx_setFields()
239 if ( nrow <= 0 ) { in SubMtx_setFields()
281 mtx->nrow = ibuffer[4] = nrow ; in SubMtx_setFields()
291 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nent ; in SubMtx_setFields()
300 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nrow ; in SubMtx_setFields()
307 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow ; in SubMtx_setFields()
332 int nrow, in SubMtx_init() argument
[all …]
/dports/math/spooles-mpich/spooles.2.2/SubMtx/src/
H A DinitRandom.c22 int nrow, in SubMtx_initRandom() argument
65 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandom()
94 nent = nrow*ncol ; in SubMtx_initRandom()
205 ncol = nrow ; in SubMtx_initRandom()
206 nent = nrow ; in SubMtx_initRandom()
220 ncol = nrow ; in SubMtx_initRandom()
248 ncol = nrow ; in SubMtx_initRandom()
312 int nrow, in SubMtx_initRandomUpperTriangle() argument
357 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandomUpperTriangle()
618 int nrow, in SubMtx_initRandomLowerTriangle() argument
[all …]
H A Dinit.c19 int nrow, in SubMtx_nbytesNeeded() argument
85 nint += 2*nrow ; in SubMtx_nbytesNeeded()
212 int nrow, in SubMtx_setFields() argument
229 if ( nrow <= 0 ) { in SubMtx_setFields()
239 if ( nrow <= 0 ) { in SubMtx_setFields()
281 mtx->nrow = ibuffer[4] = nrow ; in SubMtx_setFields()
291 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nent ; in SubMtx_setFields()
300 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nrow ; in SubMtx_setFields()
307 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow ; in SubMtx_setFields()
332 int nrow, in SubMtx_init() argument
[all …]
/dports/math/spooles-mpich/spooles.2.2_SHARED/SubMtx/src/
H A DinitRandom.c22 int nrow, in SubMtx_initRandom() argument
65 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandom()
94 nent = nrow*ncol ; in SubMtx_initRandom()
205 ncol = nrow ; in SubMtx_initRandom()
206 nent = nrow ; in SubMtx_initRandom()
220 ncol = nrow ; in SubMtx_initRandom()
248 ncol = nrow ; in SubMtx_initRandom()
312 int nrow, in SubMtx_initRandomUpperTriangle() argument
357 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandomUpperTriangle()
618 int nrow, in SubMtx_initRandomLowerTriangle() argument
[all …]
H A Dinit.c19 int nrow, in SubMtx_nbytesNeeded() argument
85 nint += 2*nrow ; in SubMtx_nbytesNeeded()
212 int nrow, in SubMtx_setFields() argument
229 if ( nrow <= 0 ) { in SubMtx_setFields()
239 if ( nrow <= 0 ) { in SubMtx_setFields()
281 mtx->nrow = ibuffer[4] = nrow ; in SubMtx_setFields()
291 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nent ; in SubMtx_setFields()
300 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nrow ; in SubMtx_setFields()
307 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow ; in SubMtx_setFields()
332 int nrow, in SubMtx_init() argument
[all …]
/dports/math/spooles/spooles.2.2_SHARED/SubMtx/src/
H A DinitRandom.c22 int nrow, in SubMtx_initRandom() argument
65 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandom()
94 nent = nrow*ncol ; in SubMtx_initRandom()
205 ncol = nrow ; in SubMtx_initRandom()
206 nent = nrow ; in SubMtx_initRandom()
220 ncol = nrow ; in SubMtx_initRandom()
248 ncol = nrow ; in SubMtx_initRandom()
312 int nrow, in SubMtx_initRandomUpperTriangle() argument
357 SubMtx_init(mtx, type, mode, rowid, colid, nrow, ncol, nrow*ncol) ; in SubMtx_initRandomUpperTriangle()
618 int nrow, in SubMtx_initRandomLowerTriangle() argument
[all …]
H A Dinit.c19 int nrow, in SubMtx_nbytesNeeded() argument
85 nint += 2*nrow ; in SubMtx_nbytesNeeded()
212 int nrow, in SubMtx_setFields() argument
229 if ( nrow <= 0 ) { in SubMtx_setFields()
239 if ( nrow <= 0 ) { in SubMtx_setFields()
281 mtx->nrow = ibuffer[4] = nrow ; in SubMtx_setFields()
291 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nent ; in SubMtx_setFields()
300 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow + mtx->nrow ; in SubMtx_setFields()
307 nint = 7 + mtx->nrow + mtx->ncol + mtx->nrow ; in SubMtx_setFields()
332 int nrow, in SubMtx_init() argument
[all …]
/dports/math/trlan/trlan-201009/dym/
H A Dttrl.f9083 nrow = 1000
88 maxmv = nrow
89 lde = nrow
231 Call op(nrow, 1, evec(:, i), lde, wrk, nrow)
232 nm(i) = Dot_product(evec(1:nrow, i), evec(1:nrow, i))
233 rq(i) = Dot_product(evec(1:nrow, i), wrk(1:nrow))
234 wrk(1:nrow) = wrk(1:nrow) - eval(i)*evec(1:nrow,i)
235 res2(i) = Dot_product(wrk(1:nrow), wrk(1:nrow))
326 yout(i*ldy+1:i*ldy+nrow) = xin(i*ldx+1:i*ldx+nrow)
340 offd = myid*nrow
[all …]
/dports/math/jags/JAGS-4.3.0/src/modules/bugs/samplers/
H A DConjugateMNormal.cc56 beta_j[nrow * k + i] = -mu[k]; in calBeta()
59 beta_j += nrow_child * nrow; in calBeta()
71 beta_j[nrow * k + i] += mu[k]; in calBeta()
159 int N = nrow * nrow; in update()
195 F77_DGEMV ("N", &nrow, &nrow, &alpha, tau, &nrow, delta, &i1, in update()
250 F77_DSYR("L", &nrow, &alpha, beta_j, &i1, A, &nrow); in update()
260 &nrow_child, beta_j, &nrow, &zero, C, &nrow); in update()
266 F77_DGEMV("N", &nrow, &nrow_child, &d1, C, &nrow, in update()
268 F77_DGEMM("N","T", &nrow, &nrow, &nrow_child, in update()
269 &d1, C, &nrow, beta_j, &nrow, &d1, A, &nrow); in update()
[all …]
/dports/math/jags/JAGS-4.3.0/src/modules/glm/samplers/
H A DScaledWishart.cc61 if (length != nrow*nrow) { in sampleWishart()
74 F77_DPOTRF("L", &nrow, &C[0], &nrow, &info); in sampleWishart()
78 F77_DTRTRI("L", "N", &nrow, &C[0], &nrow, &info); in sampleWishart()
103 F77_DTRMM("R", "U", "N", "N", &nrow, &nrow, &one, &C[0], &nrow, &Z[0], in sampleWishart()
104 &nrow); in sampleWishart()
108 F77_DSYRK("U", "T", &nrow, &nrow, &one, &Z[0], &nrow, &zero, X, &nrow); in sampleWishart()
113 X[j * nrow + i] = X[i * nrow + j]; in sampleWishart()
196 int N = nrow * nrow; in update()
201 double shape = (nrow + tdf)/2; in update()
210 R[i*nrow+i] = 2 * tdf * _a[i]; in update()
[all …]
H A DSampleWishart.cc50 if (df <= nrow) { in sampleWishart()
61 if (length != nrow*nrow) { in sampleWishart()
74 F77_DPOTRF("L", &nrow, &C[0], &nrow, &info); in sampleWishart()
78 F77_DTRTRI("L", "N", &nrow, &C[0], &nrow, &info); in sampleWishart()
90 for (int j = 0; j < nrow; j++) { in sampleWishart()
103 F77_DTRMM("R", "U", "N", "N", &nrow, &nrow, &one, &C[0], &nrow, in sampleWishart()
104 &Z[0], &nrow); in sampleWishart()
108 F77_DSYRK("U", "T", &nrow, &nrow, &one, &Z[0], &nrow, &zero, X, in sampleWishart()
109 &nrow); in sampleWishart()
112 for (int i = 0; i < nrow; ++i) { in sampleWishart()
[all …]
/dports/math/maxima/maxima-5.43.2/share/colnew/lisp/
H A Dfactrb.lisp20 (defun factrb (w ipivot d nrow ncol last$ info)
33 ((> i nrow) nil)
41 ((> i nrow) nil)
57 (if (= k nrow) (go label80))
66 ((> i nrow) nil)
103 ((> i nrow) nil)
119 ((1 nrow) (1 ncol))
132 ((> i nrow) nil)
159 (f2cl-lib:fref w-%data% (nrow nrow) ((1 nrow) (1 ncol)) w-%offset%))
160 (f2cl-lib:fref d-%data% (nrow) ((1 nrow)) d-%offset%))
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/
H A Dthd_dsetrow.c50 if( nrow < 1 ) RETURN(NULL) ; in THD_get_dset_row()
92 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) rr[nrow-1-ii] = bb[kk+kbot] ; in THD_get_dset_row()
101 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) rr[nrow-1-ii] = bb[kk+kbot] ; in THD_get_dset_row()
110 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) rr[nrow-1-ii] = bb[kk+kbot] ; in THD_get_dset_row()
120 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) rr[nrow-1-ii] = bb[kk+kbot] ; in THD_get_dset_row()
156 int ii , nrow , kind ; in mri_get_dset_row() local
225 if( nrow < 1 ) EXRETURN ; in THD_put_dset_row()
266 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) bb[kk+kbot] = rr[nrow-1-ii] ; in THD_put_dset_row()
275 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) bb[kk+kbot] = rr[nrow-1-ii] ; in THD_put_dset_row()
285 for( ii=kk=0 ; ii < nrow ; ii++,kk+=kdel ) bb[kk+kbot] = rr[nrow-1-ii] ; in THD_put_dset_row()
[all …]
/dports/math/R-cran-spdep/spdep/R/
H A Dcellneighbours.R58 mrc2vi <- function(rowcol, nrow, ncol) { argument
65 vi2mrc <- function(i, nrow, ncol) { argument
66 col <- ceiling(i/nrow)
67 tmp <- i %% nrow
68 row <- ifelse(tmp == 0, nrow, tmp)
76 if (!missing(nrow) && !is.numeric(nrow)) x <- nrow
85 nrow <- xdim[2]
88 nrow <- as.integer(nrow)
97 n <- nrow * ncol
104 nrow, ncol, torus), nrow, ncol))
[all …]
/dports/devel/R-cran-tibble/tibble/tests/testthat/
H A Dtest-new.R9 nrow = 3,
33 nrow = 3,
71 new_tibble(list(x = 1), nrow = 1) nameattr
83 new_tibble(list(x = 1), nrow = 1) nameattr
106 new_tibble(1:3, nrow = 1),
110 new_tibble(list(a = 1), nrow = -1), nameattr
114 new_tibble(list(a = 1), nrow = "a"), nameattr
118 new_tibble(list(a = 1), nrow = 1:2), nameattr
126 new_tibble(list(1), nrow = 1), nameattr
144 nrow = 1
[all …]
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/lib/frscript/
H A DxdpGrset.tcl104 set nrow [graphSetSpace $nrow $w]
112 set nrow [graphSetSpace $nrow $w]
119 set nrow [graphSetSpace $nrow $w]
125 set nrow [graphSetSpace $nrow $w]
132 set nrow [graphSetSpace $nrow $w]
136 set nrow [graphSetSpace $nrow $w]
152 set nrow [graphSetSpace $nrow $w]
159 set nrow [graphSetSpace $nrow $w]
166 set nrow [graphSetSpace $nrow $w]
173 set nrow [graphSetSpace $nrow $w]
[all …]
/dports/math/spooles-mpich/spooles.2.2_SHARED/DenseMtx/src/
H A Dinit.c18 int nrow, in DenseMtx_nbytesNeeded() argument
27 if ( nrow < 0 || ncol < 0 ) { in DenseMtx_nbytesNeeded()
33 nint = 7 + nrow + ncol ; in DenseMtx_nbytesNeeded()
35 ndouble = nrow*ncol ; in DenseMtx_nbytesNeeded()
37 ndouble = 2*nrow*ncol ; in DenseMtx_nbytesNeeded()
112 int nrow, in DenseMtx_setFields() argument
142 mtx->nrow = ibuffer[3] = nrow ; in DenseMtx_setFields()
184 int nrow, in DenseMtx_init() argument
228 if ( nrow > 0 ) { in DenseMtx_init()
280 int nrow, in DenseMtx_initWithPointers() argument
[all …]
/dports/math/spooles/spooles.2.2_SHARED/DenseMtx/src/
H A Dinit.c18 int nrow, in DenseMtx_nbytesNeeded() argument
27 if ( nrow < 0 || ncol < 0 ) { in DenseMtx_nbytesNeeded()
33 nint = 7 + nrow + ncol ; in DenseMtx_nbytesNeeded()
35 ndouble = nrow*ncol ; in DenseMtx_nbytesNeeded()
37 ndouble = 2*nrow*ncol ; in DenseMtx_nbytesNeeded()
112 int nrow, in DenseMtx_setFields() argument
142 mtx->nrow = ibuffer[3] = nrow ; in DenseMtx_setFields()
184 int nrow, in DenseMtx_init() argument
228 if ( nrow > 0 ) { in DenseMtx_init()
280 int nrow, in DenseMtx_initWithPointers() argument
[all …]
/dports/math/spooles-mpich/spooles.2.2/DenseMtx/src/
H A Dinit.c18 int nrow, in DenseMtx_nbytesNeeded() argument
27 if ( nrow < 0 || ncol < 0 ) { in DenseMtx_nbytesNeeded()
33 nint = 7 + nrow + ncol ; in DenseMtx_nbytesNeeded()
35 ndouble = nrow*ncol ; in DenseMtx_nbytesNeeded()
37 ndouble = 2*nrow*ncol ; in DenseMtx_nbytesNeeded()
112 int nrow, in DenseMtx_setFields() argument
142 mtx->nrow = ibuffer[3] = nrow ; in DenseMtx_setFields()
184 int nrow, in DenseMtx_init() argument
228 if ( nrow > 0 ) { in DenseMtx_init()
280 int nrow, in DenseMtx_initWithPointers() argument
[all …]
/dports/math/spooles/spooles.2.2/DenseMtx/src/
H A Dinit.c18 int nrow, in DenseMtx_nbytesNeeded() argument
27 if ( nrow < 0 || ncol < 0 ) { in DenseMtx_nbytesNeeded()
33 nint = 7 + nrow + ncol ; in DenseMtx_nbytesNeeded()
35 ndouble = nrow*ncol ; in DenseMtx_nbytesNeeded()
37 ndouble = 2*nrow*ncol ; in DenseMtx_nbytesNeeded()
112 int nrow, in DenseMtx_setFields() argument
142 mtx->nrow = ibuffer[3] = nrow ; in DenseMtx_setFields()
184 int nrow, in DenseMtx_init() argument
228 if ( nrow > 0 ) { in DenseMtx_init()
280 int nrow, in DenseMtx_initWithPointers() argument
[all …]
/dports/math/R-cran-gmp/gmp/src/
H A Dsolve.cc31 if(a.nrow * a.nrow != (int) a.size()) in inverse_q()
34 b.nrow = a.nrow; in inverse_q()
52 b.nrow = a.nrow; in inverse_z()
53 if(a.nrow * a.nrow != (int) a.size()) in inverse_z()
94 if(b.nrow<1) in solve_z()
97 if(a.nrow * a.nrow != (int) a.size()) in solve_z()
100 if(a.nrow != b.nrow) in solve_z()
127 if(a.nrow * a.nrow != (int) a.size()) in solve_q()
131 if(b.nrow<0) in solve_q()
132 b.nrow = b.size(); in solve_q()
[all …]
/dports/science/getdp/getdp-3.4.0-source/contrib/Sparskit/
H A Dblassm.f116 integer ja(*),jb(*),jc(*),ia(nrow+1),ib(nrow+1),ic(nrow+1),
206 integer ja(*),jb(*),jc(*),ia(nrow+1),ib(nrow+1),ic(nrow+1)
257 do 6 i=1, nrow
307 integer ja(*),jb(*),jc(*),ia(nrow+1),ib(nrow+1),ic(nrow+1)
357 do 6 i=1, nrow
418 integer ja(*),jb(*),jc(*),ia(nrow+1),ib(nrow+1),ic(nrow+1)
468 do 6 i=1, nrow
787 integer ja(*),jb(*), ia(nrow+1),ib(nrow+1)
817 do 1 ii=1,nrow
844 integer ja(*),jb(*), ia(nrow+1),ib(nrow+1)
[all …]

12345678910>>...249