/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/ |
H A D | psasum_.c | 183 int Xd[DLEN_]; local 188 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 193 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 215 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 220 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 228 *ASUM = ABS( X[Xii+Xjj*Xd[LLD_]] ); 232 else if( *INCX == Xd[M_] ) 242 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 245 Xld = Xd[LLD_]; 275 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pdasum_.c | 183 int Xd[DLEN_]; local 188 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 193 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 215 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 220 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 228 *ASUM = ABS( X[Xii+Xjj*Xd[LLD_]] ); 232 else if( *INCX == Xd[M_] ) 242 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 245 Xld = Xd[LLD_]; 275 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pdscal_.c | 163 int Xd[DLEN_]; local 168 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 173 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 186 Cblacs_gridinfo( Xd[CTXT_], &nprow, &npcol, &myrow, &mycol ); 191 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, &Xrow, 196 if( *INCX == Xd[M_] ) 207 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 210 Xld = Xd[LLD_]; 236 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); 242 ((char *)( X+(Xii+Xjj*Xd[LLD_]) )), INCX ); [all …]
|
H A D | psscal_.c | 163 int Xd[DLEN_]; local 168 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 173 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 186 Cblacs_gridinfo( Xd[CTXT_], &nprow, &npcol, &myrow, &mycol ); 191 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, &Xrow, 196 if( *INCX == Xd[M_] ) 207 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 210 Xld = Xd[LLD_]; 236 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); 242 ((char *)( X+(Xii+Xjj*Xd[LLD_]) )), INCX ); [all …]
|
H A D | pcsscal_.c | 165 int Xd[DLEN_]; local 170 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 175 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 188 Cblacs_gridinfo( Xd[CTXT_], &nprow, &npcol, &myrow, &mycol ); 193 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, &Xrow, 198 if( *INCX == Xd[M_] ) 208 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 211 Xld = Xd[LLD_]; 237 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); 244 Xd[LLD_], type->size ), INCX ); [all …]
|
H A D | pzdscal_.c | 165 int Xd[DLEN_]; local 170 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 175 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 188 Cblacs_gridinfo( Xd[CTXT_], &nprow, &npcol, &myrow, &mycol ); 193 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, &Xrow, 198 if( *INCX == Xd[M_] ) 208 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 211 Xld = Xd[LLD_]; 237 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); 244 Xd[LLD_], type->size ), INCX ); [all …]
|
H A D | pscasum_.c | 184 int Xd[DLEN_]; local 189 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 194 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 216 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 221 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 230 Xptr = Mptr( ((char *) X), Xii, Xjj, Xd[LLD_], type->size ); 236 else if( *INCX == Xd[M_] ) 246 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 249 Xld = Xd[LLD_]; 280 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pdzasum_.c | 184 int Xd[DLEN_]; local 189 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 194 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 216 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 221 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 230 Xptr = Mptr( ((char *) X), Xii, Xjj, Xd[LLD_], type->size ); 236 else if( *INCX == Xd[M_] ) 246 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 249 Xld = Xd[LLD_]; 280 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pcscal_.c | 164 int Xd[DLEN_]; local 169 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 174 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 188 Cblacs_gridinfo( Xd[CTXT_], &nprow, &npcol, &myrow, &mycol ); 193 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, &Xrow, 198 if( *INCX == Xd[M_] ) 209 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 212 Xld = Xd[LLD_]; 239 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); 246 Xjj, Xd[LLD_], type->size ), INCX ); [all …]
|
H A D | pzscal_.c | 164 int Xd[DLEN_]; local 169 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 174 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 187 Cblacs_gridinfo( Xd[CTXT_], &nprow, &npcol, &myrow, &mycol ); 192 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, &Xrow, 197 if( *INCX == Xd[M_] ) 208 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 211 Xld = Xd[LLD_]; 238 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); 245 Xjj, Xd[LLD_], type->size ), INCX ); [all …]
|
H A D | pdamax_.c | 190 int Xd[DLEN_]; local 196 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 240 else if( *INCX == Xd[M_] ) 254 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 261 Xld = Xd[LLD_]; 334 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 344 Xld = Xd[LLD_]; 413 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; 420 Xld = Xd[LLD_]; 493 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; [all …]
|
H A D | psamax_.c | 190 int Xd[DLEN_]; local 196 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 240 else if( *INCX == Xd[M_] ) 254 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 261 Xld = Xd[LLD_]; 334 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 344 Xld = Xd[LLD_]; 413 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; 420 Xld = Xd[LLD_]; 493 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; [all …]
|
H A D | pdnrm2_.c | 182 int Xd[DLEN_]; local 188 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 193 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 215 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 220 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 227 *NORM2 = ABS( X[Xii+Xjj*Xd[LLD_]] ); 230 else if( *INCX == Xd[M_] ) 245 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 248 Xld = Xd[LLD_]; 366 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | psnrm2_.c | 182 int Xd[DLEN_]; local 188 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 193 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 215 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 220 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 227 *NORM2 = ABS( X[Xii+Xjj*Xd[LLD_]] ); 230 else if( *INCX == Xd[M_] ) 245 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 248 Xld = Xd[LLD_]; 366 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pcamax_.c | 192 int Xd[DLEN_]; local 198 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 246 else if( *INCX == Xd[M_] ) 260 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 267 Xld = Xd[LLD_]; 357 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 367 Xld = Xd[LLD_]; 443 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; 450 Xld = Xd[LLD_]; 540 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; [all …]
|
H A D | pzamax_.c | 192 int Xd[DLEN_]; local 198 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 246 else if( *INCX == Xd[M_] ) 260 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 267 Xld = Xd[LLD_]; 357 Xinb = Xd[INB_ ]; Xnb = Xd[NB_ ]; Xsrc = Xd[CSRC_]; 367 Xld = Xd[LLD_]; 443 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; 450 Xld = Xd[LLD_]; 540 Ximb = Xd[IMB_ ]; Xmb = Xd[MB_ ]; Xsrc = Xd[RSRC_]; [all …]
|
H A D | pdznrm2_.c | 183 int Xd[DLEN_]; local 189 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 194 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 216 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 221 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 232 Xptr = Mptr( ((char *) X), Xii, Xjj, Xd[LLD_], type->size ); 272 else if( *INCX == Xd[M_] ) 287 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 290 Xld = Xd[LLD_]; 426 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pscnrm2_.c | 183 int Xd[DLEN_]; local 189 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 194 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 216 PB_Cinfog2l( Xi, Xj, Xd, nprow, npcol, myrow, mycol, &Xii, &Xjj, 221 if( ( *N == 1 ) && ( *INCX == 1 ) && ( Xd[M_] == 1 ) ) 232 Xptr = Mptr( ((char *) X), Xii, Xjj, Xd[LLD_], type->size ); 272 else if( *INCX == Xd[M_] ) 287 Xnq = PB_Cnumroc( *N, Xj, Xd[INB_], Xd[NB_], mycol, Xd[CSRC_], npcol ); 290 Xld = Xd[LLD_]; 426 Xnp = PB_Cnumroc( *N, Xi, Xd[IMB_], Xd[MB_], myrow, Xd[RSRC_], nprow ); [all …]
|
H A D | pscopy_.c | 185 int Xd[DLEN_], Yd[DLEN_]; local 190 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 196 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 199 PB_Cchkvec( ctxt, "PSCOPY", "X", *N, 1, Xi, Xj, Xd, *INCX, 5, &info ); 215 if( *INCX == Xd[M_] ) 218 Xj, Xd, ROW, type->zero, ((char *) Y), Yi, Yj, Yd, 224 Xj, Xd, COLUMN, type->zero, ((char *) Y), Yi, Yj, Yd,
|
H A D | pzcopy_.c | 185 int Xd[DLEN_], Yd[DLEN_]; local 190 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 196 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 199 PB_Cchkvec( ctxt, "PZCOPY", "X", *N, 1, Xi, Xj, Xd, *INCX, 5, &info ); 215 if( *INCX == Xd[M_] ) 218 Xj, Xd, ROW, type->zero, ((char *) Y), Yi, Yj, Yd, 224 Xj, Xd, COLUMN, type->zero, ((char *) Y), Yi, Yj, Yd,
|
H A D | picopy_.c | 185 int Xd[DLEN_], Yd[DLEN_]; local 190 PB_CargFtoC( *IX, *JX, DESCX, &Xi, &Xj, Xd ); 196 Cblacs_gridinfo( ( ctxt = Xd[CTXT_] ), &nprow, &npcol, &myrow, &mycol ); 199 PB_Cchkvec( ctxt, "PICOPY", "X", *N, 1, Xi, Xj, Xd, *INCX, 5, &info ); 215 if( *INCX == Xd[M_] ) 218 Xj, Xd, ROW, type->zero, ((char *) Y), Yi, Yj, Yd, 224 Xj, Xd, COLUMN, type->zero, ((char *) Y), Yi, Yj, Yd,
|
/dports/science/R-cran-bayesm/bayesm/R/ |
H A D | createX.R | 2 function(p,na,nd,Xa,Xd,INT=TRUE,DIFF=FALSE,base=p) argument 38 if(missing(Xd)) pandterm("requires Xd arg (use Xd=NULL if none)") 39 if(is.null(Xa) && is.null(Xd)) pandterm("both Xa and Xd NULL -- requires one non-null") 42 if(!is.null(nd) && !is.null(Xd)) 43 {if(ncol(Xd) != nd) pandterm(paste("ncol(Xd) ne nd, ncol(Xd)=",ncol(Xd)))} 44 if(!is.null(Xa) && !is.null(Xd)) 45 {if(nrow(Xa) != nrow(Xd)) 46 {pandterm(paste("nrow(Xa) ne nrow(Xd),nrow(Xa)= ",nrow(Xa)," nrow(Xd)= ",nrow(Xd)))}} 47 if(is.null(Xa)) {n=nrow(Xd)} else {n=nrow(Xa)} 49 if(INT) {Xd=cbind(c(rep(1,n)),Xd)} [all …]
|
/dports/science/R-cran-bayesm/bayesm/man/ |
H A D | createX.Rd | 16 \usage{createX(p, na, nd, Xa, Xd, INT = TRUE, DIFF = FALSE, base=p)} 23 \item{Xd}{ \eqn{n x nd} matrix of non-alternative specific vars } 27 …ote: \code{na}, \code{nd}, \code{Xa}, \code{Xd} can be \code{NULL} to indicate lack of \code{Xa} o… 45 Xd = matrix(c(-1,-2,-3), ncol=1) 46 createX(p=p, na=na, nd=nd, Xa=Xa, Xd=Xd) 47 createX(p=p, na=na, nd=nd, Xa=Xa, Xd=Xd, base=1) 48 createX(p=p, na=na, nd=nd, Xa=Xa, Xd=Xd, DIFF=TRUE) 49 createX(p=p, na=na, nd=nd, Xa=Xa, Xd=Xd, DIFF=TRUE, base=2) 50 createX(p=p, na=na, nd=NULL, Xa=Xa, Xd=NULL) 51 createX(p=p, na=NULL, nd=nd, Xa=NULL, Xd=Xd)
|
/dports/science/py-nilearn/nilearn-0.8.1/nilearn/glm/tests/ |
H A D | test_regression.py | 65 Xd = X.copy() 66 Xd[:, 0] = Xd[:, 1] + Xd[:, 2] 67 model = OLSModel(design=Xd) 73 Xd = X.copy() 74 Xd[:, 0] = Xd[:, 1] + Xd[:, 2] 75 model = ARModel(design=Xd, rho=0.9)
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/tsai-30b3/ |
H A D | cal_tran.c | 91 *Xd, in undistorted_to_distorted_sensor_coord() 110 *Xd = Xu; 152 *Xd = Xu * lambda; 159 double Xd, in distorted_to_undistorted_sensor_coord() 168 *Xu = Xd * distortion_factor; 182 Xd, local 193 *Xfd = Xd * cp.sx / cp.dpx + cp.Cx; 205 double Xd, local 239 Xd, local 255 *Xf = Xd * cp.sx / cp.dpx + cp.Cx; [all …]
|