SCM

SCM Repository

[matrix] Diff of /pkg/src/ssclme.c
ViewVC logotype

Diff of /pkg/src/ssclme.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 250, Tue Aug 17 16:50:27 2004 UTC revision 282, Sat Oct 2 15:03:47 2004 UTC
# Line 1584  Line 1584 
1584              for (j = 0; j < nobs; ) {              for (j = 0; j < nobs; ) {
1585                  int nn = 1, lev = ff[j];                  int nn = 1, lev = ff[j];
1586                  /* check for adjacent rows with same factor level */                  /* check for adjacent rows with same factor level */
1587                  while (ff[j + nn] == lev) nn++;                  while ((j + nn) < nobs && ff[j + nn] == lev) nn++;
1588                  F77_CALL(dgemm)("N", "N", &nn, &ione, &nci,                  F77_CALL(dgemm)("N", "N", &nn, &ione, &nci,
1589                                  &one, mm + j, &nobs,                                  &one, mm + j, &nobs,
1590                                  bb + (lev - 1) * nci, &nci,                                  bb + (lev - 1) * nci, &nci,

Legend:
Removed from v.250  
changed lines
  Added in v.282

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge