/dports/math/R-cran-pls/pls/tests/RUnit/common/ |
H A D | runit.predict.R | 14 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 D | ttrl.f90 | 85 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 D | initRandom.c | 22 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 D | init.c | 19 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 D | initRandom.c | 22 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 D | init.c | 19 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 D | initRandom.c | 22 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 D | init.c | 19 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 D | initRandom.c | 22 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 D | init.c | 19 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 D | ttrl.f90 | 83 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 D | ConjugateMNormal.cc | 56 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 D | ScaledWishart.cc | 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() 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 D | SampleWishart.cc | 50 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 D | factrb.lisp | 20 (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 D | thd_dsetrow.c | 50 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 D | cellneighbours.R | 58 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 D | test-new.R | 9 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 D | xdpGrset.tcl | 104 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 D | init.c | 18 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 D | init.c | 18 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 D | init.c | 18 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 D | init.c | 18 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 D | solve.cc | 31 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 D | blassm.f | 116 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 …]
|