log_mpio.c

MPICH是MPI的重要研究,提供了一系列的接口函数,为并行计算的实现提供了编程环境.

  return returnVal;
}

int MPI_File_write_at_all( MPI_File  fh,MPI_Offset  offset,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_write_at_all - prototyping replacement for MPI_File_write_at_all
    Log the beginning and ending of the time spent in MPI_File_write_at_all calls.
*/

  ++MPI_File_write_at_all_ncalls_0;
  MPE_Log_event( MPI_File_write_at_all_stateid_0*2,
	         MPI_File_write_at_all_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_at_all( fh, offset, buf, count, datatype, status );

  MPE_Log_event( MPI_File_write_at_all_stateid_0*2+1,
	         MPI_File_write_at_all_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_iread_at( MPI_File  fh,MPI_Offset  offset,void * buf,int  count,MPI_Datatype  datatype,MPIO_Request * request  )
{
  int returnVal;

/*
    MPI_File_iread_at - prototyping replacement for MPI_File_iread_at
    Log the beginning and ending of the time spent in MPI_File_iread_at calls.
*/

  ++MPI_File_iread_at_ncalls_0;
  MPE_Log_event( MPI_File_iread_at_stateid_0*2,
	         MPI_File_iread_at_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_iread_at( fh, offset, buf, count, datatype, request );

  MPE_Log_event( MPI_File_iread_at_stateid_0*2+1,
	         MPI_File_iread_at_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_iwrite_at( MPI_File  fh,MPI_Offset  offset,void * buf,int  count,MPI_Datatype  datatype,MPIO_Request * request  )
{
  int returnVal;

/*
    MPI_File_iwrite_at - prototyping replacement for MPI_File_iwrite_at
    Log the beginning and ending of the time spent in MPI_File_iwrite_at calls.
*/

  ++MPI_File_iwrite_at_ncalls_0;
  MPE_Log_event( MPI_File_iwrite_at_stateid_0*2,
	         MPI_File_iwrite_at_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_iwrite_at( fh, offset, buf, count, datatype, request );

  MPE_Log_event( MPI_File_iwrite_at_stateid_0*2+1,
	         MPI_File_iwrite_at_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_read - prototyping replacement for MPI_File_read
    Log the beginning and ending of the time spent in MPI_File_read calls.
*/

  ++MPI_File_read_ncalls_0;
  MPE_Log_event( MPI_File_read_stateid_0*2,
	         MPI_File_read_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_read_stateid_0*2+1,
	         MPI_File_read_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_all( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_read_all - prototyping replacement for MPI_File_read_all
    Log the beginning and ending of the time spent in MPI_File_read_all calls.
*/

  ++MPI_File_read_all_ncalls_0;
  MPE_Log_event( MPI_File_read_all_stateid_0*2,
	         MPI_File_read_all_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_all( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_read_all_stateid_0*2+1,
	         MPI_File_read_all_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_write - prototyping replacement for MPI_File_write
    Log the beginning and ending of the time spent in MPI_File_write calls.
*/

  ++MPI_File_write_ncalls_0;
  MPE_Log_event( MPI_File_write_stateid_0*2,
	         MPI_File_write_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_write_stateid_0*2+1,
	         MPI_File_write_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_all( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_write_all - prototyping replacement for MPI_File_write_all
    Log the beginning and ending of the time spent in MPI_File_write_all calls.
*/

  ++MPI_File_write_all_ncalls_0;
  MPE_Log_event( MPI_File_write_all_stateid_0*2,
	         MPI_File_write_all_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_all( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_write_all_stateid_0*2+1,
	         MPI_File_write_all_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_iread( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPIO_Request * request  )
{
  int returnVal;

/*
    MPI_File_iread - prototyping replacement for MPI_File_iread
    Log the beginning and ending of the time spent in MPI_File_iread calls.
*/

  ++MPI_File_iread_ncalls_0;
  MPE_Log_event( MPI_File_iread_stateid_0*2,
	         MPI_File_iread_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_iread( fh, buf, count, datatype, request );

  MPE_Log_event( MPI_File_iread_stateid_0*2+1,
	         MPI_File_iread_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_iwrite( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPIO_Request * request  )
{
  int returnVal;

/*
    MPI_File_iwrite - prototyping replacement for MPI_File_iwrite
    Log the beginning and ending of the time spent in MPI_File_iwrite calls.
*/

  ++MPI_File_iwrite_ncalls_0;
  MPE_Log_event( MPI_File_iwrite_stateid_0*2,
	         MPI_File_iwrite_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_iwrite( fh, buf, count, datatype, request );

  MPE_Log_event( MPI_File_iwrite_stateid_0*2+1,
	         MPI_File_iwrite_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_seek( MPI_File  fh,MPI_Offset  offset,int  whence  )
{
  int returnVal;

/*
    MPI_File_seek - prototyping replacement for MPI_File_seek
    Log the beginning and ending of the time spent in MPI_File_seek calls.
*/

  ++MPI_File_seek_ncalls_0;
  MPE_Log_event( MPI_File_seek_stateid_0*2,
	         MPI_File_seek_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_seek( fh, offset, whence );

  MPE_Log_event( MPI_File_seek_stateid_0*2+1,
	         MPI_File_seek_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_position( MPI_File  fh,MPI_Offset * offset  )
{
  int returnVal;

/*
    MPI_File_get_position - prototyping replacement for MPI_File_get_position
    Log the beginning and ending of the time spent in MPI_File_get_position calls.
*/

  ++MPI_File_get_position_ncalls_0;
  MPE_Log_event( MPI_File_get_position_stateid_0*2,
	         MPI_File_get_position_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_position( fh, offset );

  MPE_Log_event( MPI_File_get_position_stateid_0*2+1,
	         MPI_File_get_position_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_byte_offset( MPI_File  fh,MPI_Offset  offset,MPI_Offset * disp  )
{
  int returnVal;

/*
    MPI_File_get_byte_offset - prototyping replacement for MPI_File_get_byte_offset
    Log the beginning and ending of the time spent in MPI_File_get_byte_offset calls.
*/

  ++MPI_File_get_byte_offset_ncalls_0;
  MPE_Log_event( MPI_File_get_byte_offset_stateid_0*2,
	         MPI_File_get_byte_offset_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_byte_offset( fh, offset, disp );

  MPE_Log_event( MPI_File_get_byte_offset_stateid_0*2+1,
	         MPI_File_get_byte_offset_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_shared( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_read_shared - prototyping replacement for MPI_File_read_shared
    Log the beginning and ending of the time spent in MPI_File_read_shared calls.
*/

  ++MPI_File_read_shared_ncalls_0;
  MPE_Log_event( MPI_File_read_shared_stateid_0*2,
	         MPI_File_read_shared_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_shared( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_read_shared_stateid_0*2+1,
	         MPI_File_read_shared_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_shared( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_write_shared - prototyping replacement for MPI_File_write_shared
    Log the beginning and ending of the time spent in MPI_File_write_shared calls.
*/

  ++MPI_File_write_shared_ncalls_0;
  MPE_Log_event( MPI_File_write_shared_stateid_0*2,
	         MPI_File_write_shared_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_shared( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_write_shared_stateid_0*2+1,
	         MPI_File_write_shared_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_iread_shared( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPIO_Request * request  )
{
  int returnVal;

/*
    MPI_File_iread_shared - prototyping replacement for MPI_File_iread_shared
    Log the beginning and ending of the time spent in MPI_File_iread_shared calls.
*/

  ++MPI_File_iread_shared_ncalls_0;
  MPE_Log_event( MPI_File_iread_shared_stateid_0*2,
	         MPI_File_iread_shared_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_iread_shared( fh, buf, count, datatype, request );

  MPE_Log_event( MPI_File_iread_shared_stateid_0*2+1,
	         MPI_File_iread_shared_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_iwrite_shared( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPIO_Request * request  )
{
  int returnVal;

/*
    MPI_File_iwrite_shared - prototyping replacement for MPI_File_iwrite_shared
    Log the beginning and ending of the time spent in MPI_File_iwrite_shared calls.
*/

  ++MPI_File_iwrite_shared_ncalls_0;
  MPE_Log_event( MPI_File_iwrite_shared_stateid_0*2,
	         MPI_File_iwrite_shared_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_iwrite_shared( fh, buf, count, datatype, request );

  MPE_Log_event( MPI_File_iwrite_shared_stateid_0*2+1,
	         MPI_File_iwrite_shared_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_ordered( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_read_ordered - prototyping replacement for MPI_File_read_ordered
    Log the beginning and ending of the time spent in MPI_File_read_ordered calls.
*/

  ++MPI_File_read_ordered_ncalls_0;
  MPE_Log_event( MPI_File_read_ordered_stateid_0*2,
	         MPI_File_read_ordered_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_ordered( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_read_ordered_stateid_0*2+1,
	         MPI_File_read_ordered_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_ordered( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype,MPI_Status * status  )
{
  int returnVal;

/*
    MPI_File_write_ordered - prototyping replacement for MPI_File_write_ordered
    Log the beginning and ending of the time spent in MPI_File_write_ordered calls.
*/

  ++MPI_File_write_ordered_ncalls_0;
  MPE_Log_event( MPI_File_write_ordered_stateid_0*2,
	         MPI_File_write_ordered_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_ordered( fh, buf, count, datatype, status );

  MPE_Log_event( MPI_File_write_ordered_stateid_0*2+1,
	         MPI_File_write_ordered_ncalls_0, (char *)0 );


  return returnVal;
}