/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/ |
H A D | pztrsv_.c | 352 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 362 if( Akp > 0 ) 370 Akp -= ktmp; 386 if( Akp > 0 && Anq0 > 0 ) 387 zgemv_( TRANS, &Akp, &Anq0, negone, 395 zgemv_( TRANS, &Akp, &Anq0, negone, 480 if( ( Anp0 = Anp - Akp ) > 0 ) 494 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 515 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 617 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pctrsv_.c | 352 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 362 if( Akp > 0 ) 370 Akp -= ktmp; 386 if( Akp > 0 && Anq0 > 0 ) 387 cgemv_( TRANS, &Akp, &Anq0, negone, 395 cgemv_( TRANS, &Akp, &Anq0, negone, 480 if( ( Anp0 = Anp - Akp ) > 0 ) 494 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 515 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 617 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pdtrsv_.c | 350 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 360 if( Akp > 0 ) 368 Akp -= ktmp; 384 if( Akp > 0 && Anq0 > 0 ) 385 dgemv_( TRANS, &Akp, &Anq0, negone, 393 dgemv_( TRANS, &Akp, &Anq0, negone, 478 if( ( Anp0 = Anp - Akp ) > 0 ) 492 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 513 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 615 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pstrsv_.c | 350 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 360 if( Akp > 0 ) 368 Akp -= ktmp; 384 if( Akp > 0 && Anq0 > 0 ) 385 sgemv_( TRANS, &Akp, &Anq0, negone, 393 sgemv_( TRANS, &Akp, &Anq0, negone, 478 if( ( Anp0 = Anp - Akp ) > 0 ) 492 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 513 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 615 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pssyr2_.c | 365 if( Akp > 0 && Anq0 > 0 ) 367 sger_( &Akp, &Anq0, ((char *) ALPHA), XC, &ione, 370 sger_( &Akp, &Anq0, ((char *) ALPHA), YC, &ione, 375 Mptr( XC, Akp, 0, XCld, size ), XCld, 377 Mptr( YC, Akp, 0, YCld, size ), YCld, 390 Mptr( XC, Akp, 0, XCld, size ), XCld, 392 Mptr( YC, Akp, 0, YCld, size ), YCld, 396 Amp0 = Amp - Akp; 401 Mptr( XC, Akp, 0, XCld, size ), &ione, 403 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald ); [all …]
|
H A D | pdsyr2_.c | 365 if( Akp > 0 && Anq0 > 0 ) 367 dger_( &Akp, &Anq0, ((char *) ALPHA), XC, &ione, 370 dger_( &Akp, &Anq0, ((char *) ALPHA), YC, &ione, 375 Mptr( XC, Akp, 0, XCld, size ), XCld, 377 Mptr( YC, Akp, 0, YCld, size ), YCld, 390 Mptr( XC, Akp, 0, XCld, size ), XCld, 392 Mptr( YC, Akp, 0, YCld, size ), YCld, 396 Amp0 = Amp - Akp; 401 Mptr( XC, Akp, 0, XCld, size ), &ione, 403 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald ); [all …]
|
H A D | pstrmv_.c | 400 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 403 if( Akp > 0 && Anq0 > 0 ) 422 if( Akp > 0 && Anq0 > 0 ) 441 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 447 Amp0 = Amp - Akp; 452 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 454 Mptr( YA, Akp, 0, YAld, size ), &ione ); 463 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 469 Amp0 = Amp - Akp; 474 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pztrmv_.c | 405 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 408 if( Akp > 0 && Anq0 > 0 ) 427 if( Akp > 0 && Anq0 > 0 ) 446 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 452 Amp0 = Amp - Akp; 457 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 459 Mptr( YA, Akp, 0, YAld, size ), &ione ); 468 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 474 Amp0 = Amp - Akp; 479 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pdtrmv_.c | 400 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 403 if( Akp > 0 && Anq0 > 0 ) 422 if( Akp > 0 && Anq0 > 0 ) 441 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 447 Amp0 = Amp - Akp; 452 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 454 Mptr( YA, Akp, 0, YAld, size ), &ione ); 463 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 469 Amp0 = Amp - Akp; 474 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pctrmv_.c | 405 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 408 if( Akp > 0 && Anq0 > 0 ) 427 if( Akp > 0 && Anq0 > 0 ) 446 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 452 Amp0 = Amp - Akp; 457 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 459 Mptr( YA, Akp, 0, YAld, size ), &ione ); 468 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 474 Amp0 = Amp - Akp; 479 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, [all …]
|
H A D | pzher2_.c | 374 if( Akp > 0 && Anq0 > 0 ) 376 zgerc_( &Akp, &Anq0, ((char *) ALPHA), XC, &ione, 379 zgerc_( &Akp, &Anq0, ((char *) Calpha), YC, &ione, 384 Mptr( XC, Akp, 0, XCld, size ), XCld, 386 Mptr( YC, Akp, 0, YCld, size ), YCld, 399 Mptr( XC, Akp, 0, XCld, size ), XCld, 401 Mptr( YC, Akp, 0, YCld, size ), YCld, 405 Amp0 = Amp - Akp; 410 Mptr( XC, Akp, 0, XCld, size ), &ione, 412 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald ); [all …]
|
H A D | pcher2_.c | 374 if( Akp > 0 && Anq0 > 0 ) 376 cgerc_( &Akp, &Anq0, ((char *) ALPHA), XC, &ione, 379 cgerc_( &Akp, &Anq0, ((char *) Calpha), YC, &ione, 384 Mptr( XC, Akp, 0, XCld, size ), XCld, 386 Mptr( YC, Akp, 0, YCld, size ), YCld, 399 Mptr( XC, Akp, 0, XCld, size ), XCld, 401 Mptr( YC, Akp, 0, YCld, size ), YCld, 405 Amp0 = Amp - Akp; 410 Mptr( XC, Akp, 0, XCld, size ), &ione, 412 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald ); [all …]
|
H A D | pcatrmv_.c | 502 if( Akp > 0 && Anq0 > 0 ) 504 cagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 523 if( Akp > 0 && Anq0 > 0 ) 525 cagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 531 Mptr( XA, Akp, 0, XAld, size ), XAld, 550 Amp0 = Amp - Akp; 555 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 557 Mptr( YA, Akp, 0, YAld, usiz ), &ione ); 570 Mptr( XA, Akp, 0, XAld, size ), XAld, 573 Amp0 = Amp - Akp; [all …]
|
H A D | pdatrmv_.c | 498 if( Akp > 0 && Anq0 > 0 ) 500 dagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 519 if( Akp > 0 && Anq0 > 0 ) 521 dagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 527 Mptr( XA, Akp, 0, XAld, size ), XAld, 546 Amp0 = Amp - Akp; 551 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 553 Mptr( YA, Akp, 0, YAld, usiz ), &ione ); 566 Mptr( XA, Akp, 0, XAld, size ), XAld, 569 Amp0 = Amp - Akp; [all …]
|
H A D | psatrmv_.c | 498 if( Akp > 0 && Anq0 > 0 ) 500 sagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 519 if( Akp > 0 && Anq0 > 0 ) 521 sagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 527 Mptr( XA, Akp, 0, XAld, size ), XAld, 546 Amp0 = Amp - Akp; 551 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 553 Mptr( YA, Akp, 0, YAld, usiz ), &ione ); 566 Mptr( XA, Akp, 0, XAld, size ), XAld, 569 Amp0 = Amp - Akp; [all …]
|
H A D | pzatrmv_.c | 502 if( Akp > 0 && Anq0 > 0 ) 504 zagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 523 if( Akp > 0 && Anq0 > 0 ) 525 zagemv_( TRANS, &Akp, &Anq0, ((char *) ALPHA), 531 Mptr( XA, Akp, 0, XAld, size ), XAld, 550 Amp0 = Amp - Akp; 555 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, 557 Mptr( YA, Akp, 0, YAld, usiz ), &ione ); 570 Mptr( XA, Akp, 0, XAld, size ), XAld, 573 Amp0 = Amp - Akp; [all …]
|
H A D | pdsyr_.c | 213 int Acol, Ai, Aii, Aimb1, Ainb1, Aj, Ajj, Akp, Akq, Ald, Amb, local 309 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 312 if( Akp > 0 && Anq0 > 0 ) 313 dger_( &Akp, &Anq0, ((char *) ALPHA), XC, &ione, 316 PB_Cpsyr( type, UPPER, kb, 1, ((char *) ALPHA), Mptr( XC, Akp, 0, 326 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 328 PB_Cpsyr( type, LOWER, kb, 1, ((char *) ALPHA), Mptr( XC, Akp, 0, 331 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 332 Amp0 = Amp - Akp; 335 dger_( &Amp0, &Anq0, ((char *) ALPHA), Mptr( XC, Akp, [all …]
|
H A D | pcher_.c | 217 int Acol, Ai, Aii, Aimb1, Ainb1, Aj, Ajj, Akp, Akq, Ald, Amb, local 316 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 319 if( Akp > 0 && Anq0 > 0 ) 320 cgerc_( &Akp, &Anq0, ((char *) Calpha), XC, &ione, 323 PB_Cpsyr( type, UPPER, kb, 1, ((char *) Calpha), Mptr( XC, Akp, 0, 333 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 335 PB_Cpsyr( type, LOWER, kb, 1, ((char *) Calpha), Mptr( XC, Akp, 0, 338 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 339 Amp0 = Amp - Akp; 342 cgerc_( &Amp0, &Anq0, ((char *) Calpha), Mptr( XC, Akp, [all …]
|
H A D | pssyr_.c | 213 int Acol, Ai, Aii, Aimb1, Ainb1, Aj, Ajj, Akp, Akq, Ald, Amb, local 309 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 312 if( Akp > 0 && Anq0 > 0 ) 313 sger_( &Akp, &Anq0, ((char *) ALPHA), XC, &ione, 316 PB_Cpsyr( type, UPPER, kb, 1, ((char *) ALPHA), Mptr( XC, Akp, 0, 326 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 328 PB_Cpsyr( type, LOWER, kb, 1, ((char *) ALPHA), Mptr( XC, Akp, 0, 331 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 332 Amp0 = Amp - Akp; 335 sger_( &Amp0, &Anq0, ((char *) ALPHA), Mptr( XC, Akp, [all …]
|
H A D | pzher_.c | 217 int Acol, Ai, Aii, Aimb1, Ainb1, Aj, Ajj, Akp, Akq, Ald, Amb, local 316 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 319 if( Akp > 0 && Anq0 > 0 ) 320 zgerc_( &Akp, &Anq0, ((char *) Calpha), XC, &ione, 323 PB_Cpsyr( type, UPPER, kb, 1, ((char *) Calpha), Mptr( XC, Akp, 0, 333 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 335 PB_Cpsyr( type, LOWER, kb, 1, ((char *) Calpha), Mptr( XC, Akp, 0, 338 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 339 Amp0 = Amp - Akp; 342 zgerc_( &Amp0, &Anq0, ((char *) Calpha), Mptr( XC, Akp, [all …]
|
H A D | pchemv_.c | 249 int Acol, Ai, Aii, Aimb1, Ainb1, Aj, Ajj, Akp, Akq, Ald, Amb, local 501 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 504 if( Akp > 0 && Anq0 > 0 ) 506 cgemv_( C2F_CHAR( NOTRAN ), &Akp, &Anq0, ((char *)ALPHA), 509 cgemv_( C2F_CHAR( COTRAN ), &Akp, &Anq0, ((char *)ALPHA), 514 Aptr, k, k, Ad0, Mptr( XC, Akp, 0, XCld, size ), XCld, 525 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 528 Aptr, k, k, Ad0, Mptr( XC, Akp, 0, XCld, size ), XCld, 532 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 533 Amp0 = Amp - Akp; [all …]
|
H A D | psasymv_.c | 462 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 465 if( Akp > 0 && Anq0 > 0 ) 467 sagemv_( C2F_CHAR( NOTRAN ), &Akp, &Anq0, ((char *)ALPHA), 470 sagemv_( C2F_CHAR( TRAN ), &Akp, &Anq0, ((char *)ALPHA), 476 Akq, XRld, size ), XRld, Mptr( YC, Akp, 0, YCld, usiz ), 485 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 489 Akq, XRld, size ), XRld, Mptr( YC, Akp, 0, YCld, usiz ), 491 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 492 Amp0 = Amp - Akp; 497 Mptr( Aptr, Akp, Akq, Ald, size ), &Ald, Mptr( XR, 0, [all …]
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_CptrsmB.c | 448 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 459 if( Akp > 0 ) 467 Akp -= ktmp; 486 if( ( Akp > 0 ) && ( Anq0 > 0 ) ) 516 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 528 if( ( Anp0 = Anp - Akp ) > 0 ) 569 &WBRld, talph0, Mptr( WBC, Akp, 0, WBCld, 629 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 681 size ), &WBCld, Mptr( Aptr, Akp, Akq, Ald, 742 size ), &WBCld, Mptr( Aptr, Akp, 0, Ald, [all …]
|
H A D | PB_Cplapad.c | 299 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 302 if( ( Amp0 = Amp - Akp ) > 0 ) 304 ALPHA, ALPHA, Mptr( Aptr, Akp, Akq, Ald, size ), &Ald ); 318 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 321 if( Akp > 0 ) 322 pad( C2F_CHAR( ALL ), C2F_CHAR( NOCONJG ), &Akp, &Anq0, &izero, 341 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 344 if( Akp > 0 ) 349 Akp = PB_Cnumroc( k+kb, 0, Aimb1, Amb, myrow, Arow, nprow ); 350 if( ( Amp0 = Amp - Akp ) > 0 ) [all …]
|
H A D | PB_Cplascal.c | 319 Akp = PB_Cnumroc( ktmp, 0, Aimb1, Amb, myrow, Arow, nprow ); 322 if( ( Amp0 = Amp - Akp ) > 0 ) 324 Akp, Akq, Ald, size ), &Ald ); 338 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 341 if( Akp > 0 ) 342 scal( C2F_CHAR( ALL ), &Akp, &Anq0, &izero, ALPHA, Mptr( Aptr, 361 Akp = PB_Cnumroc( k, 0, Aimb1, Amb, myrow, Arow, nprow ); 364 if( Akp > 0 ) 368 Akp = PB_Cnumroc( k+kb, 0, Aimb1, Amb, myrow, Arow, nprow ); 369 if( ( Amp0 = Amp - Akp ) > 0 ) [all …]
|