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

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

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

revision 415 by gross, Wed Jan 4 05:37:33 2006 UTC revision 425 by gross, Tue Jan 10 04:10:39 2006 UTC
# Line 39  Paso_SystemMatrixPattern* Paso_SystemMat Line 39  Paso_SystemMatrixPattern* Paso_SystemMat
39               if (ptr[i]<ptr[i+1]) {               if (ptr[i]<ptr[i+1]) {
40                 qsort(&(index[ptr[i]-1]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);                 qsort(&(index[ptr[i]-1]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);
41                 loc_min_index=MIN(loc_min_index,index[ptr[i]-1]);                 loc_min_index=MIN(loc_min_index,index[ptr[i]-1]);
42                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]]);                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-2]);
43               }               }
44           }           }
45        } else {        } else {
# Line 66  Paso_SystemMatrixPattern* Paso_SystemMat Line 66  Paso_SystemMatrixPattern* Paso_SystemMat
66    out=MEMALLOC(1,Paso_SystemMatrixPattern);    out=MEMALLOC(1,Paso_SystemMatrixPattern);
67    if (Paso_checkPtr(out)) return NULL;    if (Paso_checkPtr(out)) return NULL;
68    out->n_ptr=n_ptr;    out->n_ptr=n_ptr;
69    out->n_index=max_index+1-index_offset;    out->n_index=max_index-index_offset+1;
70    out->ptr=ptr;    out->ptr=ptr;
71    out->index=index;    out->index=index;
72    out->len=out->ptr[out->n_ptr];    out->len=out->ptr[out->n_ptr]-index_offset;
73    out->reference_counter=1;    out->reference_counter=1;
74    out->type=type;    out->type=type;
75    #ifdef Paso_TRACE    #ifdef Paso_TRACE

Legend:
Removed from v.415  
changed lines
  Added in v.425

  ViewVC Help
Powered by ViewVC 1.1.26