SCM Repository
Diff of /pkg/src/Csparse.c
Parent Directory
| 
Revision Log
| 
Patch
| revision 2137, Mon Mar 17 22:21:24 2008 UTC | revision 2144, Tue Mar 18 23:08:12 2008 UTC | |
|---|---|---|
| # | Line 543 | Line 543 |
| 543 | ||
| 544 | case diag_backpermuted: | case diag_backpermuted: |
| 545 | for_DIAG(v[i] = x_x[i_from]); | for_DIAG(v[i] = x_x[i_from]); |
| /* now back_permute : */ | ||
| 546 | ||
| 547 | error(_("resultKind = 'diagBack' (back-permuted) is not yet implemented")); | error(_("resultKind = 'diagBack' (back-permuted) is not yet implemented")); |
| 548 | /* now back_permute : */ | |
| 549 | for(i = 0; i < n; i++) { | |
| 550 | double tmp = v[i]; v[i] = v[perm[i]]; v[perm[i]] = tmp; | |
| 551 | /*^^^^ FIXME[Generalize] */ | |
| 552 | } | |
| 553 | break; | break; |
| 554 | ||
| 555 | default: /* -1 from above */ | default: /* -1 from above */ |
|
||||||||
| R-Forge@R-project.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
