/[escript]/trunk/esys2/finley/src/finleyC/SystemPattern.c
ViewVC logotype

Diff of /trunk/esys2/finley/src/finleyC/SystemPattern.c

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

revision 114 by jgs, Wed Dec 15 07:08:39 2004 UTC revision 115 by jgs, Fri Mar 4 07:12:47 2005 UTC
# Line 21  Line 21 
21    
22  Finley_SystemMatrixPattern* Finley_SystemMatrixPattern_alloc(int n_ptr, maybelong* ptr,maybelong* index) {  Finley_SystemMatrixPattern* Finley_SystemMatrixPattern_alloc(int n_ptr, maybelong* ptr,maybelong* index) {
23    Finley_SystemMatrixPattern*out;    Finley_SystemMatrixPattern*out;
24    maybelong loc_min_index=INDEX_OFFSET,loc_max_index=INDEX_OFFSET-1,min_index=INDEX_OFFSET,max_index=INDEX_OFFSET-1;    maybelong loc_min_index,loc_max_index,min_index=INDEX_OFFSET,max_index=INDEX_OFFSET-1;
25    maybelong i,k;    maybelong i,k;
26    Finley_ErrorCode=NO_ERROR;    Finley_ErrorCode=NO_ERROR;
27    
28    
29    #pragma omp parallel private(loc_min_index,loc_max_index,i,k)    #pragma omp parallel private(loc_min_index,loc_max_index,i,k)
30    {    {
31         loc_min_index=INDEX_OFFSET;
32         loc_max_index=INDEX_OFFSET-1;
33       #if PTR_OFFSET>0       #if PTR_OFFSET>0
34          #pragma omp for schedule(static)          #pragma omp for schedule(static)
35          for (i=0;i<n_ptr+1;++i) ptr[i]+=PTR_OFFSET;          for (i=0;i<n_ptr+1;++i) ptr[i]+=PTR_OFFSET;
# Line 114  int Finley_comparIndex(const void *index Line 116  int Finley_comparIndex(const void *index
116        }        }
117     }     }
118  }  }
 /*  
  * $Log$  
  * Revision 1.2  2004/12/15 07:08:33  jgs  
  * *** empty log message ***  
  *  
  * Revision 1.1.2.2  2004/11/24 01:37:15  gross  
  * some changes dealing with the integer overflow in memory allocation. Finley solves 4M unknowns now  
  *  
  * Revision 1.1.2.1  2004/11/14 23:49:09  gross  
  * the forgotten files  
  *  
  *  
  */  

Legend:
Removed from v.114  
changed lines
  Added in v.115

  ViewVC Help
Powered by ViewVC 1.1.26