[svn-r9857] Purpose: Maintenance

Description: Removed PABLO from the source

Solution:

Platforms tested: arabica with 64-bit, copper with parallel,
                  heping with GNU C and C++ and PGI fortran (but
                  I disabled hl, there is some weird problem only
                  on heping: F9XMODFLAG is not
                  propagated to the Makefile files

Misc. update:

14 files changed, 0 insertions, 6791 deletions

diff --git a/pablo/HDFIOTrace.h b/pablo/HDFIOTrace.h
deleted file mode 100644
index 4c88403..0000000
--- a/pablo/HDFIOTrace.h
+++ /dev/null
@@ -1,423 +0,0 @@
-/*
- * This file is part of the Pablo Performance Analysis Environment
- *
- *          (R)
- * The Pablo    Performance Analysis Environment software is NOT in
- * the public domain.  However, it is freely available without fee for
- * education, research, and non-profit purposes.  By obtaining copies
- * of this and other files that comprise the Pablo Performance Analysis
- * Environment, you, the Licensee, agree to abide by the following
- * conditions and understandings with respect to the copyrighted software:
- * 
- * 1.  The software is copyrighted in the name of the Board of Trustees
- *     of the University of Illinois (UI), and ownership of the software
- *     remains with the UI. 
- *
- * 2.  Permission to use, copy, and modify this software and its documentation
- *     for education, research, and non-profit purposes is hereby granted
- *     to Licensee, provided that the copyright notice, the original author's
- *     names and unit identification, and this permission notice appear on
- *     all such copies, and that no charge be made for such copies.  Any
- *     entity desiring permission to incorporate this software into commercial
- *     products should contact:
- *
- *          Professor Daniel A. Reed                 reed@cs.uiuc.edu
- *          University of Illinois
- *          Department of Computer Science
- *          2413 Digital Computer Laboratory
- *          1304 West Springfield Avenue
- *          Urbana, Illinois  61801
- *          USA
- *
- * 3.  Licensee may not use the name, logo, or any other symbol of the UI
- *     nor the names of any of its employees nor any adaptation thereof in
- *     advertizing or publicity pertaining to the software without specific
- *     prior written approval of the UI.
- *
- * 4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
- *     SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
- *     OR IMPLIED WARRANTY.
- *
- * 5.  The UI shall not be liable for any damages suffered by Licensee from
- *     the use of this software.
- *
- * 6.  The software was developed under agreements between the UI and the
- *     Federal Government which entitle the Government to certain rights.
- *
- **************************************************************************
- *
- * Developed by: The Pablo Research Group
- *               University of Illinois at Urbana-Champaign
- *               Department of Computer Science
- *               1304 W. Springfield Avenue
- *               Urbana, IL     61801
- *
- *               http://www-pablo.cs.uiuc.edu
- *
- * Send comments to: pablo-feedback@guitar.cs.uiuc.edu
- *
- * Copyright (c) 1991-1996
- * The University of Illinois Board of Trustees.
- *      All Rights Reserved.
- *
- * PABLO is a registered trademark of
- * The Board of Trustees of the University of Illinois
- * registered in the U.S. Patent and Trademark Office.
- *
- * Author:  Ruth A. Aydt (aydt@cs.uiuc.edu)
- * Author:  Tara M. Madhyastha (tara@cs.uiuc.edu)
- *
- * Project Manager and Principal Investigator:
- *      Daniel A. Reed (reed@cs.uiuc.edu)
- *
- * Funded in part by National Science Foundation grants NSF CCR87-06653
- * and NSF CDA87-22836 (Tapestry), DARPA contracts DABT63-91-K-0004,
- * DABT63-93-C-0040, DABT63-94-C-0049 (SIO), and F30602-96-C-0161, NASA
- * contracts NAG-1-613 (ICLASS), USRA 5555-22, and NGT-51023, and a
- * collaborative research agreement with the Intel Supercomputer
- * Systems Division
- */
-
-/*
- * HDFIOTrace.h:  This header file can be included in c source files to
- *	       automatically redefine the I/O function calls to the
- *	       tracing versions when "IOTRACE" is defined.   
- *
- *	       It also contains function declarations for the I/O trace
- *	       routines called from user code and constant values that may
- *	       be needed by the user.
- *
- */
-#ifndef HDFIOTrace_h
-#define HDFIOTrace_h
-
- 
-/************************************************************************/
-/* These defines and the external variable OUTPUT_SWITCH are used in    */
-/* for HDF and MPI-IO tracing to govern the type of output produced.    */
-/************************************************************************/
-extern int OUTPUT_SWITCH;        /* default is SDDF records      */
- 
-#if defined(__STDC__) || defined(__cplusplus)
-#define PROTO(x) x
-#else
-#define PROTO(x) ()
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/* #include <stdio.h> */
-#include <sys/types.h>
-
-void startHDFtraceEvent (int );
-void endHDFtraceEvent (int , int , char *, int );
-
-FILE *HDFtraceFOPEN( const char *filename, const char *type ) ;
-#ifndef HDFtrace3OPEN__
-	int HDFtrace3OPEN( const char *path, int flags, ... ) ;
-#endif
-int HDFtraceCREAT( const char *path, mode_t mode );
-int HDFtraceFFLUSH( FILE *stream ) ;
-int HDFtraceFCLOSE( FILE *stream ) ;
-int HDFtraceCLOSE( int fd ) ;
-ssize_t HDFtraceREAD( int fd, void *buf, size_t nbyte );
-size_t HDFtraceFREAD( void *ptr, size_t size, size_t nitems, FILE *stream );
-void *HDFtraceMALLOC( size_t );
-off_t HDFtraceLSEEK( int fd, off_t offset, int whence ) ;
-int HDFtraceFSEEK( FILE *stream, long offset, int whence ) ;
-int HDFtraceFSETPOS( FILE *stream, const fpos_t *position ) ;
-void HDFtraceREWIND( FILE *stream ) ;
-ssize_t HDFtraceWRITE( int fd, const void *buf, size_t nbytes );
-size_t HDFtraceFWRITE( const void *, size_t , size_t , FILE * );
-int HDFtracePUTS( const char *s ) ;
-int HDFtraceFPUTC( int c, FILE *stream ) ;
-int HDFtraceFPUTS( const char *s, FILE *stream ) ;
-
-#ifdef HDFIOTRACE
-/*
- * If IOTRACE is defined, then redefine standard I/O routines to tracing
- * versions.  Also include the appropriate .h files so the function
- * declarations from them will be redefined to traced versions.
- */
-
-#ifdef fopen 
-#   undef fopen
-#endif
-#ifdef open 
-#   undef open
-#endif
-#ifdef creat 
-#   undef creat
-#endif
- 
-#ifdef fflush 
-#   undef fflush
-#endif
-#ifdef fclose 
-#   undef fclose
-#endif
-#ifdef close 
-#   undef close
-#endif
- 
-#ifdef read 
-#   undef read
-#endif
-#ifdef fread 
-#   undef fread
-#endif
-#ifdef fgetc 
-#   undef fgetc
-#endif
-#ifdef fgets 
-#   undef fgets
-#endif
-#ifdef gets 
-#   undef gets
-#endif
-#ifdef getw 
-#   undef getw
-#endif
- 
-#ifdef lseek 
-#   undef lseek
-#endif
-#ifdef fseek 
-#   undef fseek
-#endif
-#ifdef rewind 
-#   undef rewind
-#endif
-#ifdef fsetpos 
-#   undef fsetpos
-#endif
- 
-#ifdef write 
-#   undef write
-#endif
-#ifdef fwrite 
-#   undef fwrite
-#endif
-#ifdef fputc 
-#   undef fputc
-#endif
-#ifdef fputs 
-#   undef fputs
-#endif
-#ifdef puts 
-#   undef puts
-#endif
-#ifdef putw 
-#   undef putw
-#endif
- 
-#ifdef malloc 
-#   undef malloc
-#endif
-
-#define fopen		(FILE *)HDFtraceFOPEN
-#define open		HDFtrace3OPEN
-#define creat		HDFtraceCREAT
-
-#define fflush		HDFtraceFFLUSH
-#define fclose		HDFtraceFCLOSE
-#define close		HDFtraceCLOSE
-
-#define read		HDFtraceREAD
-#define fread		HDFtraceFREAD
-#define fgetc		HDFtraceFGETC
-#define fgets		HDFtraceFGETS
-#define gets		HDFtraceGETS
-#define getw		HDFtraceGETW
-
-#define lseek		HDFtraceLSEEK
-#define fseek		HDFtraceFSEEK
-#define rewind		HDFtraceREWIND
-#define fsetpos		HDFtraceFSETPOS
-
-#define write		HDFtraceWRITE
-#define fwrite		HDFtraceFWRITE
-#define fputc		HDFtraceFPUTC
-#define fputs		HDFtraceFPUTS
-#define puts		HDFtracePUTS
-#define putw		HDFtracePUTW
-
-#define malloc		HDFtraceMALLOC
-
-#include <stdio.h>
-#include <fcntl.h>
-
-/*
- * On the iPSC/860 we don't include unistd.h or we get warnings about
- * SEEK_* multiply defined.
- */
-#ifndef __NX
-#include <unistd.h>
-#endif
-
-
-#include <stdio.h>
-/*
- * Function declarations for routines that can be called from user code.
- */
-void  enableIOtracing( void );
-void  disableIOtracing( void );
-
-void  enableIOdetail( void );
-void  disableIOdetail( void );
-
-void  enableLifetimeSummaries( void );
-void  disableLifetimeSummaries( void );
-
-void  enableTimeWindowSummaries ( double );
-void  disableTimeWindowSummaries( void );
-void  setTimeWindowSize ( double );
-void  outputTimeWindowSummaries( void );
-
-void  enableFileRegionSummaries ( int );
-void  disableFileRegionSummaries( void );
-void  setFileRegionSize ( int );
-void  outputFileRegionSummaries( void );
-
-int   HDFtrace2OPEN ( char*, int );
-void  HDFtraceReadBegin ( int, int, int );
-void  HDFtraceReadEnd ( int );
-void  HDFtraceWriteBegin ( int, int, int );
-void  HDFtraceWriteEnd ( int );
-void  HDFtraceIOBegin ( int, int );
-void  HDFtraceIOEnd ( int, double, char * );
-
-#ifdef H5_HAVE_PARALLEL
-
-#include "HDFmpioProtos.h"
-
-/*
-#ifdef MPI_File_open 		
-#undef MPI_File_open 		
-#endif
-#ifdef MPI_File_close 		
-#undef MPI_File_close 		
-#endif
-#ifdef MPI_File_delete 	
-#undef MPI_File_delete 	
-#endif
-#ifdef MPI_File_set_size 	
-#undef MPI_File_set_size 	
-#endif
-#ifdef MPI_File_preallocate 	
-#undef MPI_File_preallocate 	
-#endif
-#ifdef MPI_File_get_size 	
-#undef MPI_File_get_size 	
-#endif
-#ifdef MPI_File_get_group 	
-#undef MPI_File_get_group 	
-#endif
-#ifdef MPI_File_get_amode 	
-#undef MPI_File_get_amode 	
-#endif
-#ifdef MPI_File_set_view 	
-#undef MPI_File_set_view 	
-#endif
-#ifdef MPI_File_get_view 	
-#undef MPI_File_get_view 	
-#endif
-#ifdef MPI_File_read_at 	
-#undef MPI_File_read_at 	
-#endif
-#ifdef MPI_File_read_at_all 	
-#undef MPI_File_read_at_all 	
-#endif
-#ifdef MPI_File_write_at 	
-#undef MPI_File_write_at 	
-#endif
-#ifdef MPI_File_write_at_all 	
-#undef MPI_File_write_at_all 	
-#endif
-#ifdef MPI_File_iread_at 	
-#undef MPI_File_iread_at 	
-#endif
-#ifdef MPI_File_iwrite_at 	
-#undef MPI_File_iwrite_at 	
-#endif
-#ifdef MPI_File_read 		
-#undef MPI_File_read 		
-#endif
-#ifdef MPI_File_read_all 	
-#undef MPI_File_read_all 	
-#endif
-#ifdef MPI_File_write 		
-#undef MPI_File_write 		
-#endif
-#ifdef MPI_File_write_all 	
-#undef MPI_File_write_all 	
-#endif
-#ifdef MPI_File_iread 		
-#undef MPI_File_iread 		
-#endif
-#ifdef MPI_File_iwrite 	
-#undef MPI_File_iwrite 	
-#endif
-#ifdef MPI_File_seek 		
-#undef MPI_File_seek 		
-#endif
-#ifdef MPI_File_get_position 	
-#undef MPI_File_get_position 	
-#endif
-#ifdef MPI_File_get_byte_offset
-#undef MPI_File_get_byte_offset
-#endif
-#ifdef MPI_File_get_type_extent
-#undef MPI_File_get_type_extent
-#endif
-#ifdef MPI_File_set_atomicity 	
-#undef MPI_File_set_atomicity 	
-#endif
-#ifdef MPI_File_get_atomicity 	
-#undef MPI_File_get_atomicity 	
-#endif
-#ifdef MPI_File_sync 		
-#undef MPI_File_sync 		
-#endif
-
-#define MPI_File_open 		 HDF_MPI_File_open
-#define MPI_File_close 		 HDF_MPI_File_close
-#define MPI_File_delete 	 HDF_MPI_File_delete
-#define MPI_File_set_size 	 HDF_MPI_File_set_size
-#define MPI_File_preallocate 	 HDF_MPI_File_preallocate
-#define MPI_File_get_size 	 HDF_MPI_File_get_size
-#define MPI_File_get_group 	 HDF_MPI_File_get_group
-#define MPI_File_get_amode 	 HDF_MPI_File_get_amode
-#define MPI_File_set_view 	 HDF_MPI_File_set_view
-#define MPI_File_get_view 	 HDF_MPI_File_get_view
-#define MPI_File_read_at 	 HDF_MPI_File_read_at
-#define MPI_File_read_at_all 	 HDF_MPI_File_read_at_all
-#define MPI_File_write_at 	 HDF_MPI_File_write_at
-#define MPI_File_write_at_all 	 HDF_MPI_File_write_at_all
-#define MPI_File_iread_at 	 HDF_MPI_File_iread_at
-#define MPI_File_iwrite_at 	 HDF_MPI_File_iwrite_at
-#define MPI_File_read 		 HDF_MPI_File_read
-#define MPI_File_read_all 	 HDF_MPI_File_read_all
-#define MPI_File_write 		 HDF_MPI_File_write
-#define MPI_File_write_all 	 HDF_MPI_File_write_all
-#define MPI_File_iread 		 HDF_MPI_File_iread
-#define MPI_File_iwrite 	 HDF_MPI_File_iwrite
-#define MPI_File_seek 		 HDF_MPI_File_seek
-#define MPI_File_get_position 	 HDF_MPI_File_get_position
-#define MPI_File_get_byte_offset HDF_MPI_File_get_byte_offset
-#define MPI_File_get_type_extent HDF_MPI_File_get_type_extent
-#define MPI_File_set_atomicity 	 HDF_MPI_File_set_atomicity
-#define MPI_File_get_atomicity 	 HDF_MPI_File_get_atomicity
-#define MPI_File_sync 		 HDF_MPI_File_sync
-#endif 
-*/
-#endif 
-#endif 
-#ifdef __cplusplus
-}
-
-#endif /* H5_HAVE_PARALLEL */
-
-#endif	/* HDFIOTRACE conditional */
diff --git a/pablo/HDFTrace.h b/pablo/HDFTrace.h
deleted file mode 100644
index a8e2a47..0000000
--- a/pablo/HDFTrace.h
+++ /dev/null
@@ -1,173 +0,0 @@
-/*  This file is part of the Pablo Performance Analysis Environment
-// 
-//           (R)
-//  The Pablo    Performance Analysis Environment software is NOT in
-//  the public domain.  However, it is freely available without fee for
-//  education, research, and non-profit purposes.  By obtaining copies
-//  of this and other files that comprise the Pablo Performance Analysis
-//  Environment, you, the Licensee, agree to abide by the following
-//  conditions and understandings with respect to the copyrighted software:
-//  
-//  1.  The software is copyrighted in the name of the Board of Trustees
-//      of the University of Illinois (UI), and ownership of the software
-//      remains with the UI. 
-// 
-//  2.  Permission to use, copy, and modify this software and its documentation
-//      for education, research, and non-profit purposes is hereby granted
-//      to Licensee, provided that the copyright notice, the original author's
-//      names and unit identification, and this permission notice appear on
-//      all such copies, and that no charge be made for such copies.  Any
-//      entity desiring permission to incorporate this software into commercial
-//      products should contact:
-// 
-//           Professor Daniel A. Reed                 reed@cs.uiuc.edu
-//           University of Illinois
-//           Department of Computer Science
-//           2413 Digital Computer Laboratory
-//           1304 West Springfield Avenue
-//           Urbana, Illinois  61801
-//           USA
-// 
-//  3.  Licensee may not use the name, logo, or any other symbol of the UI
-//      nor the names of any of its employees nor any adaptation thereof in
-//      advertizing or publicity pertaining to the software without specific
-//      prior written approval of the UI.
-// 
-//  4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
-//      SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
-//      OR IMPLIED WARRANTY.
-// 
-//  5.  The UI shall not be liable for any damages suffered by Licensee from
-//      the use of this software.
-// 
-//  6.  The software was developed under agreements between the UI and the
-//      Federal Government which entitle the Government to certain rights.
-// 
-// *************************************************************************
-// 
-//  Developed by: The Pablo Research Group
-//                University of Illinois at Urbana-Champaign
-//                Department of Computer Science
-//                1304 W. Springfield Avenue
-//                Urbana, IL     61801
-// 
-//                http://www-pablo.cs.uiuc.edu
-// 
-//  Send comments to: pablo-feedback@guitar.cs.uiuc.edu
-// 
-//  Copyright (c) 1987-1998
-//  The University of Illinois Board of Trustees.
-//       All Rights Reserved.
-// 
-//  PABLO is a registered trademark of
-//  The Board of Trustees of the University of Illinois
-//  registered in the U.S. Patent and Trademark Office.
-// 
-//  Project Manager and Principal Investigator:
-//       Daniel A. Reed (reed@cs.uiuc.edu)
-// 
-// Funded in part by the Defense Advanced Research Projects Agency under 
-// DARPA contracts DABT63-94-C0049 (SIO Initiative), F30602-96-C-0161,
-// and DABT63-96-C-0027 by the National Science Foundation under the PACI 
-// program and grants NSF CDA 94-01124 and ASC 97-20202, and by the 
-// Department of Energy under contracts DOE B-341494, W-7405-ENG-48, and 
-// 1-B-333164.
-//======================================================================*/
-#ifndef HDFTRACE_H
-#define HDFTRACE_H
-/************************************************************************/
-/* A shared char * pointer (defined in HDF_Descriptors.c) and Macro 	*/
-/* definitions								*/
-/************************************************************************/
-extern char *hdfRecordPointer;
-/************************************************************************/
-/* The following are used in tagging HDF packets.  Avoid using FAMILY   */
-/* tags in the range 0100000 to 0200000					*/
-/************************************************************************/
-#define HDF_FAMILY 	 	0100000
-#define HDF_SUMMARY_FAMILY  	0140000
-/************************************************************************/
-/* Number of fields in the packets.					*/
-/************************************************************************/
-#define NUM_FIELDS	17
-/* 
- * "WRITE_HDF_ATTR" macro to output an attribute pair. 
- */
-#ifndef WRITE_HDF_ATTR
-#define WRITE_HDF_ATTR( attrKey, attrValue ) \
-    sddfWriteString( &hdfRecordPointer, attrKey ); \
-    sddfWriteString( &hdfRecordPointer, attrValue ); 
-#endif /* WRITE_HDF_ATTR */
-
-/* 
- * "WRITE_HDF_FIELD" macro to output a field with a single attribute pair. 
- */
-#ifndef WRITE_HDF_FIELD
-#define WRITE_HDF_FIELD( name, attrKey, attrValue, type, dimension ) \
-    sddfWriteString( &hdfRecordPointer, name ); \
-    sddfWriteInteger( &hdfRecordPointer, 1 ); \
-    sddfWriteString( &hdfRecordPointer, attrKey ); \
-    sddfWriteString( &hdfRecordPointer, attrValue ); \
-    sddfWriteInteger( &hdfRecordPointer, type ); \
-    sddfWriteInteger( &hdfRecordPointer, dimension ); 
-#endif /* WRITE_HDF_FIELD */
-
-/* 
- * "WRITE_HDF_FIELD2" to output a field with two attribute pairs. 
- */
-#ifndef WRITE_HDF_FIELD2
-#define WRITE_HDF_FIELD2( name, aKey1, aValue1, aKey2, aValue2, type, dimension ) \
-    sddfWriteString( &hdfRecordPointer, name ); \
-    sddfWriteInteger( &hdfRecordPointer, 2 ); \
-    sddfWriteString( &hdfRecordPointer, aKey1 ); \
-    sddfWriteString( &hdfRecordPointer, aValue1 ); \
-    sddfWriteString( &hdfRecordPointer, aKey2 ); \
-    sddfWriteString( &hdfRecordPointer, aValue2 ); \
-    sddfWriteInteger( &hdfRecordPointer, type ); \
-    sddfWriteInteger( &hdfRecordPointer, dimension ); 
-#endif /* WRITE_HDF_FIELD2*/
-
-#define FAMILY_NAME         	0260            /* Data Set Name Record */
-#define FAMILY_MISC      	0270
-#define FAMILY_HDFPROCNAME     	0300
-
-#define mpiOpenBeginID             900800
-#define mpiOpenEndID               900801
-
-#define mpiCloseBeginID            900802
-#define mpiCloseEndID              900803
-
-#define mpiSetSizeBeginID          900806
-#define mpiSetSizeEndID            900807
-
-#define mpiGetSizeBeginID          900810
-#define mpiGetSizeEndID            900811
-
-#define mpiSetViewBeginID          900816
-#define mpiSetViewEndID            900817
-
-#define mpiGetViewBeginID          900818
-#define mpiGetViewEndID            900819
-
-#define mpiReadAtBeginID           900820
-#define mpiReadAtEndID             900821
-
-#define mpiReadAtAllBeginID        900822
-#define mpiReadAtAllEndID          900823
-
-#define mpiWriteAtBeginID          900824
-#define mpiWriteAtEndID            900825
-
-#define mpiWriteAtAllBeginID       900826
-#define mpiWriteAtAllEndID         900827
-
-#define mpiSyncBeginID             900856
-#define mpiSyncEndID               900857
-
-typedef struct {
-        long numBytes;
-        long setID;
-        char *setName;
-} HDFsetInfo ;
-
-#endif /* HDFTRACE_H */
diff --git a/pablo/HDFmpioProtos.h b/pablo/HDFmpioProtos.h
deleted file mode 100644
index 886983d..0000000
--- a/pablo/HDFmpioProtos.h
+++ /dev/null
@@ -1,77 +0,0 @@
-#ifdef PCF_BUILD
-#define MPI_File_open PCF_MPI_File_open
-#define MPI_File_close PCF_MPI_File_close
-#define MPI_File_set_size PCF_MPI_File_set_size
-#define MPI_File_get_size PCF_MPI_File_get_size
-#define MPI_File_set_view PCF_MPI_File_set_view
-#define MPI_File_get_view PCF_MPI_File_get_view
-#define MPI_File_read_at PCF_MPI_File_read_at
-#define MPI_File_read_at_all PCF_MPI_File_read_at_all
-#define MPI_File_write_at PCF_MPI_File_write_at
-#define MPI_File_write_at_all PCF_MPI_File_write_at_all
-#define MPI_File_sync PCF_MPI_File_sync
-
-int PCF_MPI_File_open( MPI_Comm comm, char *filename, int amode, 
-			MPI_Info info, MPI_File *fh );
-int PCF_MPI_File_close( MPI_File *fh );
-int PCF_MPI_File_delete( char *filename, MPI_Info info );
-int PCF_MPI_File_set_size( MPI_File fh, MPI_Offset size );
-int PCF_MPI_File_get_size( MPI_File fh, MPI_Offset *size );
-int PCF_MPI_File_set_view( MPI_File fh, MPI_Offset disp, MPI_Datatype etype, 
-			    MPI_Datatype filetype, char *datarep, 
-			    MPI_Info info );
-int PCF_MPI_File_get_view( MPI_File fh, MPI_Offset *disp, 
-			    MPI_Datatype *etype, MPI_Datatype *filetype, 
-			    char *datarep );
-int PCF_MPI_File_read_at( MPI_File fh, MPI_Offset offset, void *buf, 
-			    int count, MPI_Datatype datatype, 
-			    MPI_Status *status );
-int PCF_MPI_File_read_at_all( MPI_File fh, MPI_Offset offset, void *buf, 
-			       int count, MPI_Datatype datatype, 
-			       MPI_Status *status );
-int PCF_MPI_File_write_at( MPI_File fh, MPI_Offset offset, void *buf, 
-                            int count, MPI_Datatype datatype, 
-                            MPI_Status *status );
-int PCF_MPI_File_write_at_all( MPI_File fh, MPI_Offset offset, void *buf, 
-                                int count, MPI_Datatype datatype, 
-                                MPI_Status *status );
-int PCF_MPI_File_sync( MPI_File fh );
-#else
-#define MPI_File_open HDF_MPI_File_open
-#define MPI_File_close HDF_MPI_File_close
-#define MPI_File_set_size HDF_MPI_File_set_size
-#define MPI_File_get_size HDF_MPI_File_get_size
-#define MPI_File_set_view HDF_MPI_File_set_view
-#define MPI_File_get_view HDF_MPI_File_get_view
-#define MPI_File_read_at HDF_MPI_File_read_at
-#define MPI_File_read_at_all HDF_MPI_File_read_at_all
-#define MPI_File_write_at HDF_MPI_File_write_at
-#define MPI_File_write_at_all HDF_MPI_File_write_at_all
-#define MPI_File_sync HDF_MPI_File_sync
-
-int HDF_MPI_File_open( MPI_Comm comm, char *filename, int amode, 
-			MPI_Info info, MPI_File *fh );
-int HDF_MPI_File_close( MPI_File *fh );
-int HDF_MPI_File_delete( char *filename, MPI_Info info );
-int HDF_MPI_File_set_size( MPI_File fh, MPI_Offset size );
-int HDF_MPI_File_get_size( MPI_File fh, MPI_Offset *size );
-int HDF_MPI_File_set_view( MPI_File fh, MPI_Offset disp, MPI_Datatype etype, 
-			    MPI_Datatype filetype, char *datarep, 
-			    MPI_Info info );
-int HDF_MPI_File_get_view( MPI_File fh, MPI_Offset *disp, 
-			    MPI_Datatype *etype, MPI_Datatype *filetype, 
-			    char *datarep );
-int HDF_MPI_File_read_at( MPI_File fh, MPI_Offset offset, void *buf, 
-			    int count, MPI_Datatype datatype, 
-			    MPI_Status *status );
-int HDF_MPI_File_read_at_all( MPI_File fh, MPI_Offset offset, void *buf, 
-			       int count, MPI_Datatype datatype, 
-			       MPI_Status *status );
-int HDF_MPI_File_write_at( MPI_File fh, MPI_Offset offset, void *buf, 
-                            int count, MPI_Datatype datatype, 
-                            MPI_Status *status );
-int HDF_MPI_File_write_at_all( MPI_File fh, MPI_Offset offset, void *buf, 
-                                int count, MPI_Datatype datatype, 
-                                MPI_Status *status );
-int HDF_MPI_File_sync( MPI_File fh );
-#endif /* PCF_BUILD */
diff --git a/pablo/HDFrecord_RT.h b/pablo/HDFrecord_RT.h
deleted file mode 100644
index 3fb3f31..0000000
--- a/pablo/HDFrecord_RT.h
+++ /dev/null
@@ -1,215 +0,0 @@
-/*
- * This file is part of the Pablo Performance Analysis Environment
- *
- *          (R)
- * The Pablo    Performance Analysis Environment software is NOT in
- * the public domain.  However, it is freely available without fee for
- * education, research, and non-profit purposes.  By obtaining copies
- * of this and other files that comprise the Pablo Performance Analysis
- * Environment, you, the Licensee, agree to abide by the following
- * conditions and understandings with respect to the copyrighted software:
- * 
- * 1.  The software is copyrighted in the name of the Board of Trustees
- *     of the University of Illinois (UI), and ownership of the software
- *     remains with the UI. 
- *
- * 2.  Permission to use, copy, and modify this software and its documentation
- *     for education, research, and non-profit purposes is hereby granted
- *     to Licensee, provided that the copyright notice, the original author's
- *     names and unit identification, and this permission notice appear on
- *     all such copies, and that no charge be made for such copies.  Any
- *     entity desiring permission to incorporate this software into commercial
- *     products should contact:
- *
- *          Professor Daniel A. Reed                 reed@cs.uiuc.edu
- *          University of Illinois
- *          Department of Computer Science
- *          2413 Digital Computer Laboratory
- *          1304 West Springfield Avenue
- *          Urbana, Illinois  61801
- *          USA
- *
- * 3.  Licensee may not use the name, logo, or any other symbol of the UI
- *     nor the names of any of its employees nor any adaptation thereof in
- *     advertizing or publicity pertaining to the software without specific
- *     prior written approval of the UI.
- *
- * 4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
- *     SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
- *     OR IMPLIED WARRANTY.
- *
- * 5.  The UI shall not be liable for any damages suffered by Licensee from
- *     the use of this software.
- *
- * 6.  The software was developed under agreements between the UI and the
- *     Federal Government which entitle the Government to certain rights.
- *
- **************************************************************************
- *
- * Developed by: The Pablo Research Group
- *               University of Illinois at Urbana-Champaign
- *               Department of Computer Science
- *               1304 W. Springfield Avenue
- *               Urbana, IL     61801
- *
- *               http://www-pablo.cs.uiuc.edu
- *
- * Send comments to: pablo-feedback@guitar.cs.uiuc.edu
- *
- * Copyright (c) 1987-1996
- * The University of Illinois Board of Trustees.
- *      All Rights Reserved.
- *
- * PABLO is a registered trademark of
- * The Board of Trustees of the University of Illinois
- * registered in the U.S. Patent and Trademark Office.
- *
- * Author: Dan Wells (dwells@cs.uiuc.edu)
- *
- * Project Manager and Principal Investigator:
- *      Daniel A. Reed (reed@cs.uiuc.edu)
- *
- * Funded in part by National Science Foundation grants NSF CCR87-06653
- * and NSF CDA87-22836 (Tapestry), DARPA contracts DABT63-91-K-0004,
- * DABT63-93-C-0040, DABT63-94-C-0049 (SIO), and F30602-96-C-0161, NASA
- * contracts NAG-1-613 (ICLASS), USRA 5555-22, and NGT-51023, and a
- * collaborative research agreement with the Intel Supercomputer
- * Systems Division
- */
-/*
- * HDFrecord.h: Class to represent HDF records.
- *
- *	$Header$
- */
-
-#ifndef HDFRECORD_RT_H
-#define HDFRECORD_RT_H
-#ifndef NULL
-#define NULL 0
-#endif 
-
-#include <string.h>
-#include <stdlib.h>
-#include <limits.h>
-#include "ProcIDs.h"
- 
-#ifndef min
-#define min( x , y ) ( x <= y ? x : y )
-#endif
-#ifndef max
-#define max( x , y ) ( x >= y ? x : y )
-#endif
-/*======================================================================*
-// Enumeration of time fields in an HDFrec_t below			*
-//======================================================================*/
-enum TimeFields { HDF_, 
-                  MPI, 
-                  Malloc, 
-                  AllIO, 
-                  Open,
-                  Close,
-                  Read,
-                  Write,
-                  Aread,
-                  Awrite,
-                  Seek,
-                  Wait,
-                  Misc,
-                  MPIOread,
-                  MPIOreadAll,
-                  MPIOwrite,
-                  MPIOwriteAll,
-                  MPIOiRead,
-                  MPIOiWrite,
-                  MPIOother,
-                  nTallyFields,
-                  MPIOreadTrans,
-                  MPIOreadAllTrans,
-                  MPIOwriteTrans,
-                  MPIOwriteAllTrans
-                };
-/*======================================================================*
-// Enumeration of byte fields in an HDFrec_t below			*
-//======================================================================*/
-enum ByteFields{ MallocBytes,
-                 ReadBytes,
-                 WriteBytes,
-                 AreadBytes,
-                 AwriteBytes,
-                 MPIOreadBytesReq,
-                 MPIOreadBytesTrans,
-                 MPIOwriteBytesReq,
-                 MPIOwriteBytesTrans,
-                 MPIOreadAllBytesReq,
-                 MPIOreadAllBytesTrans,
-                 MPIOwriteAllBytesReq,
-                 MPIOwriteAllBytesTrans,
-                 MPIOiReadBytesReq,
-                 MPIOiWriteBytesReq,
-                 nByteFields,
-                 nHistFields = AwriteBytes+1 };
-/*======================================================================*
-// Definition of first and last IO event.         	 		*
-//======================================================================*/
-#define FirstIO Open
-#define LastIO Misc
-#define nBkts 4
-#define ONEK 1024
-int BktLim[] = { 1, 4*ONEK, 64*ONEK, 256*ONEK, INT_MAX } ;
-/*======================================================================*
-// Definition of structure used to account activity in an HDF call	*
-//======================================================================*/
-typedef struct {
-  	int   nCalls;   		/* number of proc calls		*/
-  	CLOCK lastCall;			/* time of last call		*/
-  	CLOCK incDur;			/* inclusive duration		*/
-  	CLOCK excDur;			/* exclusive duration		*/
-	CLOCK times[nTallyFields];	/* Tally op/calls times		*/
-	int counts[nTallyFields];	/* Tally op/calls counts	*/
-	int bytes[nByteFields];		/* Tally bytes transferred	*/
-	int Hists[nHistFields][nBkts];  /* Historgrams			*/
-	long hdfID;			/* data set ID			*/
-	long xRef;			/* data set cross reference	*/
-} HDFrec_t;
-/*======================================================================*
-// Node used to maintain linked lists of HDF procedure activity.       	*
-//======================================================================*/
-typedef struct HDFnode {
-  	CLOCK   lastIOtime;		/* last IO time stamp		*/
-	HDFrec_t record;	        /* data				*/
-	struct HDFnode *ptr;		/* link pointer			*/
-	int	eventID;		/* event ID			*/
-} HDFnode_t;
-/*======================================================================*
-// Structure used to produce SDDF packets for Named identifiers.       	*
-//======================================================================*/
-typedef struct {
-        int packetLength;       /* bytes in packet			*/
-        int packetType;         /* == PKT_DATA				*/
-        int packetTag;          /* == FAMILY_<name>                	*/
-        int fileType;           /* Type of data set          		*/
-	int fileID;     	/* File ID             			*/
-        int nameLen;		/* length of file			*/
-} HDFNamePacket_t;
-/*======================================================================*
-// Node used to form linked lists to track named identifiers.          	*
-//======================================================================*/
-typedef struct fileRec {
-	struct fileRec *ptr;
-	long    hdfID;
-	long    PabloID;
-	char   *fileName;
-} fileRec_t;
-/*=======================================================================
-//	Utility programs to determine field index for a given eventID	* 
-//=====================================================================*/
-int getHDFFieldIndex( int eventID );
-int getHDFByteFieldIndex( int eventID );
-
-/*
- * Define flags to distinguish misc i/o begin from misc i/o end
- */
-#define MISC_BEGIN		0
-#define MISC_END		1
-
-#endif /* HDFRECORD_RT_H */
diff --git a/pablo/Makefile.in b/pablo/Makefile.in
deleted file mode 100644
index 4949468..0000000
--- a/pablo/Makefile.in
+++ /dev/null
@@ -1,231 +0,0 @@
-## HDF5 Library Makefile(.in)
-##
-##
-## Copyright by the Board of Trustees of the University of Illinois.
-## All rights reserved.
-##
-## This file is part of HDF5.  The full HDF5 copyright notice, including
-## terms governing use, modification, and redistribution, is contained in
-## the files COPYING and Copyright.html.  COPYING can be found at the root
-## of the source code distribution tree; Copyright.html can be found at the
-## root level of an installed copy of the electronic HDF5 document set and
-## is linked from the top-level documents page.  It can also be found at
-## http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have
-## access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu.
-##
-top_srcdir=@top_srcdir@
-top_builddir=..
-srcdir=@srcdir@
-
-@COMMENCE@
-
-TRACE=$(PERL) $(top_srcdir)/bin/trace
-.SUFFIXES: .c .o .lo .x
-
-###############################################################################
-## MODIFICATONS FOR CREATING THE PABLO INSTRUMENTED LIBRARY libhdf5-inst.a
-## For Pablo instrumenation of parallel code, remove the # from in front of
-## PABLO_MPIO_FLAGS.
-###############################################################################
-PARALLEL_PABLO=@PARALLEL_PABLO@
-
-PABLO_MPIO_FLAGS=${PARALLEL_PABLO:yes=-DH5_HAVE_PARALLEL -DH5_HAVE_MPIOTRACE}
-PABLO_INC=-I$(top_srcdir)/src -I$(top_srcdir)/pablo -I$(top_builddir)/src -I.
-PABLO_DEFS=-DH5_HAVE_PABLO -DH5_DEBUG_API -DNDEBUG -D$(PABLO_BLD)_BUILD
-
-PABLO_FLAGS=$(PABLO_DEFS) $(PABLO_MPIO_FLAGS) $(PABLO_INC)
-
-CPPFLAGS=$(PABLO_FLAGS) @CPPFLAGS@
-
-## This is our main target:
-LIB=libhdf5-inst.a
-
-SRCDIRS=$(top_srcdir)/pablo/. $(top_srcdir)/src/.
-
-# Took out the GNU'isms for the SRCFILES and LIB_SRC variables.
-#
-# This may cause problems in two ways: any changes to the SRCDIRS
-# variable should be make to the SRCFILES macro also and the LIB_SRC
-# variable now has directory paths included in it (which may cause
-# problems somewhere). - QAK
-#
-LIB_SRC=H5.c H5A.c H5AC.c H5B.c H5D.c H5Dio.c H5E.c H5F.c H5FD.c \
-	H5FDcore.c H5FDfamily.c H5FDfphdf5.c H5FDgass.c H5FDlog.c \
-	H5FDmpio.c H5FDmpiposix.c H5FDmulti.c H5FDsec2.c H5FDsrb.c \
-	H5FDstdio.c H5FDstream.c H5FL.c H5FO.c H5FP.c H5FPclient.c \
-	H5FPserver.c H5FS.c H5Fcompact.c H5Fcontig.c H5Fistore.c H5Fseq.c \
-	H5G.c H5Gent.c H5Gnode.c H5Gstab.c H5HG.c H5HL.c H5HP.c H5I.c \
-	H5MF.c H5MM.c H5O.c H5Oattr.c H5Obogus.c H5Ocont.c H5Odtype.c \
-	H5Oefl.c H5Ofill.c H5Olayout.c H5Omtime.c H5Oname.c H5Onull.c \
- 	H5Opline.c H5Osdspace.c H5Oshared.c H5Ostab.c H5P.c H5Pdcpl.c \
-	H5Pdxpl.c H5Pfapl.c H5Pfcpl.c H5Ptest.c H5R.c H5RS.c H5S.c H5ST.c \
-	H5Sall.c H5Shyper.c H5Smpio.c H5Snone.c H5Spoint.c H5Sselect.c \
-	H5Stest.c H5T.c H5TB.c H5TS.c H5Tarray.c H5Tbit.c H5Tcommit.c \
-	H5Tcompound.c H5Tconv.c H5Tcset.c H5Tenum.c H5Tfields.c H5Tfixed.c \
-	H5Tfloat.c H5Tinit.c H5Tnative.c H5Toffset.c H5Topaque.c H5Torder.c \
-	H5Tpad.c H5Tprecis.c H5Tstrpad.c H5Tvlen.c H5V.c H5Z.c H5Zdeflate.c \
-	H5Zfletcher32.c H5Zshuffle.c H5Zszip.c H5detect.c
-
-PABLO_OBJ=PabloHDF.o PabloHDF_RT.o PabloHDF_SDDF.o PabloHDF_MPIO.o
-
-PABLO_INCLUDES=HDFentryNames.h HDFidList.h ProcIDs.h HDFTrace.h ProcTrace.h   \
-               ProcTrace.inc
-
-LIB_COBJ=$(LIB_SRC:.c=.o)
-LIB_OBJ=$(PABLO_OBJ) $(LIB_COBJ)
-
-$(LIB_COBJ): $(PABLO_INCLUDES)
-$(PABLO_OBJ): $(PABLO_INCLUDES)
-.c.o:
-	if test "$*" != "H5Tinit"; then                                  \
-	  $(CC) $(CFLAGS) $(CPPFLAGS) -c $(top_srcdir)/src/$*.c -o $*.o; \
-	else                                                             \
-	  $(CC) $(CFLAGS) $(CPPFLAGS) -c $(top_builddir)/src/$*.c -o $*.o; \
-	fi;
-#	cp $*.o $@
-
-# 'vpath' directive is only supported in gmake, take out - QAK
-#vpath %.c   $(shell echo $(SRCDIRS) | sed 's/ /:/g')
-
-## Pablo header files (to be installed)...
-PABLO_HDR=HDFentryNames.h HDFidList.h ProcIDs.h HDFTrace.h ProcTrace.h   \
-          ProcTrace.inc
-
-##------------------------------------------------------------ -*- makefile -*-
-## The following section of this makefile comes from the
-## `./config/conclude' file which was generated with config.status
-## from `./config/conclude.in'.
-##-----------------------------------------------------------------------------
-
-
-## This is the target for the library described in the main body of the
-## makefile.
-##
-lib: $(PABLO_INCLUDES) $(LIB)
-$(LIB): $(PABLO_OBJ) $(LIB_COBJ) 
-	$(AR) -rc $@ $(LIB_OBJ)
-	$(RANLIB) $@
-##
-## Dummy this out so that there is no redundant make of the library
-##
-progs: 
-
-## Build a tags file in this directory.
-TAGS: $(LIB_SRC)
-	$(RM) $@
-	-etags $(LIB_SRC)
-
-##
-## Dummy this out so that there is no redundant make of the library
-##
-tests: 
-
-## Install the library, the public header files, and programs.
-install: $(LIB) $(PABLO_HDR)
-	@test -d $(libdir) || mkdir $(libdir)
-	@for f in X $(LIB); do                                                 \
-	  if test $$f != X; then                                               \
-	    (set -x; $(INSTALL_DATA) $$f $(libdir)/. || exit 1);               \
-	  fi;                                                                  \
-	done
-	@test -d $(includedir) || mkdir $(includedir)
-	@for f in X $(PABLO_HDR); do                                           \
-	    if test $$f != X; then                                             \
-	       if test -f $$f; then                                            \
-	          (set -x; $(INSTALL_DATA) $$f $(includedir)/. || exit 1);     \
-	       else                                                            \
-	          (set -x; $(INSTALL_DATA) $(srcdir)/$$f $(includedir)/. ||    \
-	             exit 1);                                                  \
-	       fi;                                                             \
-	    fi;                                                                \
-	done
-
-## Removes those things that `make install' (would have) installed.
-uninstall:
-	@if test "X$(LIB)" != X; then                                          \
-	  set -x; cd $(libdir) && $(RM) $(LIB);                                \
-	fi
-
-## Removes temporary files without removing the final target files.  That is,
-## remove things like object files but not libraries or executables.
-##
-mostlyclean:
-	$(RM) $(LIB_OBJ) $(LIB_XOBJ) $(TEST_OBJ) $(PROG_OBJ) $(MOSTLYCLEAN)
-
-## Like `mostlyclean' except it also removes the final targets: things like
-## libraries and executables.  This target doesn't remove any file that
-## is part of the HDF5 distribution.
-##
-clean: mostlyclean pablo_clean
-	$(RM) $(LIB) $(TESTS) $(PROGS) $(CLEAN) H*.c 
-
-pablo_clean: clean
-	$(RM) $(PABLO_CLEAN) H*.x
-
-
-## Like `clean' except it also removes files that were created by running
-## configure.  If you've unpacked the source and built HDF5 without creating
-## any other files, then `make distclean' will leave only the files that were
-## in the distribution.
-##
-distclean: clean
-	$(RM) .depend TAGS *~ core *.core *.bak *.old *.new $(DISTCLEAN)
-	@if test -f $(top_srcdir)/src/Makefile.in; then                       \
-	  (set -x; $(RM) Makefile);                                           \
-	fi
-
-## Like `distclean' except it deletes all files that can be regenerated from
-## the makefile, including those generated from autoheader and autoconf.
-##
-maintainer-clean: distclean
-	$(RM) *~ core core.* *.core *.bak *.contrib gmon.out
-
-.c.lo:
-	@$(LT_COMPILE) $(CFLAGS) $(CPPFLAGS) -c $(top_srcdir)/src/$*.c $<
-
-.PHONY: progs test _test check dep depend
-
-PABLO_CLEAN=HDFentryNames.h HDFidList.h ProcMasks.h HDFentries.txt            \
-            ProcTrace.inc
-
-#
-# Leave the following lines that are commented out.  These are needed to 
-# create HDFentryNames.h, HDFidList.h, ProcMask.h and ProcTrace.inc whenever
-# new procedures are added.
-#
-HDFentries.txt: $(top_srcdir)/src/*.c
-	grep "FUNC_ENTER[_INITNOAPICLEARFS ]*(" $(top_srcdir)/src/*.[ch] |   \
-       sed "s/.*FUNC_ENTER[_INITNOAPICLEARFS ]*( *//;s/[,)].*//" | sort -u > $@
-
-HDFentryNames.h: HDFentries.txt
-	sed "s/.*/\"&\",/" $? > $@
-
-HDFidList.h: HDFentries.txt
-	sed "s/.*/ID_&,/" $? > $@
-	echo ID_ALLHDF, >> $@
-	grep "#define[ 	]*PABLO_MASK" $(top_srcdir)/src/*.c |                 \
-           sed "s/.*H5/ID_H5/;s/mask.*/c,/" | sort -u >> $@
-
-ProcMasks.h: $(top_srcdir)/src/*.c
-	grep "#define[ 	]*PABLO_MASK" $(top_srcdir)/src/*.c |                 \
-           sed "s/.*[ 	]H5/H5/;s/_mask.*//;s/.*/#define &_mask ID_&_c/" >$@
-
-ProcIDs.h: HDFidList.h ProcMasks.h
-
-ProcTrace.inc: HDFidList.h
-	sed "=" $? | sed -f $(top_srcdir)/pablo/PabloSedscr > $@
-
-PabloHDF.o: PabloHDF.c $(PABLO_INCLUDES) 
-	$(CC) -g $(CFLAGS) $(CPPFLAGS) $(PABLO_FLAGS) -c $<
-
-PabloHDF_RT.o: PabloHDF_RT.c $(PABLO_INCLUDES) 
-	$(CC) $(CFLAGS) $(CPPFLAGS) $(PABLO_FLAGS) -c $<
-
-PabloHDF_SDDF.o: PabloHDF_SDDF.c $(PABLO_INCLUDES) 
-	$(CC) $(CFLAGS) $(CPPFLAGS) $(PABLO_FLAGS) -c $<
-
-PabloHDF_MPIO.o: PabloHDF_MPIO.c $(PABLO_INCLUDES) 
-	$(CC) $(CFLAGS) $(CPPFLAGS) $(PABLO_FLAGS) -c $<
-
-PabloHDFff.o: PabloHDFff.f $(PABLO_INCLUDES) 
-	$(F77) $(FFLAGS) -O -c PabloHDFff.f
diff --git a/pablo/PabloHDF.c b/pablo/PabloHDF.c
deleted file mode 100644
index f756381..0000000
--- a/pablo/PabloHDF.c
+++ /dev/null
@@ -1,1416 +0,0 @@
-/*  This file is part of the Pablo Performance Analysis Environment
-// 
-//           (R)
-//  The Pablo    Performance Analysis Environment software is NOT in
-//  the public domain.  However, it is freely available without fee for
-//  education, research, and non-profit purposes.  By obtaining copies
-//  of this and other files that comprise the Pablo Performance Analysis
-//  Environment, you, the Licensee, agree to abide by the following
-//  conditions and understandings with respect to the copyrighted software:
-//  
-//  1.  The software is copyrighted in the name of the Board of Trustees
-//      of the University of Illinois (UI), and ownership of the software
-//      remains with the UI. 
-// 
-//  2.  Permission to use, copy, and modify this software and its documentation
-//      for education, research, and non-profit purposes is hereby granted
-//      to Licensee, provided that the copyright notice, the original author's
-//      names and unit identification, and this permission notice appear on
-//      all such copies, and that no charge be made for such copies.  Any
-//      entity desiring permission to incorporate this software into commercial
-//      products should contact:
-// 
-//           Professor Daniel A. Reed                 reed@cs.uiuc.edu
-//           University of Illinois
-//           Department of Computer Science
-//           2413 Digital Computer Laboratory
-//           1304 West Springfield Avenue
-//           Urbana, Illinois  61801
-//           USA
-// 
-//  3.  Licensee may not use the name, logo, or any other symbol of the UI
-//      nor the names of any of its employees nor any adaptation thereof in
-//      advertizing or publicity pertaining to the software without specific
-//      prior written approval of the UI.
-// 
-//  4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
-//      SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
-//      OR IMPLIED WARRANTY.
-// 
-//  5.  The UI shall not be liable for any damages suffered by Licensee from
-//      the use of this software.
-// 
-//  6.  The software was developed under agreements between the UI and the
-//      Federal Government which entitle the Government to certain rights.
-// 
-// *************************************************************************
-// 
-//  Developed by: The Pablo Research Group
-//                University of Illinois at Urbana-Champaign
-//                Department of Computer Science
-//                1304 W. Springfield Avenue
-//                Urbana, IL     61801
-// 
-//                http://www-pablo.cs.uiuc.edu
-// 
-//  Send comments to: pablo-feedback@guitar.cs.uiuc.edu
-// 
-//  Copyright (c) 1987-1998
-//  The University of Illinois Board of Trustees.
-//       All Rights Reserved.
-// 
-//  PABLO is a registered trademark of
-//  The Board of Trustees of the University of Illinois
-//  registered in the U.S. Patent and Trademark Office.
-// 
-//  Project Manager and Principal Investigator:
-//       Daniel A. Reed (reed@cs.uiuc.edu)
-// 
-// Funded in part by the Defense Advanced Research Projects Agency under 
-// DARPA contracts DABT63-94-C0049 (SIO Initiative), F30602-96-C-0161,
-// and DABT63-96-C-0027 by the National Science Foundation under the PACI 
-// program and grants NSF CDA 94-01124 and ASC 97-20202, and by the 
-// Department of Energy under contracts DOE B-341494, W-7405-ENG-48, and 
-// 1-B-333164.
-//========================================================================*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <fcntl.h>
-#include <stdarg.h>
-#include <limits.h>
-#ifndef fileno
-int fileno ( FILE * );
-#endif
-/* on ipsc/860 don't include this or you'll get multiply defined SEEK_* */
-#ifndef __NX
-#include <unistd.h>
-#endif
-
-
-#define HDFtrace3OPEN__
-int HDFtrace3OPEN( const char *, int, mode_t );
-
-#ifdef TRACELIB_BUILD
-#undef PCF_BUILD
-#endif 
-
-#ifndef PCF_BUILD
-#include "SDDFparam.h" 
-#include "TraceParam.h"
-
-#include "SystemDepend.h"
-#include "Trace.h"
-
-#include "IO_TraceParams.h"
-#include "IOTrace.h"
-#endif
-
-#include "HDFIOTrace.h"
-
-#ifndef TRUE
-#define TRUE 1
-#endif
-
-#ifndef FALSE
-#define FALSE 0
-#endif
-
-/* mode_t is not defined on the ipsc/860 so we define it here */
-#ifdef __NX
-typedef unsigned int mode_t;
-#endif
-
-#ifdef H5_HAVE_PARALLEL
-#define HAVE_MPIO
-#endif
-
-int OUTPUT_SWITCH = 1;
-int *procTrace;
-extern void preInitIOTrace( void ); 
-
-#include "ProcIDs.h"
-#include "HDFTrace.h"
-
-#define	ID_HDFprocName		9996
-#define	ID_malloc		9997
-#define	ID_free			9998
-#define	ID_timeStamp		9999
-#define	DUMMY_HDF		10000
-
-char HDFprocNames[][80] = {
-"noName",
-"noName",
-"noName",
-"noName",
-"noName",
-#include "HDFentryNames.h"
-"HDF_LAST_ENTRY"
-};
-
-void startHDFtraceEvent (int );
-void endHDFtraceEvent (int , int , char *, int );
-void getHDFprocName( int, char[81] );
-
-void setHDFcallLevel( int );
-void resetHDFcallLevel( void );
-int HDFcallLevel;
-int MaxHDFcallLevel = INT_MAX;
-
-#ifdef PCF_BUILD
-#include "PcUIOinterface.h"
-void hdfCaptureInit( const char* name, int procNum, int captureType );
-void hdfCaptureEnd( void );
-void traceHDFentryEvent( int eventID ) ;
-void traceHDFexitEvent( int eventID );
-void basePerformanceInit( const char* name, int procNum );
-void genericBaseInit( int captureType, int procNum );
-void unixIObaseInit( int captureType, int procNum );
-int hdfBaseInit( int captureType,
-                 int procNum,
-                 int numHDFentries,
-                 char HDFprocNames[][80] );
-void timeStamp( void );
-void hdfBaseEnd( void );
-void unixIObaseEnd( void );
-void genericBaseEnd( void );
-void basePerformanceEnd( void ); 
-/*void* traceMALLOC( size_t bytes );
-FILE* traceFOPEN( const char* fileName, const char* type );
-int traceOPEN( const char *path, int flags, ... ) ;
-int trace3OPEN( const char *path, int flags, mode_t mode ) ;
-int traceCREAT( const char *path, mode_t mode ) ;
-int traceFFLUSH( FILE *stream ) ;
-int traceFCLOSE( FILE *stream ) ;
-int traceCLOSE( int fd ) ;
-ssize_t traceREAD( int fd, void *buf, int nbyte ) ;
-size_t traceFREAD( void *ptr, int size, int nItems, FILE *stream ) ;
-int traceFGETC( FILE *stream ) ;
-char* traceFGETS( char *s, int n, FILE *stream ) ;
-int traceGETW( FILE *stream ) ;
-off_t traceLSEEK( int fd, off_t offset, int whence ) ;
-int traceFSEEK( FILE *stream, off_t offset, int whence ) ;
-int traceFSETPOS( FILE *stream, const fpos_t *position ) ;
-void traceREWIND( FILE *stream ) ;
-ssize_t traceWRITE( int fd, const void *buf, int nbyte ) ;
-size_t traceFWRITE(const void *ptr, int size, int nItems, FILE *stream ) ;
-int traceFPUTC( int c, FILE *stream ) ;
-int traceFPUTS( const char *s, FILE *stream ) ;
-int tracePUTS( const char *s ) ;
-int tracePUTW( int w, FILE *stream ) ;*/
-#else
-void HDFinitTrace_RT ( const char *, int procNum );
-void HDFinitTrace_SDDF ( const char *, int procNum );
-void hinittracex_ ( char [], int *, int*, int[], int *,unsigned * );
-void hdfendtrace_ ( void ) ;
-void HDFendTrace_RT (void );
-void HDFendTrace_SDDF( void );
-void HDFfinalTimeStamp( void );
-void HDFtraceEvent_RT ( int , HDFsetInfo *, unsigned );
-void HDFtraceIOEvent( int , void *, unsigned );
-extern int IOtracingEnabled;
-extern int suppressMPIOtrace;
-char *hdfRecordPointer;
-#endif
-
-/*======================================================================*
-// NAME									*
-//     HDFinitTrace -- initialize HDF tracing				*
-// USAGE								*
-//     VOID HDFinitTrace( traceFileName, out_sw )			*
-//     char    *traceFileName;	IN: name of the generated trace output  *
-//				    file				*
-//     int     ...   		IN: indicates which routines to trace	*
-//				    The list is terminated by the 	*
-//				    OUTPUT_SWITCH value indicating	*
-//				    whether to do RunTime or Summary	*
-//				    tracing.				*
-// RETURNS								*
-//     None.								*
-//======================================================================*/
-/*======================================================================*
-// fortran to C interface.                                              *
-// This is called from hdfinittracef_                                   *
-//======================================================================*/
-void 
-hinittracex_( char *file, 
-              int *len, 
-              int *procNum,
-              int flags[], 
-              int *nflags, 
-              unsigned *out_sw )
-{
-   char *traceFileName;
-   int i;
-   traceFileName = (char *)malloc(*len+1);
-   HDFcallLevel = 0;
-   for ( i = 0; i < *len; ++i ) 
-   {
-      traceFileName[i] = file[i];
-   }
-   traceFileName[*len] = 0;
-   /*===================================================================*
-   // Allocate space for trace indicators.				*
-   //===================================================================*/
-   procTrace = ( int * ) malloc( NUM_HDF_IDS*sizeof(int) );
-   if ( procTrace == NULL ) 
-   {
-       fprintf(stderr,">> Error: Unable to allocate procTrace ");
-       fprintf(stderr,"array in program HDFinitTrace. <<<\n");
-       fprintf(stderr,">>> Exiting program! <<<\n");
-       exit (-1);
-   }
-   /*===================================================================*
-   // Initialize to 0.							*
-   //===================================================================*/
-   for ( i = 0; i < NUM_HDF_IDS; ++i ) 
-   {
-      procTrace[i] = 0;      
-   }
-   /*===================================================================*
-   // Read in the flags indicating which procedures to trace.		*
-   // The last parameter passed is an indicator of the type of 		*
-   // tracing to do.  This indicator has a value larger than any   	*
-   // of the flags.							*
-   //===================================================================*/
-   for ( i = 0; i < *nflags; ++i ) 
-   {
-      procTrace[flags[i]] = 1;
-   }
-   OUTPUT_SWITCH = *out_sw;
-   /*===================================================================*
-   // if no flags were passed, the default is to trace all of the  	*
-   // procedures.							*
-   //===================================================================*/
-   if ( *nflags == 0 || procTrace[ID_ALLHDF] ) 
-   {
-      for ( i = 0; i < NUM_HDF_IDS; ++i ) 
-      {
-         procTrace[i] = 1;      
-      }
-   }
-#ifdef PCF_BUILD
-   hdfCaptureInit( traceFileName, *procNum, OUTPUT_SWITCH );
-#else
-   suppressMPIOtrace = TRUE;
-   if ( OUTPUT_SWITCH == RUNTIME_TRACE 
-                        || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) 
-   {
-      HDFinitTrace_SDDF( traceFileName, *procNum );
-      IOtracingEnabled = 1;
-   } 
-   else if ( OUTPUT_SWITCH == SUMMARY_TRACE 
-                        || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) 
-   {
-      HDFinitTrace_RT( traceFileName, *procNum );
-      IOtracingEnabled = 1;
-   } 
-   else if ( OUTPUT_SWITCH == NO_TRACE ) 
-   {
-      IOtracingEnabled = 0;
-   } 
-   else 
-   {
-      fprintf(stderr,">> Error in HDFinitTrace: the third argument ");
-      fprintf(stderr,"must have a value between %4d<<\n",RUNTIME_TRACE);
-      fprintf(stderr,">> and %4d, inclusive.",NO_TRACE);
-      fprintf(stderr,"  The value received was %4u.", OUTPUT_SWITCH);
-      fprintf(stderr," Exiting Program.     <<\n");
-      exit (-1);
-   }
-#endif /* PCF_BUILD */
-}
-void
-HDFinitTrace( const char *traceFileName, int procNum, int id_flag, ... )
-{
-   int i; 
-   int nIDs;
-   va_list ap;
-   HDFcallLevel = 0;
-   /*===================================================================*
-   // Allocate space for trace indicators.				*
-   //===================================================================*/
-   procTrace = ( int * ) malloc( NUM_HDF_IDS*sizeof(int) );
-   if ( procTrace == NULL ) 
-   {
-      fprintf(stderr,">> Error: Unable to allocate procTrace ");
-      fprintf(stderr,"array in program HDFinitTrace. <<<\n");
-      fprintf(stderr,">>> Exiting program! <<<\n");
-      exit (-1);
-   }
-   /*===================================================================*
-   // Initialize to 0.							*
-   //===================================================================*/
-   for ( i = 0; i < NUM_HDF_IDS; ++i ) 
-   {
-      procTrace[i] = 0;      
-   }
-   /*===================================================================*
-   // Read in the flags indicating which procedures to trace.		*
-   // The last parameter passed is an indicator of the type of 		*
-   // tracing to do.  This indicator has a value larger than any   	*
-   // of the flags.							*
-   //===================================================================*/
-   nIDs = 0;
-   va_start( ap, id_flag );
-   while ( id_flag > LAST_TRACE_TYPE ) 
-   {
-      procTrace[id_flag] = 1;
-      ++nIDs;
-      id_flag = va_arg ( ap, int );
-   }
-   OUTPUT_SWITCH = id_flag;
-   /*===================================================================*
-   // if no flags were passed, the default is to trace all of the  	*
-   // procedures.							*
-   //===================================================================*/
-   if ( nIDs == 0 || procTrace[ID_ALLHDF] ) 
-   {
-      for ( i = 0; i < NUM_HDF_IDS; ++i ) 
-      {
-         procTrace[i] = 1;      
-      }
-   }
-#ifdef PCF_BUILD
-   hdfCaptureInit( traceFileName, procNum, OUTPUT_SWITCH );
-#else
-   suppressMPIOtrace = TRUE;
-   if ( OUTPUT_SWITCH == RUNTIME_TRACE 
-                        || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) 
-   {
-      HDFinitTrace_SDDF( traceFileName, procNum );
-      IOtracingEnabled = 1;
-   } 
-   else if ( OUTPUT_SWITCH == SUMMARY_TRACE 
-                        || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) 
-   {
-      HDFinitTrace_RT( traceFileName, procNum );
-      IOtracingEnabled = 1;
-   } 
-   else if ( OUTPUT_SWITCH == NO_TRACE ) 
-   {
-       IOtracingEnabled = 0;
-   } 
-   else 
-   {
-       fprintf(stderr,">> Error in HDFinitTrace: the third argument ");
-       fprintf(stderr,"must have a value between %4d<<\n",RUNTIME_TRACE);
-       fprintf(stderr,">> and %4d, inclusive.",NO_TRACE);
-       fprintf(stderr,"  The value received was %4u.", OUTPUT_SWITCH);
-       fprintf(stderr," Exiting Program.     <<\n");
-       exit (-1);
-   }
-#endif /* PCF_BUILD */
-}
-/*======================================================================*
-// NAME									*
-//     HDFendTrace -- end HDF tracing					*
-// USAGE								*
-//     VOID HDFendTrace(VOID)						*
-// RETURNS								*
-//     None.								*
-//======================================================================*/
-void hdfendtrace_( void ) 
-{
-   HDFendTrace ();
-}
-void setHDFcallLevel( int maxLevel )
-{
-   MaxHDFcallLevel = maxLevel;
-}
-void resetHDFcallLevel()
-{
-   MaxHDFcallLevel = INT_MAX;
-}
-void HDFendTrace(void)
-{
-#ifdef PCF_BUILD
-   hdfCaptureEnd();
-#else
-   if ( OUTPUT_SWITCH == RUNTIME_TRACE 
-                     || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) 
-   {
-      HDFendTrace_SDDF( );
-   } 
-   else if ( OUTPUT_SWITCH == SUMMARY_TRACE 
-                  || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) 
-   {
-      HDFendTrace_RT();
-   }
-#endif /* PCF_BUILD */
-   OUTPUT_SWITCH = NO_TRACE;
-   MaxHDFcallLevel = INT_MAX;
-}
-void startHDFtraceEvent(int eventID)
-{
-   ++HDFcallLevel;
-   if ( HDFcallLevel <= MaxHDFcallLevel )
-   {
-#ifdef PCF_BUILD
-      if (OUTPUT_SWITCH != NO_TRACE ) 
-      {
-         traceHDFentryEvent( eventID ) ;
-      }
-#else
-      if ( OUTPUT_SWITCH == RUNTIME_TRACE 
-	                     || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) 
-      {
-         traceEvent( eventID, NULL, 0 ) ;
-      } 
-      else if (OUTPUT_SWITCH != NO_TRACE ) 
-      {
-         HDFtraceEvent_RT( eventID, NULL, 0 ) ;
-      } 
-#endif /* PCF_BUILD */
-   } 
-}
-void endHDFtraceEvent(int eventID, int setID, char *setName, int IDtype )
-{
-   if ( HDFcallLevel <= MaxHDFcallLevel )
-   {
-#ifdef PCF_BUILD
-      {
-         traceHDFexitEvent( eventID );
-      }
-#else
-      HDFsetInfo info;
-      info.setID = setID;
-      info.setName = setName;
-      if ( OUTPUT_SWITCH == RUNTIME_TRACE 
-	                     || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) 
-      {
-         traceEvent( eventID, (char *)&info, 0 ) ;
-      } 
-      else if ( OUTPUT_SWITCH == SUMMARY_TRACE 
-	                     || OUTPUT_SWITCH == MPI_SUMMARY_TRACE ) 
-      {
-         HDFtraceEvent_RT( eventID, &info, 0 ) ;
-      } 
-      else if ( OUTPUT_SWITCH != NO_TRACE ) 
-      {
-         fprintf(stderr,"endHDFtraceEvent: ");
-         fprintf(stderr,"invalid OUTPUT_SWITCH %d, IDtype = %d\n",
-                                                  OUTPUT_SWITCH, IDtype ) ;
-      }
-#endif /* PCF_BUILD */
-   }
-   --HDFcallLevel;
-}
-#ifdef PCF_BUILD
-void
-hdfCaptureInit( const char* name, int procNum, int captureType )
-{
-   basePerformanceInit( name, procNum );
-   genericBaseInit( captureType, procNum );
-   unixIObaseInit( captureType, procNum );
-#ifdef HAVE_MPIO
-   mpiIObaseInit( captureType, procNum );
-#endif
-   hdfBaseInit( captureType,
-                procNum,
-                ID_HDF_Last_Entry,
-                HDFprocNames );
-   HDFcallLevel = 0;
-}
-void
-hdfCaptureEnd( void )
-{
-   int i;
-   timeStamp();
-   for ( i = 0; i < NUM_HDF_IDS; ++i )
-   {
-      procTrace[i] = 0;
-   } 
-   hdfBaseEnd();
-#ifdef HAVE_MPIO
-   mpiIObaseEnd();
-#endif
-   unixIObaseEnd();
-   genericBaseEnd();
-   basePerformanceEnd(); 
-   MaxHDFcallLevel = INT_MAX;
-}
-#endif /* PCF_BUILD */
-/*****************************************************************************/
-/* The HDFtraceXXXX routines are substitutes for the standard I/O routines.  */
-/* When libhdf5-inst.a is compiled, macros in HDFTrace.h substitute the name */
-/* HDFtraceWrite for write, HDFtraceRead for Read, etc.  These routines are  */
-/* then called when standard I/O is done.				     */
-/*****************************************************************************/
-/*****************************************************************************/
-/*+	Open routines      	   	                                    +*/
-/*+     -------------            				            +*/
-/*+	                                                                    +*/
-/*+ Routine:  FILE *HDFtraceFOPEN( const char *filename, const char *type ) +*/
-/*+		  substitute for fopen()                                    +*/
-/*+     	  generates fopenBeginID, fopenEndID		            +*/
-/*+		  record Open (fopenBegin)                                  +*/
-/*+			Mode = -1                                           +*/
-/*+									    +*/
-/*****************************************************************************/
-FILE*
-HDFtraceFOPEN( const char *filename, const char *type )
-{
-   FILE *fp;
-#ifdef PCF_BUILD
-   fp = (FILE *)traceFOPEN( filename, type );
-#else
-   int fd, id;
-   int flags = 0;
-   struct open_args openArgs;
-   size_t typeLen;
-	
-   if ( IOtracingEnabled ) 
-   {
-      strcpy( openArgs.filename, filename );
-	 
-      /* check for 'b' - usually if 2 chars, second is '+' */
-      typeLen = strlen( type );
-      if ( ( typeLen == 2 ) && ( type [1] == 'b' ) ) 
-      {
-         typeLen = 1;
-      }
-
-      if ( typeLen == 1 ) 
-      {
-         switch( type[0] ) 
-         {
-            case 'r':
-               flags = flags | O_RDONLY;
-               break;
-            case 'w':
-               flags = O_TRUNC | O_CREAT | O_WRONLY;
-               break;
-            case 'a':
-               flags = flags | O_APPEND | O_CREAT | O_WRONLY;
-               break;
-         }
-      } 
-      else 
-      {
-         switch( type[0] ) 
-         {
-            case 'r':
-               flags = O_RDWR;
-               break;
-            case 'w':
-               flags = O_TRUNC | O_CREAT | O_RDWR;
-               break;
-            case 'a':
-               flags = O_APPEND | O_CREAT | O_RDWR;
-               break;    
-         }
-      }
-      openArgs.flags = flags;
-      openArgs.mode= -1;
-
-      HDFtraceIOEvent( fopenBeginID, (void *)&openArgs, sizeof(openArgs) );
-   }
-
-   fp = fopen( filename, type );
-   if ( fp != NULL ) 
-   {
-      fd = fileno( fp );
-      id = set_c_mappedID( fd );
-   } 
-   else 
-   {
-      id = -1;
-   }
-
-   if ( IOtracingEnabled ) 
-   {
-     HDFtraceIOEvent( fopenEndID, (void *) &id, int_SIZE );   
-   }
-#endif /* PCF_BUILD */
-   return( fp );
-}
-
-/*****************************************************************************/
-/*+	Routine:  int HDFtraceCREAT( const char *path, mode_t mode )        +*/
-/*+		  substitute for creat()                                    +*/
-/*+     	  generates openBeginID, openEndID		            +*/
-/*+		  record Open (openBeginID)                                 +*/
-/*+									    +*/
-/*****************************************************************************/
-int 
-HDFtraceCREAT( const char *path, mode_t mode )
-{
-    int fd;
-#ifdef PCF_BUILD
-    fd = traceCREAT( path, mode );
-#else
-    struct open_args openArgs;
-    int id;
-
-    if ( IOtracingEnabled ) {
-        strcpy( openArgs.filename, path );
-        openArgs.flags = O_WRONLY | O_CREAT | O_TRUNC;
-        openArgs.mode = (int) mode;
-
-        HDFtraceIOEvent( openBeginID, (void *)&openArgs, sizeof(openArgs) );
-    }
-
-    fd = creat( path, mode );
-    id = set_c_mappedID( fd );
-
-    if ( IOtracingEnabled ) {
-        HDFtraceIOEvent( openEndID, (void *) &id, int_SIZE );
-    }
-#endif /* PCF_BUILD */
-    return( fd );
-}
-
-/*****************************************************************************/
-/*+	Flush routines				                            +*/
-/*+     --------------				                            +*/
-/*+	                                                                    +*/
-/*+	Routine:  int HDFtraceFFLUSH( FILE *stream )                        +*/
-/*+		  substitute for fflush()                                   +*/
-/*+               generates fflushBeginID, fflushEndID                      +*/
-/*+	          record Flush (fflushBeginID)                              +*/
-/*+		   							    +*/
-/*****************************************************************************/
-int 
-HDFtraceFFLUSH( FILE *stream )
-{
-   int ret;
-#ifdef PCF_BUILD
-    ret = traceFFLUSH( stream );
-#else
-   int id;
-   int fd;
-
-   if ( IOtracingEnabled ) 
-   {
-      /*
-       * If stream is NULL, all files open for write are flushed.
-       * We show this with a -2 in the trace record as too much overhead
-       * to try and tell what files those are and generate individual
-       * trace records.
-       */
-      if ( stream == NULL ) 
-      {   
-         id = -2;
-      } 
-      else 
-      {
-         fd = fileno( stream );
-         id = c_mappedID( fd );
-         HDFtraceIOEvent( fflushBeginID, (void *) 0, int_SIZE );
-     }
-   }
-
-   ret = fflush( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      HDFtraceIOEvent( fflushEndID, (void *) &id, 0 );
-   }
-
-   /* 
-    * Note that if fflush called on stream open for reading, the file pointer
-    * is moved to EOF if it isn't there already.  We don't account for that
-    * in our file positioning information.
-    */
-#endif /* PCF_BUILD */
-   return( ret );
-}
-
-/*****************************************************************************/
-/*+	Close routines				                            +*/
-/*+     --------------				                            +*/
-/*+	                                                                    +*/
-/*+	Routine:  int HDFtraceFCLOSE( FILE *stream )                        +*/
-/*+		  substitute for fclose()                                   +*/
-/*+               generates fcloseBeginID, fcloseEndID                      +*/
-/*+	          record Close (fcloseBeginID)                              +*/
-/*+									    +*/
-/*****************************************************************************/
-int 
-HDFtraceFCLOSE( FILE *stream )
-{
-   int ret;
-#ifdef PCF_BUILD
-    ret = traceFCLOSE( stream );
-#else
-   int id;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      id = c_mappedID( fd );
-      HDFtraceIOEvent( fcloseBeginID, (void *) &id, int_SIZE );
-   }
-
-   ret = fclose( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      HDFtraceIOEvent( fcloseEndID, (void *) 0, 0 );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-
-/*****************************************************************************/
-/*+     Routine:  int HDFtrace3OPEN( char *path, int flags, mode_t mode )   +*/
-/*+               substitute for open() when called with 3 arguments        +*/
-/*+               generates openBeginID, openEndID                          +*/
-/*+               record Open (openBeginID)                                 +*/
-/*+                                                                         +*/
-/*****************************************************************************/
-int 
-HDFtrace3OPEN( const char *path, int flags, mode_t mode )
-{
-   int fd;
-#ifdef PCF_BUILD
-   fd = trace3OPEN( path, flags, mode );
-#else
-   struct open_args openArgs;
-   int id;
-
-   if ( IOtracingEnabled ) 
-   {
-      strcpy( openArgs.filename, path );
-      openArgs.flags = flags;
-      openArgs.mode = (int) mode;
-
-      HDFtraceIOEvent( openBeginID, (char *)&openArgs, sizeof(openArgs) );
-   }
-
-   fd = open( path, flags, mode );
-   id = set_c_mappedID( fd );
-
-   if ( IOtracingEnabled ) 
-   {
-      HDFtraceIOEvent( openEndID, (char *) &id, int_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( fd );
-}
-
-/*****************************************************************************/
-/*+	Routine:  int HDFtraceCLOSE( int fd )	                            +*/
-/*+		  substitute for close()              			    +*/
-/*+               generates closeBeginID, closeEndID 		            +*/
-/*+		  record Close (closeBeginID)                               +*/
-/*+									    +*/
-/*****************************************************************************/
-int 
-HDFtraceCLOSE( int fd )
-{
-   int ret;
-#ifdef PCF_BUILD
-   ret = traceCLOSE( fd );
-#else
-   int id;
-
-   if ( IOtracingEnabled ) 
-   {
-      id = c_mappedID( fd );
-      HDFtraceIOEvent( closeBeginID, (void *) &id, int_SIZE );
-   }
-
-   ret = close( fd );
-
-   if ( IOtracingEnabled ) 
-   {
-      HDFtraceIOEvent( closeEndID, (void *) 0, 0 );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-
-/*****************************************************************************/
-/*+	Read routines	            			                    +*/
-/*+     -------------			            	                    +*/
-/*+	                                                                    +*/
-/*+	Routine:  int HDFtraceREAD( int fd, char *buf, int nbyte )          +*/
-/*+		  substitute for read()                                     +*/
-/*+               generates readBeginID, readEndID                          +*/
-/*+	          record Read (readBeginID)                                 +*/
-/*+                      Number Variables = 1                               +*/
-/*+			 Cause = -1                                         +*/
-/*+									    +*/
-/*****************************************************************************/
-ssize_t 
-HDFtraceREAD( int fd, void *buf, size_t nbyte )
-{
-   ssize_t ret;
-#ifdef PCF_BUILD
-    ret = traceREAD( fd, buf, nbyte );
-#else
-   struct read_write_args readArgs;  
-   int bytes;
-
-   if ( IOtracingEnabled ) 
-   {
-      readArgs.fileID = c_mappedID( fd );
-      readArgs.numVariables = 1;
-      readArgs.cause = -1;   
-
-      HDFtraceIOEvent( readBeginID, (void *) &readArgs, sizeof(readArgs) );
-   }
-
-   ret = read( fd, buf, nbyte );
-
-   if ( IOtracingEnabled ) 
-   {
-      if ( ret > 0 ) 
-      {
-         bytes = (int)ret;
-      } 
-      else 
-      { 
-         bytes = 0;
-      } 
-      HDFtraceIOEvent( readEndID, (void *) &bytes, int_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-        
-/*****************************************************************************/
-/*+	Routine:  int HDFtraceFREAD( char *ptr, int size, int nitems,       +*/
-/*+			          FILE *stream)                             +*/
-/*+		  substitute for fread()                                    +*/
-/*+               generates freadBeginID, freadEndID                        +*/
-/*+	          record Read (freadBeginID)                                +*/
-/*+                      Number Variables = nitems                          +*/
-/*+			 Cause = -1                                         +*/
-/*+									    +*/
-/*****************************************************************************/
-size_t 
-HDFtraceFREAD( void *ptr, size_t size, size_t nitems, FILE *stream )
-{
-   size_t ret;
-#ifdef PCF_BUILD
-   ret = traceFREAD( ptr, size, nitems, stream );
-#else
-   struct read_write_args readArgs;  
-   int nbytes;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      readArgs.fileID = c_mappedID( fd );
-      readArgs.numVariables = (int)nitems;
-      readArgs.cause = -1;
-      HDFtraceIOEvent( freadBeginID, (void *) &readArgs, sizeof(readArgs) );
-   }
-
-   ret = fread( ptr, size, nitems, stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      if ( ret > 0 ) 
-      {
-         nbytes = (int)(ret * size) ;
-      } 
-      else 
-      {
-         nbytes = 0;
-      }
-      HDFtraceIOEvent( freadEndID, (void *) &nbytes, int_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-/*****************************************************************************/
-/*+	Seek routines            			                    +*/
-/*+     -------------			            	                    +*/
-/*+	                                                                    +*/
-/*+	Routine:  off_t HDFtraceLSEEK( int fd, off_t offset, int whence )   +*/
-/*+		  substitute for lseek()                                    +*/
-/*+               generates lseekBeginID, lseekEndID                        +*/
-/*+	          record Seek (lseekBeginID)                                +*/
-/*+									     +*/
-/*****************************************************************************/
-off_t 
-HDFtraceLSEEK( int fd, off_t offset, int whence )
-{
-   off_t ret;
-#ifdef PCF_BUILD
-   ret = traceLSEEK( fd, offset, whence );
-#else
-   struct seek_args seekArgs;
-   long  arg;
-
-   if ( IOtracingEnabled ) 
-   {
-      seekArgs.fileID = c_mappedID( fd );
-      seekArgs.offset = (int) offset;
-      seekArgs.whence = whence;
-
-      HDFtraceIOEvent( lseekBeginID, (void *) &seekArgs, sizeof(seekArgs) );
-   }
-
-   ret = lseek( fd, offset, whence );
-
-   if ( IOtracingEnabled ) 
-   {
-      arg = (long) ret;
-      HDFtraceIOEvent( lseekEndID, (void *)&arg, long_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-
-/*****************************************************************************/
-/*+ routine:  int HDF traceFSEEK( FILE *stream, long offset, int whence )   +*/
-/*+		  substitute for fseek()                                    +*/
-/*+               generates fseekBeginID, fseekEndID                        +*/
-/*+	          record Seek (fseekBeginID)                                +*/
-/*+									    +*/
-/*****************************************************************************/
-int 
-HDFtraceFSEEK( FILE *stream, long offset, int whence )
-{
-   int ret;
-#ifdef PCF_BUILD
-   ret = traceFSEEK( stream, offset, whence );
-#else
-   struct seek_args seekArgs;
-   long arg;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      seekArgs.fileID = c_mappedID( fd );;
-      seekArgs.offset = (int) offset;
-      seekArgs.whence = whence;
-
-      HDFtraceIOEvent( fseekBeginID, (void *) &seekArgs, sizeof(seekArgs) );
-   }
-
-   ret = fseek( stream, offset, whence );
-
-   if ( IOtracingEnabled ) 
-   {
-      arg = ftell( stream );
-      HDFtraceIOEvent( fseekEndID, (void *)&arg, long_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-
-#ifdef fpos_t
-/*****************************************************************************/
-/*+ Routine:  int HDFtraceFSETPOS( FILE *stream, const fpos_t *position )   +*/
-/*+		  substitute for fsetpos()                                  +*/
-/*+               generates fsetposBeginID, fsetposEndID                    +*/
-/*+	          record Seek (fsetposBeginID)                              +*/
-/*+									    +*/
-/*****************************************************************************/
-int 
-HDFtraceFSETPOS( FILE stream, const fpos_t *position )
-{
-   int ret;
-#ifdef PCF_BUILD
-   ret = traceFSETPOS( stream, position );
-#else
-   struct seek_args seekArgs;
-   long arg;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      seekArgs.fileID = c_mappedID( fd );;
-      seekArgs.offset = (int) *position;
-      seekArgs.whence = SEEK_SET;
-
-      HDFtraceIOEvent( fsetposBeginID, (void *) &seekArgs, sizeof(seekArgs) );
-   }
-
-   ret = fsetpos( stream, position );
-
-   if ( IOtracingEnabled ) 
-   {
-      arg = (long) *position;
-      HDFtraceIOEvent( fsetposEndID, (void *)&arg, long_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-#endif /* fpos_t */
-
-/*****************************************************************************/
-/*+	Routine:  void HDFtraceREWIND ( FILE *stream )                      +*/
-/*+		  substitute for rewind()                                   +*/
-/*+               generates rewindBeginID, rewindEndID                      +*/
-/*+	          record Seek (rewindBeginID)                               +*/
-/*+                    	 Offset = 0                                         +*/
-/*+			 Whence = SEEK_SET                                  +*/
-/*+									    +*/
-/*****************************************************************************/
-void 
-HDFtraceREWIND( FILE *stream )
-{
-#ifdef PCF_BUILD
-    traceREWIND( stream );
-#else
-   long arg;
-   struct seek_args seekArgs;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      seekArgs.fileID = c_mappedID( fd );
-      seekArgs.offset = 0;
-      seekArgs.whence = SEEK_SET;
-
-      HDFtraceIOEvent( rewindBeginID, (void *) &seekArgs, sizeof(seekArgs) );
-   }
-
-   rewind( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      arg = 0;
-      HDFtraceIOEvent( rewindEndID, (void *)&arg, long_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return;
-}
-
-/*****************************************************************************/
-/*+	Write routines            			                    +*/
-/*+     --------------			            	                    +*/
-/*+	                                                                    +*/
-/*+  Routine:  int HDFtraceWRITE( int fd, char *buf, int nbyte )            +*/
-/*+		  substitute for write()                                    +*/
-/*+               generates writeBeginID, writeEndID                        +*/
-/*+	          record Write (writeBeginID)                               +*/
-/*+                    	 Number Variables = 1                               +*/
-/*+			 Cause = -1                                         +*/
-/*+									    +*/
-/*****************************************************************************/
-ssize_t 
-HDFtraceWRITE( int fd, const void *buf, size_t nbyte )
-{
-   ssize_t ret;
-#ifdef PCF_BUILD
-   ret = traceWRITE( fd, buf, nbyte );
-#else
-   struct read_write_args writeArgs;
-   int bytes;
-
-   if ( IOtracingEnabled ) 
-   {
-      writeArgs.fileID = c_mappedID( fd );
-      writeArgs.numVariables = 1;
-      writeArgs.cause = -1;
-
-      HDFtraceIOEvent( writeBeginID, (void *) &writeArgs, sizeof(writeArgs) );
-   }
-
-   ret = write( fd, buf, nbyte );
-
-   if ( IOtracingEnabled ) 
-   {
-      if ( ret > 0 ) 
-      {
-         bytes =  (int)ret;
-      } 
-      else 
-      {
-         bytes = 0;
-      }
-      HDFtraceIOEvent( writeEndID, (void *) &bytes, int_SIZE );
-   }
-#endif /* PCF_BUILD */
-   return( ret );
-}  
-
-/*****************************************************************************/
-/*+  Routine:  size_t HDFtraceFWRITE( const char *ptr, int size, int nitems,+*/
-/*+                                FILE *stream )                           +*/
-/*+		  substitute for fwrite()                                   +*/
-/*+               generates fwriteBeginID, fwriteEndID                      +*/
-/*+	          record Write (fwriteBeginID)                              +*/
-/*+                    	 Number Variables = nitems                          +*/
-/*+			 Cause = -1                                         +*/
-/*+									    +*/
-/*****************************************************************************/
-size_t 
-HDFtraceFWRITE(const void *ptr,size_t size,size_t nitems,FILE *stream )
-
-{
-   size_t ret;
-#ifdef PCF_BUILD
-   ret = traceFWRITE( ptr, size, nitems, stream );
-#else
-   struct read_write_args writeArgs;
-   int nbytes;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      writeArgs.fileID = c_mappedID( fd );
-      writeArgs.numVariables = (int)nitems;
-      writeArgs.cause = -1;
-
-      HDFtraceIOEvent(fwriteBeginID, (void *)&writeArgs, sizeof(writeArgs));
-   }
-
-   ret = fwrite( ptr, size, nitems, stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      if ( ret > 0 ) 
-      {
-         nbytes = (int)(ret * size) ;
-      } 
-      else 
-      {
-         nbytes = 0;
-      } 
-      HDFtraceIOEvent( fwriteEndID, (void *) &nbytes, int_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-/*****************************************************************************/
-/*+  Routine:  int HDFtracePUTS( char *s )                                  +*/
-/*+               substitute for puts()                                     +*/
-/*+               generates fwriteBeginID, fwriteEndID                      +*/
-/*+               record Write (fwriteBeginID)                              +*/
-/*+                      Number Variables = 1                               +*/
-/*+                      Cause = -1                                         +*/
-/*+                                                                         +*/
-/*****************************************************************************/
-int
-HDFtracePUTS( const char *s )
-{
-   int ret;
-#ifdef PCF_BUILD
-   ret = tracePUTS( s );
-#else
-   int fd = fileno( stdout );
-   struct read_write_args writeArgs;
-   if ( IOtracingEnabled )
-   {
-      writeArgs.fileID = c_mappedID( fd );
-      writeArgs.numVariables = 1;
-      writeArgs.cause = -1;
-
-      HDFtraceIOEvent( fwriteBeginID, (void *) &writeArgs, sizeof(writeArgs) );
-   }
-
-   ret = puts( s );
-
-   if ( IOtracingEnabled )
-   {
-      HDFtraceIOEvent( fwriteEndID, (void *) &ret, int_SIZE );
-   }
-#endif
-
-   return( ret );
-}
-
-void getHDFprocName ( int i, char buff[81] )
-{
-   strcpy( buff, HDFprocNames[i] );
-}   
-
-/*****************************************************************************/
-/*+	Routine:  int HDFtraceFPUTC( int c, FILE *stream )                  +*/
-/*+		  substitute for fputc()                                    +*/
-/*+               generates fwriteBeginID, fwriteEndID                      +*/
-/*+	          record Write (fwriteBeginID)                              +*/
-/*+                    	 Number Variables = 1                               +*/
-/*+			 Cause = -1                                         +*/
-/*+									    +*/
-/*****************************************************************************/
-int 
-HDFtraceFPUTC( int c, FILE *stream )
-{
-   int ret; 
-#ifdef PCF_BUILD
-    ret = traceFPUTC( c, stream );
-#else
-   struct read_write_args writeArgs;
-   int nbytes = char_SIZE;
-   int fd = fileno( stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      writeArgs.fileID = c_mappedID( fd );
-      writeArgs.numVariables = 1;
-      writeArgs.cause = -1;
-
-      HDFtraceIOEvent( fwriteBeginID, (void *) &writeArgs, sizeof(writeArgs) );
-   }
-
-   ret = fputc( c, stream );
-
-   if ( IOtracingEnabled ) 
-   {
-      if ( ret == EOF ) 
-      {
-         nbytes = 0;
-         HDFtraceIOEvent( fwriteEndID, (void *) &nbytes, int_SIZE );
-      }
-   }
-#endif /* PCF_BUILD */
-   return( ret );
-}
-/*****************************************************************************/
-/*+  Routine:  int HDFtraceFPUTS( char *s, FILE *stream )                   +*/
-/*+               substitute for fputs()                                    +*/
-/*+               generates fwriteBeginID, fwriteEndID                      +*/
-/*+               record Write (fwriteBeginID)                              +*/
-/*+                      Number Variables = 1                               +*/
-/*+                      Cause = -1                                         +*/
-/*+                                                                         +*/
-/*****************************************************************************/
-int HDFtraceFPUTS( const char *s, FILE *stream )
-{
-   int ret;
-
-#ifdef PCF_BUILD
-   ret = traceFPUTS( s, stream );
-#else
-   int fd = fileno( stream );
-   struct read_write_args writeArgs;
-   if ( IOtracingEnabled ) 
-   {
-       writeArgs.fileID = c_mappedID( fd );
-       writeArgs.numVariables = 1;
-       writeArgs.cause = -1;
-
-       HDFtraceIOEvent(fwriteBeginID, (void *)&writeArgs, sizeof(writeArgs));
-   }
-
-   ret = fputs( s, stream );
-
-   if ( IOtracingEnabled ) 
-   {
-       HDFtraceIOEvent( fwriteEndID, (void *) &ret, int_SIZE );
-   }
-#endif /* PCF_BUILD */
-
-   return( ret );
-}
-
-void*
-HDFtraceMALLOC(size_t bytes )
-{
-   void *ptr;
-#ifdef PCF_BUILD
-   ptr = (void *)traceMALLOC( bytes );
-#else
-   int byte_req;
-   byte_req = (int)bytes;
-   if ( IOtracingEnabled ) 
-   {
-      HDFtraceIOEvent ( ID_malloc, NULL, 0 );
-   }
-	
-   ptr = malloc( bytes );
-
-   if ( IOtracingEnabled ) 
-   {
-      HDFtraceIOEvent ( -ID_malloc, &byte_req, sizeof(int) );
-   }
-#endif /* PCF_BUILD */
-	
-   return ptr ;
-
-}
-	
-#ifndef PCF_BUILD
-void 
-HDFtraceIOEvent( int eventType, void *dataPtr, unsigned dataLen )
-{
-   if ( OUTPUT_SWITCH == RUNTIME_TRACE 
-	              || OUTPUT_SWITCH == MPI_RUNTIME_TRACE ) 
-   {
-      traceEvent( eventType, dataPtr, dataLen );
-   } 
-   else 
-   {
-      HDFtraceEvent_RT( eventType, (HDFsetInfo *)dataPtr, dataLen );
-   }
-}
-/*======================================================================*
-// record the final time stamp                                          *
-//======================================================================*/
-void 
-HDFfinalTimeStamp( void )
-{
-        CLOCK   currentTime;
-        double  seconds;
-        struct {
-                int packetLength,
-                    packetType,
-                    packetTag,
-                    timeDim;
-                double Seconds;
-                int eventID,
-                    node,
-                    dataLen;
-        } Packet;
-
-        currentTime = getClock();
-        seconds = clockToSeconds( currentTime );
-
-        Packet.packetLength = sizeof(Packet);
-        Packet.packetType   = PKT_DATA;
-        Packet.packetTag    = FAMILY_EXTERNAL | RECORD_TRACE;
-        Packet.timeDim      = 0;        /* use fp time stamp only */
-        Packet.Seconds      = seconds;  /* fp time stamp          */
-        Packet.eventID      = ID_timeStamp;
-        Packet.node         = TRgetNode();
-        Packet.dataLen      = 0;
-        putBytes( (void *)&Packet , sizeof(Packet) );
-}
-/*======================================================================*
-// This Program is called to specify which routines are to be traced.	*
-// On first entry, the program allocates storage for and initializes a  *
-// global array procTrace.  The array has one element for each possible *
-// HDF procedure and HDF library file.  If a procedure or all of the  *
-// procedure in an HDF file are to be traced, then the elemen in the 	*
-// array corresponding to the procedure or file is turned on.  This is  *
-// used by the macros TRACE_ON and TRACE_OFF to enable tracing.  If     *
-// this procedure is not called prior to initialization, then all of    *
-// the elements of procTrace corresponding to HDF files will be 	*
-// turned on, in which case all HDF procedures will be traced.	*
-//======================================================================*/
-void 
-PabloHDFTrace( int ID ) 
-{
-	int i;
-	if ( procTrace == NULL ) {
-	   procTrace = ( int * ) malloc( NUM_HDF_IDS*sizeof(int) );
-	   if ( procTrace == NULL ) {
-              fprintf(stderr,">> Error: Unable to allocate procTrace ");
-              fprintf(stderr,"array in program PabloHDFTrace. <<<\n");
-              fprintf(stderr," Exiting program.                  <<<\n");
-              exit (-1);
-	   }
-	   for ( i = 0; i < NUM_HDF_IDS; ++i ) {
-	       procTrace[i] = 0;      
-	   }
-	}
-	if ( ID >= 0 && ID < NUM_HDF_IDS ) {
-	   procTrace[ID] = 1;      
-	} else {
-           fprintf(stderr,">> Error: Value passed to PabloHDFTrace, ");
-           fprintf(stderr,"%d, is out of range. <<<\n",ID);
-           fprintf(stderr," Exiting program.                  <<<\n");
-           exit (-1);
-	}
-}
-#endif /* PCF_BUILD */
diff --git a/pablo/PabloHDF_MPIO.c b/pablo/PabloHDF_MPIO.c
deleted file mode 100644
index 025e823..0000000
--- a/pablo/PabloHDF_MPIO.c
+++ /dev/null
@@ -1,1366 +0,0 @@
-/*
- * This file is an extension to NCSA HDF to enable the use of the
- * Pablo trace library.
- *
- * Developed by: The TAPESTRY Parallel Computing Laboratory
- *		 University of Illinois at Urbana-Champaign
- *		 Department of Computer Science
- *		 1304 W. Springfield Avenue
- *		 Urbana, IL	61801
- *
- * Copyright (c) 1995
- * The University of Illinois Board of Trustees.
- *      All Rights Reserved.
- *
- * PABLO is a registered trademark of
- * The Board of Trustees of the University of Illinois
- * registered in the U.S. Patent and Trademark Office.
- *
- * Author: George Xin Zhou (xzhou@cs.uiuc.edu)
- * Contributing Author: Jonathan M. Reid (jreid@cs.uiuc.edu)
- *
- * Project Manager and Principal Investigator:
- *	Daniel A. Reed (reed@cs.uiuc.edu)
- *
- * Funded by: National Aeronautics and Space Administration under NASA
- * Contracts NAG-1-613 and USRA 5555-22 and by the Advanced Research
- * Projects Agency under ARPA contracts DAVT63-91-C-0029 and
- * DABT63-93-C-0040.
- *
- */
-/*======================================================================*
-// File:  PabloHDF_MPIO.c						*
-// Purpose: support use of Pablo trace library to analyze MPIO calls	*
-// within HDF calls 							*
-// Most of the code is conditionally compiled dependent on the compiler *
-// flag HAVE_H5_PARALLEL which is set in the Makefile in thie hdf/pablo *
-// directory.								*
-// Contents
-//    HDF_get_NodeNum                					*
-// 
-//    HDF_get_mode         				*
-//   returns the node number						*
-// 
-//    HDF_get_source        					*
-// 
-//    HDF_get_comm
-// 
-//    HDF_get_Datatype
-// 
-//    HDF_get_DataRep
-// 
-// int HDF_get_Bytes
-// 
-// int PabloMPI_File_open
-//                       
-// int PabloMPI_File_close
-// 
-// int PabloMPI_File_set_size
-// 
-// int PabloMPI_File_get_size
-// 
-// int PabloMPI_File_set_view
-// 
-// int PabloMPI_File_get_view
-// 
-// int PabloMPI_File_read_at
-// 
-// int PabloMPI_File_read_at_all
-// 
-// int PabloMPI_File_write_at
-// 
-// int PabloMPI_File_write_at_all
-// 
-// int PabloMPI_File_sync
-// 
-// int HDF_MPI_File_open
-// 
-// int HDF_MPI_File_close
-// 
-// int HDF_MPI_File_set_size
-// 
-// int HDF_MPI_File_get_size
-// 
-// int HDF_MPI_File_set_view
-// 
-// int HDF_MPI_File_get_view
-// 
-// int HDF_MPI_File_read_at
-// 
-// int HDF_MPI_File_read_at_all
-// 
-// int HDF_MPI_File_write_at
-//
-// int HDF_MPI_File_write_at_all
-// 
-// int HDF_MPI_File_sync
-// 
-//======================================================================*/
-#ifdef H5_HAVE_PARALLEL
-void HDFtraceEvent_RT( int , char *, unsigned ) ;
-#include "mpi.h"
-/************************************************************************/
-/* Return the node number.						*/
-/************************************************************************/
-void HDF_get_NodeNum( int* nodeNum )
-{
-   MPI_Comm_rank( MPI_COMM_WORLD, nodeNum );
-}
-#ifdef _BUILD
-#include "HDFTrace.h"
-#include "ProcTrace.h"
-#include "ProcIDs.h"
-#include "MPIO_Trace.h"
-#include "MPIO_EventArgs.h"
-#include "MPIO_Data.h"
-
-extern int OUTPUT_SWITCH;
-/* Global variable declarations and definitions. */
-static int HDFlocalNode = 0;
-int HDFmyNode;
-int myHDFid = 3;
-/* Function prototypes */
-int HDF_get_mode( int );
-int HDF_get_source( int );
-int HDF_get_comm( MPI_Comm );
-int HDF_get_Datatype( MPI_Datatype );
-int HDF_get_DataRep( char* );
-int HDF_get_Bytes( MPI_Datatype, int );
-void HDFtraceIOEvent( int , void *, unsigned );
-
-/* Get the mode at the file openning */
-int 
-HDF_get_mode( int amode )
-{
-   if( amode == MPI_MODE_RDONLY || amode == MPI_MODE_RDWR ||
-       amode == MPI_MODE_WRONLY || amode == MPI_MODE_CREATE ||
-       amode == MPI_MODE_EXCL || amode == MPI_MODE_DELETE_ON_CLOSE ||
-       amode == MPI_MODE_UNIQUE_OPEN || 
-       /* amode == MPI_MODE_SEQUENTIAL || */
-       amode == MPI_MODE_APPEND )
-      return amode;
-   else
-      return PABLO_MPI_MODE_NULL;
-}
-
-/* Get the node number */
-int 
-HDF_get_source( int source )
-{
-   if ( source == MPI_ANY_SOURCE ) {
-      return PABLO_MPI_ANYSOURCE;
-   }
-   
-   if ( source == MPI_PROC_NULL ) {
-      return PABLO_MPI_PROCNULL;
-   }
-   
-   else {
-      return  source;
-   }
-}
-
-/* get the communicator ID                            */
-/* this is dummy for compatability with MPIO Traceing */
-int 
-HDF_get_comm( MPI_Comm in_comm )
-{
-   return 0;
-}
-/* Get the MPI_Datatype (mapped to a integer) */
-int HDF_get_Datatype( MPI_Datatype datatype )
-{
-   /*  elementary  datatypes (C) */
-   if ( datatype ==  MPI_CHAR )
-      return PABLO_MPI_CHAR;
-   else if ( datatype ==  MPI_SHORT )
-      return PABLO_MPI_SHORT; 
-   else if ( datatype == MPI_INT )
-      return PABLO_MPI_INT;
-   else if ( datatype ==  MPI_LONG ) 
-      return PABLO_MPI_LONG;  
-   else if ( datatype ==  MPI_UNSIGNED_CHAR )
-      return PABLO_MPI_UNSIGNED_CHAR; 
-   else if ( datatype ==  MPI_UNSIGNED_SHORT )
-      return PABLO_MPI_UNSIGNED_SHORT;
-   else if ( datatype ==  MPI_UNSIGNED )
-      return PABLO_MPI_UNSIGNED;  
-   else if ( datatype ==  MPI_UNSIGNED_LONG )
-      return PABLO_MPI_UNSIGNED_LONG;
-  else if ( datatype ==  MPI_FLOAT )
-     return PABLO_MPI_FLOAT;  
-   else if ( datatype ==  MPI_DOUBLE )
-      return PABLO_MPI_DOUBLE; 
-   else if ( datatype ==  MPI_LONG_DOUBLE )
-      return PABLO_MPI_LONG_DOUBLE; 
-   
-   /* elementary  datatypes (FORTRAN) */
-#ifdef MPI_INTEGER
-   else if ( datatype ==  MPI_INTEGER )	
-      return PABLO_MPI_INTEGER;   
-#endif
-#ifdef MPI_REAL       	
-   else if ( datatype ==  MPI_REAL )
-      return PABLO_MPI_REAL; 	
-#endif
-#ifdef MPI_DOUBLE_PRECISION
-   else if ( datatype ==  MPI_DOUBLE_PRECISION )
-      return PABLO_MPI_DOUBLE_PRECISION; 
-#endif
-#ifdef MPI_COMPLEX
-   else if ( datatype ==  MPI_COMPLEX )   
-      return PABLO_MPI_COMPLEX; 
-#endif
-#ifdef MPI_DOUBLE_COMPLEX		
-   else if ( datatype ==  MPI_DOUBLE_COMPLEX )	
-      return PABLO_MPI_DOUBLE_COMPLEX; 	
-#endif
-#ifdef MPI_LOGICAL
-   else if ( datatype ==  MPI_LOGICAL )	
-      return PABLO_MPI_LOGICAL;
-#endif
-#ifdef MPI_CHARACTER
-   else if ( datatype ==  MPI_CHARACTER )	
-      return PABLO_MPI_CHARACTER;
-#endif 	
-      
-   /*  other  datatypes (C, Fortran).*/
-   else if ( datatype ==  MPI_BYTE )
-      return PABLO_MPI_BYTE;         
-   else if ( datatype ==  MPI_PACKED )
-      return PABLO_MPI_PACKED;  
-   else if ( datatype ==  MPI_LB )
-      return PABLO_MPI_LB;         
-   else if ( datatype ==  MPI_UB )
-      return PABLO_MPI_UB;  
-   
-   
-   /*  reduction  datatypes (C).	*/
-   else if ( datatype ==  MPI_FLOAT_INT )
-      return PABLO_MPI_FLOAT_INT; 	
-   else if ( datatype ==  MPI_DOUBLE_INT )
-      return PABLO_MPI_DOUBLE_INT; 	
-   else if ( datatype ==  MPI_LONG_INT )
-      return PABLO_MPI_LONG_INT; 	
-   else if ( datatype ==  MPI_2INT )
-      return PABLO_MPI_2INT; 		
-   else if ( datatype ==  MPI_SHORT_INT )
-      return PABLO_MPI_SHORT_INT; 	
-   else if ( datatype ==  MPI_LONG_DOUBLE_INT )
-      return PABLO_MPI_LONG_DOUBLE_INT;
-   
-   /* Reduction datatypes (FORTRAN) */
-#ifdef MPI_2REAL
-   else if ( datatype ==  MPI_2REAL )
-      return PABLO_MPI_2REAL; 	
-#endif
-#ifdef MPI_2DOUBLE_PRECISION	
-   else if ( datatype ==  MPI_2DOUBLE_PRECISION )
-      return PABLO_MPI_2DOUBLE_PRECISION;
-#endif
-#ifdef MPI_2INTEGER 		
-   else if ( datatype ==  MPI_2INTEGER )
-      return PABLO_MPI_2INTEGER; 		
-#endif
-
-#ifdef MPI_2COMPLEX
-   else if ( datatype ==  MPI_2COMPLEX )
-      return PABLO_MPI_2COMPLEX; 
-#endif
-#ifdef 	MPI_2DOUBLE_COMPLEX
-   else if ( datatype ==  MPI_2DOUBLE_COMPLEX )
-      return PABLO_MPI_2DOUBLE_COMPLEX; 
-#endif		
-   
-/*  optional  datatypes (C).*/
-#ifdef MPI_LONG_LONG_INT
-   else if ( datatype ==  MPI_LONG_LONG_INT )
-      return PABLO_MPI_LONG_LONG_INT;
-#endif
-   else if ( datatype ==  MPI_DATATYPE_NULL ) 	
-      return PABLO_MPI_DATATYPE_NULL; 		
-   else
-      return PABLO_MPI_USER_DEF;  
-}
-
-/* data representations */
-int HDF_get_DataRep( char* datarep )
-{
-   if ( !strcmp( datarep, "native" ) )
-      return PABLO_MPI_NATIVE;
-   else if ( !strcmp( datarep, "internal" ) )
-      return PABLO_MPI_INTERNAL;
-   else if ( !strcmp( datarep, "external32" ) )
-      return PABLO_MPI_EXTERNAL32;
-   else
-      return (-1);
-}
-
-/*****************************************************************************/
-/* The routines below are there to bypass the MPI I/O Tracing.  When MPI I/O */
-/* tracing is done with a nonstandard MPI I/O implementation, problems can   */
-/* occur in linking and in data recording.				     */
-/* For each of the MPI I/O routines MPI_File_xxx used in HDF, there are two  */
-/* entries: HDF_MPI_File_xxx and PabloMPI_File_xxx.	Macros replace the   */
-/* MPI_File_xxx call with HDF_MPI_File_xxx.  	                             */
-/* If SUMMARY Tracing is used                                                */
-/* HDF_MPI_File_xxx routine will record entry data in a table, call the      */
-/* IF RUNTIME Tracing is used						     */
-/* HDF_MPI_File_xxx routine calls PabloMPI_File_xxx.  This routine writes    */
-/* data to the trace file, calls the standard MPI_File_xxx routine, then     */
-/* records exit data to a trace file.					     */
-/* The PabloMPI_File_xxx functionality could have been incorporated into the */
-/* HDF_MPI_File_xxx routine, but was not done so for expediency.	     */
-/*****************************************************************************/
-int PabloMPI_File_open( MPI_Comm comm,
-                        char *filename,
-                        int amode,
-                        MPI_Info info,
-                        MPI_File *fh ) ;
-
-int PabloMPI_File_close( MPI_File *fh ) ;
-
-int PabloMPI_File_set_size( MPI_File fh, MPI_Offset size ) ;
-
-int PabloMPI_File_get_size( MPI_File fh, MPI_Offset *size ) ;
-
-int PabloMPI_File_set_view( MPI_File fh,
-                            MPI_Offset disp,
-                            MPI_Datatype etype,
-                            MPI_Datatype filetype,
-                            char *datarep,
-                            MPI_Info info ) ;
-
-int PabloMPI_File_get_view( MPI_File fh,
-                            MPI_Offset *disp,
-                            MPI_Datatype *etype,
-                            MPI_Datatype *filetype,
-                            char *datarep ) ;
-
-int PabloMPI_File_read_at( MPI_File fh,
-                           MPI_Offset offset,
-                           void *buf,
-                           int count,
-                           MPI_Datatype datatype,
-                           MPI_Status *status ) ;
-
-int PabloMPI_File_read_at_all( MPI_File fh,
-                               MPI_Offset offset,
-                               void *buf,
-                               int count,
-                               MPI_Datatype datatype,
-                               MPI_Status *status ) ;
-
-int PabloMPI_File_write_at( MPI_File fh,
-                            MPI_Offset offset,
-                            void *buf,
-                            int count,
-                            MPI_Datatype datatype,
-                            MPI_Status *status ) ;
-
-int PabloMPI_File_write_at_all( MPI_File fh,
-                                MPI_Offset offset,
-                                void *buf,
-                                int count,
-                                MPI_Datatype datatype,
-                                MPI_Status *status ) ;
-
-int PabloMPI_File_sync( MPI_File fh ) ; 
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_open( MPI_Comm comm, 
-                   char *filename, 
-                   int amode, 
-                   MPI_Info info, 
-                   MPI_File *fh )
-{
-   int returnVal;
-   HDFsetInfo dataPtr;
-   int dataLen;
-   
-   if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-   {
-      returnVal = PabloMPI_File_open( comm, filename, amode, info, fh );
-   } 
-   else 
-   {
-      dataLen = sizeof( HDFsetInfo );
-      dataPtr.setID = 0;
-      dataPtr.setName = (char *)malloc( strlen(filename) + 1);
-      strcpy( dataPtr.setName , filename );
-      HDFtraceEvent_RT( HDFmpiOpenID, &dataPtr, dataLen );
-      returnVal = MPI_File_open( comm, filename, amode, info, fh );
-      dataPtr.setID = (long)fh;
-      HDFtraceEvent_RT( -HDFmpiOpenID, &dataPtr, dataLen );
-   }
-   return returnVal;
-}
-
-   
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_close( MPI_File *fh )
-{
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-   
-   if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-   {
-      returnVal = PabloMPI_File_close( fh );
-   } 
-   else 
-   {
-      dataLen = sizeof( HDFsetInfo );
-      dataPtr.setID = (long)fh;
-      dataPtr.setName = NULL;
-      HDFtraceEvent_RT( HDFmpiCloseID, &dataPtr, dataLen );
-      returnVal = MPI_File_close( fh );
-      HDFtraceEvent_RT( -HDFmpiCloseID, &dataPtr, dataLen );
-      free( dataPtr.setName );
-   }
-   return returnVal;
-}
-
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_set_size( MPI_File fh, MPI_Offset size )
-{
-   int returnVal;
-   HDFsetInfo dataPtr;
-   int dataLen;
-   
-   if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-   {
-      returnVal = PabloMPI_File_set_size( fh, size );
-   } 
-   else 
-   {
-      dataLen = 1;
-      dataPtr.setID = (long)fh;
-      HDFtraceEvent_RT( HDFmpiSetSizeID,&dataPtr,dataLen );
-      returnVal = MPI_File_set_size( fh, size );
-      HDFtraceEvent_RT( -HDFmpiSetSizeID, &dataPtr, dataLen );
-   }
-   return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_get_size( MPI_File fh, MPI_Offset *size )
-{
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-
-        if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) {
-           returnVal = PabloMPI_File_get_size( fh, size);
-	} else {
-	   dataLen = 1;
-           dataPtr.setID = (long)fh;
-           HDFtraceEvent_RT( HDFmpiGetSizeID,
-                             &dataPtr,dataLen );
-           returnVal = MPI_File_get_size( fh, size);
-           HDFtraceEvent_RT( -HDFmpiGetSizeID,
-                             &dataPtr,dataLen );
-	}
-   	return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_set_view( MPI_File fh, 
-                       MPI_Offset disp, 
-                       MPI_Datatype etype, 
-                       MPI_Datatype filetype, 
-                       char *datarep, 
-                       MPI_Info info )
-{
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-
-        if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-        {
-   	   returnVal = PabloMPI_File_set_view( fh, disp, etype, filetype, 
-                                                      datarep, info );
-	} 
-        else 
-        {
-	   dataLen = 1;
-           dataPtr.setID = (long)fh;
-           HDFtraceEvent_RT( HDFmpiSetViewID,
-                             &dataPtr,dataLen );
-   	   returnVal = MPI_File_set_view( fh, disp, etype, filetype, 
-                                                      datarep, info );
-           HDFtraceEvent_RT( -HDFmpiSetViewID,
-                             &dataPtr,dataLen );
-	}
-   	return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_get_view( MPI_File fh, 
-                       MPI_Offset *disp, 
-                       MPI_Datatype *etype, 
-                       MPI_Datatype *filetype, 
-                       char *datarep )
-{
-   int returnVal;
-   HDFsetInfo dataPtr;
-   int dataLen;
-
-   if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-   {
-      returnVal = PabloMPI_File_get_view(fh, disp, etype, filetype, datarep);
-   } 
-   else 
-   {
-      dataLen = 1;
-      dataPtr.setID = (long)fh;
-      HDFtraceEvent_RT( HDFmpiSetViewID, &dataPtr,dataLen );
-      returnVal = MPI_File_get_view(fh, disp, etype, filetype, datarep);
-      HDFtraceEvent_RT( -HDFmpiSetViewID, &dataPtr,dataLen );
-      returnVal = MPI_File_get_view(fh, disp, etype, filetype, datarep);
-
-   }
-   return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int HDF_MPI_File_read_at( MPI_File fh, 
-                          MPI_Offset offset, 
-                          void *buf,
-		          int count, 
-                          MPI_Datatype datatype, 
-                          MPI_Status *status )
-{
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-        int rCount;
-
-        if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-        {
-   	   returnVal = PabloMPI_File_read_at( fh, 
-                                              offset, 
-                                              buf, 
-                                              count, 
-                                              datatype, 
-                                              status );
-	} 
-        else 
-        {
-	   dataLen = sizeof(dataPtr);
-           dataPtr.setID = (long)fh;
-           dataPtr.numBytes = HDF_get_Bytes( datatype, count );
-           HDFtraceEvent_RT( HDFmpiReadAtID,
-                             &dataPtr,dataLen );
-   	   returnVal = MPI_File_read_at( fh, 
-                                         offset, 
-                                         buf, 
-                                         count, 
-                                         datatype, 
-                                         status );
-           MPI_Get_count(status,datatype,&rCount);
-           if ( rCount < 0 || rCount > count ) 
-           {
-              dataPtr.numBytes = -1;
-           }
-           else
-           {
-              dataPtr.numBytes = HDF_get_Bytes( datatype, rCount );
-           }
-           HDFtraceEvent_RT( -HDFmpiReadAtID,
-                             &dataPtr,dataLen );
-	}
-   	return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_read_at_all( MPI_File fh, 
-                          MPI_Offset offset, 
-                          void *buf,
-                          int count, 
-                          MPI_Datatype datatype, 
-                          MPI_Status *status )
-{
-   
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-        int rCount;
-
-        if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-        {
-   	   returnVal = PabloMPI_File_read_at_all( fh, 
-                                                  offset, 
-                                                  buf, 
-                                                  count, 
-                                                  datatype, 
-                                                  status );
-	} 
-        else 
-        {
-	   dataLen = sizeof(dataPtr);
-           dataPtr.setID = (long)fh;
-           dataPtr.numBytes = HDF_get_Bytes( datatype, count );
-           HDFtraceEvent_RT( HDFmpiReadAtAllID,
-                             &dataPtr,dataLen );
-   	   returnVal = MPI_File_read_at_all( fh, 
-                                             offset, 
-                                             buf, 
-                                             count, 
-                                             datatype, 
-                                             status );
-           MPI_Get_count(status,datatype,&rCount);
-           if ( rCount < 0 || rCount > count ) 
-           {
-              dataPtr.numBytes = -1;
-           }
-           else
-           {
-              dataPtr.numBytes = HDF_get_Bytes( datatype, rCount );
-           }
-           HDFtraceEvent_RT( -HDFmpiReadAtAllID,
-                             &dataPtr,dataLen );
-	}
-   	return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_write_at( MPI_File fh, 
-                       MPI_Offset offset, 
-                       void *buf,
-                       int count, 
-                       MPI_Datatype datatype, 
-                       MPI_Status *status )
-{
-   
-   int returnVal;
-   HDFsetInfo dataPtr;
-   int dataLen;
-   int rCount;
-
-   if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-   {
-      returnVal = PabloMPI_File_write_at( fh, 
-                                          offset, 
-                                          buf, 
-                                          count, 
-                                          datatype, 
-                                          status );
-   } 
-   else 
-   {
-      dataLen = sizeof(dataPtr);
-      dataPtr.setID = (long)fh;
-      dataPtr.numBytes = HDF_get_Bytes( datatype, count );
-      HDFtraceEvent_RT( HDFmpiWriteAtID, &dataPtr,dataLen );
-      returnVal = MPI_File_write_at( fh, 
-                                     offset, 
-                                     buf, 
-                                     count, 
-                                     datatype, 
-                                     status );
-      MPI_Get_count(status,datatype,&rCount);
-      if ( rCount < 0 || rCount > count ) 
-      {
-         dataPtr.numBytes = -1;
-      }
-      else
-      {
-         dataPtr.numBytes = HDF_get_Bytes( datatype, rCount );
-      }
-      HDFtraceEvent_RT( -HDFmpiWriteAtID, &dataPtr,dataLen );
-   }
-   return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_write_at_all( MPI_File fh, 
-                           MPI_Offset offset, 
-                           void *buf,
-                           int count, 
-                           MPI_Datatype datatype, 
-                           MPI_Status *status )
-{
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-        int numBytes;
-
-        if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-        {
-   	   returnVal = PabloMPI_File_write_at_all( fh, 
-                                                   offset, 
-                                                   buf, 
-                                                   count, 
-                                                   datatype, 
-                                                   status );
-	} 
-        else 
-        {
-	   dataLen = sizeof(dataPtr);
-           dataPtr.setID = (long)fh;
-           dataPtr.numBytes = HDF_get_Bytes( datatype, count );
-           HDFtraceEvent_RT( HDFmpiWriteAtAllID, &dataPtr, dataLen );
-   	   returnVal = MPI_File_write_at_all( fh, 
-                                              offset, 
-                                              buf, 
-                                              count, 
-                                              datatype, 
-                                              status );
-           if ( returnVal == MPI_SUCCESS ) 
-           {
-              numBytes = HDF_get_Bytes( datatype, count );
-           }
-           else
-           {
-              numBytes = -1;
-           }
-           dataPtr.numBytes = numBytes;
-           HDFtraceEvent_RT( -HDFmpiWriteAtAllID,
-                             &dataPtr,dataLen );
-	}
-   	return returnVal;
-}
-
-/*======================================================================* 
-// Pass call through to regular MPIO entry except in case of Real Time	* 
-// tracing.  								* 
-// Note: The regular MPIO entry may or may not be instrumented.		*
-//======================================================================*/
-int 
-HDF_MPI_File_sync( MPI_File fh )
-{
-   	int returnVal;
-   	HDFsetInfo dataPtr;
-   	int dataLen;
-
-        if ( OUTPUT_SWITCH != MPI_SUMMARY_TRACE ) 
-        { 
-   	   returnVal = PabloMPI_File_sync ( fh );
-	} 
-        else 
-        {
-	   dataLen = 1;
-           dataPtr.setID = (long)fh;
-           HDFtraceEvent_RT( HDFmpiSyncID,
-                             &dataPtr,dataLen );
-   	   returnVal = MPI_File_sync ( fh );
-           HDFtraceEvent_RT( -HDFmpiSyncID,
-                             &dataPtr,dataLen );
-	} 
-   	return returnVal;
-}
-
-int 
-HDF_get_Bytes( MPI_Datatype datatype, int count )
-{
-   int nm_bytes;
-   
-   MPI_Type_size( datatype, &nm_bytes );
-   return( nm_bytes * count );
-}
-
-int 
-PabloMPI_File_open( MPI_Comm comm,
-                    char *filename,
-                    int amode,
-                    MPI_Info info,
-                    MPI_File *fh )
-{
-   int returnVal;
-   
-   struct mpiOpenBeginArgs mpiOpenBeginArguments;
-   struct mpiOpenEndArgs mpiOpenEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "PabloMPI_File_open\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   MPI_Comm_rank( comm, &HDFlocalNode );
-   MPI_Comm_rank( MPI_COMM_WORLD, &HDFmyNode );
-
-   mpiOpenBeginArguments.localNode = HDF_get_source( HDFlocalNode );
-   mpiOpenBeginArguments.globalNode = HDFmyNode;
-   mpiOpenBeginArguments.communicatorID = HDF_get_comm( comm );
-   mpiOpenBeginArguments.mode = amode;
-   strcpy( mpiOpenBeginArguments.fileName, filename );
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiOpenBeginID, 
-                    (char *) &mpiOpenBeginArguments, 
-                    sizeof( mpiOpenBeginArguments ) );
-   
-   returnVal = MPI_File_open( comm, filename, amode, info, fh );
-   
-   mpiOpenEndArguments.localNode = HDF_get_source( HDFlocalNode );
-   mpiOpenEndArguments.globalNode = HDFmyNode;
-   /* the fileID is mapped to the fp's address */
-   myHDFid++;
-   mpiOpenEndArguments.fileID = myHDFid;
-   
-   /* Generate exit record */
-   HDFtraceIOEvent( mpiOpenEndID,    
-                    (char *) &mpiOpenEndArguments, 
-                    sizeof( mpiOpenEndArguments ) );
-   
-   return returnVal;
-}
-
-int 
-PabloMPI_File_close( MPI_File *fh )
-{
-   int returnVal;
-   
-   struct mpiCloseBeginArgs mpiCloseBeginArguments;
-   struct mpiCloseEndArgs mpiCloseEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_close\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiCloseBeginArguments.localNode = HDFlocalNode;
-   mpiCloseBeginArguments.globalNode = HDFmyNode;
-   mpiCloseBeginArguments.fileID = myHDFid;
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiCloseBeginID, 
-                    (char *) &mpiCloseBeginArguments, 
-		    sizeof( mpiCloseBeginArguments ) );
-   
-   returnVal = MPI_File_close( fh );
-   
-   mpiCloseEndArguments.localNode = HDFlocalNode;
-   mpiCloseEndArguments.globalNode = HDFmyNode;
-   mpiCloseEndArguments.fileID = myHDFid;
-   
-   /* Generate exit record */
-   HDFtraceIOEvent( mpiCloseEndID, 
-                    (char *) &mpiCloseEndArguments, 
-	            sizeof( mpiCloseEndArguments ) );
-   
-   return returnVal;
-}
-
-int 
-PabloMPI_File_set_size( MPI_File fh, MPI_Offset size )
-{
-   int returnVal;
-   
-   struct mpiSetSizeBeginArgs mpiSetSizeBeginArguments;
-   struct mpiSetSizeEndArgs mpiSetSizeEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_set_size\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiSetSizeBeginArguments.localNode = HDFlocalNode;
-   mpiSetSizeBeginArguments.globalNode = HDFmyNode;
-   /* mpiSetSizeBeginArguments.fileID = (long) (&fh); */
-   mpiSetSizeBeginArguments.fileID = myHDFid;
-   
-   mpiSetSizeBeginArguments.fileSize = (long) size;
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiSetSizeBeginID, 
-                    (char *) &mpiSetSizeBeginArguments, 
-		    sizeof( mpiSetSizeBeginArguments ) );
-   
-   returnVal = MPI_File_set_size( fh, size );
-   
-   mpiSetSizeEndArguments.localNode = HDFlocalNode;
-   mpiSetSizeEndArguments.globalNode = HDFmyNode;
-   mpiSetSizeEndArguments.fileID = myHDFid;
-      
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiSetSizeEndID, 
-                    (char *) &mpiSetSizeEndArguments, 
-		    sizeof( mpiSetSizeEndArguments ) );
-   
-   return returnVal; 
-}
-
-int 
-PabloMPI_File_get_size( MPI_File fh, MPI_Offset *size )
-{
-   int returnVal;
-  
-   struct mpiGetSizeBeginArgs mpiGetSizeBeginArguments;
-   struct mpiGetSizeEndArgs mpiGetSizeEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_get_size\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiGetSizeBeginArguments.localNode = HDFlocalNode;
-   mpiGetSizeBeginArguments.globalNode = HDFmyNode;
-   /* mpiGetSizeBeginArguments.fileID = (long) (&fh); */
-   mpiGetSizeBeginArguments.fileID = myHDFid;
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiGetSizeBeginID, 
-                    (char *) &mpiGetSizeBeginArguments, 
-		    sizeof( mpiGetSizeBeginArguments ) );
-   
-   returnVal = MPI_File_get_size( fh, size);
-   
-   mpiGetSizeEndArguments.localNode = HDFlocalNode;
-   mpiGetSizeEndArguments.globalNode = HDFmyNode;
-   /* mpiGetSizeEndArguments.fileID = (long) ( &fh ); */
-   mpiGetSizeEndArguments.fileID = myHDFid;
-   
-   mpiGetSizeEndArguments.fileSize = (long) (*size);
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiGetSizeEndID, 
-                    (char *) &mpiGetSizeEndArguments, 
-		    sizeof( mpiGetSizeEndArguments ) );
-   
-   return returnVal;
-}
-
-int 
-PabloMPI_File_set_view( MPI_File fh,
-                        MPI_Offset disp,
-                        MPI_Datatype etype,
-                        MPI_Datatype filetype,
-                        char *datarep,
-                        MPI_Info info )
-{
-   int returnVal;
-   
-   struct mpiSetViewBeginArgs mpiSetViewBeginArguments;
-   struct mpiSetViewEndArgs mpiSetViewEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_set_view\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiSetViewBeginArguments.localNode = HDFlocalNode;
-   mpiSetViewBeginArguments.globalNode = HDFmyNode;
-   /* mpiSetViewBeginArguments.fileID = (long) ( &fh ); */
-   mpiSetViewBeginArguments.fileID = myHDFid;
-   
-   mpiSetViewBeginArguments.disp = (long) ( disp );
-   mpiSetViewBeginArguments.etype = HDF_get_Datatype( etype );
-   mpiSetViewBeginArguments.fileType = HDF_get_Datatype( filetype );
-   mpiSetViewBeginArguments.dataRep = HDF_get_DataRep( datarep );
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiSetViewBeginID, 
-                    (char *) &mpiSetViewBeginArguments, 
-		    sizeof( mpiSetViewBeginArguments ) );
-   
-   returnVal = MPI_File_set_view( fh, 
-                                  disp, 
-                                  etype, 
-                                  filetype, 
-                                  datarep, 
-                                  info );
-   
-   mpiSetViewEndArguments.localNode = HDFlocalNode;
-   mpiSetViewEndArguments.globalNode = HDFmyNode;
-   /* mpiSetViewEndArguments.fileID = (long) ( &fh ); */
-   mpiSetViewEndArguments.fileID = myHDFid;
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiSetViewEndID, 
-                    (char *) &mpiSetViewEndArguments, 
-		    sizeof( mpiSetViewEndArguments ) );
-   
-   return returnVal;
-}
-
-int 
-PabloMPI_File_get_view( MPI_File fh,
-                        MPI_Offset *disp,
-                        MPI_Datatype *etype,
-                        MPI_Datatype *filetype,
-                        char *datarep )
-{
-   int returnVal;
-   
-   struct mpiGetViewBeginArgs mpiGetViewBeginArguments;
-   struct mpiGetViewEndArgs mpiGetViewEndArguments;
-
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_get_view\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiGetViewBeginArguments.localNode = HDFlocalNode;
-   mpiGetViewBeginArguments.globalNode = HDFmyNode;
-   mpiGetViewBeginArguments.fileID = myHDFid;
-     
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiGetViewBeginID, 
-                    (char *) &mpiGetViewBeginArguments, 
-		    sizeof( mpiGetViewBeginArguments ) );
-   
-   returnVal = MPI_File_get_view( fh, disp, etype, filetype, datarep );
-   
-   mpiGetViewEndArguments.localNode = HDFlocalNode;
-   mpiGetViewEndArguments.globalNode = HDFmyNode;
-   /* mpiGetViewEndArguments.fileID = (long) ( &fh ); */
-   mpiGetViewEndArguments.fileID = myHDFid;
-   
-   mpiGetViewEndArguments.disp = (long) ( *disp );
-   mpiGetViewEndArguments.etype = HDF_get_Datatype( *etype );
-   mpiGetViewEndArguments.fileType = HDF_get_Datatype( *filetype );
-   mpiGetViewEndArguments.dataRep = HDF_get_DataRep( datarep );
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiGetViewEndID, 
-                    (char *) &mpiGetViewEndArguments, 
-		    sizeof( mpiGetViewEndArguments ) );
-   
-   return returnVal;  
-}
-
-int 
-PabloMPI_File_read_at( MPI_File fh,
-                       MPI_Offset offset,
-                       void *buf,
-                       int count,
-                       MPI_Datatype datatype,
-                       MPI_Status *status )
-{
-   int returnVal, bcount;
-   
-   struct mpiReadAtBeginArgs mpiReadAtBeginArguments;
-   struct mpiReadAtEndArgs mpiReadAtEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_read_at\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiReadAtBeginArguments.localNode = HDFlocalNode;
-   mpiReadAtBeginArguments.globalNode = HDFmyNode;
-   /* mpiReadAtBeginArguments.fileID = (long) ( &fh ); */
-   mpiReadAtBeginArguments.fileID = myHDFid;
-   
-   mpiReadAtBeginArguments.offset = (long) ( offset );
-   mpiReadAtBeginArguments.count = count;
-   mpiReadAtBeginArguments.dataType = HDF_get_Datatype( datatype );
-   mpiReadAtBeginArguments.numBytes = HDF_get_Bytes( datatype, count );
-    
-  
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiReadAtBeginID, 
-                    (char *) &mpiReadAtBeginArguments, 
-		    sizeof( mpiReadAtBeginArguments ) );
-   
-   returnVal = MPI_File_read_at( fh, offset, buf, count, datatype, status );
-   
-   mpiReadAtEndArguments.localNode = HDFlocalNode;
-   mpiReadAtEndArguments.globalNode = HDFmyNode;
-   /* mpiReadAtEndArguments.fileID = (long) ( &fh ); */
-   mpiReadAtEndArguments.fileID = myHDFid;
-   
-   MPI_Get_count( status, datatype, &bcount );
-   if ( bcount < 0 || bcount > count ) 
-   {
-      mpiReadAtEndArguments.rCount = -1;
-      mpiReadAtEndArguments.numBytes = -1;
-   }   
-   else
-   {
-      mpiReadAtEndArguments.rCount = bcount;
-      mpiReadAtEndArguments.numBytes = HDF_get_Bytes( datatype, bcount );
-   }   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiReadAtEndID, 
-                    (char *) &mpiReadAtEndArguments, 
-		    sizeof( mpiReadAtEndArguments ) );
-   
-   return returnVal;
-}
-
-int 
-PabloMPI_File_read_at_all( MPI_File fh,
-                           MPI_Offset offset,
-                           void *buf,
-                           int count,
-                           MPI_Datatype datatype,
-                           MPI_Status *status )
-{
-   int returnVal, bcount;
-   
-   struct mpiReadAtAllBeginArgs mpiReadAtAllBeginArguments;
-   struct mpiReadAtAllEndArgs mpiReadAtAllEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_read_at_all\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiReadAtAllBeginArguments.localNode = HDFlocalNode;
-   mpiReadAtAllBeginArguments.globalNode = HDFmyNode;
-   /* mpiReadAtAllBeginArguments.fileID = (long) ( &fh ); */
-   mpiReadAtAllBeginArguments.fileID = myHDFid;
-   
-   mpiReadAtAllBeginArguments.offset = (long) ( offset );
-   mpiReadAtAllBeginArguments.count = count;
-   mpiReadAtAllBeginArguments.dataType = HDF_get_Datatype( datatype );
-   mpiReadAtAllBeginArguments.numBytes = HDF_get_Bytes( datatype, count );
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiReadAtAllBeginID, 
-                    (char *) &mpiReadAtAllBeginArguments, 
-		    sizeof( mpiReadAtAllBeginArguments ) );
-   
-   returnVal = MPI_File_read_at_all( fh, 
-                                     offset, 
-                                     buf, 
-                                     count, 
-                                     datatype, 
-                                     status );
-   
-   mpiReadAtAllEndArguments.localNode = HDFlocalNode;
-   mpiReadAtAllEndArguments.globalNode = HDFmyNode;
-   /* mpiReadAtAllEndArguments.fileID = (long) ( &fh ); */
-   mpiReadAtAllEndArguments.fileID = myHDFid;
-   
-   MPI_Get_count( status, datatype, &bcount );
-   if ( bcount < 0 || bcount > count )
-   {
-      mpiReadAtAllEndArguments.rCount = -1;
-      mpiReadAtAllEndArguments.numBytes = -1;
-   }
-   else
-   {
-      mpiReadAtAllEndArguments.rCount = bcount;
-      mpiReadAtAllEndArguments.numBytes = HDF_get_Bytes( datatype, bcount );
-   }
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiReadAtAllEndID, 
-                    (char *) &mpiReadAtAllEndArguments, 
-		    sizeof( mpiReadAtAllEndArguments ) );
-   
-   return returnVal;
-}
-
-int 
-PabloMPI_File_write_at( MPI_File fh,
-                        MPI_Offset offset,
-                        void *buf,
-                        int count,
-                        MPI_Datatype datatype,
-                        MPI_Status *status )
-{
-   int returnVal, bcount;
-   
-   struct mpiWriteAtBeginArgs mpiWriteAtBeginArguments;
-   struct mpiWriteAtEndArgs mpiWriteAtEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_write_at\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiWriteAtBeginArguments.localNode = HDFlocalNode;
-   mpiWriteAtBeginArguments.globalNode = HDFmyNode;
-   /* mpiWriteAtBeginArguments.fileID = (long) ( &fh ); */
-   mpiWriteAtBeginArguments.fileID = myHDFid;
-   
-   mpiWriteAtBeginArguments.offset = (long) ( offset );
-   mpiWriteAtBeginArguments.count = count;
-   mpiWriteAtBeginArguments.dataType = HDF_get_Datatype( datatype );
-   mpiWriteAtBeginArguments.numBytes = HDF_get_Bytes( datatype, count );
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiWriteAtBeginID, 
-                    (char *) &mpiWriteAtBeginArguments, 
-		    sizeof( mpiWriteAtBeginArguments ) );
-  
-   returnVal = MPI_File_write_at( fh, 
-                                  offset, 
-                                  buf, 
-                                  count, 
-                                  datatype, 
-                                  status );
-   
-   mpiWriteAtEndArguments.localNode = HDFlocalNode;
-   mpiWriteAtEndArguments.globalNode = HDFmyNode;
-   /* mpiWriteAtEndArguments.fileID = (long) ( &fh ); */
-   mpiWriteAtEndArguments.fileID = myHDFid;
-   
-   MPI_Get_count( status, datatype, &bcount );
-   mpiWriteAtEndArguments.wCount = bcount;
-   mpiWriteAtEndArguments.numBytes = HDF_get_Bytes( datatype, bcount );
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiWriteAtEndID, 
-                    (char *) &mpiWriteAtEndArguments, 
-		    sizeof( mpiWriteAtEndArguments ) );
-   
-   return returnVal;  
-}
-
-int 
-PabloMPI_File_write_at_all( MPI_File fh,
-                            MPI_Offset offset,
-                            void *buf,
-                            int count,
-                            MPI_Datatype datatype,
-                            MPI_Status *status )
-{
-   int returnVal, bcount;
-   int numBytes;
-   
-   struct mpiWriteAtAllBeginArgs mpiWriteAtAllBeginArguments;
-   struct mpiWriteAtAllEndArgs mpiWriteAtAllEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_write_at\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiWriteAtAllBeginArguments.localNode = HDFlocalNode;
-   mpiWriteAtAllBeginArguments.globalNode = HDFmyNode;
-   /* mpiWriteAtAllBeginArguments.fileID = (long) ( &fh ); */
-   mpiWriteAtAllBeginArguments.fileID = myHDFid;
-   
-   mpiWriteAtAllBeginArguments.offset = (long) ( offset );
-   mpiWriteAtAllBeginArguments.count = count;
-   mpiWriteAtAllBeginArguments.dataType = HDF_get_Datatype( datatype );
-   mpiWriteAtAllBeginArguments.numBytes = HDF_get_Bytes( datatype, count );
-      
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiWriteAtAllBeginID, 
-                    (char *) &mpiWriteAtAllBeginArguments, 
-		    sizeof( mpiWriteAtAllBeginArguments ) );
-   
-   returnVal = MPI_File_write_at_all( fh, 
-                                      offset, 
-                                      buf, 
-				      count, 
-                                      datatype, 
-                                      status );
-   
-   mpiWriteAtAllEndArguments.localNode = HDFlocalNode;
-   mpiWriteAtAllEndArguments.globalNode = HDFmyNode;
-   mpiWriteAtAllEndArguments.fileID = myHDFid;
-   
-   if ( returnVal == MPI_SUCCESS ) 
-   {
-      bcount = count;
-      numBytes = HDF_get_Bytes( datatype, count );
-   }
-   else
-   {
-      bcount = -1;
-      numBytes = -1;
-   }
-   mpiWriteAtAllEndArguments.wCount = bcount;
-   mpiWriteAtAllEndArguments.numBytes = numBytes;
-
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiWriteAtAllEndID, 
-                    (char *) &mpiWriteAtAllEndArguments, 
-		    sizeof( mpiWriteAtAllEndArguments ) );
-   
-   return returnVal;  
-}
-
-int 
-PabloMPI_File_sync( MPI_File fh ) 
-{
-   int returnVal;
-   
-   struct mpiSyncBeginArgs mpiSyncBeginArguments;
-   struct mpiSyncEndArgs mpiSyncEndArguments;
-   
-#ifdef PABLODEBUG
-   fprintf( debugFile, "MPI_File_sync\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   
-   mpiSyncBeginArguments.localNode = HDFlocalNode;
-   mpiSyncBeginArguments.globalNode = HDFmyNode;
-   /* mpiSyncBeginArguments.fileID = (long) ( &fh ); */
-   mpiSyncBeginArguments.fileID = myHDFid;
-      
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiSyncBeginID, 
-		    (char *) &mpiSyncBeginArguments, 
-		    sizeof( mpiSyncBeginArguments ) );
-   
-   returnVal = MPI_File_sync ( fh );
-   
-   mpiSyncEndArguments.localNode = HDFlocalNode;
-   mpiSyncEndArguments.globalNode = HDFmyNode;
-   /* mpiSyncEndArguments.fileID = (long) ( &fh ); */
-   mpiSyncEndArguments.fileID = myHDFid;
-   
-   /* Generate entry record */
-   HDFtraceIOEvent( mpiSyncEndID, 
-                    (char *) &mpiSyncEndArguments, 
-		    sizeof( mpiSyncEndArguments ) );
-   
-   return returnVal;
-}
-#endif /* _BUILD */
-#else /* H5_HAVE_PARALLEL */
-void HDF_get_NodeNum( int* nodeNum )
-{
-   *nodeNum = 0;
-}
-#endif /* H5_HAVE_PARALLEL */
diff --git a/pablo/PabloHDF_RT.c b/pablo/PabloHDF_RT.c
deleted file mode 100644
index c71f6e8..0000000
--- a/pablo/PabloHDF_RT.c
+++ /dev/null
@@ -1,1686 +0,0 @@
-/*  This file is part of the Pablo Performance Analysis Environment
-// 
-//           (R)
-//  The Pablo    Performance Analysis Environment software is NOT in
-//  the public domain.  However, it is freely available without fee for
-//  education, research, and non-profit purposes.  By obtaining copies
-//  of this and other files that comprise the Pablo Performance Analysis
-//  Environment, you, the Licensee, agree to abide by the following
-//  conditions and understandings with respect to the copyrighted software:
-//  
-//  1.  The software is copyrighted in the name of the Board of Trustees
-//      of the University of Illinois (UI), and ownership of the software
-//      remains with the UI. 
-// 
-//  2.  Permission to use, copy, and modify this software and its documentation
-//      for education, research, and non-profit purposes is hereby granted
-//      to Licensee, provided that the copyright notice, the original author's
-//      names and unit identification, and this permission notice appear on
-//      all such copies, and that no charge be made for such copies.  Any
-//      entity desiring permission to incorporate this software into commercial
-//      products should contact:
-// 
-//           Professor Daniel A. Reed                 reed@cs.uiuc.edu
-//           University of Illinois
-//           Department of Computer Science
-//           2413 Digital Computer Laboratory
-//           1304 West Springfield Avenue
-//           Urbana, Illinois  61801
-//           USA
-// 
-//  3.  Licensee may not use the name, logo, or any other symbol of the UI
-//      nor the names of any of its employees nor any adaptation thereof in
-//      advertizing or publicity pertaining to the software without specific
-//      prior written approval of the UI.
-// 
-//  4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
-//      SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
-//      OR IMPLIED WARRANTY.
-// 
-//  5.  The UI shall not be liable for any damages suffered by Licensee from
-//      the use of this software.
-// 
-//  6.  The software was developed under agreements between the UI and the
-//      Federal Government which entitle the Government to certain rights.
-// 
-// *************************************************************************
-// 
-//  Developed by: The Pablo Research Group
-//                University of Illinois at Urbana-Champaign
-//                Department of Computer Science
-//                1304 W. Springfield Avenue
-//                Urbana, IL     61801
-// 
-//                http://www-pablo.cs.uiuc.edu
-// 
-//  Send comments to: pablo-feedback@guitar.cs.uiuc.edu
-// 
-//  Copyright (c) 1987-1998
-//  The University of Illinois Board of Trustees.
-//       All Rights Reserved.
-// 
-//  PABLO is a registered trademark of
-//  The Board of Trustees of the University of Illinois
-//  registered in the U.S. Patent and Trademark Office.
-// 
-//  Project Manager and Principal Investigator:
-//       Daniel A. Reed (reed@cs.uiuc.edu)
-//
-// Funded in part by the Defense Advanced Research Projects Agency 
-// under DARPA contracts DABT63-94-C0049 (SIO Initiative), 
-// F30602-96-C-0161, and DABT63-96-C-0027 by the National Science 
-// Foundation under the PACI program and grants NSF CDA 94-01124 and
-// ASC 97-20202, and by the Department of Energy under contracts
-// DOE B-341494, W-7405-ENG-48, and 1-B-333164.
-*/ 
-/*======================================================================*
-// File:  PabloHDF_RT							*
-// Purpose: support use of Pablo trace library to analyze HDF 		*
-//	    performance							*
-// Contents:								*
-//  HDFinitTrace_RT        : initialize real-time tracing		*
-//  HDFendTrace_RT         : complete trace 				*
-//  initHDFProcTrace_RT    : sets up data structures at init time.	*
-//  initproctracert_()	   : fortran interface				*
-//  HDFtraceEvent_RT	   : called to record event information		*
-//  HDFrecordSum 	   : adds fields of one record to those of 	*
-//			     another					*
-//  HDFnodeInit 	   : initializes linked list node		*
-//  HDFrecordFileName	   : records named HDF identifiers 		*
-//  BeginIOEventRecord     : initialize before I/O call			*
-//  EndIOEventRecord 	   : finalize after I/O call			*
-//  BeginMPIOEventRecord   : initialize before MPI-I/O call		*
-//  EndMPIOEventRecord 	   : finalize after MPI-I/O call		*
-//  BeginHDFEventRecord    : initialize before HDF call			*
-//  EndHDFEventRecord 	   : finalizie after HDF call			*
-//  HDFrecordFileName	   : record named identifier information	*
-//  HDFassignPabloIDs	   : assigns a number to named identifiers	*
-//  writeHDFNamePacketsRT  : write SDDF packets for identifier names	*
-//  HDFupdateProcLists     : adds records in queue to entries in 	*
-//			     tables					*
-//  HDFupdateProcs	   : called by HDFupdateProcLists to do 	*
-//			     addition					*
-//  HDFSummarySDDF	   : write SDDF event summary packets		*
-//  HDFnodeInit 	   : initialize event node			*
-//  HDFrecordSum 	   : add one event record to another		*
-//  getHDFFieldIndex	   : get Field Index for counts and times	*
-//  getHDFByteFieldIndex   : get field index for bytes 			*
-//  writeHDFRecDescrptrsRT : write HDF Record Descriptor packets	*
-//  printFileMappingsRT	   : print map of named identifiers		*
-//  _hdfNameDescriptor()   : writes SDDF descriptor packet for names	*
-//======================================================================*/
-#ifndef PCF_BUILD
-#ifdef _HDF5_
-#include "H5config.h"
-#endif
-#include "SystemDepend.h"
-#include "Trace.h"
-#include "TraceParam.h"
-#include "ProcIDs.h"
-#include "IO_TraceParams.h"
-#include "IOTrace.h"
-#include "HDFTrace.h"
-#include "SDDFparam.h"
-#include <string.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <fcntl.h>
-/*======================================================================* 
-// on ipsc/860 don't include this or you'll get multiply defined SEEK_  *
-//======================================================================*/
-#ifndef __NX
-#include <unistd.h>
-#endif
- 
-#ifndef SUCCESS
-#define SUCCESS 0
-#define FAILURE	1
-#endif
-
-#ifndef TRUE
-#define TRUE 1
-#define FALSE	0
-#endif
-#define NEG_THREAD_ID -999
-
-#include "HDFrecord_RT.h"
-
-#ifdef H5_HAVE_MPIOTRACE
-#include "mpi.h"
-#include "MPIO_EventArgs.h"
-#endif
-
-#ifndef TRgetThreadID
-#define TRgetThreadID  TRgetNode
-#endif
-
-#ifndef TRnumNodes
-#define TRnumNodes 1
-#endif
-
-#define AllThreads -1
-
-/*======================================================================*
-//  User output file pointer.						*
-//======================================================================*/
-FILE *outP;
-/*======================================================================*
-// Data Structures:							*
-//									*
-// HDFQueues:   an array of linked list.  Each list corresponds to an	*
-//              HDF event and contains an entry for each different 	*
-//		thread and data set referenced by a call to that event  *
-//									*
-// CallStack: 	a stack of HDFnode_t objects.  At any given time, the   *
-//		stack represents the calling stack of the HDF routines 	*
-//									*
-// HDFfileList: a linked list of named identifiers and identifier 	*
-//		numbers.  This is processed later to assign a single 	*
-//		numbers to identifiers with the same name.		*
-//======================================================================*/
-HDFnode_t **HDFQueues;
-HDFnode_t *CallStack;
-HDFnode_t *TagQueue;
-fileRec_t *HDFfileList;
-/*======================================================================*
-// Internal Function prototypes						*
-//======================================================================*/
-void HDFinitTrace_RT( char *, int, int );
-void HDFendTrace_RT();
-int initproctracert_( void );
-int initHDFProcTrace_RT( void );
-void HDFtraceEvent_RT( int , char *, unsigned ) ;
-void BeginIOEventRecord ( int, CLOCK , void * );
-void EndIOEventRecord ( int , CLOCK , void * );
-void BeginMPIOEventRecord ( int, CLOCK , void *, int ); 
-void EndMPIOEventRecord ( int , CLOCK  , void *, int);
-void BeginHDFEventRecord( int , CLOCK  );
-void EndHDFEventRecord ( CLOCK  ,void *);
-void HDFrecordFileName( HDFsetInfo * );
-void HDFassignPabloIDs( int *, char *** );
-void writeHDFNamePacketsRT( char **, int );
-void HDFupdateProcLists( void );
-void HDFupdateProcs( HDFnode_t * );
-void HDFSummarySDDF( HDFnode_t *, int );
-void HDFnodeInit ( HDFnode_t * ) ;
-void HDFrecordSum ( HDFrec_t *, HDFrec_t * );
-int getHDFFieldIndex( int );
-int getHDFByteFieldIndex( int );
-void writeHDFRecDescrptrsRT( void );
-void printFileMappingsRT( char *, char **, int );
-void _hdfNameDescriptor( void );
-void _hdfDescriptorRT( char *, char *, int );
-void HDFfinalTimeStamp( void );
-void getHDFprocName( int index, char buff[41] );
-void IOtraceInit( char*, int, int );
-/*======================================================================*
-// Global variables           						*
-//======================================================================*/
-HDFnode_t InitNode;		/* Node used in initialization		*/
-HDFrec_t Tally;			/* Node used to get total		*/
-char *FileName;			/* Name of Trace file			*/
-HDFsetInfo openInfo;		/* Info about file opened		*/
-char openName[256];		/* Name of opened file			*/
-extern char *hdfRecordPointer;
-extern char HDFprocNames[][40];
-/*======================================================================*
-// NAME									*
-//     HDFinitTrace_RT-- initialize HDF real-time tracing		*
-// USAGE								*
-//     VOID HDFinitTrace_RT( fileName )					*
-//									*
-//     char *fileName;		IN: name of output file			*
-// RETURNS								*
-//     None.								*
-//======================================================================*/
-void HDFinitTrace_RT( char *fileName, int procNum, int OUTSW )
-{
-   int error;
-   TRgetClock( &epoch );
-   error = initHDFProcTrace_RT() ;
-   if ( error != SUCCESS ) 
-   {
-      fprintf (stderr,"Unable to Initialize properly.  Exiting program\n");
-      exit(-1);
-   }
-   FileName = ( char * ) malloc ( strlen( fileName ) + 10 );
-   /*===================================================================*
-   // Here the library was built to linked with the MPI and MPIO	*
-   // libraries.  However, the use may chose not to run with MPI.	*
-   // A check is made to see if MPI has been initialized.  If so,  	*
-   // a trace file is assigned to the current node with the number 	*
-   // of the node as a suffix; if not, only one file is opened  	*
-   // and it is not given a suffix.					*
-   //===================================================================*/
-   IOtraceInit( fileName, procNum, OUTSW );
-}
-/*======================================================================*
-// NAME									*
-//     HDFendTrace-- end HDF tracing					*
-// USAGE								*
-//     VOID HDFendTrace_RT(void)					*
-// RETURNS								*
-//     None.								*
-//======================================================================*/
-void HDFendTrace_RT( )
-{
-   int j, numSetIDs;
-   HDFnode_t *P;
-   char **Names;
-
-   HDFfinalTimeStamp();
-   /*===================================================================*
-   //  Assing pablo ids to named identifiers and tag records		*
-   //===================================================================*/
-   HDFassignPabloIDs( &numSetIDs, &Names );
-   /*===================================================================*
-   //  Create a file name for the File map file.			*
-   //  Disable for now.							*
-   //===================================================================*/
-/*	mapFile = (char *)malloc( strlen(FileName) + 4 );
-   strcpy(mapFile,FileName);
-   strcat(mapFile,".map"); */
-   /*===================================================================*
-   //  print the file mappings.						*
-   //===================================================================*/
-/*        printFileMappingsRT( mapFile, Names, numSetIDs ); */
-   /*===================================================================*
-   // Print SDDF summary records					*
-   //===================================================================*/
-   writeHDFRecDescrptrsRT();
-   writeHDFNamePacketsRT( Names, numSetIDs );
-     	for ( j = 0; j < NumHDFProcs; ++j ) {
-      HDFSummarySDDF( HDFQueues[j], j );
-   }  
-   endTracing();
-}
-/*======================================================================*
-// initHFDProcTrace_RT							*
-//	This function initializes data structures specific to		* 
-//	the HDF real-time procedure entry/exit tracing extensions of 	*
-//      the Pablo instrumentation library.  				*
-//======================================================================*/
-int initproctracert_( void )
-
-{
-   return initHDFProcTrace_RT();
-}
-
-int initHDFProcTrace_RT( void )
-{
-   int i; 
-   int j; 
-   int size;
-   int numProcs = NumHDFProcs;
-
-   if ( traceProcessorNumber == -1 ) 
-   {
-      traceProcessorNumber = TRgetDefaultProcessor();
-   }
-   /*===================================================================*
-   // Initialize InitNode used for node initialization.		*
-   //===================================================================*/
-   InitNode.ptr = NULL;
-   InitNode.eventID = 0;             
-   InitNode.lastIOtime = zeroClock;
-   InitNode.record.nCalls = 0;             
-   InitNode.record.lastCall = zeroClock;
-   InitNode.record.incDur = zeroClock;              
-   InitNode.record.excDur = zeroClock;              
-   InitNode.record.hdfID = 0;             
-   InitNode.record.xRef = 0;             
-   for ( j = 0; j < nTallyFields; ++j ) 
-   {
-           InitNode.record.times[j] = zeroClock; 
-   }
-   for ( j = 0; j < nTallyFields; ++j ) 
-   {
-           InitNode.record.counts[j] = 0; 
-   }
-   for ( j = 0; j < nByteFields; ++j ) 
-   {
-           InitNode.record.bytes[j] = 0; 
-   }
-   for ( i = 0; i < nByteFields; ++i ) 
-   {
-      for ( j = 0; j < nBkts; ++j ) 
-      {
-         InitNode.record.Hists[i][j] = 0;
-      }
-   }
-   /*===================================================================*
-   // initialize linked list used to keep track of named hdf 		*
-   // identifiers.							*
-   //===================================================================*/
-   HDFfileList = NULL;
-   /*===================================================================*
-   // Allocate a one dimensional array of pointers to queues of 	*
-   // HDFnodes.  There is one queue for each thread and one for 	*
-   // each HDF procedure.  Each queue will be a list of summary 	*
-   // records distinquished by file type and 				*
-   //===================================================================*/
-   size = (int)(numProcs*sizeof( HDFnode_t * ));
-   HDFQueues = (HDFnode_t **)malloc( size );
-   if ( HDFQueues == NULL ) 
-   {
-      fprintf(stderr,"Failed to allocate HDFQueues in initHDFProcTrace\n");
-      return FAILURE;
-   }
-   for ( j = 0; j < numProcs; ++j ) 
-   {
-      HDFQueues[j] = NULL;
-   }
-   /*===================================================================*
-   // Initialize call stack to a dummy node and TagQueue to NULL   	*
-   //===================================================================*/
-   CallStack = (HDFnode_t *)malloc( sizeof(HDFnode_t) );
-   *CallStack = InitNode;
-   TagQueue = NULL ;
-   return SUCCESS;
-}
-/*======================================================================*
-// This is called from the HDF and I/O routines when real-time summary	*
-// tracing is used.  It sets up a call stack for the specific thread in *
-// use if no stack is yet set up.  It then calls calls a routine to 	*
-// handle the event based on whether it is an I/O or HDF call.		*
-//======================================================================*/
-void HDFtraceEvent_RT( int eventType, char *dataPtr, unsigned dataLen ) 
-{
-   CLOCK	seconds;
-
-   seconds = getClock();
-
-   if ( isBeginIOEvent ( eventType ) || eventType == ID_malloc ) 
-   {
-      BeginIOEventRecord ( eventType, seconds, dataPtr ) ;
-   } 
-   else if ( isEndIOEvent( eventType )  || eventType == -ID_malloc) 
-   {
-      EndIOEventRecord ( eventType, seconds, dataPtr );
-   } 
-   else if ( isBeginHDFEvent( eventType ) ) 
-   { 
-      BeginHDFEventRecord ( eventType , seconds ) ;
-   } 
-   else if ( isEndHDFEvent( eventType ) ) 
-   {
-      EndHDFEventRecord ( seconds, dataPtr );
-#ifdef  H5_HAVE_MPIOTRACE
-   } 
-   else if ( isBeginMPIOEvent( eventType ) ) 
-   { 
-      BeginMPIOEventRecord ( eventType, seconds, dataPtr, dataLen ) ;
-   } 
-   else if ( isEndMPIOEvent( eventType ) ) 
-   {
-      EndMPIOEventRecord ( eventType, seconds, dataPtr, dataLen );
-#endif  /* H5_HAVE_MPIOTRACE */
-   } 
-   else 
-   {
-      fprintf(stderr,"eventType %d, dataLen = %u\n",eventType,dataLen);
-   } 
-}
-/*======================================================================* 
-// BeginIOEventRecord:                                               	*
-//  This routine simply records the time in the record on the top of 	*
-//  the stack.								*
-//======================================================================*/ 
-void BeginIOEventRecord ( int eventType, CLOCK seconds, void *dataPtr  )
-{
-   char *name;
-   /*===================================================================*
-   // save the time value temporarily in top of stack			*
-   // When the end record is received, the duration can be computed.	*
-   //===================================================================*/
-   CallStack->lastIOtime = seconds;
-   /*===================================================================*
-   // get the ID or name of the file accessed from the structure	*
-   // passed as dataPtr.  						*
-   //===================================================================*/
-   switch ( eventType )
-   {
-      case fopenBeginID:
-      case openBeginID:
-      {
-         name = (char *)(dataPtr) + 2*sizeof(int);
-         strcpy( openName, name );
-	 break;
-      }
-      case fcloseBeginID:
-      case closeBeginID:
-      {
-         CallStack->record.hdfID = *( long *)dataPtr;
-	 break;
-      }
-      case readBeginID:
-      case freadBeginID:
-      case writeBeginID:
-      case fwriteBeginID:
-      case lseekBeginID:
-      case fseekBeginID:
-      case fsetposBeginID:
-      case rewindBeginID:
-      {
-         CallStack->record.hdfID = *(int *)dataPtr;
-	 break;
-      }
-      default:
-      {
-         break;
-      }
-   }
-}
-/*======================================================================* 
-// EndIOEventRecord:							*
-//  This routine retrieves the entry time saved on the top of the stack *
-//  and computes the duration of the I/O event.  This is added to the   *
-//  record field corresponding to this type of I/O.  The Bytes field in *
-//  the record is updated if this is a read or write operation.		*
-//======================================================================*/ 
-void EndIOEventRecord ( int eventType, CLOCK secs, void *dataPtr )
-{
-   CLOCK incDur;
-   int i, Field, ByteField, bytes;
-   
-   incDur = clockSubtract(secs,CallStack->lastIOtime) ;
-   Field = getHDFFieldIndex( eventType ) ;
-   CallStack->record.times[Field] 
-   = clockAdd ( CallStack->record.times[Field] , incDur ) ;
-   ++CallStack->record.counts[Field];
-   ByteField = getHDFByteFieldIndex( Field ) ;
-   switch ( eventType ) 
-   {
-      case readEndID:
-      case freadEndID:
-      case writeEndID:
-      case fwriteEndID:
-      case -ID_malloc:
-      {
-         bytes = *((int *)dataPtr);
-         CallStack->record.bytes[ByteField] += bytes;
-         /*======================================================
-         // update histogram					*
-         //=====================================================*/
-         i = -1;
-         while ( bytes >= BktLim[i+1] ) ++i  ;
-         if ( i >= 0 ) ++CallStack->record.Hists[ByteField][i];
-         break;
-      }
-      case fopenEndID:
-      case openEndID:
-      {
-         openInfo.setName = openName;
-         openInfo.setID = (int)(*((long *)dataPtr));
-         CallStack->record.hdfID = openInfo.setID;
-         HDFrecordFileName ( &openInfo );
-         break;
-      }
-      default:
-      {
-         break;
-      }
-   }
-			
-}
-#ifdef H5_HAVE_MPIOTRACE
-/*======================================================================*
-// BeginMPIOEventRecord:                                               	*
-//  This routine simply records the time in the record on the top of 	*
-//  the stack.								*
-//======================================================================*/ 
-void BeginMPIOEventRecord( int eventType, 
-	                   CLOCK seconds, 
-	                   void *data,
-	                   int dataLen )
-{
-   HDFsetInfo *dataPtr;
-   dataPtr = (HDFsetInfo *)data;
-   /*===================================================================*
-   // save the time value temporarily in top of stack			*
-   // When the end record is received, the duration can be 		*
-   // computed.								*
-   //===================================================================*/
-   CallStack->lastIOtime = seconds;
-   /*===================================================================*
-   // get useful info from the structure pointed to by dataPtr.		*
-   // Form most cases, this is the file ID.  For mpiOpen, it is the	*
-   // name of the file.  For mpiDelete, no information is of any	*
-   // use.								*
-   //===================================================================*/
-   if ( dataLen == 0 ) return;
-   CallStack->record.hdfID = dataPtr->setID; 
-   switch ( eventType ) 
-   {
-      case HDFmpiOpenID:
-      {
-         strcpy( openName, dataPtr->setName );
-         break;
-      }
-      case HDFmpiReadAtID:
-      {
-         CallStack->record.bytes[MPIOreadBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiReadAtAllID:
-      {
-         CallStack->record.bytes[MPIOreadAllBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiWriteAtID:
-      {
-         CallStack->record.bytes[MPIOwriteBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiWriteAtAllID:
-      {
-         CallStack->record.bytes[MPIOwriteAllBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiIreadAtID:
-      {
-         CallStack->record.bytes[MPIOiReadBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiIwriteAtID:
-      {
-         CallStack->record.bytes[MPIOiWriteBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiReadID:
-      {
-         CallStack->record.bytes[MPIOreadBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiReadAllID:
-      {
-         CallStack->record.bytes[MPIOreadAllBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiWriteID:
-      {
-         CallStack->record.bytes[MPIOwriteBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiWriteAllID:
-      {
-         CallStack->record.bytes[MPIOwriteAllBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiIreadID:
-      {
-         CallStack->record.bytes[MPIOiReadBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      case HDFmpiIwriteID:
-      {
-         CallStack->record.bytes[MPIOiWriteBytesReq] += dataPtr->numBytes;
-         break;
-      }
-      default:
-      {
-         break;
-      }
-   }
-}
-/*======================================================================*
-// EndMPIOEventRecord:							*
-//  This routine retrieves the entry time saved on the top of the stack *
-//  and computes the duration of the MPI-I/O event.  This is added to   *
-//  the record field corresponding MPI-I/O.  				*
-//======================================================================*/ 
-void EndMPIOEventRecord ( int eventType, 
-	                  CLOCK secs, 
-	                  void *data,
-	                  int dataLen )
-{
-   CLOCK incDur;
-
-   HDFsetInfo* dataPtr;
-   incDur = clockSubtract(secs,CallStack->lastIOtime) ;
-   CallStack->record.times[MPI] 
-          = clockAdd ( CallStack->record.times[MPI], incDur );
-   ++CallStack->record.counts[MPI];
-   if ( dataLen == 0 ) 
-   {
-      return;
-   }
-   dataPtr = (HDFsetInfo *)data;
-   switch ( eventType ) 
-   {
-      case -HDFmpiOpenID:
-      {
-         /*===========================================================*
-         // open and record the information.			      *
-         //===========================================================*/
-	 openInfo.setName = openName;
-	 openInfo.setID = dataPtr->setID;
-	 CallStack->record.hdfID = openInfo.setID;
-	 HDFrecordFileName ( &openInfo );
-         break;
-      }
-      case -HDFmpiReadAtID:
-      {
-         ++CallStack->record.counts[MPIOread] ;
-         CallStack->record.times[MPIOread] 
-          = clockAdd ( CallStack->record.times[MPIOread], incDur );
-         CallStack->record.bytes[MPIOreadBytesTrans] += dataPtr->numBytes; 
-         break;
-      }
-      case -HDFmpiReadAtAllID:
-      {
-         ++CallStack->record.counts[MPIOreadAll] ;
-         CallStack->record.times[MPIOreadAll] 
-          = clockAdd ( CallStack->record.times[MPIOreadAll], incDur );
-         CallStack->record.bytes[MPIOreadAllBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiWriteAtID:
-      {
-         ++CallStack->record.counts[MPIOwrite] ;
-         CallStack->record.times[MPIOwrite] 
-          = clockAdd ( CallStack->record.times[MPIOwrite], incDur );
-         CallStack->record.bytes[MPIOwriteBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiWriteAtAllID:
-      {
-         ++CallStack->record.counts[MPIOwriteAll] ;
-         CallStack->record.times[MPIOwriteAll] 
-          = clockAdd ( CallStack->record.times[MPIOwriteAll], incDur );
-         CallStack->record.bytes[MPIOwriteAllBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiIreadAtID:
-      {
-         ++CallStack->record.counts[MPIOiRead] ;
-         CallStack->record.times[MPIOiRead] 
-             = clockAdd ( CallStack->record.times[MPIOiRead], incDur );
-         break;
-      }
-      case -HDFmpiIwriteAtID:
-      {
-         ++CallStack->record.counts[MPIOiWrite] ;
-         CallStack->record.times[MPIOiWrite] 
-             = clockAdd ( CallStack->record.times[MPIOiWrite], incDur );
-         break;
-      }
-      case -HDFmpiReadID:
-      {
-         ++CallStack->record.counts[MPIOread] ;
-         CallStack->record.times[MPIOread] 
-          = clockAdd ( CallStack->record.times[MPIOread], incDur );
-         CallStack->record.bytes[MPIOreadBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiReadAllID:
-      {
-         ++CallStack->record.counts[MPIOreadAll] ;
-         CallStack->record.times[MPIOreadAll] 
-          = clockAdd ( CallStack->record.times[MPIOreadAll], incDur );
-         CallStack->record.bytes[MPIOreadAllBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiWriteID:
-      {
-         ++CallStack->record.counts[MPIOwrite] ;
-         CallStack->record.times[MPIOwrite] 
-          = clockAdd ( CallStack->record.times[MPIOwrite], incDur );
-         CallStack->record.bytes[MPIOwriteBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiWriteAllID:
-      {
-         ++CallStack->record.counts[MPIOwriteAll] ;
-         CallStack->record.times[MPIOwriteAll] 
-          = clockAdd ( CallStack->record.times[MPIOwriteAll], incDur );
-         CallStack->record.bytes[MPIOwriteAllBytesTrans] += dataPtr->numBytes;
-         break;
-      }
-      case -HDFmpiIreadID:
-      {
-         ++CallStack->record.counts[MPIOiRead] ;
-         CallStack->record.times[MPIOiRead] 
-          = clockAdd ( CallStack->record.times[MPIOiRead], incDur );
-         break;
-      }
-      case -HDFmpiIwriteID:
-      {
-         ++CallStack->record.counts[MPIOiWrite] ;
-         CallStack->record.times[MPIOiWrite] 
-          = clockAdd ( CallStack->record.times[MPIOiWrite], incDur );
-         break;
-      }
-      default:
-      {
-         ++CallStack->record.counts[MPIOother] ;
-         CallStack->record.times[MPIOother] 
-          = clockAdd ( CallStack->record.times[MPIOiWrite], incDur );
-         break;
-      }
-   }
-}
-#endif /* H5_HAVE_MPIOTRACE */
-/*======================================================================*
-//   BeginHDFEventRecord:						* 
-// 	This function puts a trace record on the stack corresponding to	*
-//   	this thread.  If no stack exists, one is created.  If no record	* 
-//   	exist, a record is created.                                   	* 
-//======================================================================*/ 
-void BeginHDFEventRecord( int eventID, CLOCK secs )
-{
-	HDFnode_t *HDFrec;
-	/*==============================================================*
-	// Create a record. Push it onto the call stack.                *
-	//==============================================================*/
-        HDFrec = (HDFnode_t *)malloc( sizeof(HDFnode_t) );
-        HDFnodeInit( HDFrec ) ;
-	HDFrec->eventID = eventID;
-	HDFrec->ptr = CallStack;
-	CallStack = HDFrec ;
-	/*==============================================================*
-	// save time stamp in record.					*
-	//==============================================================*/
-	HDFrec->record.lastCall = secs;
-}
-/*======================================================================* 
-// EndHDFEventRecord:							*
-//  This routine pops the HDF record from the top of the stack 		*
-//  corresponding to this thread and computes the inclusive duration    *
-//  and adds it to the inclusive duration field of this record and to   *
-//  the HDF time field of the calling routines record.			*
-//======================================================================*/ 
-void EndHDFEventRecord ( CLOCK secs, void *dataPtr )
-{
-        HDFsetInfo 	*info;
-	HDFnode_t	*HDFrec;
-	CLOCK  		incSecs;
-	static int	dummyIDs = -4;
-	/*==============================================================*
-	// pop record from top of the stack, compute inclusive duration	*
-	// and set the corresponding record field and increment nCalls.	*
-	//==============================================================*/
-	HDFrec = CallStack;
-	CallStack = CallStack->ptr;
-	if ( CallStack == NULL ) {
-	   fprintf(stderr,">>> EndHDFEventRecord: Call Stack is empty. <<<\n");
-	   return;
-	}
-	incSecs = clockSubtract(secs,HDFrec->record.lastCall) ;
-                  
-	HDFrec->record.incDur = incSecs;
-	++HDFrec->record.nCalls;
-   	/*==============================================================*
-	// add old record to chain to have its xRef field tagged.	*
-	//==============================================================*/
-	HDFrec->ptr = TagQueue;
-	TagQueue = HDFrec;
-	/*==============================================================*
-	// Add set ID information.					*
-	//==============================================================*/
-	if ( dataPtr != NULL ) {
-	   info = (HDFsetInfo *)dataPtr;
-	   if ( info->setName != NULL ) {
-	      if ( info->setID == 0 ) {
-	         info->setID = dummyIDs--;
-	      }
-	      HDFrecordFileName ( info );
-	   }
-	   HDFrec->record.hdfID = info->setID;
-	}
-	/*==============================================================*
-	// Update the HDF totals for the calling program.		*
-	//==============================================================*/
-        CallStack->record.times[ HDF_ ] 
-           = clockAdd( CallStack->record.times[ HDF_ ] , incSecs ) ;
-        ++CallStack->record.counts[ HDF_ ] ;
-	/*==============================================================*
-	// If the stack has only one record it represents the main 	* 
-	// program.  Tag all of the records on the TagQueue and tally   * 
-	// them up.							* 
-	//==============================================================*/
-        if ( CallStack->ptr == NULL ) {
-           HDFupdateProcLists( );
-	}
-}
-/*======================================================================* 
-// This routine keeps track of the identifier names and tags.  Some	*
-// names may be associated with more than one tag.  This will be 	*
-// rectified when final tallies are done.				*
-//======================================================================*/
-void HDFrecordFileName( HDFsetInfo *info )
-{
-	fileRec_t *P;
-	char *t;
-	int match; 
-	long id;
-	P = HDFfileList;
-	match = FALSE;
-	id = info->setID;
-	while ( P != NULL && match == FALSE ) {
-	   if ( strcmp( P->fileName, info->setName ) != 0 && P->hdfID == id ) {
-	      match = TRUE;
-	   } else {
-	      P = P->ptr;
-	   }
-	}
-	if ( match == FALSE ) {
-	   P = ( fileRec_t *) malloc( sizeof( fileRec_t ) );
-	   P->ptr = HDFfileList;
-	   HDFfileList = P;
-	   t = (char *)malloc( strlen( info->setName ) + 1 );
-	   strcpy ( t, info->setName ) ;
-	   P->fileName = t;
-	   P->hdfID = info->setID;
-	   P->PabloID = 0;
-	} 
-}  
-/*======================================================================* 
-// This routine assigns a unique Pablo ID to each unique name 		*
-// regardless of the HDF tag.						*
-// It then goes through the HDFRecordQueue and marks each record with   *
-// the PabloID corresponding to the hdfID and xRef fields or 0.		*
-//======================================================================*/
-void HDFassignPabloIDs( int *nSetIDs, char ***Names )
-{
-	fileRec_t *F, *G;
-	HDFnode_t *P;
-	int j; 
-	long PabloID = 1;
-	long hdfID, xRef;
-	char *fName, **T;
-
-	F = HDFfileList;
-        /*==============================================================*
-        // Assign the same ID to identical names.			*
-        //==============================================================*/
-	while ( F != NULL ) {
-	   if ( F->PabloID == 0 ) {
-	      F->PabloID = PabloID++;
-	      fName = F->fileName;
-	      G = F->ptr;
-	      while ( G != NULL ) {
-	         if ( strcmp( G->fileName , fName ) == 0 ) {
-	            G->PabloID = F->PabloID;
-	         }
-	         G = G->ptr;
-	      }
-	   }
-	   F = F->ptr;
-	}
-	*nSetIDs = (int)(PabloID - 1);
-        if ( *nSetIDs <= 0 ) return;
-        /*==============================================================*
-	// Repace hdfID and xRef fields with corresponding Pablo ID	*
-        //==============================================================*/
-   	for ( j = 0; j < NumHDFProcs; ++j ) {
-   	   P = HDFQueues[j] ;
-   	   while ( P != NULL ) {
-   	      hdfID = P->record.hdfID;
-   	      if ( hdfID != 0 ) {
-   	         PabloID = 0;
-                 F = HDFfileList;
-   	         while ( F != NULL && PabloID == 0 ) {
-                    if ( hdfID == F->hdfID ) {
-   	               PabloID = F->PabloID;
-   	            }
-   	            F = F->ptr;
-   	         }
-   	         P->record.hdfID = PabloID;
-   	      }
-   	      xRef = P->record.xRef;
-   	      if ( xRef != 0 ) {
-   	         PabloID = 0;
-                 F = HDFfileList;
-   	         while ( F != NULL && PabloID == 0 ) {
-                    if ( xRef == F->hdfID ) {
-   	               PabloID = F->PabloID;
-   	            }
-   	            F = F->ptr;
-   	         }
-   	         P->record.xRef = PabloID;
-   	      }
-              P = P->ptr;
-   	   } /* end while ( P != NULL ) */
-        } /* end for */
-	/*==============================================================*
-	// get a list of all the unique names and order them according  *
-	// to their Pablo IDs.						*
-	//==============================================================*/
-	T = ( char ** )malloc( (*nSetIDs+1) * sizeof( char * ) );
-	for ( j = 0; j <= *nSetIDs; ++j ) {
-	   T[j] = NULL;
-	}
-	F = HDFfileList;
-	while ( F != NULL ) {
-	   PabloID = F->PabloID  ;
-	   if ( T[PabloID] == NULL ) {
-	      T[PabloID] = ( char * )malloc( strlen( F->fileName ) + 1 );
-	      strcpy( T[PabloID], F->fileName ) ;
-	   }
-	   free((void *)(F->fileName));
-	   G = F;
-	   F = F->ptr;
-	   free ( (void *)G );
-	}
-	*Names = T;
-}
-/*======================================================================* 
-// This routine writes SDDF packets to SDDF file containing information	*
-// about the named identifiers found in the program.			*
-//======================================================================*/
-void writeHDFNamePacketsRT( char **Names, int numSetIDs )
-{
-	int j;
-	HDFNamePacket_t NamePkt;
-	char *BUFF, *fName;
-	int buffSize;
-	/*==============================================================*
-	// Allocate a buffer to hold the packet.  Allow 80 chars for 	*
-	// identifier name.						*
-	//==============================================================*/
-	buffSize = sizeof(HDFNamePacket_t) + 80;
-	BUFF = (char *)malloc(buffSize);
-	/*==============================================================*
-	// Fill in constant information					*
-	//==============================================================*/
-	NamePkt.packetType = PKT_DATA;
-	NamePkt.packetTag = FAMILY_NAME;
-	/*==============================================================*
-	// Fill in named identifier information and write to SDDF file	*
-	//==============================================================*/
-	for ( j = 1; j <= numSetIDs; ++j ) {
-	   fName = Names[j];
-	   NamePkt.packetLength = (int)(sizeof(NamePkt) + strlen(fName));
-	   NamePkt.fileType = 0;		/* not currently used	*/
-	   NamePkt.fileID = j;
-	   NamePkt.nameLen = (int)strlen(fName) ;
-	   if ( buffSize < NamePkt.packetLength ) {
-	      free((void *)BUFF) ;
-	      buffSize = NamePkt.packetLength + 80;
-	      BUFF = (char *)malloc( buffSize ) ;
-	   }
-	   /*===========================================================*
-	   // Copy packet data and tack on identifier name		*
-	   //===========================================================*/
-	   memcpy( BUFF, &NamePkt, sizeof(NamePkt) );
-	   memcpy( BUFF + sizeof(NamePkt) , fName, strlen(fName) );
-	   putBytes( BUFF , NamePkt.packetLength ) ;
-	}
-	free((void *)BUFF);
-}
-/*======================================================================*
-// Tag xRef field of all records in this queue with the hdfID of the 	*
-// highest level caller. Also						*
-// This routine takes the records after they have been tagged and adds  *
-// their fields to the apporopriate position in the HDFQueues structure *
-//======================================================================*/
-void HDFupdateProcLists( void )
-{
-	HDFnode_t *P, *Q;
-	long hdfID;
-
-	hdfID = TagQueue->record.hdfID;
-	P = TagQueue;
-	while ( P != NULL ) {
-	   P->record.xRef = hdfID;
-	   Q = P->ptr;
-	   HDFupdateProcs( P );
-	   P = Q;
-	}
-        TagQueue = NULL;
-}
-/*======================================================================*
-// This routine takes as input a node pointer P  and looks for a Total  *
-// record with this same eventID, hdfID and xRef.  If such a record     *
-// exists, P is added to the record, otherwise a record is created and  *
-// its values are set to P's.						*
-//======================================================================*/
-void HDFupdateProcs( HDFnode_t *P )
-{
-	int procIndex, eventID;
-	long hdfID, xRef;
-	HDFnode_t *Q;
-	eventID = P->eventID;
-	procIndex = ProcIndexForHDFEntry( eventID );
-        hdfID = P->record.hdfID;
-        xRef = P->record.xRef;
-	Q = HDFQueues[ procIndex ];
-	/*==============================================================*
-	// First determine if a tally node exists that matches the     	*
-	// eventID, hdfID and xRef of P.				*
-	//==============================================================*/
-	while ( Q != NULL && 
-            (( Q->record.hdfID != hdfID ) || ( Q->record.xRef != xRef )) ) {
-           Q = Q->ptr;
-	}
-	if ( Q == NULL ) {
-	   /*===========================================================*
-	   // No tally record matches the hdfID and xRef so put P in    *
-	   // the queue.                 				*
-	   //===========================================================*/
-	   P->ptr = HDFQueues[ procIndex ];
-	   HDFQueues[ procIndex ] = P;
-	} else {
-	   /*===========================================================*
-	   // add P to the exiting record and free it.			*
-	   //===========================================================*/
-           HDFrecordSum ( &Q->record , &P->record );
-	   free((void *)P);
-	}
-}
-/*======================================================================*
-// Print SDDF records for all records in this linked list.		*
-//======================================================================*/
-void HDFSummarySDDF( HDFnode_t *P, int procIndex )
-{
-	int i, j, arrayLen, nodeID, nCalls;
-	int allIOCount;
-	CLOCK allIOTime, excDur;
-	double t;
-	char buff[1024];
-	char *Packet;
-	HDFnode_t *Q;
-        struct
-        {
-           int packetLen;
-           int packetType;
-           int packetTag;
-           int eventID;
-           double Seconds;
-           double IncDur;
-           double ExcDur;
-           long HDFid;
-           long XREFid;
-	}  Header;
-
-	Header.packetLen = sizeof(Header) 
-	                 + sizeof(int)                   /* n Calls     */
-	                 + sizeof(int)			 /* array len   */
-			 + nTallyFields*sizeof(double)	 /* times array */
-	                 + sizeof(int)			 /* array len   */
-	                 + nTallyFields*sizeof(int) 	 /* count array */
-	                 + sizeof(int)			 /* array len   */
-	                 + nByteFields*sizeof(int) 	 /* bytes array */
-	                 + nHistFields*sizeof(int)     	 /* array lens  */
-	                 + nHistFields*nBkts*sizeof(int) /* byte hist   */
-	                 + sizeof(int);                  /* nodeID      */
-	Header.packetTag = HDF_SUMMARY_FAMILY +
-			   ( procIndex + 1 )*8 + RECORD_TRACE ;
-	Header.packetType = PKT_DATA;
-	nodeID = TRgetNode();
-        while ( P != NULL ) {
-	   Q = P->ptr;
-	   /*===========================================================*
-	   // Total the I/O time and counts                        	*
-	   //===========================================================*/
-           allIOTime = zeroClock;
-           for ( j = FirstIO; j <= LastIO; ++j ) {
-              allIOTime = clockAdd( allIOTime, P->record.times[j] );
-           }
-           P->record.times[AllIO] = allIOTime;
- 
-           allIOCount = 0;
-           for ( j = FirstIO; j <= LastIO; ++j ) {
-              allIOCount += P->record.counts[j];
-           }
-           P->record.counts[AllIO] = allIOCount;
-	   /*===========================================================*
-	   // compute exclusive duration.				*
-	   //===========================================================*/
-	   excDur = clockSubtract(P->record.incDur,allIOTime);
-	   excDur = clockSubtract(excDur,P->record.times[HDF_]);
-	   excDur = clockSubtract(excDur,P->record.times[MPI]);
-	   /*===========================================================*
-	   // print header information.					*
-	   //===========================================================*/
-	   Header.eventID = P->eventID;
-           Header.Seconds = clockToSeconds(P->record.lastCall);
-	   Header.IncDur  = clockToSeconds( P->record.incDur );
-	   Header.ExcDur  = clockToSeconds(excDur);
-	   Header.HDFid   = P->record.hdfID;
-	   Header.XREFid  = P->record.xRef;
-	   Packet = buff;
-	   memcpy( Packet, &Header, sizeof(Header) );
-	   Packet += sizeof(Header);
-	   /*===========================================================*
-	   // copy number of calls to Packet.				*
-	   //===========================================================*/
-	   nCalls  = P->record.nCalls;
-	   memcpy( Packet, &nCalls, sizeof(int) );
-	   Packet += sizeof(int);
-	   /*===========================================================*
-	   // copy length of times array and times array to Packet.	*
-	   //===========================================================*/
-	   arrayLen = nTallyFields;
-	   memcpy( Packet, &arrayLen, sizeof(int) );
-	   Packet += sizeof(int);
-           for ( j = 0; j < nTallyFields; ++j ) {
-	      t = clockToSeconds(P->record.times[j]); 
-	      memcpy( Packet, &t, sizeof(double) );
-	      Packet += sizeof(double);
-	   }
-	   /*===========================================================*
-	   // copy length of counts array and counts array to Packet.	*
-	   //===========================================================*/
-	   arrayLen = nTallyFields;
-	   memcpy( Packet, &arrayLen, sizeof(int) );
-	   Packet += sizeof(int);
-	   memcpy( Packet, P->record.counts, nTallyFields*sizeof(int) );
-	   Packet += nTallyFields*sizeof(int);
-	   /*===========================================================*
-	   // copy length of bytes array and bytes array to Packet.	*
-	   //===========================================================*/
-	   arrayLen = nByteFields;
-	   memcpy( Packet, &arrayLen, sizeof(int) );
-	   Packet += sizeof(int);
-	   memcpy( Packet, P->record.bytes, nByteFields*sizeof(int) );
-	   Packet += nByteFields*sizeof(int);
-	   /*===========================================================*
-	   // copy length of historgram arrays and arrays to Packet.	*
-	   //===========================================================*/
-	   arrayLen = nBkts;
-	   for ( i = 0; i < nHistFields; ++i ) 
-           {
-	      memcpy( Packet, &arrayLen, sizeof(int) );
-	      Packet += sizeof(int);
-	      memcpy( Packet, P->record.Hists[i], nBkts*sizeof(int) );
-	      Packet += nBkts*sizeof(int);
-	   }
-	   memcpy( Packet, &nodeID, sizeof(int) );
-	   Packet += sizeof(int);
-           arrayLen = Packet-buff;
-           memcpy(buff,&arrayLen,sizeof(int));
-  	   putBytes( buff, Packet-buff ); 
-           P = Q;
-	} 
-}
-/*======================================================================*
-// Initialize a node.							*
-//======================================================================*/
-void HDFnodeInit ( HDFnode_t *S ) 
-{
-   *S = InitNode;
-}
-/*======================================================================*
-//      Compute IO totals, exclusive durations of the input record T    *
-//      then add the fields of T to that of S.                          *
-//======================================================================*/
-void HDFrecordSum ( HDFrec_t *S, HDFrec_t *T )
-{
-   int i;
-   int j;
-	
-   S->nCalls    += T->nCalls;
-   if ( clockCompare ( S->lastCall, T->lastCall ) < 0 ) 
-   {
-      S->lastCall  =  T->lastCall ;
-   }
-   S->incDur    = clockAdd ( S->incDur, T->incDur );
-   for ( j = 0; j < nTallyFields; ++j ) 
-   {
-      S->times[j] =  clockAdd( S->times[j] , T->times[j] ) ;
-   }
-   for ( j = 0; j < nTallyFields; ++j ) 
-   {
-      S->counts[j] += T->counts[j] ;
-   }
-   for ( j = 0; j < nByteFields; ++j ) 
-   {
-      S->bytes[j] += T->bytes[j] ;
-   }
-   for ( j = 0; j < nHistFields; ++j ) 
-   {
-      for ( i = 0; i < nBkts; ++i ) 
-      {
-         S->Hists[j][i] += T->Hists[j][i] ;
-      }
-   }
-}
-/*======================================================================*
-// Return the field index corresponding to an IO event ID.  The fields  *
-// are specified in an enum statement in an include file.		*
-//======================================================================*/
-int getHDFFieldIndex( int eventID )
-{
-   int result = -1;
-   switch ( eventID )
-   {
-      case ID_malloc:
-      case -ID_malloc:
-      {
-         result = Malloc;
-         break;
-      }
-      case openBeginID:
-      case openEndID:
-      case fopenBeginID:
-      case fopenEndID:
-      {
-         result = Open;
-         break;
-      }
-      case closeBeginID:
-      case closeEndID:
-      case fcloseBeginID:
-      case fcloseEndID:
-      {
-         result = Close;
-         break;
-      }
-      case readBeginID:
-      case readEndID:
-      case freadBeginID:
-      case freadEndID:
-      {
-         result = Read;
-         break;
-      }
-      case lseekBeginID:
-      case lseekEndID:
-      case fseekBeginID:
-      case fseekEndID:
-      {
-         result = Seek;
-         break;
-      }
-      case writeBeginID:
-      case writeEndID:
-      case fwriteBeginID:
-      case fwriteEndID:
-      {
-         result = Write;
-         break;
-      }
-      case fflushBeginID:
-      case fflushEndID:
-      case flushBeginID:
-      case flushEndID:
-      {
-         result = Misc;
-         break;
-      }
-      case rewindBeginID:
-      case rewindEndID:
-      case fsetposBeginID:
-      case fsetposEndID:
-      {
-         result = Misc;
-         break;
-      }
-#ifdef	creadBeginID
-      case creadBeginID:
-      case creadEndID:
-      case creadvBeginID:
-      case creadvEndID:
-      {
-         result = Read;
-         break;
-      }
-      case cwriteBeginID:
-      case cwriteEndID:
-      case cwritevBeginID:
-      case cwritevEndID:
-      {
-         result = Write;
-         break;
-      }
-      case ireadBeginID:
-      case ireadEndID:
-      case ireadvBeginID:
-      case ireadvEndID:
-      {
-         result = Aread;
-         break;
-      }
-      case iwriteBeginID:
-      case iwriteEndID:
-      case iwritevBeginID:
-      case iwritevEndID:
-      {
-         result = Awrite;
-         break;
-      }
-      case iowaitBeginID:
-      case iowaitEndID:
-      {
-         result = Wait;
-         break;
-      }
-      case iodoneBeginID:
-      case iodoneEndID:
-      {
-         result = Misc;
-         break;
-      }
-      case gopenBeginID:
-      case gopenEndID:
-      {
-         result = Open;
-         break;
-      }
-      case iomodeBeginID:
-      case iomodeEndID:
-      case setiomodeBeginID:
-      case setiomodeEndID:
-      case lsizeBeginID:
-      case lsizeEndID:
-      case forflushBeginID:
-      case forflushEndID:
-      {
-         result = Misc;
-         break;
-      }
-#endif	
-   }
-   return result;
-}
-/*======================================================================*
-// This routine determines the field index in the bytes array of the 	*
-// HDF records which correspond to a given IO operation.  If the  	*
-// operation does not transfer bytes, (e.g., open operation), -1 is	*
-// returned.								*
-//======================================================================*/
-int getHDFByteFieldIndex( int Operation ) 
-{
-   int result;
-   switch ( Operation )
-   {
-      case Malloc:
-      {
-         result = MallocBytes;
-         break;
-      }
-      case Read:
-      {
-         result = ReadBytes;
-         break;
-      }
-      case Write:
-      {
-         result = WriteBytes;
-         break;
-      }
-      case Aread:
-      {
-         result = AreadBytes;
-         break;
-      }
-      case Awrite:
-      {
-         result = AwriteBytes;
-         break;
-      }
-      case MPIOread:
-      {
-         result = MPIOreadBytesReq;
-         break;
-      }
-      case MPIOwrite:
-      {
-         result = MPIOwriteBytesReq;
-         break;
-      }
-      case MPIOreadAll:
-      {
-         result = MPIOreadAllBytesReq;
-         break;
-      }
-      case MPIOwriteAll:
-      {
-         result = MPIOwriteAllBytesReq;
-         break;
-      }
-      case MPIOiRead:
-      {
-         result = MPIOiReadBytesReq;
-         break;
-      }
-      case MPIOiWrite:
-      {
-         result = MPIOiWriteBytesReq;
-         break;
-      }
-      case MPIOreadTrans:
-      {
-         result = MPIOreadBytesTrans;
-         break;
-      }
-      case MPIOwriteTrans:
-      {
-         result = MPIOwriteBytesTrans;
-         break;
-      }
-      case MPIOreadAllTrans:
-      {
-         result = MPIOreadAllBytesTrans;
-         break;
-      }
-      case MPIOwriteAllTrans:
-      {
-         result = MPIOwriteAllBytesTrans;
-         break;
-      }
-      default:
-      {
-         result = -1;
-         break;
-      }
-   }
-   return result;
-}
-/*======================================================================*
-// This routine writes the SDDF packet descriptors for the HDF summary	*
-// records to the output file.						*
-//======================================================================*/
-void _hdfDescriptorRT( char *recordName, char *recordDescription, 
-                                                       int recordFamily )
-{
-    static char	recordBuffer[ 4096 ];
-    int		recordLength;
-
-    hdfRecordPointer = recordBuffer;
-    /*==================================================================*
-    // Allow space at the beginning of the record for the packet 	*
-    //length which will be computed after the packet is complete.	*
-    //==================================================================*/
-    sddfWriteInteger( &hdfRecordPointer, 0 );
-    /*==================================================================* 
-    // The record type, tag, and name 					* 
-    //==================================================================*/
-    sddfWriteInteger( &hdfRecordPointer, PKT_DESCRIPTOR );
-    sddfWriteInteger( &hdfRecordPointer, ( recordFamily | RECORD_TRACE ) );
-    sddfWriteString( &hdfRecordPointer, recordName );
-    /*==================================================================* 
-    // The record attribute count and string pair 			* 
-    //==================================================================*/
-    sddfWriteInteger( &hdfRecordPointer, 1 );
-    sddfWriteString( &hdfRecordPointer, "description" );
-    sddfWriteString( &hdfRecordPointer, recordDescription );
-    /*==================================================================*
-    // The record field count 						*
-    //==================================================================*/
-    sddfWriteInteger( &hdfRecordPointer, 16 );
-    WRITE_HDF_FIELD( "Event Identifier", 
-	             "Event ID",
-                     "Corresponding Event",
-	             INTEGER, 0 );
-    WRITE_HDF_FIELD( "Seconds", 
-	   	     "Seconds", 
-                     "Floating Point Timestamp", 
-		      DOUBLE, 0 );
-    WRITE_HDF_FIELD( "Inclusive Duration", 
-  	             "Inclusive Duration", 
-	             "Inclusive Duration of this Procedure",
-		      DOUBLE, 0 );
-    WRITE_HDF_FIELD( "Exclusive Duration", 
-  	             "Exclusive Duration", 
-	             "Excludes IO, MPI-IO and other HDF calls",
-		      DOUBLE, 0 );
-    WRITE_HDF_FIELD2("HDF ID",
-                     "HDF ID", "Identifier number",
-                     "0", "No HDF ID specified",
-                     LONG, 0 );
-    WRITE_HDF_FIELD( "Xref ID",
-                     "Cross Reference", 
-                     "Index of related HDF ID or 0 if none",
-		     LONG, 0 );
-    WRITE_HDF_FIELD( "N Calls", 
-		     "N Calls", 
-		     "Number of Calls to this Proc", 
-		     INTEGER, 0 );
-    WRITE_HDF_FIELD( "Times Array",
-                     "Times Array",
-	             "Array of Total Operation Times",
-		     DOUBLE, 1 );
-    WRITE_HDF_FIELD( "Counts Array",
-                     "Counts Array",
-	             "Array of Total Operation Counts",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Bytes Array",
-                     "Bytes Array",
-	             "Array of Total Bytes Transferred",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Malloc Histogram",
-                     "Malloc Histogram",
-	             "Historgram of size Malloc Requests",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Read Histogram",
-                     "Read Histogram",
-	             "Historgram of size Read Requests",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Write Histogram",
-                     "Write Histogram",
-	             "Historgram of size Write Requests",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Aread Histogram",
-                     "Aread Histogram",
-	             "Historgram of size Asynch Read Requests",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Awrite Histogram",
-                     "Awrite Histogram",
-	             "Historgram of size Asynch Write Requests",
-		     INTEGER, 1 );
-    WRITE_HDF_FIELD( "Processor Number", 
-		     "Node", 
-		     "Processor number", 
-		     INTEGER, 0 );
-    /*=================================================================== 
-    // The entire record descriptor packet has been written.		* 
-    // Compute and update the record length.				* 
-    // Write the completed record.					* 
-    //==================================================================*/
-    recordLength = (int)(hdfRecordPointer - recordBuffer);
-
-    hdfRecordPointer = recordBuffer;
-    sddfWriteInteger( &hdfRecordPointer, recordLength );
-
-    putBytes( recordBuffer, (unsigned) recordLength );
-}
-
-/*======================================================================* 
-//   Internal Routine:  writeHDFRecDescrptrsRT	                        * 
-//                      Writes record descriptors for the HDF events.   * 
-//======================================================================*/
-void writeHDFRecDescrptrsRT( void ) 
-{
-	int j, FAMILY;
-        char BUF1[256], BUF2[256] ;
-        char buff[41];
-	_hdfNameDescriptor();	/* Descriptor for named identifiers	*/
-        for ( j = 0; j < NumHDFProcs; ++j ) {
-           if ( HDFQueues[j] != NULL ) {
-              getHDFprocName( j, buff );
-              strcpy( BUF2, "HDF ");
-              strcat( BUF2, buff );
-              strcat( BUF2, " Procedure Summary");
-              strcpy( BUF1, BUF2 );
-              strcat( BUF1, " Trace");
-	      FAMILY = HDF_SUMMARY_FAMILY + (j + 1)*8;
-              _hdfDescriptorRT( BUF1, BUF2, FAMILY );
-           }
-        }
-        return;
-}
-/*======================================================================*
-// This routine prints the Pablo IDs assigned to named HDF identifiers  *
-//======================================================================*/
-void printFileMappingsRT( char *mapFile, char **Names, int nPabloIDs )
-{
-	int i;
-	FILE *ptr;
-	ptr = fopen( mapFile, "w" );
- 
-        if ( ptr == NULL ) {
-	    fprintf(stderr,
-                    "Couldn't open map file %s - none created.\n",mapFile);
-            return;
-        }
- 
-	fprintf(ptr,"\n\nPablo ID to HDF Name mappings:\n");
-	fprintf(ptr,"------------------------------\n");
-        for ( i = 1; i <= nPabloIDs; i++ ) {
-	     fprintf(ptr,"%4d %s\n",i,Names[i] );
-	}
-	fprintf(ptr,"\n\n");
-	fclose( ptr );
-}
-/************************************************************************/
-/*	_hdfNameDescriptor	     					*/
-/*	   Generate a SDDF binary format record descriptor for the	*/
-/*	   named identifiers used during execution.              	*/
-/************************************************************************/
-void _hdfNameDescriptor( void )
-{
-    static char recordBuffer[ 4096 ];
-    int         recordLength;
-
-#ifdef PABLODEBUG
-	fprintf( debugFile, "_hdfExitTraceDescriptor entered\n" );
-	fflush( debugFile );
-#endif /* PABLODEBUG */
-    hdfRecordPointer = recordBuffer;
-    /********************************************************************/
-    /* Allow space at the beginning of the record for the packet        */
-    /*length which will be computed after the packet is complete.       */
-    /********************************************************************/
-    sddfWriteInteger( &hdfRecordPointer, 0 );
-    /********************************************************************/
-    /* The record type, tag, and name                                   */
-    /********************************************************************/
-    sddfWriteInteger( &hdfRecordPointer, PKT_DESCRIPTOR );
-    sddfWriteInteger( &hdfRecordPointer, ( FAMILY_NAME ) );
-    sddfWriteString( &hdfRecordPointer, "HDF Name Identifier Record" );
-    /********************************************************************/
-    /* The record attribute count and string pair                       */
-    /********************************************************************/
-    sddfWriteInteger( &hdfRecordPointer, 1 );
-    sddfWriteString( &hdfRecordPointer, "description" );
-    sddfWriteString( &hdfRecordPointer, "HDF Name Identifier Record" );
-    /********************************************************************/
-    /* The record field count                                           */
-    /********************************************************************/
-    sddfWriteInteger( &hdfRecordPointer, 3);
-    /********************************************************************/
-    /* Create fields                                               	*/
-    /********************************************************************/
-    WRITE_HDF_FIELD(  "Identifier Type", 
-		      "Data Set Type", 
-		      "Data Set Identifier Type", 
-		      INTEGER, 0 );
-    WRITE_HDF_FIELD2( "HDF ID",
-                      "HDF ID", "File, Data Set or Dim Identifier number",
-                      "0", "No HDF ID specified",
-                      INTEGER, 0 ); 
-    WRITE_HDF_FIELD( "HDF Name",
-                     "HDF Name", "Name of File, Data Set or Dim",
-                      CHARACTER, 1 );
-
-    recordLength = (int)(hdfRecordPointer - recordBuffer);
-
-    hdfRecordPointer = recordBuffer;
-    sddfWriteInteger( &hdfRecordPointer, recordLength );
-
-    putBytes( recordBuffer, (unsigned) recordLength );
-}
-#endif /* PCF_BUILD */
diff --git a/pablo/PabloHDF_SDDF.c b/pablo/PabloHDF_SDDF.c
deleted file mode 100644
index 6326702..0000000
--- a/pablo/PabloHDF_SDDF.c
+++ /dev/null
@@ -1,820 +0,0 @@
-/*
- * This file is an extension to NCSA HDF to enable the use of the
- * Pablo trace library.
- *
- * Developed by: The TAPESTRY Parallel Computing Laboratory
- *		 University of Illinois at Urbana-Champaign
- *		 Department of Computer Science
- *		 1304 W. Springfield Avenue
- *		 Urbana, IL	61801
- *
- * Copyright (c) 1995
- * The University of Illinois Board of Trustees.
- *      All Rights Reserved.
- *
- * PABLO is a registered trademark of
- * The Board of Trustees of the University of Illinois
- * registered in the U.S. Patent and Trademark Office.
- *
- * Author: George Xin Zhou (xzhou@cs.uiuc.edu)
- * Contributing Author: Jonathan M. Reid (jreid@cs.uiuc.edu)
- *
- * Project Manager and Principal Investigator:
- *	Daniel A. Reed (reed@cs.uiuc.edu)
- *
- * Funded by: National Aeronautics and Space Administration under NASA
- * Contracts NAG-1-613 and USRA 5555-22 and by the Advanced Research
- * Projects Agency under ARPA contracts DAVT63-91-C-0029 and
- * DABT63-93-C-0040.
- *
- */
-/*======================================================================*
-// File:  PabloHDF_SDDF.c						*
-// Purpose: support use of Pablo trace library to analyze HDF 		*
-// performance								*
-// Contents:							 	*
-// HDFinitTrace_SDDF:   initialize SDDF tracing	 	 		*
-// HDFendTrace_SDDF:    end SDDF tracing		 		*	
-// startHDFtraceEvent:  record start of HDF procedure    		*
-// endHDFtraceEvent:    record end of HDF proc	 			*
-// preInitHDFProcTrace: called by HDFinitTrace_SDDF to set up SDDF 	*
-//                      interface function calls			*
-// initHDFProcTrace:    called by HDFinitTrace_SDDF to initialize data 	*
-//		        structures used in tracing HDF procedures.	*
-// writeHDFProcRecordDescriptors:       				*
-//	                generates the record descriptors for the HDF	*
-//	                procedure entry/exit event families.  		*
-// HDFprocEventRecord:  generates trace records for events which are	*
-//   	                to produce procedure entry or exit event family *
-//			trace records.					*
-// findHDFProcEvent:    retruns procedure entry/exit index		*
-// _hdfTraceEntryDescriptor:						* 
-//	                Generate a SDDF binary format record descriptor *
-//                      for HDF procedure entries 			*
-// _hdfTraceExitDescriptor:	     					* 
-//	                Generate a SDDF binary format record descriptor *
-//                      for the	HDF procedure exits			*
-//======================================================================*/
-#ifndef PCF_BUILD
-#include <stdio.h>
-
-#include "H5config.h"
-#undef H5_HAVE_PABLO
-#include "H5private.h" 
-#define H5_HAVE_PABLO
-#include "ProcIDs.h"
-
-#include "SystemDepend.h"
-#include "SDDFparam.h"
-#include "TraceParam.h"
-#include "Trace.h"
-#include "IOTrace.h"
-#include "HDFTrace.h"
-void IOtraceInit( char*, int, int );
-void HDFendTrace_SDDF(void);
-void startHDFtraceEvent(int eventID);
-void endHDFtraceEvent(int , int , char *, int );
-int preInitHDFProcTrace( void );
-int initHDFProcTrace( int , int * );
-int  writeHDFProcRecordDescriptors( void );
-int findHDFProcEvent( int ) ;
-TR_RECORD *HDFprocEventRecord( int, TR_EVENT *, CLOCK, HDFsetInfo *, unsigned );
-TR_RECORD *miscEventRecord( int , TR_EVENT *, CLOCK, void *, unsigned );
-void _hdfMiscDescriptor( void );
-void _hdfProcNameDescriptor( void );
-/*int setEventRecordFunction( int, void *(*)() );*/
-int setEventRecordFunction( int, TR_RECORD *(*)() );
-void HDFtraceIOEvent( int, void *, unsigned );
-void initIOTrace( void );
-void enableIOdetail( void );
-void disableLifetimeSummaries( void );
-void disableTimeWindowSummaries( void );
-void disableFileRegionSummaries( void );
-void _hdfTraceDescriptor( char *, char *, int );
-void createHDFTraceDescriptor( int );
-void HDFfinalTimeStamp( void );
-void getHDFprocName( int index, char buff[41] );
-void endIOTrace();
-
-#define PABLO 1
-/* on the ipsc/860 we don't include unistd.h */
-#ifndef __NX
-#include <unistd.h>
-#endif
-
-#define returnRecord(x)    return x;
-
-#ifdef H5_HAVE_MPIOTRACE
-	int initMPIOTrace( char *, int, int );
-	void endMPIOTrace( void ) ;
-#else
-	void endMPIOTrace( void ) {return;} 
-#endif
-extern char *hdfRecordPointer;
-/*======================================================================*
-// Prototypes of functions in this file.				*
-//======================================================================*/
-void HDFinitTrace_SDDF( char *, int );
-/*======================================================================* 
-// Each procedure being traced has associated with it a distinct pair 	* 
-// of entry and exit event IDs.  This code maintains a vector of such  	* 
-// matchings which permits the ready identification of an event ID as  	* 
-// being either an entry event or an exit event and for which procedure.* 
-//======================================================================*/
-typedef struct procEventMatch {
-	int			entryID;  /* procedure entry event ID 	*/
-	int			exitID;	  /* procedure exit event ID  	*/
-} PROC_EVENTS;
-
-static PROC_EVENTS	*procEvents =	   /* array of event ID pairs 	*/
-			(PROC_EVENTS *) 0;
-/*======================================================================* 
-// For each procedure being traced this code maintains a stack of	* 
-// procedure entry times.  Each procedure entry event causes the	* 
-// corresponding procedure's stack to be pushed, each procedure exit	* 
-// event causes the corresponding procedure's stack to be popped, and	* 
-// from the difference in time between entry and exit the procedure	* 
-// duration may be calculated in a very straightforward subtraction.  	* 
-// The above procedure entry-exit event ID matching is used to map 	* 
-// events to their corresponding procedures.  In addition, the 		* 
-// cumulative total of these procedure durations is maintained for all 	* 
-// traced subprocedures	of each traced procedure.  That is, when a 	* 
-// traced procedure exits, it increases this duration sum for its most 	* 
-// immediate traced ancestor procedure.  By subtracting this 		* 
-// subprocedure duration sum from the traced procedure's inclusive 	* 
-// duration, we arrive at the exclusive duration of the procedure.	* 
-//======================================================================*/
-typedef struct procEntryTime {
-	CLOCK			entryTime;	/* when proc entered 	*/
-	CLOCK			subProcTime;	/* subproc duration    	*/
-	struct procEntryTime	*nextTime;	/* stack pointer down	*/
-	struct procEntryTime	*ancestorProc;	/* traced ancestor	*/
-} PROC_ENTRY;
-
-/*
-static PROC_ENTRY	**procEntryStack =*/	/* array of pointers to	*/
-/*	(PROC_ENTRY **) 0;*/	/* stack top elements	*/
-/*======================================================================*
-// Define data structure types for procedure entry and exit trace 	* 
-// records, similarly to record data structures in Trace.h	 	* 
-//======================================================================*/
-
-/*======================================================================* 
-// TraceRecord Data packets:						* 
-//======================================================================*/
-struct procTraceRecordData {
-	int	packetLength;	   /* bytes in packet		    	*/
-	int	packetType;	   /* == PKT_DATA		    	*/
-	int	packetTag;	   /* FAMILY_PROCEXIT | RECORD_TRACE   	*/
-	int	eventID;	   /* ID of corresponding event	    	*/
-	double	seconds;	   /* floating-point timestamp	    	*/
-	long	setID;	           /* index of file | Data Set accessed	*/
-	int	nodeNumber;	   /* occurred on which node	    	*/
-	int	nameLen;	   /* Length of file or data set name	*/
-	/* name comes next, but no space is allocated	*/
-};
-#define procTraceRecLen 6*sizeof(int) + sizeof(double) +sizeof(long)
-/*======================================================================*
-// misc Record Data packets:						* 
-//======================================================================*/
-struct miscTraceRecordData 
-{
-   int	packetLength;		/* bytes in packet		    	*/
-   int	packetType;		/* == PKT_DATA			    	*/
-   int	packetTag;		/* FAMILY_MISC | RECORD_TRACE  		*/
-   int	eventID;		/* ID of corresponding event	    	*/
-   double seconds;		/* floating-point timestamp	    	*/
-   double duration;		/* floating-point operation duration	*/
-   unsigned long bytes;		/* number of bytes requested        	*/
-   int	nodeNumber;		/* occurred on which node	    	*/
-};
-#define miscTraceLen 5*sizeof(int) + 2*sizeof(double) +sizeof(long)
-/*======================================================================*
-// The procEntries array specifies the event IDs of procedure entry 	*
-// events. 								*
-//======================================================================*/
-int procEntries[] = 
-{
-0, 0, 0, 0, 0,
-#include "HDFidList.h"
-ID_HDF_Last_Entry
-};
-/*======================================================================*
-// The procEntryCalled array indicates whether or not a procedure entry *
-// was called.					*
-//======================================================================*/
-int *procEntryCalled;
-/*=======================================================================
-// NAME									*
-//     	HDFinitTrace_SDDF -- initalize HDF tracing with SDDF records	*
-// USAGE								*
-//     	HDFinitTrace_SDDF( traceFileName, porcNum )                	*
-// PARAMETERS								*
-//	char *traceFileName  -- name of trace file to hold output	*
-//	int  procNum         -- processor Number                 	*
-// RETURNS								*
-//     	None 								*
-//======================================================================*/
-void HDFinitTrace_SDDF( char *traceFileName, int procNum )
-{
-   /*====================================================================
-   // set traceFileName and set IO tracing switches.  If MPIO 		*
-   // tracing is available, MPIO tracing will also be initialized. 	*
-   //===================================================================*/
-#ifdef H5_HAVE_MPIOTRACE
-//   int myNode;
-   /*====================================================================
-   // in the parallel case, initialize MPI-IO tracing. This  		*
-   // will initialize the traceFileName and set the I/O tracing		*
-   // switches.								*
-   //===================================================================*/
-   /*====================================================================
-   // MPIO Tracing is supported in the Pablo Library.  Let the  	*
-   // MPIO initialization be performed and handle the naming of 	*
-   // trace files.							*
-   //===================================================================*/
-   initMPIOTrace( traceFileName, procNum, RUNTIME_TRACE ); 
-//   MPI_Comm_rank( MPI_COMM_WORLD, &myNode );
-   setTraceProcessorNumber( procNum );
-#else 
-   IOtraceInit( traceFileName, procNum, RUNTIME_TRACE );
-   /*====================================================================
-   // complete HDF initiailization.					*
-   //===================================================================*/
-   enableIOdetail();
-   disableLifetimeSummaries();
-   disableTimeWindowSummaries();
-   disableFileRegionSummaries();
-#endif
-   preInitHDFProcTrace();
-   initHDFProcTrace( sizeof(procEntries)/sizeof(int), procEntries );
-}
-/*=======================================================================
-// NAME									*
-//     HDFendTrace_SDDF -- end HDF tracing				*
-// USAGE								*
-//     HDFendTrace_SDDF()      						*
-// RETURNS								*
-//     None.								*
-//======================================================================*/
-void HDFendTrace_SDDF()
-{
-   HDFfinalTimeStamp();
-#ifdef H5_HAVE_MPIORACE
-   /*====================================================================
-   // termintate MPI-IO tracing in the parallel case.  This 		*
-   // will terminate the I/O tracing and close tracing as well.		*
-   //===================================================================*/
-   endMPIOTrace(); 
-#else 
-   /*====================================================================
-   // terminate tracing							*
-   //===================================================================*/
-   endIOTrace();
-   endTracing();
-#endif
-}
-/*=======================================================================
-// NAME									*
-//   initHDFProcTrace:							*
-//     This function initializes data structures specific to		* 
-//     the procedure entry/exit tracing extensions of the Pablo		* 
-//     instrumentation library.  The argument numProcs specifies	* 
-//     how many procedures are to be traced.  The argument procEntryID	* 
-//     is a vector specifying the event IDs to be use as entry events	*
-//     for each of the procedures.  The negative value is used for 	*
-//     the exit event ID.  						*
-// USAGE								*
-//   result = initHDFProcTrace(numProcs,procEntryID)			*
-// PARAMETERS								*
-//   int numProcs     -- number of Procedures to be initialized		*
-//   int *procEntryID -- array of id entry codes for these procedures	*
-// RETURNS								*
-//   SUCCESS or FAILURE							*
-//======================================================================*/
-int initHDFProcTrace( int numProcs, int *procEntryID )
-{
-   int procIndex;
-   int IX;
-   int ID;
-
-   if (( numProcs <= 0 ) || ( procEntryID == (int *) 0 )  )
-   {
-      return FAILURE; 
-   }
-   /*====================================================================
-   // Allocate space to store a copy of the procedure entry-exit	*
-   // event ID matchings and also the procedure entry stacks.		*
-   //===================================================================*/
-   procEvents = (PROC_EVENTS *)TRgetBuffer((numProcs+4)*sizeof(PROC_EVENTS));
-
-   if ( procEvents == (PROC_EVENTS *) 0 )
-   {
-      TRfailure( "cannot allocate procedure events matching" );
-   }
-
-   procEntryCalled = ( int *)malloc( numProcs*sizeof(int) );
-   if ( procEvents == NULL ) 
-   {
-      TRfailure( "cannot allocate procedure Called indicators" );
-   }
-   /*====================================================================
-   // Initialize the procedure events matching from the arguments	*
-   // passed.  Configure the trace record-generating function for  	*
-   // these events.  Initialize the flags indicating whether or		*
-   // not the procedure was called.					*
-   //===================================================================*/
-   for ( procIndex = 0; procIndex < numProcs; procIndex++ ) 
-   {
-
-      IX = procEntryID[ procIndex ];
-      ID = HDFIXtoEventID( IX );
-      procEvents[ procIndex ].entryID = ID;
-      procEvents[ procIndex ].exitID = -ID;
-
-      setEventRecordFunction( ID, HDFprocEventRecord );
-      setEventRecordFunction( -ID, HDFprocEventRecord );
-      procEntryCalled[ procIndex ] = 0;
-
-   }
-
-   /*====================================================================
-   // Initialize the procedure events for malloc.  			*
-   // Configure the trace record-generating function for this  		*
-   // event.								*
-   //===================================================================*/
-   procEvents[ numProcs ].entryID = ID_malloc;
-   procEvents[ numProcs ].exitID = -ID_malloc;
-   setEventRecordFunction( ID_malloc, miscEventRecord );
-   setEventRecordFunction( -ID_malloc, miscEventRecord );
-   procEvents[ numProcs+1 ].entryID = ID_free;
-   procEvents[ numProcs+1 ].exitID = -ID_free;
-   setEventRecordFunction( ID_free, miscEventRecord );
-   setEventRecordFunction( -ID_free, miscEventRecord );
-
-   return SUCCESS;
-}
-/*=======================================================================
-// NAME									*
-//   preInitHDFProcTrace:						*
-//   	This function calls the trace library interface function	* 
-//	setRecordDescriptor, which records the address of the		* 
-//	procedure that generates the record descriptors for the		* 
-//	procedure trace event families.  It is automatically		* 
-//	invoked by HDFinitTrace_SDDF. 					*
-// USAGE								*
-//   result = preInitHDFProcTrace();					*
-// RESULT								*
-//   SUCCESS or FAILURE							*
-/=======================================================================*/
-int preInitHDFProcTrace( void )
-{
-   static int preInitDone = FALSE;
-
-   if ( preInitDone == TRUE )
-   {
-      return SUCCESS;
-   }
-   /*====================================================================
-   // Give the instrumentation library a pointer to the functions	*
-   // in which we output the specialized record descriptors for		*
-   // procedure entry/exit.						*
-   //===================================================================*/
-   setRecordDescriptor( writeHDFProcRecordDescriptors );
-
-   preInitDone = TRUE;
-   return SUCCESS;
-}
-/*=======================================================================
-// NAME									*
-//   writeHDFProcRecordDescriptors:					*
-//	   This function generates the record descriptors for the HDF	*
-//	   procedure entry/exit event families.  It will be invoked	*
-//	   by the instrumentation library initialization routines.	*
-//	   Patterned after instrumentation library internal function	*
-//	   writeRecordDescriptors.					*
-// USAGE								*
-//   result = writeHDFProcRecordDescriptors();				*
-// RESULT								*
-//   SUCCESS 								*
-/=======================================================================*/
-int  writeHDFProcRecordDescriptors( void )
-{
-#ifdef PABLODEBUG
-   fprintf( debugFile, "writeHDFProcRecordDescriptors\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-
-   _hdfMiscDescriptor();
-
-#ifdef PABLODEBUG
-   fprintf( debugFile, "writeHDFProcRecordDescriptors done\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   return SUCCESS;
-}
-/*=======================================================================
-// NAME									*
-//   HDFprocEventRecord:						*
-// 	This function generates trace records for events which are	*
-//   	to produce procedure entry or exit event family trace records.	*
-//   	Patterned after the instrumentation library internal functions	*
-//	externalEventRecord and sddfRecord.				*
-// USAGE								*
-//   REC = HDFprocEventRecord( recordType, eventPointer, timeStamp,	*
-//                             dataPointer, dataLength)			*
-// PARAMETERS								*
-//   int recordType 	    -- type of event record			*
-//   TR_EVENT eventPointer  -- pointer to event data structure		*
-//   CLOCK timeStamp	    -- time event is recorded			*
-//   HDFsetInfo dataPointer -- information about HDF data set accessed	*
-//   unsigned dataLength    -- dummy for compatability			*
-// RETURNS								*
-//   pointer to trace record for this event 				*
-//======================================================================*/
-TR_RECORD *
-HDFprocEventRecord( int recordType, 
-                    TR_EVENT *eventPointer, 
-                    CLOCK timeStamp,
-		    HDFsetInfo *dataPointer, 
-                    unsigned dataLength )
-{
-   static TR_RECORD		traceRecord;
-   static void			*recordBuffer = NULL;
-   static int			bufferLength = 0;
-   struct procTraceRecordData	*TraceRecordHeader;
-   int				procIndex;
-   int				recordFamily;
-   char				*namePtr;
-		
-#ifdef PABLODEBUG
-   fprintf( debugFile, "HDFprocEventRecord\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-
-   /*==============================================================* 
-   // Find the index in the tables for the procedure corresponding *
-   // to this eventID.						*
-   //==============================================================*/
-   procIndex = findHDFProcEvent( eventPointer->eventID );
-   if ( procIndex < 0 ) 
-   {
-      return nullRecordFunction( recordType, eventPointer,
-				timeStamp, (char *)dataPointer, dataLength );
-   }
-   /*===================================================================* 
-   // Produce a packet for the name of the procedure if one has 	*
-   // not already been produced.					*
-   //===================================================================*/
-   if ( procEntryCalled[procIndex] == 0 ) {
-      createHDFTraceDescriptor( procIndex );
-      procEntryCalled[procIndex] = 1;
-   }
-   /*===================================================================* 
-   // Determine whether this is a procedure entry or a procedure 	* 
-   // exit family event by lookup in the procedure event ID 	* 
-   // matching.  							* 
-   //===================================================================*/
-   recordFamily = HDF_FAMILY + ( procIndex + 1)*8;
-   /*===================================================================* 
-   // The time stamp stored in the event descriptor will be used	*  
-   // unless one is specified in the timeStamp parameter.	    	*  
-   //===================================================================*/
-   if ( clockCompare( timeStamp, noSuchClock ) == 0 ) {
-      timeStamp = eventPointer->eventLast;
-   }
-   /*===================================================================* 
-   // Determine how many bytes of storage will be needed for the 	*  
-   // contents of the trace record.			    	* 
-   //===================================================================*/
-   traceRecord.recordLength = sizeof *TraceRecordHeader;
-   if ( dataPointer != NULL && dataPointer->setName != NULL ) 
-   {
-      traceRecord.recordLength += strlen( dataPointer->setName );
-   }
-   /*===================================================================* 
-   // If there is a previously-allocated buffer and its size will	* 
-   // hold this record, re-use the buffer.  Otherwise, deallocate	* 
-   // the buffer (if allocated) and allocate a bigger one.	    	* 
-   //===================================================================*/
-   if ( bufferLength < traceRecord.recordLength ) 
-   {
-
-      if ( recordBuffer != NULL ) 
-      {
-         TRfreeBuffer( recordBuffer );
-      }
-
-      recordBuffer = (char *)TRgetBuffer( traceRecord.recordLength );
-
-      if ( recordBuffer == NULL ) 
-      {
-         TRfailure( "cannot allocate storage for trace record" );
-      }
-      bufferLength = traceRecord.recordLength;
-   }
-
-   traceRecord.recordContents = recordBuffer;
-   /*===================================================================* 
-   // Load the trace record fields into the allocated buffer 		*
-   //===================================================================*/
-   TraceRecordHeader = (struct procTraceRecordData *)recordBuffer;
-   TraceRecordHeader->packetLength = traceRecord.recordLength;
-   TraceRecordHeader->packetType = PKT_DATA;
-   TraceRecordHeader->packetTag = recordFamily | recordType;
-   TraceRecordHeader->seconds = clockToSeconds( timeStamp );
-   TraceRecordHeader->eventID = eventPointer->eventID;
-   TraceRecordHeader->nodeNumber = TRgetNode();
-
-   if ( dataPointer != 0 ) 
-   {
-      TraceRecordHeader->setID = dataPointer->setID;
-      if (dataPointer->setName != NULL ) 
-      {
-         TraceRecordHeader->nameLen = (int)strlen( dataPointer->setName );
-  	/*==============================================================* 
-        // copy name directly into the end of the buffer.		*
-        //==============================================================*/
-        namePtr = (char *)TraceRecordHeader + procTraceRecLen;
-        memcpy(namePtr, dataPointer->setName, TraceRecordHeader->nameLen);
-     } 
-     else 
-     {
-        TraceRecordHeader->nameLen = 0;
-     }   
-   } 
-   else 
-   {
-      TraceRecordHeader->setID = 0;
-      TraceRecordHeader->nameLen = 0;
-   } 
-#ifdef PABLODEBUG
-   fprintf( debugFile, "HDFprocEventRecord done\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   returnRecord(&traceRecord);
-}
-/*======================================================================*
-// Internal Routine:  miscEventRecord					*
-//	  Called for misc start and end events.		       		*
-//======================================================================*/
-TR_RECORD *miscEventRecord( int recordType, 
-		            TR_EVENT *eventPointer, 
-                            CLOCK timeStamp, 
-		            void *dataPointer, 
-		            unsigned dataLength )
-{
-   static TR_RECORD traceRecord;
-   static struct miscTraceRecordData miscRecord;
-   static int initialized = FALSE;
-   int eventID;
-
-   if ( clockCompare( timeStamp, noSuchClock ) == 0 ) 
-   {
-       timeStamp = eventPointer->eventLast;
-   }
-
-   eventID =  eventPointer->eventID;
-   if ( ! initialized ) 
-   {
-      miscRecord.packetLength = sizeof( miscRecord );
-      miscRecord.packetType = PKT_DATA;
-      miscRecord.packetTag = FAMILY_MISC | RECORD_TRACE;
-      miscRecord.nodeNumber = traceProcessorNumber;
-
-      traceRecord.recordLength = miscRecord.packetLength;
-      traceRecord.recordContents = (char *) &miscRecord;
-      initialized = TRUE;
-   }
-
-   switch ( eventID ) 
-   {
-      case ID_malloc:
-      case ID_free:
-         miscRecord.seconds = clockToSeconds( timeStamp ) ;
-         miscRecord.eventID = eventID ;
-         break;
-      case -ID_malloc:
-      case -ID_free:
-         miscRecord.bytes = *(int *)dataPointer;
-         miscRecord.duration = clockToSeconds( timeStamp) 
-                                   - miscRecord.seconds;
-         return &traceRecord;		/* generate trace record */
-      default:
-        fprintf( stderr, "miscEventRecord: unknown eventID %d\n", eventID );
-        break;
-   }
-   /*===================================================================*
-   // If we get here then no trace record generated.  Normally we 	*	
-   // should get here if this is an entry call.				*
-   //===================================================================*/
-   return( nullRecordFunction( recordType, eventPointer, timeStamp,
-				            dataPointer, dataLength ) );
-}
-/*======================================================================*
-// NAME									*
-//   findHDFProcEvent:							*
-//	   Search the procedure entry/exit event ID matching data	*
-//	   structure for an event ID (either entry or exit) which is	*
-//	   the same as the argument eventID.  If found, return the	*
-//	   index from that table, which will be between 0 and		*
-//	   numberProcedures - 1, inclusive.  If not found, return -1;	*
-// USAGE								*
-//   index = findHDFProcEvent						*
-// RETURNS								*
-//   index of the procedure corresponding to this ID			*
-//======================================================================*/
-int findHDFProcEvent( int eventID )
-{
-   int	procIndex;
-
-#ifdef PABLODEBUG
-   fprintf( debugFile, "findHDFProcEvent\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   if ( isBeginHDFEvent(eventID) ) 
-   {
-      procIndex = eventID - BEGIN_HDF;
-   } 
-   else if ( isEndHDFEvent( eventID ) ) 
-   {
-      procIndex = -eventID - BEGIN_HDF;
-   } 
-   else 
-   {
-      procIndex = -1 ;
-   }
-   return procIndex;
-}
-void createHDFTraceDescriptor( int Inx )
-{
-   char BUF1[256]; 
-   char BUF2[256] ;
-   char buff[41];
-   int FAMILY;
-   getHDFprocName( Inx, buff );
-   strcpy( BUF2, "HDF ");
-   strcat( BUF2, buff );
-   strcat( BUF2, " Procedure");
-   strcpy( BUF1, BUF2 );
-   strcat( BUF1, " Trace");
-
-   FAMILY = HDF_FAMILY + (Inx + 1)*8;
-   _hdfTraceDescriptor( BUF1, BUF2, FAMILY );
-}
-/*======================================================================*
-// NAME									*
-//	_hdfTraceDescriptor						* 
-//	   Generate a SDDF binary format record descriptor for the	* 
-//	   full trace class of events in the HDF procedure entry 	* 
-// USAGE								*
-//   _hdfTraceDescriptro( recordName, recordDescription, recordFamily )	*
-// RETURNS								*
-//      void								*
-//======================================================================*/
-void _hdfTraceDescriptor( char *recordName,
-                    	  char *recordDescription,
-                          int recordFamily )
-{
-   static char recordBuffer[ 4096 ];
-   int         recordLength;
-
-   hdfRecordPointer = recordBuffer;
-   /*====================================================================
-   // Allow space at the beginning of the record for the packet        	*
-   //length which will be computed after the packet is complete.       	*
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, 0 );
-   /*====================================================================
-   // The record type, tag, and name                                   	*
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, PKT_DESCRIPTOR );
-   sddfWriteInteger( &hdfRecordPointer, ( recordFamily | RECORD_TRACE ) );
-   sddfWriteString( &hdfRecordPointer, recordName );
-   /*====================================================================
-   // The record attribute count and string pair                       	*
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, 1 );
-   sddfWriteString( &hdfRecordPointer, "description" );
-   sddfWriteString( &hdfRecordPointer, recordDescription );
-   /*===================================================================*
-   // The record field count                                           	* 
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, 5);
-   /*===================================================================* 
-   // Create fields                                               	*
-   //===================================================================*/
-   WRITE_HDF_FIELD(  "Event Identifier", 
-		     "Event ID", 
-		     "Event Identifier Number", 
-		     INTEGER, 
-                     0 );
-   WRITE_HDF_FIELD(  "Seconds", 
-		     "Seconds", 
-		     "Floating Point Timestamp", 
-		     DOUBLE, 
-                     0 );
-   WRITE_HDF_FIELD2( "HDF ID",
-                     "HDF ID", 
-                     "File, Data Set or Dim Identifier number",
-                     "0", 
-                     "No HDF ID specified",
-                     LONG, 
-                     0 ); 
-   WRITE_HDF_FIELD(  "Processor Number", 
-		     "Node", 
-		     "Processor number", 
-		     INTEGER, 
-                     0 );
-   WRITE_HDF_FIELD(  "HDF Name",
-                     "HDF Name", 
-                     "Name of File, Data Set or Dim",
-                     CHARACTER, 
-                     1 );
-
-   recordLength = (int)(hdfRecordPointer - recordBuffer);
-
-   hdfRecordPointer = recordBuffer;
-   sddfWriteInteger( &hdfRecordPointer, recordLength );
-
-   putBytes( recordBuffer, (unsigned) recordLength );
-}
-/*======================================================================*
-// NAME									*
-//	_hdfMiscDescriptor						* 
-//	   Generate a SDDF binary format record descriptor for the	* 
-//	   misc procedure                                        	* 
-// USAGE								*
-//      _hdfMiscDescriptor()					*
-// RETURNS								*
-//      void								*
-//======================================================================*/
-void _hdfMiscDescriptor( void )
-{
-    static char recordBuffer[ 4096 ];
-    int         recordLength;
-
-#ifdef PABLODEBUG
-   fprintf( debugFile, "_hdfMiscDescriptor entered\n" );
-   fflush( debugFile );
-#endif /* PABLODEBUG */
-   hdfRecordPointer = recordBuffer;
-   /*===================================================================* 
-   // Allow space at the beginning of the record for the packet        	*
-   //length which will be computed after the packet is complete.       	*
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, 0 );
-   /*===================================================================* 
-   // The record type, tag, and name                                   	* 
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, PKT_DESCRIPTOR );
-   sddfWriteInteger( &hdfRecordPointer, ( FAMILY_MISC | RECORD_TRACE ) );
-   sddfWriteString( &hdfRecordPointer, "Misc Trace" );
-   /*===================================================================*
-   // The record attribute count and string pair                       	*
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, 1 );
-   sddfWriteString( &hdfRecordPointer, "description" );
-   sddfWriteString( &hdfRecordPointer, "Misc Trace Record" );
-   /*===================================================================*
-   // The record field count                                           	* 
-   //===================================================================*/
-   sddfWriteInteger( &hdfRecordPointer, 5);
-   /*===================================================================* 
-   // Create fields                                               	*
-   //===================================================================*/
-   WRITE_HDF_FIELD( "Event Identifier", 
-		    "Event ID", 
-		    "Event Identifier Number", 
-		    INTEGER, 
-                    0 );
-   WRITE_HDF_FIELD( "Seconds", 
-		    "Seconds", 
-		    "Floating Point Timestamp", 
-		    DOUBLE, 
-                    0 );
-   WRITE_HDF_FIELD( "Duration", 
-		    "Duration", 
-		    "Operation Duration", 
-		    DOUBLE, 
-                    0 );
-   WRITE_HDF_FIELD( "Bytes", 
-		    "Bytes", 
-		    "Bytes Requested", 
-		    LONG, 
-                    0 );
-   WRITE_HDF_FIELD( "Processor Number", 
-		    "Node", 
-		    "Processor number", 
-		    INTEGER, 
-                    0 );
-
-   recordLength = (int)(hdfRecordPointer - recordBuffer);
-
-   hdfRecordPointer = recordBuffer;
-   sddfWriteInteger( &hdfRecordPointer, recordLength );
-
-   putBytes( recordBuffer, (unsigned) recordLength );
-}
-
-#endif /* PCF_BUILD */
diff --git a/pablo/PabloHDFff.f b/pablo/PabloHDFff.f
deleted file mode 100644
index 3b39740..0000000
--- a/pablo/PabloHDFff.f
+++ /dev/null
@@ -1,62 +0,0 @@
-C *
-C * This file is an extension to NCSA HDF to enable the use of the
-C * Pablo trace library.
-C *
-C * Developed by: The TAPESTRY Parallel Computing Laboratory
-C *		  University of Illinois at Urbana-Champaign
-C *		  Department of Computer Science
-C *		  1304 W. Springfield Avenue
-C *		  Urbana, IL	61801
-C *
-C * Copyright (c) 1995
-C * The University of Illinois Board of Trustees.
-C *      All Rights Reserved.
-C *
-C * PABLO is a registered trademark of
-C * The Board of Trustees of the University of Illinois
-C * registered in the U.S. Patent and Trademark Office.
-C *
-C * Author: Jonathan M. Reid (jreid@cs.uiuc.edu)
-C *
-C * Project Manager and Principal Investigator:
-C *	Daniel A. Reed (reed@cs.uiuc.edu)
-C *
-C * Funded by: National Aeronautics and Space Administration under NASA
-C * Contracts NAG-1-613 and USRA 5555-22 and by the Advanced Research
-C * Projects Agency under ARPA contracts DAVT63-91-C-0029 and
-C * DABT63-93-C-0040.
-C *
-
-C-----------------------------------------------------------------------------
-C File:     PabloHDFff.f
-C Purpose:  Fortran stubs for Pablo routines
-C Invokes:  PabloHDFf.c 
-C Contents: 
-C   hinitiotrace :   Call ihinitiotrace to initialize Pablo tracing
-C Remarks: none
-C-----------------------------------------------------------------------------
-
-C-----------------------------------------------------------------------------
-C Name: hdfinittrace
-C Purpose:  call hdfinittracex to initialize tracing
-C Inputs:   tracefn: Trace file name
-C           proctmask:
-C Returns: 0 on success, FAIL on failure 
-C Users:   
-C Invokes: hinittracex
-C-----------------------------------------------------------------------------
-
-      subroutine hdfinittracef(tracefn,traceids,nids,out_sw)
-
-      character*(*) tracefn
-      integer       traceids(*), out_sw, nids
-      character filename(1024)
-      integer  i, length
-
-      length = len(tracefn)
-      do i = 1, length
-	 filename(i) = tracefn(i:i) 
-      end do
-      call  hinittracex(filename,length,traceids,nids,out_sw)
-      return
-      end
diff --git a/pablo/PabloSedscr b/pablo/PabloSedscr
deleted file mode 100644
index 6df38c2..0000000
--- a/pablo/PabloSedscr
+++ /dev/null
@@ -1,31 +0,0 @@
-s/,//g
-/^[0-9]/,/[A-z]/{
-/^[0-9]/h
-/^[0-9]/d
-s/$/ = ID_Begin + /
-G
-s/\n//
-s/[A-z]/      parameter ( &/
-s/$/ )/
-h
-s/parameter (/integer/
-s/=.*//
-G
-}
-/ALLHDF/,$!d
-s/_//g
-/integer.*ALLHDF/{
-i\
-      integer RuntimeTrace\
-      integer SummaryTrace\
-      integer MPIRuntimeTrace\
-      integer MPISummaryTrace\
-      integer NoTrace\
-      integer IDBegin \
-      parameter (NoTrace = 0)\
-      parameter (RuntimeTrace = 1)\
-      parameter (SummaryTrace = 2)\
-      parameter (MPIRuntimeTrace = 3)\
-      parameter (MPISummaryTrace = 4)\
-      parameter ( IDBegin = 4 )
-}
diff --git a/pablo/ProcIDs.h b/pablo/ProcIDs.h
deleted file mode 100644
index 3370037..0000000
--- a/pablo/ProcIDs.h
+++ /dev/null
@@ -1,165 +0,0 @@
-/*  This file is part of the Pablo Performance Analysis Environment
-// 
-//           (R)
-//  The Pablo    Performance Analysis Environment software is NOT in
-//  the public domain.  However, it is freely available without fee for
-//  education, research, and non-profit purposes.  By obtaining copies
-//  of this and other files that comprise the Pablo Performance Analysis
-//  Environment, you, the Licensee, agree to abide by the following
-//  conditions and understandings with respect to the copyrighted software:
-//  
-//  1.  The software is copyrighted in the name of the Board of Trustees
-//      of the University of Illinois (UI), and ownership of the software
-//      remains with the UI. 
-// 
-//  2.  Permission to use, copy, and modify this software and its documentation
-//      for education, research, and non-profit purposes is hereby granted
-//      to Licensee, provided that the copyright notice, the original author's
-//      names and unit identification, and this permission notice appear on
-//      all such copies, and that no charge be made for such copies.  Any
-//      entity desiring permission to incorporate this software into commercial
-//      products should contact:
-// 
-//           Professor Daniel A. Reed                 reed@cs.uiuc.edu
-//           University of Illinois
-//           Department of Computer Science
-//           2413 Digital Computer Laboratory
-//           1304 West Springfield Avenue
-//           Urbana, Illinois  61801
-//           USA
-// 
-//  3.  Licensee may not use the name, logo, or any other symbol of the UI
-//      nor the names of any of its employees nor any adaptation thereof in
-//      advertizing or publicity pertaining to the software without specific
-//      prior written approval of the UI.
-// 
-//  4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
-//      SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
-//      OR IMPLIED WARRANTY.
-// 
-//  5.  The UI shall not be liable for any damages suffered by Licensee from
-//      the use of this software.
-// 
-//  6.  The software was developed under agreements between the UI and the
-//      Federal Government which entitle the Government to certain rights.
-// 
-// *************************************************************************
-// 
-//  Developed by: The Pablo Research Group
-//                University of Illinois at Urbana-Champaign
-//                Department of Computer Science
-//                1304 W. Springfield Avenue
-//                Urbana, IL     61801
-// 
-//                http://www-pablo.cs.uiuc.edu
-// 
-//  Send comments to: pablo-feedback@guitar.cs.uiuc.edu
-// 
-//  Copyright (c) 1987-1998
-//  The University of Illinois Board of Trustees.
-//       All Rights Reserved.
-// 
-//  PABLO is a registered trademark of
-//  The Board of Trustees of the University of Illinois
-//  registered in the U.S. Patent and Trademark Office.
-// 
-//  Project Manager and Principal Investigator:
-//       Daniel A. Reed (reed@cs.uiuc.edu)
-// 
-// Funded in part by the Defense Advanced Research Projects Agency under 
-// DARPA contracts DABT63-94-C0049 (SIO Initiative), F30602-96-C-0161,
-// and DABT63-96-C-0027 by the National Science Foundation under the PACI 
-// program and grants NSF CDA 94-01124 and ASC 97-20202, and by the 
-// Department of Energy under contracts DOE B-341494, W-7405-ENG-48, and 
-// 1-B-333164.
-//-------------------------------------------------------------------------*/
-/*--------------------------------------------------------------------------
- * File:  ProcIDs.h
- * Purpose: define IDs for identifying procedures in traces
- *-------------------------------------------------------------------------*/
-
-#ifndef PROCIDS_H		/* avoid re-inclusion */
-#define PROCIDS_H
-
-extern int *procTrace;
-/*
- * Define the event IDs that will be used for the various HDF events
- */
-#include "ProcTrace.h"
-
-#include "ProcMasks.h"
-
-#define	ID_HDFprocName		9996
-#define	ID_malloc		9997
-#define	ID_free			9998
-#define	ID_timeStamp		9999
-#define	DUMMY_HDF		10000
-
-#define BEGIN_HDF (DUMMY_HDF + 1)
-#define END_HDF (ID_HDF_Last_Entry + DUMMY_HDF)
-#define NumHDFProcs ( ID_HDF_Last_Entry )
-
-enum MPIeventIDs {
-	BEGIN_MPIO = END_HDF+1,
-	HDFmpiOpenID = BEGIN_MPIO,
-	HDFmpiCloseID,
-	HDFmpiDeleteID,
-	HDFmpiSetSizeID,
-	HDFmpiPreallocateID,
-	HDFmpiGetSizeID,
-	HDFmpiGetGroupID,
-	HDFmpiGetAmodeID,
-	HDFmpiGetViewID,
-	HDFmpiSetViewID,
-	HDFmpiReadAtID,
-	HDFmpiReadAtAllID,
-	HDFmpiWriteAtID,
-	HDFmpiWriteAtAllID,
-	HDFmpiReadID,
-	HDFmpiReadAllID,
-	HDFmpiWriteID,
-	HDFmpiWriteAllID,
-	HDFmpiSeekID,
-	HDFmpiGetPositionID,
-	HDFmpiGetByteOffsetID,
-	HDFmpiGetTypeExtentID,
-	HDFmpiSetAtomicityID,
-	HDFmpiGetAtomicityID,
-	HDFmpiIreadID,
-	HDFmpiIwriteID,
-	HDFmpiIreadAtID,
-	HDFmpiIwriteAtID,
-	HDFmpiSyncID,
-	END_MPIO 
-};
-
-/*======================================================================*/
-/* Macros to tell if the ID is that of an HDF Entry or Exit             */
-/*======================================================================*/
-#define isBeginHDFEvent( ID ) ( BEGIN_HDF <= (ID) && (ID) <= END_HDF )
-#define isEndHDFEvent( ID )   isBeginHDFEvent(-(ID))
-#define isBeginMPIOEvent( ID ) \
-            ( BEGIN_MPIO <= (ID) && (ID) <= END_MPIO  )
-#define isEndMPIOEvent( ID ) isBeginMPIOEvent(-(ID))
-#define isBeginIOEvent( ID )  \
-        ( IOerrorID < (ID) && (ID) <= fsetposEndID && (ID)%2 == 1 )
-#define isEndIOEvent( ID ) \
-        ( IOerrorID < (ID) && (ID) <= fsetposEndID && (ID)%2 == 0 )
-#define ProcIndex( ID ) ( (ID) - BEGIN_HDF )
-#define ProcIndexForHDFEntry( ID ) ( (ID) - BEGIN_HDF )
-#define ProcIndexForHDFExit( ID )  ProcIndexForHDFEntry(-ID)
-#define HDFIXtoEventID( ID ) ( (ID) + BEGIN_HDF )
-
-#ifdef PCF_BUILD
-#define TRACE_ON(mask, ID) \
-if ( procTrace[mask] || procTrace[ID] ) startHDFtraceEvent( ID )
-#define TRACE_OFF(mask, ID ) \
-if ( procTrace[mask] || procTrace[ID] ) endHDFtraceEvent( ID, 0, NULL, 0 )
-#else
-#define TRACE_ON(mask, ID) \
-if ( procTrace[mask] || procTrace[ID] ) startHDFtraceEvent( HDFIXtoEventID( ID ) )
-#define TRACE_OFF(mask, ID ) \
-if ( procTrace[mask] || procTrace[ID] ) endHDFtraceEvent(-HDFIXtoEventID(ID), 0, NULL, 0 )
-#endif /* PCF_BUILD */
- 
-#endif /* PROCIDS_H */
diff --git a/pablo/ProcTrace.h b/pablo/ProcTrace.h
deleted file mode 100644
index e9e3d31..0000000
--- a/pablo/ProcTrace.h
+++ /dev/null
@@ -1,108 +0,0 @@
-/*  This file is part of the Pablo Performance Analysis Environment
-// 
-//           (R)
-//  The Pablo    Performance Analysis Environment software is NOT in
-//  the public domain.  However, it is freely available without fee for
-//  education, research, and non-profit purposes.  By obtaining copies
-//  of this and other files that comprise the Pablo Performance Analysis
-//  Environment, you, the Licensee, agree to abide by the following
-//  conditions and understandings with respect to the copyrighted software:
-//  
-//  1.  The software is copyrighted in the name of the Board of Trustees
-//      of the University of Illinois (UI), and ownership of the software
-//      remains with the UI. 
-// 
-//  2.  Permission to use, copy, and modify this software and its documentation
-//      for education, research, and non-profit purposes is hereby granted
-//      to Licensee, provided that the copyright notice, the original author's
-//      names and unit identification, and this permission notice appear on
-//      all such copies, and that no charge be made for such copies.  Any
-//      entity desiring permission to incorporate this software into commercial
-//      products should contact:
-// 
-//           Professor Daniel A. Reed                 reed@cs.uiuc.edu
-//           University of Illinois
-//           Department of Computer Science
-//           2413 Digital Computer Laboratory
-//           1304 West Springfield Avenue
-//           Urbana, Illinois  61801
-//           USA
-// 
-//  3.  Licensee may not use the name, logo, or any other symbol of the UI
-//      nor the names of any of its employees nor any adaptation thereof in
-//      advertizing or publicity pertaining to the software without specific
-//      prior written approval of the UI.
-// 
-//  4.  THE UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
-//      SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED "AS IS" WITHOUT EXPRESS
-//      OR IMPLIED WARRANTY.
-// 
-//  5.  The UI shall not be liable for any damages suffered by Licensee from
-//      the use of this software.
-// 
-//  6.  The software was developed under agreements between the UI and the
-//      Federal Government which entitle the Government to certain rights.
-// 
-// *************************************************************************
-// 
-//  Developed by: The Pablo Research Group
-//                University of Illinois at Urbana-Champaign
-//                Department of Computer Science
-//                1304 W. Springfield Avenue
-//                Urbana, IL     61801
-// 
-//                http://www-pablo.cs.uiuc.edu
-// 
-//  Send comments to: pablo-feedback@guitar.cs.uiuc.edu
-// 
-//  Copyright (c) 1987-1998
-//  The University of Illinois Board of Trustees.
-//       All Rights Reserved.
-// 
-//  PABLO is a registered trademark of
-//  The Board of Trustees of the University of Illinois
-//  registered in the U.S. Patent and Trademark Office.
-// 
-//  Project Manager and Principal Investigator:
-//       Daniel A. Reed (reed@cs.uiuc.edu)
-// 
-// Funded in part by the Defense Advanced Research Projects Agency under 
-// DARPA contracts DABT63-94-C0049 (SIO Initiative), F30602-96-C-0161,
-// and DABT63-96-C-0027 by the National Science Foundation under the PACI 
-// program and grants NSF CDA 94-01124 and ASC 97-20202, and by the 
-// Department of Energy under contracts DOE B-341494, W-7405-ENG-48, and 
-// 1-B-333164.
-//-------------------------------------------------------------------------*/
-/*--------------------------------------------------------------------------
- * File:  ProcTrace.h
- * Purpose: define entities for tracing HDF procedures
- *-------------------------------------------------------------------------*/
-
-#ifndef PROCTRACE_H		/* avoid re-inclusion */
-#define PROCTRACE_H
-#include <stdarg.h>
-/*======================================================================*/
-/* Assign HDF identifier routine tags					*/
-/*======================================================================*/
-#ifdef RUNTIME_TRACE
-#undef RUNTIME_TRACE
-#endif
-enum HDF_IDS {
-NO_TRACE = 0,
-RUNTIME_TRACE = 1,
-SUMMARY_TRACE,
-MPI_RUNTIME_TRACE,
-MPI_SUMMARY_TRACE,
-DETAILED=RUNTIME_TRACE,
-LAST_TRACE_TYPE=MPI_SUMMARY_TRACE,
-#include "HDFidList.h"
-NUM_HDF_IDS
-} ;
-
-#define SUPPRESS_MPIO_TRACE 6
-#define ID_HDF_Last_Entry ID_ALLHDF
-
-void HDFinitTrace( const char *, int procNum, int trace_id, ... ); 
-void HDFendTrace( void ); 
-void setHDFcallLevel( int ); 
-#endif /* PROCTRACE_H */
diff --git a/pablo/READ_ME b/pablo/READ_ME
deleted file mode 100644
index bebf43c..0000000
--- a/pablo/READ_ME
+++ /dev/null
@@ -1,18 +0,0 @@
-To build the Pablo Instrumented version of the HDF 5 library
-
-1) Configure the system as normal from the parent directory
-
-2) Make the normal HDF 5 library 
-
-3) set the environment variable PABLO_TRACELIB to the path of the directory
-   continaining the Pablo TraceLibrary.  This directory should contain the
-   lib and include directories as subdirectories
- 
-4) If building to instrument MPI programs, uncomment the line beginning
-   PABLO_MPI_FLAGS.  In this case, the Pablo TraceLibrary should be built
-   to trace the MPI-I/O calls.
-
-5) If you are going to link with the Pablo TraceLibraries, issue the 
-   make or make install commands
-   If you are going to link with the Pablo PCF, issue one of the commands
-   make PABLO_BLD=PCF   or  make PABLO_BLD=PCF install