/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/ |
H A D | pstrmv_.c | 221 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 D | pztrmv_.c | 226 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 D | pdtrmv_.c | 221 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 D | pctrmv_.c | 226 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 D | pcatrmv_.c | 283 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 D | pdatrmv_.c | 279 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 D | psatrmv_.c | 279 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 D | pzatrmv_.c | 283 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 D | pctrsm_.c | 242 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 D | pstrmm_.c | 242 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 D | pctrmm_.c | 242 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 D | pztrsm_.c | 242 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 D | pdtrmm_.c | 242 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 D | pdtrsm_.c | 242 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 D | pstrsm_.c | 242 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 D | pztrmm_.c | 242 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 D | pztrsv_.c | 227 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 D | pctrsv_.c | 227 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 D | pdtrsv_.c | 225 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 D | pstrsv_.c | 225 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 D | ApproxPts2.C | 200 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 D | TmpLDP.C | 147 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 D | ApproxPts2.C | 200 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 D | TmpLDP.C | 147 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 D | glmrobMqle.R | 266 DiagA <- eval(Epsi2) / (ni*sV^2)* w.x^2* (ni*dmu.deta)^2 functionVar 267 matQ <- crossprod(X, DiagA*X)/nobs - tcrossprod(alpha, alpha)
|