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

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

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

revision 751 by bcumming, Mon Jun 26 01:46:34 2006 UTC revision 782 by bcumming, Tue Jul 18 00:47:47 2006 UTC
# Line 319  bool_t Paso_CommBuffer_waitSend( Paso_Co Line 319  bool_t Paso_CommBuffer_waitSend( Paso_Co
319    
320      if( success!=MPI_SUCCESS )      if( success!=MPI_SUCCESS )
321      {      {
322        Paso_setError( PASO_MPI_ERROR, "Paso_CommBuffer_waitSend() : Error : failed MPI_Isend" );        Paso_setError( PASO_MPI_ERROR, "Paso_CommBuffer_waitSend() : failed MPI_Isend" );
323        return FALSE;        return FALSE;
324      }      }
325    }    }
# Line 360  bool_t Paso_CommBuffer_waitRecv( Paso_Co Line 360  bool_t Paso_CommBuffer_waitRecv( Paso_Co
360    
361      if( success!=MPI_SUCCESS )      if( success!=MPI_SUCCESS )
362      {      {
363        Paso_setError( PASO_MPI_ERROR, "Paso_CommBuffer_waitRecv() : Error : failed MPI_Irecv" );        Paso_setError( PASO_MPI_ERROR, "Paso_CommBuffer_waitRecv() : failed MPI_Irecv" );
364        return FALSE;        return FALSE;
365      }      }
366    
# Line 368  bool_t Paso_CommBuffer_waitRecv( Paso_Co Line 368  bool_t Paso_CommBuffer_waitRecv( Paso_Co
368          MPI_Get_count( in->statusBackward + position, MPI_BYTE, &success );          MPI_Get_count( in->statusBackward + position, MPI_BYTE, &success );
369          if( success!=in->requestedRecvLength[position] )          if( success!=in->requestedRecvLength[position] )
370          {          {
371        Paso_setError( PASO_MPI_ERROR, "Paso_CommBuffer_waitRecv() : Error : size of received buffer and backward count are not equal" );        Paso_setError( PASO_MPI_ERROR, "Paso_CommBuffer_waitRecv() : size of received buffer and backward count are not equal" );
372        return FALSE;        return FALSE;
373          }          }
374    }    }
# Line 466  void Paso_CommBuffer_unpack( Paso_CommBu Line 466  void Paso_CommBuffer_unpack( Paso_CommBu
466    {    {
467      /* unpack the data according to index */      /* unpack the data according to index */
468      for( i=0; i<in->numBackward[position]; i++ )      for( i=0; i<in->numBackward[position]; i++ )
469        memcpy( to + itemSize*index[i], from + (i*itemSize), itemSize );              memcpy( to + itemSize*index[i], from + (i*itemSize), itemSize );
470    }    }
471  }  }
472    

Legend:
Removed from v.751  
changed lines
  Added in v.782

  ViewVC Help
Powered by ViewVC 1.1.26