/[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 1889 by artak, Tue Oct 14 04:34:09 2008 UTC revision 1890 by artak, Fri Oct 17 00:14:22 2008 UTC
# Line 224  Paso_Pattern* Paso_Pattern_binop(int typ Line 224  Paso_Pattern* Paso_Pattern_binop(int typ
224    Paso_Pattern*out=NULL;    Paso_Pattern*out=NULL;
225    index_t index_offset=(type & PATTERN_FORMAT_OFFSET1 ? 1:0);    index_t index_offset=(type & PATTERN_FORMAT_OFFSET1 ? 1:0);
226    index_t iptrA,iptrB,*A_row=NULL,*B_row=NULL;    index_t iptrA,iptrB,*A_row=NULL,*B_row=NULL;
227    dim_t i,j,k,temp,istart,length;    dim_t i,j,k;
228    
229    Paso_IndexList* index_list=NULL;    Paso_IndexList* index_list=NULL;
230    
# Line 240  Paso_Pattern* Paso_Pattern_binop(int typ Line 240  Paso_Pattern* Paso_Pattern_binop(int typ
240          }          }
241        }        }
242    }    }
   
243    for(i = 0; i < A->numOutput; i++){    for(i = 0; i < A->numOutput; i++){
244      iptrA = A->ptr[i],      iptrA = A->ptr[i],
245      iptrB = B->ptr[i];      iptrB = B->ptr[i];
246        
247      while (iptrA < A->ptr[i+1] && iptrB < B->ptr[i+1]) {      while (iptrA < A->ptr[i+1] && iptrB < B->ptr[i+1]) {
248          j = A->index[iptrA];          j = A->index[iptrA];
249          k = B->index[iptrB];          k = B->index[iptrB];

Legend:
Removed from v.1889  
changed lines
  Added in v.1890

  ViewVC Help
Powered by ViewVC 1.1.26