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 385, Mon Dec 13 15:50:44 2004 UTC revision 386, Mon Dec 13 15:59:24 2004 UTC
# Line 97  Line 97 
97                      AiOut[pos++] = map[ii];                      AiOut[pos++] = map[ii];
98                      if (ii < j) {       /* above the diagonal */                      if (ii < j) {       /* above the diagonal */
99                          for (jj = 1; jj < ncci; jj++) {                          for (jj = 1; jj < ncci; jj++) {
100                              AiOut[pos+1] = AiOut[pos] + 1;                              AiOut[pos] = AiOut[pos-1] + 1;
101                              pos++;                              pos++;
102                          }                          }
103                      }                      }
104                    }
105                      for (jj = 1; jj < nci; jj++) { /* repeat the column adding                      for (jj = 1; jj < nci; jj++) { /* repeat the column adding
106                                                      * another diagonal element */                                                      * another diagonal element */
107                          int mjj = mj + jj, pj = ApOut[mjj], pjm1 = ApOut[mjj-1];                          int mjj = mj + jj, pj = ApOut[mjj], pjm1 = ApOut[mjj-1];
# Line 109  Line 110 
110                      }                      }
111                  }                  }
112              }              }
         }  
113          Free(map); Free(ncc);          Free(map); Free(ncc);
114      }      }
115  }  }

Legend:
Removed from v.385  
changed lines
  Added in v.386

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