log_mpio.c

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

#ifdef MPI_BUILD_PROFILING
#undef MPI_BUILD_PROFILING
#endif
#include <stdio.h>
#include "mpi.h"
#include "mpe.h"

static int MPI_File_open_stateid_0=0,MPI_File_open_ncalls_0=0;
static int MPI_File_close_stateid_0=1,MPI_File_close_ncalls_0=0;
static int MPI_File_delete_stateid_0=2,MPI_File_delete_ncalls_0=0;
static int MPI_File_set_size_stateid_0=3,MPI_File_set_size_ncalls_0=0;
static int MPI_File_preallocate_stateid_0=4,MPI_File_preallocate_ncalls_0=0;
static int MPI_File_get_size_stateid_0=5,MPI_File_get_size_ncalls_0=0;
static int MPI_File_get_group_stateid_0=6,MPI_File_get_group_ncalls_0=0;
static int MPI_File_get_amode_stateid_0=7,MPI_File_get_amode_ncalls_0=0;
static int MPI_File_set_info_stateid_0=8,MPI_File_set_info_ncalls_0=0;
static int MPI_File_get_info_stateid_0=9,MPI_File_get_info_ncalls_0=0;
static int MPI_File_set_view_stateid_0=10,MPI_File_set_view_ncalls_0=0;
static int MPI_File_get_view_stateid_0=11,MPI_File_get_view_ncalls_0=0;
static int MPI_File_read_at_stateid_0=12,MPI_File_read_at_ncalls_0=0;
static int MPI_File_read_at_all_stateid_0=13,MPI_File_read_at_all_ncalls_0=0;
static int MPI_File_write_at_stateid_0=14,MPI_File_write_at_ncalls_0=0;
static int MPI_File_write_at_all_stateid_0=15,MPI_File_write_at_all_ncalls_0=0;
static int MPI_File_iread_at_stateid_0=16,MPI_File_iread_at_ncalls_0=0;
static int MPI_File_iwrite_at_stateid_0=17,MPI_File_iwrite_at_ncalls_0=0;
static int MPI_File_read_stateid_0=18,MPI_File_read_ncalls_0=0;
static int MPI_File_read_all_stateid_0=19,MPI_File_read_all_ncalls_0=0;
static int MPI_File_write_stateid_0=20,MPI_File_write_ncalls_0=0;
static int MPI_File_write_all_stateid_0=21,MPI_File_write_all_ncalls_0=0;
static int MPI_File_iread_stateid_0=22,MPI_File_iread_ncalls_0=0;
static int MPI_File_iwrite_stateid_0=23,MPI_File_iwrite_ncalls_0=0;
static int MPI_File_seek_stateid_0=24,MPI_File_seek_ncalls_0=0;
static int MPI_File_get_position_stateid_0=25,MPI_File_get_position_ncalls_0=0;
static int MPI_File_get_byte_offset_stateid_0=26,MPI_File_get_byte_offset_ncalls_0=0;
static int MPI_File_read_shared_stateid_0=27,MPI_File_read_shared_ncalls_0=0;
static int MPI_File_write_shared_stateid_0=28,MPI_File_write_shared_ncalls_0=0;
static int MPI_File_iread_shared_stateid_0=29,MPI_File_iread_shared_ncalls_0=0;
static int MPI_File_iwrite_shared_stateid_0=30,MPI_File_iwrite_shared_ncalls_0=0;
static int MPI_File_read_ordered_stateid_0=31,MPI_File_read_ordered_ncalls_0=0;
static int MPI_File_write_ordered_stateid_0=32,MPI_File_write_ordered_ncalls_0=0;
static int MPI_File_seek_shared_stateid_0=33,MPI_File_seek_shared_ncalls_0=0;
static int MPI_File_get_position_shared_stateid_0=34,MPI_File_get_position_shared_ncalls_0=0;
static int MPI_File_read_at_all_begin_stateid_0=35,MPI_File_read_at_all_begin_ncalls_0=0;
static int MPI_File_read_at_all_end_stateid_0=36,MPI_File_read_at_all_end_ncalls_0=0;
static int MPI_File_write_at_all_begin_stateid_0=37,MPI_File_write_at_all_begin_ncalls_0=0;
static int MPI_File_write_at_all_end_stateid_0=38,MPI_File_write_at_all_end_ncalls_0=0;
static int MPI_File_read_all_begin_stateid_0=39,MPI_File_read_all_begin_ncalls_0=0;
static int MPI_File_read_all_end_stateid_0=40,MPI_File_read_all_end_ncalls_0=0;
static int MPI_File_write_all_begin_stateid_0=41,MPI_File_write_all_begin_ncalls_0=0;
static int MPI_File_write_all_end_stateid_0=42,MPI_File_write_all_end_ncalls_0=0;
static int MPI_File_read_ordered_begin_stateid_0=43,MPI_File_read_ordered_begin_ncalls_0=0;
static int MPI_File_read_ordered_end_stateid_0=44,MPI_File_read_ordered_end_ncalls_0=0;
static int MPI_File_write_ordered_begin_stateid_0=45,MPI_File_write_ordered_begin_ncalls_0=0;
static int MPI_File_write_ordered_end_stateid_0=46,MPI_File_write_ordered_end_ncalls_0=0;
static int MPI_File_get_type_extent_stateid_0=47,MPI_File_get_type_extent_ncalls_0=0;
static int MPI_Register_datarep_stateid_0=48,MPI_Register_datarep_ncalls_0=0;
static int MPI_File_set_atomicity_stateid_0=49,MPI_File_set_atomicity_ncalls_0=0;
static int MPI_File_get_atomicity_stateid_0=50,MPI_File_get_atomicity_ncalls_0=0;
static int MPI_File_sync_stateid_0=51,MPI_File_sync_ncalls_0=0;


static int procid_0;
static char logFileName_0[256];










int MPI_File_open( MPI_Comm  comm,char * filename,int  amode,MPI_Info  info,MPI_File * fh  )
{
  int returnVal;

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

  ++MPI_File_open_ncalls_0;
  MPE_Log_event( MPI_File_open_stateid_0*2,
	         MPI_File_open_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_open( comm, filename, amode, info, fh );

  MPE_Log_event( MPI_File_open_stateid_0*2+1,
	         MPI_File_open_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_close( MPI_File * fh  )
{
  int returnVal;

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

  ++MPI_File_close_ncalls_0;
  MPE_Log_event( MPI_File_close_stateid_0*2,
	         MPI_File_close_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_close( fh );

  MPE_Log_event( MPI_File_close_stateid_0*2+1,
	         MPI_File_close_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_delete( char * filename,MPI_Info  info  )
{
  int returnVal;

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

  ++MPI_File_delete_ncalls_0;
  MPE_Log_event( MPI_File_delete_stateid_0*2,
	         MPI_File_delete_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_delete( filename, info );

  MPE_Log_event( MPI_File_delete_stateid_0*2+1,
	         MPI_File_delete_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_set_size( MPI_File  fh,MPI_Offset  size  )
{
  int returnVal;

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

  ++MPI_File_set_size_ncalls_0;
  MPE_Log_event( MPI_File_set_size_stateid_0*2,
	         MPI_File_set_size_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_set_size( fh, size );

  MPE_Log_event( MPI_File_set_size_stateid_0*2+1,
	         MPI_File_set_size_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_preallocate( MPI_File  fh,MPI_Offset  size  )
{
  int returnVal;

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

  ++MPI_File_preallocate_ncalls_0;
  MPE_Log_event( MPI_File_preallocate_stateid_0*2,
	         MPI_File_preallocate_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_preallocate( fh, size );

  MPE_Log_event( MPI_File_preallocate_stateid_0*2+1,
	         MPI_File_preallocate_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_size( MPI_File  fh,MPI_Offset * size  )
{
  int returnVal;

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

  ++MPI_File_get_size_ncalls_0;
  MPE_Log_event( MPI_File_get_size_stateid_0*2,
	         MPI_File_get_size_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_size( fh, size );

  MPE_Log_event( MPI_File_get_size_stateid_0*2+1,
	         MPI_File_get_size_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_group( MPI_File  fh,MPI_Group * group  )
{
  int returnVal;

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

  ++MPI_File_get_group_ncalls_0;
  MPE_Log_event( MPI_File_get_group_stateid_0*2,
	         MPI_File_get_group_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_group( fh, group );

  MPE_Log_event( MPI_File_get_group_stateid_0*2+1,
	         MPI_File_get_group_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_amode( MPI_File  fh,int * amode  )
{
  int returnVal;

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

  ++MPI_File_get_amode_ncalls_0;
  MPE_Log_event( MPI_File_get_amode_stateid_0*2,
	         MPI_File_get_amode_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_amode( fh, amode );

  MPE_Log_event( MPI_File_get_amode_stateid_0*2+1,
	         MPI_File_get_amode_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_set_info( MPI_File  fh,MPI_Info  info  )
{
  int returnVal;

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

  ++MPI_File_set_info_ncalls_0;
  MPE_Log_event( MPI_File_set_info_stateid_0*2,
	         MPI_File_set_info_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_set_info( fh, info );

  MPE_Log_event( MPI_File_set_info_stateid_0*2+1,
	         MPI_File_set_info_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_info( MPI_File  fh,MPI_Info * info_used  )
{
  int returnVal;

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

  ++MPI_File_get_info_ncalls_0;
  MPE_Log_event( MPI_File_get_info_stateid_0*2,
	         MPI_File_get_info_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_info( fh, info_used );

  MPE_Log_event( MPI_File_get_info_stateid_0*2+1,
	         MPI_File_get_info_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_set_view( MPI_File  fh,MPI_Offset  disp,MPI_Datatype  etype,MPI_Datatype  filetype,char * datarep,MPI_Info  info  )
{
  int returnVal;

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

  ++MPI_File_set_view_ncalls_0;
  MPE_Log_event( MPI_File_set_view_stateid_0*2,
	         MPI_File_set_view_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_set_view( fh, disp, etype, filetype, datarep, info );

  MPE_Log_event( MPI_File_set_view_stateid_0*2+1,
	         MPI_File_set_view_ncalls_0, (char *)0 );


  return returnVal;
}

int MPI_File_get_view( MPI_File  fh,MPI_Offset * disp,MPI_Datatype * etype,MPI_Datatype * filetype,char * datarep  )
{
  int returnVal;

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

  ++MPI_File_get_view_ncalls_0;
  MPE_Log_event( MPI_File_get_view_stateid_0*2,
	         MPI_File_get_view_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_get_view( fh, disp, etype, filetype, datarep );

  MPE_Log_event( MPI_File_get_view_stateid_0*2+1,
	         MPI_File_get_view_ncalls_0, (char *)0 );


  return returnVal;
}

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

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

  ++MPI_File_read_at_ncalls_0;
  MPE_Log_event( MPI_File_read_at_stateid_0*2,
	         MPI_File_read_at_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_at( fh, offset, buf, count, datatype, status );

  MPE_Log_event( MPI_File_read_at_stateid_0*2+1,
	         MPI_File_read_at_ncalls_0, (char *)0 );


  return returnVal;
}

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

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

  ++MPI_File_read_at_all_ncalls_0;
  MPE_Log_event( MPI_File_read_at_all_stateid_0*2,
	         MPI_File_read_at_all_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_read_at_all( fh, offset, buf, count, datatype, status );

  MPE_Log_event( MPI_File_read_at_all_stateid_0*2+1,
	         MPI_File_read_at_all_ncalls_0, (char *)0 );


  return returnVal;
}

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

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

  ++MPI_File_write_at_ncalls_0;
  MPE_Log_event( MPI_File_write_at_stateid_0*2,
	         MPI_File_write_at_ncalls_0, (char *)0 );
  
  returnVal = PMPI_File_write_at( fh, offset, buf, count, datatype, status );

  MPE_Log_event( MPI_File_write_at_stateid_0*2+1,
	         MPI_File_write_at_ncalls_0, (char *)0 );