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 |