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

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

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

revision 1628 by phornby, Fri Jul 11 13:12:46 2008 UTC revision 1639 by gross, Mon Jul 14 08:55:25 2008 UTC
# Line 195  void Paso_Coupler_free(Paso_Coupler* in) Line 195  void Paso_Coupler_free(Paso_Coupler* in)
195  }  }
196    
197    
198  void Paso_Coupler_startCollect(Paso_Coupler* coupler,double* in)  void Paso_Coupler_startCollect(Paso_Coupler* coupler,const double* in)
199  {  {
200    Paso_MPIInfo *mpi_info = coupler->mpi_info;      Paso_MPIInfo *mpi_info = coupler->mpi_info;  
201    dim_t block_size=coupler->block_size;    dim_t block_size=coupler->block_size;
202    size_t block_size_size=block_size*sizeof(double);    size_t block_size_size=block_size*sizeof(double);
203    dim_t i;    dim_t i;
204    coupler->data=in;    coupler->data=(double*) in;
   coupler->data=in;  
205    if ( mpi_info->size>1) {    if ( mpi_info->size>1) {
206       /* start reveiving input */       /* start reveiving input */
207       {       {

Legend:
Removed from v.1628  
changed lines
  Added in v.1639

  ViewVC Help
Powered by ViewVC 1.1.26