/[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 751 by woo409, Sat Jun 24 11:27:16 2006 UTC revision 752 by woo409, Mon Jun 26 02:25:41 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]) {
51                 qsort(&(index[ptr[i]-1]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);                 qsortG(&(index[ptr[i]-1]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);
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               }               }
# 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                 qsort(&(index[ptr[i]]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);                 qsortG(&(index[ptr[i]]),(size_t)(ptr[i+1]-ptr[i]),sizeof(index_t),Paso_comparIndex);
61                 loc_min_index=MIN(loc_min_index,index[ptr[i]]);                 loc_min_index=MIN(loc_min_index,index[ptr[i]]);
62                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-1]);                 loc_max_index=MAX(loc_max_index,index[ptr[i+1]-1]);
63               }               }

Legend:
Removed from v.751  
changed lines
  Added in v.752

  ViewVC Help
Powered by ViewVC 1.1.26