log_mpio.c

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

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

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

  ++MPI_File_seek_shared_ncalls_0;
  MPE_Log_event( MPI_File_seek_shared_stateid_0*2,
	         MPI_File_seek_shared_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_seek_shared( fh, offset, whence );

  MPE_Log_event( MPI_File_seek_shared_stateid_0*2+1,
	         MPI_File_seek_shared_ncalls_0, (char *)0 );


  return returnVal;
}

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

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

  ++MPI_File_get_position_shared_ncalls_0;
  MPE_Log_event( MPI_File_get_position_shared_stateid_0*2,
	         MPI_File_get_position_shared_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_position_shared( fh, offset );

  MPE_Log_event( MPI_File_get_position_shared_stateid_0*2+1,
	         MPI_File_get_position_shared_ncalls_0, (char *)0 );


  return returnVal;
}

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

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

  ++MPI_File_read_at_all_begin_ncalls_0;
  MPE_Log_event( MPI_File_read_at_all_begin_stateid_0*2,
	         MPI_File_read_at_all_begin_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_at_all_begin( fh, offset, buf, count, datatype );

  MPE_Log_event( MPI_File_read_at_all_begin_stateid_0*2+1,
	         MPI_File_read_at_all_begin_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_at_all_end( MPI_File  fh,void * buf,MPI_Status * status  )
{
  int returnVal;

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

  ++MPI_File_read_at_all_end_ncalls_0;
  MPE_Log_event( MPI_File_read_at_all_end_stateid_0*2,
	         MPI_File_read_at_all_end_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_at_all_end( fh, buf, status );

  MPE_Log_event( MPI_File_read_at_all_end_stateid_0*2+1,
	         MPI_File_read_at_all_end_ncalls_0, (char *)0 );


  return returnVal;
}

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

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

  ++MPI_File_write_at_all_begin_ncalls_0;
  MPE_Log_event( MPI_File_write_at_all_begin_stateid_0*2,
	         MPI_File_write_at_all_begin_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_at_all_begin( fh, offset, buf, count, datatype );

  MPE_Log_event( MPI_File_write_at_all_begin_stateid_0*2+1,
	         MPI_File_write_at_all_begin_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_at_all_end( MPI_File  fh,void * buf,MPI_Status * status  )
{
  int returnVal;

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

  ++MPI_File_write_at_all_end_ncalls_0;
  MPE_Log_event( MPI_File_write_at_all_end_stateid_0*2,
	         MPI_File_write_at_all_end_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_at_all_end( fh, buf, status );

  MPE_Log_event( MPI_File_write_at_all_end_stateid_0*2+1,
	         MPI_File_write_at_all_end_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_all_begin( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype  )
{
  int returnVal;

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

  ++MPI_File_read_all_begin_ncalls_0;
  MPE_Log_event( MPI_File_read_all_begin_stateid_0*2,
	         MPI_File_read_all_begin_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_all_begin( fh, buf, count, datatype );

  MPE_Log_event( MPI_File_read_all_begin_stateid_0*2+1,
	         MPI_File_read_all_begin_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_all_end( MPI_File  fh,void * buf,MPI_Status * status  )
{
  int returnVal;

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

  ++MPI_File_read_all_end_ncalls_0;
  MPE_Log_event( MPI_File_read_all_end_stateid_0*2,
	         MPI_File_read_all_end_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_all_end( fh, buf, status );

  MPE_Log_event( MPI_File_read_all_end_stateid_0*2+1,
	         MPI_File_read_all_end_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_all_begin( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype  )
{
  int returnVal;

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

  ++MPI_File_write_all_begin_ncalls_0;
  MPE_Log_event( MPI_File_write_all_begin_stateid_0*2,
	         MPI_File_write_all_begin_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_all_begin( fh, buf, count, datatype );

  MPE_Log_event( MPI_File_write_all_begin_stateid_0*2+1,
	         MPI_File_write_all_begin_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_all_end( MPI_File  fh,void * buf,MPI_Status * status  )
{
  int returnVal;

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

  ++MPI_File_write_all_end_ncalls_0;
  MPE_Log_event( MPI_File_write_all_end_stateid_0*2,
	         MPI_File_write_all_end_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_all_end( fh, buf, status );

  MPE_Log_event( MPI_File_write_all_end_stateid_0*2+1,
	         MPI_File_write_all_end_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_ordered_begin( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype  )
{
  int returnVal;

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

  ++MPI_File_read_ordered_begin_ncalls_0;
  MPE_Log_event( MPI_File_read_ordered_begin_stateid_0*2,
	         MPI_File_read_ordered_begin_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_ordered_begin( fh, buf, count, datatype );

  MPE_Log_event( MPI_File_read_ordered_begin_stateid_0*2+1,
	         MPI_File_read_ordered_begin_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_read_ordered_end( MPI_File  fh,void * buf,MPI_Status * status  )
{
  int returnVal;

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

  ++MPI_File_read_ordered_end_ncalls_0;
  MPE_Log_event( MPI_File_read_ordered_end_stateid_0*2,
	         MPI_File_read_ordered_end_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_ordered_end( fh, buf, status );

  MPE_Log_event( MPI_File_read_ordered_end_stateid_0*2+1,
	         MPI_File_read_ordered_end_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_ordered_begin( MPI_File  fh,void * buf,int  count,MPI_Datatype  datatype  )
{
  int returnVal;

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

  ++MPI_File_write_ordered_begin_ncalls_0;
  MPE_Log_event( MPI_File_write_ordered_begin_stateid_0*2,
	         MPI_File_write_ordered_begin_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_ordered_begin( fh, buf, count, datatype );

  MPE_Log_event( MPI_File_write_ordered_begin_stateid_0*2+1,
	         MPI_File_write_ordered_begin_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_write_ordered_end( MPI_File  fh,void * buf,MPI_Status * status  )
{
  int returnVal;

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

  ++MPI_File_write_ordered_end_ncalls_0;
  MPE_Log_event( MPI_File_write_ordered_end_stateid_0*2,
	         MPI_File_write_ordered_end_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_ordered_end( fh, buf, status );

  MPE_Log_event( MPI_File_write_ordered_end_stateid_0*2+1,
	         MPI_File_write_ordered_end_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_type_extent( MPI_File  fh,MPI_Datatype  datatype,MPI_Aint * extent  )
{
  int returnVal;

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

  ++MPI_File_get_type_extent_ncalls_0;
  MPE_Log_event( MPI_File_get_type_extent_stateid_0*2,
	         MPI_File_get_type_extent_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_type_extent( fh, datatype, extent );

  MPE_Log_event( MPI_File_get_type_extent_stateid_0*2+1,
	         MPI_File_get_type_extent_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_set_atomicity( MPI_File  fh,int  flag  )
{
  int returnVal;

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

  ++MPI_File_set_atomicity_ncalls_0;
  MPE_Log_event( MPI_File_set_atomicity_stateid_0*2,
	         MPI_File_set_atomicity_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_set_atomicity( fh, flag );

  MPE_Log_event( MPI_File_set_atomicity_stateid_0*2+1,
	         MPI_File_set_atomicity_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_atomicity( MPI_File  fh,int * flag  )
{
  int returnVal;

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

  ++MPI_File_get_atomicity_ncalls_0;
  MPE_Log_event( MPI_File_get_atomicity_stateid_0*2,
	         MPI_File_get_atomicity_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_atomicity( fh, flag );

  MPE_Log_event( MPI_File_get_atomicity_stateid_0*2+1,
	         MPI_File_get_atomicity_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_sync( MPI_File  fh  )
{
  int returnVal;

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

  ++MPI_File_sync_ncalls_0;
  MPE_Log_event( MPI_File_sync_stateid_0*2,
	         MPI_File_sync_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_sync( fh );

  MPE_Log_event( MPI_File_sync_stateid_0*2+1,
	         MPI_File_sync_ncalls_0, (char *)0 );


  return returnVal;
}