[svn-r9727] Purpose:

    Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-)

Description:
    Generally speaking, this is the "signed->unsigned" change to selections.
However, in the process of merging code back, things got stickier and stickier
until I ended up doing a big "sync the two branches up" operation.  So... I
brought back all the "infrastructure" fixes from the development branch to the
release branch (which I think were actually making some improvement in
performance) as well as fixed several bugs which had been fixed in one branch,
but not the other.

    I've also tagged the repository before making this checkin with the label
"before_signed_unsigned_changes".

Platforms tested:
    FreeBSD 4.10 (sleipnir) w/parallel & fphdf5
    FreeBSD 4.10 (sleipnir) w/threadsafe
    FreeBSD 4.10 (sleipnir) w/backward compatibility
    Solaris 2.7 (arabica) w/"purify options"
    Solaris 2.8 (sol) w/FORTRAN & C++
    AIX 5.x (copper) w/parallel & FORTRAN
    IRIX64 6.5 (modi4) w/FORTRAN
    Linux 2.4 (heping) w/FORTRAN & C++


Misc. update:

1 files changed, 46 insertions, 6 deletions

diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index 3a72571..057d47c 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -80,8 +80,8 @@
             INTEGER, INTENT(OUT) :: hdferr         ! Error code 
             INTEGER(HID_T), INTENT(IN) :: fapl ! file access property list
 
-            INTEGER :: base_namelen ! Length of the base name character string
-            INTEGER :: full_namelen ! Length of the full name character string
+            INTEGER(SIZE_T) :: base_namelen ! Length of the base name character string
+            INTEGER(SIZE_T) :: full_namelen ! Length of the full name character string
 !            INTEGER(HID_T) :: fapl_default
 
             INTERFACE
@@ -94,10 +94,10 @@
               !DEC$ATTRIBUTES reference :: base_name 
               !DEC$ATTRIBUTES reference :: full_name 
               CHARACTER(LEN=*), INTENT(IN) :: base_name
-              INTEGER :: base_namelen
+              INTEGER(SIZE_T) :: base_namelen
               INTEGER(HID_T), INTENT(IN) :: fapl
               CHARACTER(LEN=*), INTENT(IN) :: full_name
-              INTEGER :: full_namelen
+              INTEGER(SIZE_T) :: full_namelen
               END FUNCTION h5_fixname_c
             END INTERFACE
 
@@ -139,7 +139,7 @@
             INTEGER, INTENT(OUT) :: hdferr         ! Error code 
             INTEGER(HID_T), INTENT(IN) :: fapl ! file access property list
 
-            INTEGER :: base_namelen ! Length of the base name character string
+            INTEGER(SIZE_T) :: base_namelen ! Length of the base name character string
 
             INTERFACE
               INTEGER FUNCTION h5_cleanup_c(base_name, base_namelen, fapl)
@@ -149,7 +149,7 @@
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: base_name 
               CHARACTER(LEN=*), INTENT(IN) :: base_name
-              INTEGER :: base_namelen
+              INTEGER(SIZE_T) :: base_namelen
               INTEGER(HID_T), INTENT(IN) :: fapl
               END FUNCTION h5_cleanup_c
             END INTERFACE
@@ -158,3 +158,43 @@
             hdferr = h5_cleanup_c(base_name, base_namelen, fapl)
 
           END SUBROUTINE h5_cleanup_f
+
+!----------------------------------------------------------------------
+! Name:		h5_exit_f 
+!
+! Purpose:	Exit application
+!               It is a fortran counterpart for the standard C 'exit()' routine
+!
+! Inputs:  
+!		status	- Status to return from application
+!
+! Outputs:  
+!		none
+!
+! Programmer:	Quincey Koziol
+!		December 14, 2004
+!
+!
+!----------------------------------------------------------------------
+          SUBROUTINE h5_exit_f(status)
+!
+!This definition is needed for Windows DLLs
+!DEC$if defined(BUILD_HDF5_DLL)
+!DEC$attributes dllexport :: h5_exit_f
+!DEC$endif
+            IMPLICIT NONE
+            INTEGER, INTENT(IN) :: status         ! Return code
+
+            INTERFACE
+              SUBROUTINE h5_exit_c(status)
+              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+              !MS$ATTRIBUTES C,reference,alias:'_H5_EXIT_C':: h5_exit_c
+              !DEC$ ENDIF
+              INTEGER, INTENT(IN) :: status
+              END SUBROUTINE h5_exit_c
+            END INTERFACE
+
+            CALL h5_exit_c(status)
+
+          END SUBROUTINE h5_exit_f
+