Home
last modified time | relevance | path

Searched refs:Xd (Results 1 – 25 of 1012) sorted by relevance

12345678910>>...41

/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/
H A Dpsasum_.c183 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 Dpdasum_.c183 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 Dpdscal_.c163 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 Dpsscal_.c163 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 Dpcsscal_.c165 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 Dpzdscal_.c165 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 Dpscasum_.c184 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 Dpdzasum_.c184 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 Dpcscal_.c164 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 Dpzscal_.c164 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 Dpdamax_.c190 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 Dpsamax_.c190 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 Dpdnrm2_.c182 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 Dpsnrm2_.c182 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 Dpcamax_.c192 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 Dpzamax_.c192 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 Dpdznrm2_.c183 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 Dpscnrm2_.c183 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 Dpscopy_.c185 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 Dpzcopy_.c185 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 Dpicopy_.c185 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 DcreateX.R2 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 DcreateX.Rd16 \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 Dtest_regression.py65 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 Dcal_tran.c91 *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 …]

12345678910>>...41