/[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 631 by dhawcroft, Thu Mar 23 04:27:32 2006 UTC revision 971 by ksteube, Wed Feb 14 04:40:49 2007 UTC
# Line 2  Line 2 
2    
3  /*  /*
4  ********************************************************************************  ********************************************************************************
5  *               Copyright 2006 by ACcESS MNRF                                *  *               Copyright   2006 by ACcESS MNRF                                *
6  *                                                                              *  *                                                                              *
7  *                 http://www.access.edu.au                                     *  *                 http://www.access.edu.au                                     *
8  *           Primary Business: Queensland, Australia                            *  *           Primary Business: Queensland, Australia                            *
# 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.631  
changed lines
  Added in v.971

  ViewVC Help
Powered by ViewVC 1.1.26