summaryrefslogtreecommitdiffstats
path: root/pablo/PabloHDFff.f
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-01-22 01:16:57 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-01-22 01:16:57 (GMT)
commitc1df1b3ea446f6b0b7800361d61c60f5c6e40814 (patch)
tree32139ceb4b492c294b997a0c1ed85109913be92b /pablo/PabloHDFff.f
parent631394faa8943003cc2380348299448e4709efa0 (diff)
downloadhdf5-c1df1b3ea446f6b0b7800361d61c60f5c6e40814.zip
hdf5-c1df1b3ea446f6b0b7800361d61c60f5c6e40814.tar.gz
hdf5-c1df1b3ea446f6b0b7800361d61c60f5c6e40814.tar.bz2
[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:
Diffstat (limited to 'pablo/PabloHDFff.f')
-rw-r--r--pablo/PabloHDFff.f62
1 files changed, 0 insertions, 62 deletions
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