1 files changed, 62 insertions, 0 deletions
diff --git a/pablo/PabloHDFff.f b/pablo/PabloHDFff.f
new file mode 100644
index 0000000..3b39740
--- /dev/null
+++ b/pablo/PabloHDFff.f
@@ -0,0 +1,62 @@
+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