/[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 150 by jgs, Thu Sep 15 03:44:45 2005 UTC revision 154 by jgs, Mon Nov 7 05:51:17 2005 UTC
# Line 62  void Paso_SystemMatrixPattern_mis(Paso_S Line 62  void Paso_SystemMatrixPattern_mis(Paso_S
62                   }                   }
63             }             }
64             /* update the seed */             /* update the seed */
65             Paso_SystemMatrixPattern_mis_seed=fmod(sqrt(Paso_SystemMatrixPattern_mis_seed*(n+1)),1.);             /* Paso_SystemMatrixPattern_mis_seed=fmod(sqrt(Paso_SystemMatrixPattern_mis_seed*(n+1)),1.); */
66             /* detect independent vertices as those vertices that have a value less than all values of its naigbours */             /* detect independent vertices as those vertices that have a value less than all values of its naigbours */
67             #pragma omp parallel for private(naib,i,iptr,flag) schedule(static)             #pragma omp parallel for private(naib,i,iptr,flag) schedule(static)
68             for (i=0;i<n;++i) {             for (i=0;i<n;++i) {
# Line 100  void Paso_SystemMatrixPattern_mis(Paso_S Line 100  void Paso_SystemMatrixPattern_mis(Paso_S
100  #undef IS_IN_MIS_NOW  #undef IS_IN_MIS_NOW
101  #undef IS_IN_MIS  #undef IS_IN_MIS
102  #undef IS_CONNECTED_TO_MIS  #undef IS_CONNECTED_TO_MIS
   
 /*  
  * $Log$  
  * Revision 1.2  2005/09/15 03:44:39  jgs  
  * Merge of development branch dev-02 back to main trunk on 2005-09-15  
  *  
  * Revision 1.1.2.1  2005/09/05 06:29:47  gross  
  * These files have been extracted from finley to define a stand alone libray for iterative  
  * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but  
  * has not been tested yet.  
  *  
  *  
  */  

Legend:
Removed from v.150  
changed lines
  Added in v.154

  ViewVC Help
Powered by ViewVC 1.1.26