Home
last modified time | relevance | path

Searched refs:DiagA (Results 1 – 25 of 27) sorted by relevance

12

/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/
H A Dpstrmv_.c221 char DiagA, TranOp, UploA, Xroc, * one, * tbeta, top, *zero; local
239 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
259 else if( ( !nounit ) && ( DiagA != CUNIT ) )
261 PB_Cwarn( ctxt, __LINE__, "PSTRMV", "Illegal DIAG = %c\n", DiagA );
409 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
428 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
443 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
465 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
H A Dpztrmv_.c226 char DiagA, TranOp, UploA, Xroc, * one, * tbeta, top, *zero; local
244 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
264 else if( ( !nounit ) && ( DiagA != CUNIT ) )
266 PB_Cwarn( ctxt, __LINE__, "PZTRMV", "Illegal DIAG = %c\n", DiagA );
414 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
433 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
448 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
470 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
H A Dpdtrmv_.c221 char DiagA, TranOp, UploA, Xroc, * one, * tbeta, top, *zero; local
239 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
259 else if( ( !nounit ) && ( DiagA != CUNIT ) )
261 PB_Cwarn( ctxt, __LINE__, "PDTRMV", "Illegal DIAG = %c\n", DiagA );
409 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
428 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
443 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
465 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
H A Dpctrmv_.c226 char DiagA, TranOp, UploA, Xroc, * one, * tbeta, top, *zero; local
244 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
264 else if( ( !nounit ) && ( DiagA != CUNIT ) )
266 PB_Cwarn( ctxt, __LINE__, "PCTRMV", "Illegal DIAG = %c\n", DiagA );
414 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
433 PB_Cptrm( type, type, LEFT, UPPER, &TranOp, &DiagA, kb, 1, one,
448 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
470 PB_Cptrm( type, type, LEFT, LOWER, &TranOp, &DiagA, kb, 1, one,
H A Dpcatrmv_.c283 char DiagA, TranOp, UploA, Yroc, * one, top; local
303 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
324 else if( ( !nounit ) && ( DiagA != CUNIT ) )
326 PB_Cwarn( ctxt, __LINE__, "PCATRMV", "Illegal DIAG = %c\n", DiagA );
509 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
529 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
545 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
568 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
H A Dpdatrmv_.c279 char DiagA, TranOp, UploA, Yroc, * one, top; local
299 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
320 else if( ( !nounit ) && ( DiagA != CUNIT ) )
322 PB_Cwarn( ctxt, __LINE__, "PDATRMV", "Illegal DIAG = %c\n", DiagA );
505 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
525 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
541 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
564 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
H A Dpsatrmv_.c279 char DiagA, TranOp, UploA, Yroc, * one, top; local
299 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
320 else if( ( !nounit ) && ( DiagA != CUNIT ) )
322 PB_Cwarn( ctxt, __LINE__, "PSATRMV", "Illegal DIAG = %c\n", DiagA );
505 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
525 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
541 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
564 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
H A Dpzatrmv_.c283 char DiagA, TranOp, UploA, Yroc, * one, top; local
303 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
324 else if( ( !nounit ) && ( DiagA != CUNIT ) )
326 PB_Cwarn( ctxt, __LINE__, "PZATRMV", "Illegal DIAG = %c\n", DiagA );
509 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
529 PB_Cptrm( type, utyp, LEFT, UPPER, &TranOp, &DiagA, kb, 1,
545 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
568 PB_Cptrm( type, utyp, LEFT, LOWER, &TranOp, &DiagA, kb, 1,
H A Dpctrsm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 else if( ( !nounit ) && ( DiagA != CUNIT ) )
286 PB_Cwarn( ctxt, __LINE__, "PCTRSM", "Illegal DIAG = %c\n", DiagA );
497 PB_CptrsmAB( type, &Var, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
548 PB_CptrsmB( type, &DirB, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
H A Dpstrmm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 if( ( !nounit ) && ( DiagA != CUNIT ) )
287 "Illegal DIAG = %c\n", DiagA );
484 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
546 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
H A Dpctrmm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 if( ( !nounit ) && ( DiagA != CUNIT ) )
287 "Illegal DIAG = %c\n", DiagA );
483 PB_CptrmmAB( type, &Var, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
545 PB_CptrmmB( type, &DirB, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
H A Dpztrsm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 else if( ( !nounit ) && ( DiagA != CUNIT ) )
286 PB_Cwarn( ctxt, __LINE__, "PZTRSM", "Illegal DIAG = %c\n", DiagA );
498 PB_CptrsmAB( type, &Var, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
549 PB_CptrsmB( type, &DirB, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
H A Dpdtrmm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 if( ( !nounit ) && ( DiagA != CUNIT ) )
287 "Illegal DIAG = %c\n", DiagA );
484 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
546 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
H A Dpdtrsm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 else if( ( !nounit ) && ( DiagA != CUNIT ) )
286 PB_Cwarn( ctxt, __LINE__, "PDTRSM", "Illegal DIAG = %c\n", DiagA );
498 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
549 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
H A Dpstrsm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 else if( ( !nounit ) && ( DiagA != CUNIT ) )
286 PB_Cwarn( ctxt, __LINE__, "PSTRSM", "Illegal DIAG = %c\n", DiagA );
499 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
550 &DiagA, *M, *N, ((char *)ALPHA), ((char *)A), Ai, Aj, Ad,
H A Dpztrmm_.c242 char DiagA, DirB, OpC, OpR, SideOp, TopC, TopR, TranOp, UploA, local
259 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
284 if( ( !nounit ) && ( DiagA != CUNIT ) )
287 "Illegal DIAG = %c\n", DiagA );
483 PB_CptrmmAB( type, &Var, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
545 PB_CptrmmB( type, &DirB, &SideOp, &UploA, &TranOp, &DiagA, *M, *N,
H A Dpztrsv_.c227 char DiagA, TranOp, UploA, Xroc, btop, ctop, * negone, * one, local
246 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
266 else if( ( !nounit ) && ( DiagA != CUNIT ) )
268 PB_Cwarn( ctxt, __LINE__, "PZTRSV", "Illegal DIAG = %c\n", DiagA );
354 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
471 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
594 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
712 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
H A Dpctrsv_.c227 char DiagA, TranOp, UploA, Xroc, btop, ctop, * negone, * one, local
246 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
266 else if( ( !nounit ) && ( DiagA != CUNIT ) )
268 PB_Cwarn( ctxt, __LINE__, "PCTRSV", "Illegal DIAG = %c\n", DiagA );
354 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
471 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
594 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
712 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
H A Dpdtrsv_.c225 char DiagA, TranOp, UploA, Xroc, btop, ctop, * negone, * one, local
244 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
264 else if( ( !nounit ) && ( DiagA != CUNIT ) )
266 PB_Cwarn( ctxt, __LINE__, "PDTRSV", "Illegal DIAG = %c\n", DiagA );
352 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
469 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
592 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
710 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
H A Dpstrsv_.c225 char DiagA, TranOp, UploA, Xroc, btop, ctop, * negone, * one, local
244 nounit = ( ( DiagA = Mupcase( F2C_CHAR( DIAG )[0] ) ) == CNOUNIT );
264 else if( ( !nounit ) && ( DiagA != CUNIT ) )
266 PB_Cwarn( ctxt, __LINE__, "PSTRSV", "Illegal DIAG = %c\n", DiagA );
352 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
469 PB_Cptrsv( type, XARsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
592 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
710 PB_Cptrsv( type, XACsum, &UploA, &TranOp, &DiagA, kb, Aptr, k, k,
/dports/math/giacxcas/CoCoALib-0.99700/src/AlgebraicCore/
H A DApproxPts2.C200 ConstMatrixView DiagA, in LeastSquares() argument
210 if (DiagA(i,i) != 0) in LeastSquares()
211 x[i] /= DiagA(i,i); in LeastSquares()
388 MatrixView& DiagA, in UpdateMatricesNBM() argument
393 SetEntry(DiagA, k, k, SquareNorm(Rho)); in UpdateMatricesNBM()
452 ConstMatrixView DiagA, in ComputeBorderPoly() argument
461 LeastSquares(x, Rho, A, DiagA, b); in ComputeBorderPoly()
835 MatrixView DiagA(DiagMat(DiagAElems));//DiagA=A*A' in NBM()
836 SetEntry(DiagA, 0, 0, NumPts); in NBM()
852 LeastSquares(Alpha, Rho, A, DiagA, V); in NBM()
[all …]
H A DTmpLDP.C147 const ConstMatrixView& DiagA, in LeastSquares() argument
157 if (DiagA(i,i) != 0) in LeastSquares()
158 x[i] /= DiagA(i,i); in LeastSquares()
321 MatrixView& DiagA, in UpdateMatricesNBM() argument
326 SetEntry(DiagA, k, k, SquareNorm(Rho)); in UpdateMatricesNBM()
1302 MatrixView DiagA(DiagMat(DiagAElems));//DiagA=A*A' in VanishPoly()
1304 SetEntry(DiagA, 0, 0, SquareNorm(V)); in VanishPoly()
1385 UpdateMatricesNBM(QBG, M, A, DiagA, V, Rho); in VanishPoly()
1399 UpdateMatricesNBM(QBG, M, A, DiagA, V, Rho); in VanishPoly()
/dports/math/cocoalib/CoCoALib-0.99712/src/AlgebraicCore/
H A DApproxPts2.C200 ConstMatrixView DiagA, in LeastSquares() argument
210 if (DiagA(i,i) != 0) in LeastSquares()
211 x[i] /= DiagA(i,i); in LeastSquares()
388 MatrixView& DiagA, in UpdateMatricesNBM() argument
393 SetEntry(DiagA, k, k, SquareNorm(Rho)); in UpdateMatricesNBM()
452 ConstMatrixView DiagA, in ComputeBorderPoly() argument
461 LeastSquares(x, Rho, A, DiagA, b); in ComputeBorderPoly()
835 MatrixView DiagA(DiagMat(DiagAElems));//DiagA=A*A' in NBM()
836 SetEntry(DiagA, 0, 0, NumPts); in NBM()
852 LeastSquares(Alpha, Rho, A, DiagA, V); in NBM()
[all …]
H A DTmpLDP.C147 const ConstMatrixView& DiagA, in LeastSquares() argument
157 if (DiagA(i,i) != 0) in LeastSquares()
158 x[i] /= DiagA(i,i); in LeastSquares()
321 MatrixView& DiagA, in UpdateMatricesNBM() argument
326 SetEntry(DiagA, k, k, SquareNorm(Rho)); in UpdateMatricesNBM()
1302 MatrixView DiagA(DiagMat(DiagAElems));//DiagA=A*A' in VanishPoly()
1304 SetEntry(DiagA, 0, 0, SquareNorm(V)); in VanishPoly()
1385 UpdateMatricesNBM(QBG, M, A, DiagA, V, Rho); in VanishPoly()
1399 UpdateMatricesNBM(QBG, M, A, DiagA, V, Rho); in VanishPoly()
/dports/math/R-cran-robustbase/robustbase/R/
H A DglmrobMqle.R266 DiagA <- eval(Epsi2) / (ni*sV^2)* w.x^2* (ni*dmu.deta)^2 functionVar
267 matQ <- crossprod(X, DiagA*X)/nobs - tcrossprod(alpha, alpha)

12