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

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

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

revision 430 by gross, Wed Jan 4 05:37:33 2006 UTC revision 431 by gross, Fri Jan 13 05:07:10 2006 UTC
# Line 6  Line 6 
6    
7     searches for a maximal independent set MIS in the matrix pattern     searches for a maximal independent set MIS in the matrix pattern
8     vertices in the maximal independent set are marked in mis_marker     vertices in the maximal independent set are marked in mis_marker
9       nodes to be considered are marked by -1 on the input in mis_marker
10    
11  */  */
12  /**********************************************************************/  /**********************************************************************/
# Line 45  void Paso_SystemMatrixPattern_mis(Paso_S Line 46  void Paso_SystemMatrixPattern_mis(Paso_S
46    }    }
47    double *value=TMPMEMALLOC(n,double);    double *value=TMPMEMALLOC(n,double);
48    if (!Paso_checkPtr(value)) {    if (!Paso_checkPtr(value)) {
49       #pragma omp parallel for private(i) schedule(static)  
      for (i=0;i<n;++i) mis_marker[i]=IS_AVAILABLE;  
50        
51       /* is there any vertex available ?*/       /* is there any vertex available ?*/
52       while (Paso_Util_isAny(n,mis_marker,IS_AVAILABLE)) {       while (Paso_Util_isAny(n,mis_marker,IS_AVAILABLE)) {

Legend:
Removed from v.430  
changed lines
  Added in v.431

  ViewVC Help
Powered by ViewVC 1.1.26