/[escript]/branches/intelc_win32/paso/src/SystemMatrixPattern.c
ViewVC logotype

Diff of /branches/intelc_win32/paso/src/SystemMatrixPattern.c

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

revision 753 by woo409, Mon Jun 26 02:51:25 2006 UTC revision 754 by woo409, Mon Jun 26 08:00:38 2006 UTC
# Line 48  Paso_SystemMatrixPattern* Paso_SystemMat Line 48  Paso_SystemMatrixPattern* Paso_SystemMat
48           #pragma omp for schedule(static)           #pragma omp for schedule(static)
49           for (i=0;i<n_ptr;++i) {           for (i=0;i<n_ptr;++i) {
50               if (ptr[i]<ptr[i+1]) {               if (ptr[i]<ptr[i+1]) {
 #ifdef USE_QSORTG  
                qsortG(&(index[ptr[i]-1]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);  
 #else  
51                 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);
 #endif  
52                 loc_min_index=MIN(loc_min_index,index[ptr[i]-1]);                 loc_min_index=MIN(loc_min_index,index[ptr[i]-1]);
53                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-2]);                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-2]);
54               }               }

Legend:
Removed from v.753  
changed lines
  Added in v.754

  ViewVC Help
Powered by ViewVC 1.1.26