/[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 1791 by gross, Mon Jul 14 08:55:25 2008 UTC revision 1792 by gross, Tue Sep 16 08:28:25 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);
106    printf("out->col_coupler %#lx\n",out->col_coupler);
107       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);
108       /* this should be bypassed if trilinos is used */       /* this should be bypassed if trilinos is used */
109       if (type & MATRIX_FORMAT_TRILINOS_CRS) {       if (type & MATRIX_FORMAT_TRILINOS_CRS) {
# Line 145  Paso_SystemMatrix* Paso_SystemMatrix_all Line 146  Paso_SystemMatrix* Paso_SystemMatrix_all
146    
147  Paso_SystemMatrix* Paso_SystemMatrix_reference(Paso_SystemMatrix* in) {  Paso_SystemMatrix* Paso_SystemMatrix_reference(Paso_SystemMatrix* in) {
148     if (in!=NULL) ++(in->reference_counter);     if (in!=NULL) ++(in->reference_counter);
149     return NULL;     return in;
150  }  }
151    
152  /* deallocates a SystemMatrix: */  /* deallocates a SystemMatrix: */
# Line 186  double* Paso_SystemMatrix_finishCollect( Line 187  double* Paso_SystemMatrix_finishCollect(
187    
188  void  Paso_SystemMatrix_startColCollect(Paso_SystemMatrix* A,const double* in)  void  Paso_SystemMatrix_startColCollect(Paso_SystemMatrix* A,const double* in)
189  {  {
190    printf("A->col_coupler %#lx\n",A->col_coupler);
191    Paso_Coupler_startCollect(A->col_coupler, in);    Paso_Coupler_startCollect(A->col_coupler, in);
192  }  }
193  double* Paso_SystemMatrix_finishColCollect(Paso_SystemMatrix* A)  double* Paso_SystemMatrix_finishColCollect(Paso_SystemMatrix* A)

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

  ViewVC Help
Powered by ViewVC 1.1.26