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 237, Thu Jul 1 03:20:33 2004 UTC revision 238, Fri Jul 2 14:36:08 2004 UTC
# Line 1356  Line 1356 
1356              REAL(ans)[j * ncoef + i] = (REAL(ans)[j * ncoef + i] - REAL(gradient)[i])/              REAL(ans)[j * ncoef + i] = (REAL(ans)[j * ncoef + i] - REAL(gradient)[i])/
1357                  delta;                  delta;
1358          UNPROTECT(1);          UNPROTECT(1);
1359            /* symmetrize */
1360            for (i = 0; i < j; i++) {
1361                REAL(ans)[j * ncoef + i] = REAL(ans)[i * ncoef + j] =
1362                    (REAL(ans)[j * ncoef + i] + REAL(ans)[i * ncoef + j])/2.;
1363            }
1364      }      }
1365      UNPROTECT(3);      UNPROTECT(3);
1366      return ans;      return ans;

Legend:
Removed from v.237  
changed lines
  Added in v.238

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