/[escript]/trunk-mpi-branch/finley/src/Mesh_getPattern.c
ViewVC logotype

Diff of /trunk-mpi-branch/finley/src/Mesh_getPattern.c

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

revision 1095 by gross, Thu Apr 12 10:01:47 2007 UTC revision 1096 by ksteube, Mon Apr 16 22:59:33 2007 UTC
# Line 122  Paso_SystemMatrixPattern* Finley_makePat Line 122  Paso_SystemMatrixPattern* Finley_makePat
122               index_list[i].n=0;               index_list[i].n=0;
123          }          }
124          /*  insert contributions from element matrices into colums index index_list: */          /*  insert contributions from element matrices into colums index index_list: */
     printf("ksteube mesh->Elements\n");  
125          Finley_IndexList_insertElements(index_list,mesh,mesh->Elements,          Finley_IndexList_insertElements(index_list,mesh,mesh->Elements,
126                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);
     printf("ksteube mesh->FaceElements\n");  
127          Finley_IndexList_insertElements(index_list,mesh,mesh->FaceElements,          Finley_IndexList_insertElements(index_list,mesh,mesh->FaceElements,
128                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);
     printf("ksteube mesh->ContactElements\n");  
129          Finley_IndexList_insertElements(index_list,mesh,mesh->ContactElements,          Finley_IndexList_insertElements(index_list,mesh,mesh->ContactElements,
130                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);
     printf("ksteube mesh->Points\n");  
131          Finley_IndexList_insertElements(index_list,mesh,mesh->Points,          Finley_IndexList_insertElements(index_list,mesh,mesh->Points,
132                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);                                          reduce_row_order,rowLabel,reduce_col_order,colLabel);
     printf("ksteube done with 4 calls to Finley_IndexList_insertElements\n");  
133          /* get the number of connections per row */          /* get the number of connections per row */
134          #pragma omp for schedule(static)          #pragma omp for schedule(static)
135          for(i=0;i<n;++i) {          for(i=0;i<n;++i) {

Legend:
Removed from v.1095  
changed lines
  Added in v.1096

  ViewVC Help
Powered by ViewVC 1.1.26