/[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 1313 by ksteube, Tue Sep 25 01:44:26 2007 UTC revision 1362 by gross, Mon Dec 17 02:28:16 2007 UTC
# Line 99  void Paso_Coupler_free(Paso_Coupler* in) Line 99  void Paso_Coupler_free(Paso_Coupler* in)
99     }     }
100  }  }
101    
102    bool_t Paso_Coupler_bufferIsAllocated(Paso_Coupler* coupler) {
103      return ( (coupler->send_buffer !=NULL) || (coupler->recv_buffer!=NULL) );
104    }
105    
106  void Paso_Coupler_allocBuffer(Paso_Coupler* coupler,dim_t block_size)  void Paso_Coupler_allocBuffer(Paso_Coupler* coupler,dim_t block_size)
107  {  {
108      Paso_MPIInfo *mpi_info = coupler->mpi_info;        Paso_MPIInfo *mpi_info = coupler->mpi_info;  
109      if ( (coupler->send_buffer !=NULL) || (coupler->recv_buffer!=NULL) ) {      if (Paso_Coupler_bufferIsAllocated(coupler))  {
110          Paso_setError(SYSTEM_ERROR,"Paso_Coupler_allocBuffer: coupler are still in use.");          Paso_setError(SYSTEM_ERROR,"Paso_Coupler_allocBuffer: coupler are still in use.");
111          return;          return;
112      }      }

Legend:
Removed from v.1313  
changed lines
  Added in v.1362

  ViewVC Help
Powered by ViewVC 1.1.26