/[escript]/trunk/paso/src/Pattern.c
ViewVC logotype

Diff of /trunk/paso/src/Pattern.c

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

revision 1916 by phornby, Thu Oct 23 08:51:36 2008 UTC revision 1923 by phornby, Thu Oct 23 12:53:39 2008 UTC
# Line 189  Paso_Pattern* Paso_Pattern_multiply(int Line 189  Paso_Pattern* Paso_Pattern_multiply(int
189        j = A->index[iptrA];        j = A->index[iptrA];
190        for(iptrB = B->ptr[j]; iptrB < B->ptr[j+1]; ++iptrB) {        for(iptrB = B->ptr[j]; iptrB < B->ptr[j+1]; ++iptrB) {
191          k = B->index[iptrB];          k = B->index[iptrB];
192          Finley_IndexList_insertIndex(&(index_list[i]),k);          Paso_IndexList_insertIndex(&(index_list[i]),k);
193       }       }
194      }      }
195    }    }
# Line 246  Paso_Pattern* Paso_Pattern_binop(int typ Line 246  Paso_Pattern* Paso_Pattern_binop(int typ
246          j = A->index[iptrA];          j = A->index[iptrA];
247          k = B->index[iptrB];          k = B->index[iptrB];
248          if (j<k) {          if (j<k) {
249             Finley_IndexList_insertIndex(&(index_list[i]),j);             Paso_IndexList_insertIndex(&(index_list[i]),j);
250             iptrA++;             iptrA++;
251          } else if (j>k) {          } else if (j>k) {
252              Finley_IndexList_insertIndex(&(index_list[i]),k);              Paso_IndexList_insertIndex(&(index_list[i]),k);
253              iptrB++;              iptrB++;
254          } else if (j==k) {          } else if (j==k) {
255              Finley_IndexList_insertIndex(&(index_list[i]),j);              Paso_IndexList_insertIndex(&(index_list[i]),j);
256              iptrB++;              iptrB++;
257              iptrA++;              iptrA++;
258          }          }
259      }      }
260      while(iptrA < A->ptr[i+1]) {      while(iptrA < A->ptr[i+1]) {
261          j = A->index[iptrA];          j = A->index[iptrA];
262          Finley_IndexList_insertIndex(&(index_list[i]),j);          Paso_IndexList_insertIndex(&(index_list[i]),j);
263          iptrA++;          iptrA++;
264      }      }
265      while(iptrB < B->ptr[i+1]) {      while(iptrB < B->ptr[i+1]) {
266          k = B->index[iptrB];          k = B->index[iptrB];
267          Finley_IndexList_insertIndex(&(index_list[i]),k);          Paso_IndexList_insertIndex(&(index_list[i]),k);
268          iptrB++;          iptrB++;
269      }      }
270    }    }

Legend:
Removed from v.1916  
changed lines
  Added in v.1923

  ViewVC Help
Powered by ViewVC 1.1.26