Changeset aad4ca4 in git for Singular/svd/blas.h
- Timestamp:
- Dec 6, 2017, 7:05:25 PM (6 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 06b3e84d21e073249ada6d3b863bb3b8ce91d3be
- Parents:
- 3803c6a39fad57f9a8e12942b2928c215504e027
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/svd/blas.h
r3803c6 raad4ca4 400 400 if( !trans ) 401 401 { 402 402 403 403 // 404 404 // y := alpha*A*x + beta*y; … … 410 410 ap::ap_error::make_assertion(j2-j1==ix2-ix1); 411 411 ap::ap_error::make_assertion(i2-i1==iy2-iy1); 412 412 413 413 // 414 414 // beta*y … … 425 425 ap::vmul(y.getvector(iy1, iy2), beta); 426 426 } 427 427 428 428 // 429 429 // alpha*A*x … … 437 437 else 438 438 { 439 439 440 440 // 441 441 // y := alpha*A'*x + beta*y; … … 447 447 ap::ap_error::make_assertion(i2-i1==ix2-ix1); 448 448 ap::ap_error::make_assertion(j2-j1==iy2-iy1); 449 449 450 450 // 451 451 // beta*y … … 462 462 ap::vmul(y.getvector(iy1, iy2), beta); 463 463 } 464 464 465 465 // 466 466 // alpha*A'*x … … 538 538 539 539 540 540 541 541 // 542 542 // Setup … … 569 569 crows = arows; 570 570 ccols = bcols; 571 571 572 572 // 573 573 // Test WORK … … 578 578 work(1) = 0; 579 579 work(i) = 0; 580 580 581 581 // 582 582 // Prepare C … … 599 599 } 600 600 } 601 601 602 602 // 603 603 // A*B … … 616 616 return; 617 617 } 618 618 619 619 // 620 620 // A*B' … … 647 647 } 648 648 } 649 649 650 650 // 651 651 // A'*B … … 664 664 return; 665 665 } 666 666 667 667 // 668 668 // A'*B'
Note: See TracChangeset
for help on using the changeset viewer.