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

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

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

revision 1792 by gross, Tue Sep 16 08:28:25 2008 UTC revision 1798 by gross, Wed Sep 17 06:21:12 2008 UTC
# Line 103  Paso_SystemMatrix* Paso_SystemMatrix_all Line 103  Paso_SystemMatrix* Paso_SystemMatrix_all
103       out->logical_block_size=out->logical_row_block_size*out->logical_block_size;       out->logical_block_size=out->logical_row_block_size*out->logical_block_size;
104       out->block_size=out->row_block_size*out->col_block_size;       out->block_size=out->row_block_size*out->col_block_size;
105       out->col_coupler=Paso_Coupler_alloc(pattern->col_connector,out->col_block_size);       out->col_coupler=Paso_Coupler_alloc(pattern->col_connector,out->col_block_size);
 printf("out->col_coupler %#lx\n",out->col_coupler);  
106       out->row_coupler=Paso_Coupler_alloc(pattern->row_connector,out->row_block_size);       out->row_coupler=Paso_Coupler_alloc(pattern->row_connector,out->row_block_size);
107       /* this should be bypassed if trilinos is used */       /* this should be bypassed if trilinos is used */
108       if (type & MATRIX_FORMAT_TRILINOS_CRS) {       if (type & MATRIX_FORMAT_TRILINOS_CRS) {
# Line 187  double* Paso_SystemMatrix_finishCollect( Line 186  double* Paso_SystemMatrix_finishCollect(
186    
187  void  Paso_SystemMatrix_startColCollect(Paso_SystemMatrix* A,const double* in)  void  Paso_SystemMatrix_startColCollect(Paso_SystemMatrix* A,const double* in)
188  {  {
 printf("A->col_coupler %#lx\n",A->col_coupler);  
189    Paso_Coupler_startCollect(A->col_coupler, in);    Paso_Coupler_startCollect(A->col_coupler, in);
190  }  }
191  double* Paso_SystemMatrix_finishColCollect(Paso_SystemMatrix* A)  double* Paso_SystemMatrix_finishColCollect(Paso_SystemMatrix* A)

Legend:
Removed from v.1792  
changed lines
  Added in v.1798

  ViewVC Help
Powered by ViewVC 1.1.26