/[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 633 by dhawcroft, Thu Mar 23 05:37:00 2006 UTC revision 757 by woo409, Mon Jun 26 13:12:56 2006 UTC
# Line 57  Paso_SystemMatrixPattern* Paso_SystemMat Line 57  Paso_SystemMatrixPattern* Paso_SystemMat
57           #pragma omp for schedule(static)           #pragma omp for schedule(static)
58           for (i=0;i<n_ptr;++i) {           for (i=0;i<n_ptr;++i) {
59               if (ptr[i]<ptr[i+1]) {               if (ptr[i]<ptr[i+1]) {
60    #ifdef USE_QSORTG
61                   qsortG(&(index[ptr[i]]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);
62    #else
63                 qsort(&(index[ptr[i]]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);                 qsort(&(index[ptr[i]]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);
64    #endif
65                 loc_min_index=MIN(loc_min_index,index[ptr[i]]);                 loc_min_index=MIN(loc_min_index,index[ptr[i]]);
66                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-1]);                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-1]);
67               }               }

Legend:
Removed from v.633  
changed lines
  Added in v.757

  ViewVC Help
Powered by ViewVC 1.1.26