summaryrefslogtreecommitdiffstats
path: root/pablo/PabloHDFff.f
diff options
context:
space:
mode:
authorDan Wells <dwells@cs.uiuc.edu>2000-08-29 15:41:58 (GMT)
committerDan Wells <dwells@cs.uiuc.edu>2000-08-29 15:41:58 (GMT)
commit369193599aab29bb9c47e1d5566cce7944ab3dd4 (patch)
tree7d40bda354fc7c5e9fb2a7491dfbab47fb950269 /pablo/PabloHDFff.f
parentf62ab9363ab75fa35772778510104d3c988d1cfc (diff)
downloadhdf5-369193599aab29bb9c47e1d5566cce7944ab3dd4.zip
hdf5-369193599aab29bb9c47e1d5566cce7944ab3dd4.tar.gz
hdf5-369193599aab29bb9c47e1d5566cce7944ab3dd4.tar.bz2
[svn-r2487] Added support for fortran. Also made the Makefile more universal.
Diffstat (limited to 'pablo/PabloHDFff.f')
-rw-r--r--pablo/PabloHDFff.f62
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