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

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

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

revision 3005 by gross, Thu Apr 22 05:59:31 2010 UTC revision 3009 by gross, Thu Apr 22 11:17:42 2010 UTC
# Line 254  Paso_Pattern* Paso_Pattern_binop(int typ Line 254  Paso_Pattern* Paso_Pattern_binop(int typ
254    
255    out=Paso_IndexList_createPattern(0, A->numOutput,index_list,0,A->numInput,0);    out=Paso_IndexList_createPattern(0, A->numOutput,index_list,0,A->numInput,0);
256    
   #ifdef Paso_TRACE  
   printf("Paso_Pattern_binop: new pattern has been allocated.\n");  
   #endif  
257    
258   /* clean up */   /* clean up */
259     if (index_list!=NULL) {     if (index_list!=NULL) {
# Line 405  index_t* Paso_Pattern_borrowMainDiagonal Line 402  index_t* Paso_Pattern_borrowMainDiagonal
402                    }                    }
403            
404               }               }
405           #ifdef PASO_MPI           if (fail > 0) {
406           {             MEMFREE(A->main_iptr);
407                    int fail_loc = fail;             A->main_iptr=NULL;
                   MPI_Allreduce(&fail_loc, &fail, 1, MPI_INT, MPI_MAX, A->mpi_info->comm);  
408           }           }
409               #endif  
              if (fail>0) Paso_setError(VALUE_ERROR, "Paso_TransportProblem_alloc: no main diagonal");  
410       }       }
411       }       }
412       return A->main_iptr;       return A->main_iptr;
 }  
413    }

Legend:
Removed from v.3005  
changed lines
  Added in v.3009

  ViewVC Help
Powered by ViewVC 1.1.26