[svn-r4395] Purpose:

    Bug fix
Description:
    When the Fortran interface was used on the Linux systems, there were segmentation
    errors.  This was caused because two arrays were being accessed outside of their
    bounds and because the trace type parameters were specified inccorectly in
    the ProcTrace.inc file.  There were also problems on some systems caused because
    the long names of HDF entries resulted in trace IDs which were too long.
Solution:
    The lines where arrays were being accessed outside of their bounds were changed.
    The code in the Makefile.in and the PabloSedscr sed script file were changed so
    that the tracetype parameters were generated correctly.  The PabloSedscr file was
    also modified to eliminate trace IDs for individual entries.
Platforms tested:
    LINUX, IRIX64, IBM SP2

1 files changed, 20 insertions, 4 deletions

diff --git a/pablo/PabloSedscr b/pablo/PabloSedscr
index 73edda0..6df38c2 100644
--- a/pablo/PabloSedscr
+++ b/pablo/PabloSedscr
@@ -1,15 +1,31 @@
-s/_//g
 s/,//g
-/^[0-9]/,/ID/{
+/^[0-9]/,/[A-z]/{
 /^[0-9]/h
 /^[0-9]/d
-s/$/ = /
+s/$/ = ID_Begin + /
 G
 s/\n//
-s/ID/      parameter ( &/
+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 )
+}