[svn-r18451] Description:

	Bring r18172:18446 from trunk to revise_chunks branch.

Tested on:
        FreeBSD/32 6.3 (duty) in debug mode
        FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
        Linux/32 2.6 (jam) w/PGI compilers, w/default API=1.8.x,
                w/C++ & FORTRAN, w/threadsafe, in debug mode
        Linux/64-amd64 2.6 (amani) w/Intel compilers, w/default API=1.6.x,
                w/C++ & FORTRAN, in production mode
        Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
                w/szip filter, in production mode
        Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
                in production mode
        Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in debug mode
        Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode

1 files changed, 15 insertions, 15 deletions

diff --git a/fortran/src/H5test_kind.f90 b/fortran/src/H5test_kind.f90
index b945cd3..bdf5f5b 100644
--- a/fortran/src/H5test_kind.f90
+++ b/fortran/src/H5test_kind.f90
@@ -2,24 +2,24 @@
 !
 ! NAME
 !  H5test_kind
-!  
+!
 ! FUNCTION
-!  This stand alone program is used at build time to generate the program 
+!  This stand alone program is used at build time to generate the program
 !  H5fortran_detect.f90. It cycles through all the available KIND parameters for
-!  integers and reals. The appropriate program and subroutines are then generated 
+!  integers and reals. The appropriate program and subroutines are then generated
 !  depending on which of the KIND values are found.
 !
 ! NOTES
-!  This program is depreciated in favor of H5test_kind_SIZEOF.f90 and is only 
+!  This program is depreciated in favor of H5test_kind_SIZEOF.f90 and is only
 !  used when the Fortran intrinsic function SIZEOF is not available. It generates
-!  code that does not make use of SIZEOF in H5fortran_detect.f90 which is less 
+!  code that does not make use of SIZEOF in H5fortran_detect.f90 which is less
 !  portable in comparison to using SIZEOF.
 !
-!  The availability of SIZEOF is checked at configure time and the TRUE/FALSE 
+!  The availability of SIZEOF is checked at configure time and the TRUE/FALSE
 !  condition is set in the configure variable "FORTRAN_HAVE_SIZEOF".
 !
 ! COPYRIGHT
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !   Copyright by The HDF Group.                                               *
 !   Copyright by the Board of Trustees of the University of Illinois.         *
 !   All rights reserved.                                                      *
@@ -32,7 +32,7 @@
 !   is linked from the top-level documents page.  It can also be found at     *
 !   http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 !   access to either file, you may request a copy from help@hdfgroup.org.     *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !
 ! AUTHOR
 !  Elena Pourma
@@ -88,7 +88,7 @@ WRITE(*,'(40(A,/))') &
 '! NOTES',&
 '!  This source code does not make use of the Fortran intrinsic function SIZEOF because',&
 '!  the availability of the intrinsic function was determined to be not available at',&
-'!  configure time',& 
+'!  configure time',&
 '!',&
 '! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
 '!   Copyright by The HDF Group.                                               *',&
@@ -151,7 +151,7 @@ WRITE(*,'(40(A,/))') &
   WRITE(*,*)"       WRITE(*,*) ""#define H5_FORTRAN_HAS_NATIVE_16"" "
   WRITE(*,*)"   ENDIF"
   WRITE(*,*)"   RETURN"
-  WRITE(*,*)"END SUBROUTINE"    
+  WRITE(*,*)"END SUBROUTINE"
   jr = 0
   WRITE(*, "("" SUBROUTINE r"", i2.2,""()"")") j
   WRITE(*,*)"   IMPLICIT NONE"
@@ -171,7 +171,7 @@ WRITE(*,'(40(A,/))') &
   WRITE(*,*)"       write(*,*) ""#define H5_FORTRAN_HAS_REAL_NATIVE_16"" "
   WRITE(*,*)"   ENDIF"
   WRITE(*,*)"   RETURN"
-  WRITE(*,*)"END SUBROUTINE"    
+  WRITE(*,*)"END SUBROUTINE"
   jd = 0
   WRITE(*, "("" SUBROUTINE d"", i2.2,""()"")") jd
   WRITE(*,*)"   IMPLICIT NONE"
@@ -188,7 +188,7 @@ WRITE(*,'(40(A,/))') &
   WRITE(*,*)"       WRITE(*,*) ""#define H5_FORTRAN_HAS_DOUBLE_NATIVE_16"" "
   WRITE(*,*)"   ENDIF"
   WRITE(*,*)"   RETURN"
-  WRITE(*,*)"END SUBROUTINE"    
+  WRITE(*,*)"END SUBROUTINE"
   DO i = 1, ii
      j = ikind_numbers(i)
      WRITE(*, "("" SUBROUTINE i"", i2.2,""()"")") j
@@ -212,7 +212,7 @@ WRITE(*,'(40(A,/))') &
      WRITE(*,*)"       WRITE(*,*) ""#define H5_FORTRAN_HAS_INTEGER_16"" "
      WRITE(*,*)"   ENDIF"
      WRITE(*,*)"   RETURN"
-     WRITE(*,*)"   END SUBROUTINE"    
+     WRITE(*,*)"   END SUBROUTINE"
   ENDDO
   DO i = 1, ir
      j = rkind_numbers(i)
@@ -234,9 +234,9 @@ WRITE(*,'(40(A,/))') &
      WRITE(*,*)"       write(*,*) ""#define H5_FORTRAN_HAS_REAL_16"" "
      WRITE(*,*)"   ENDIF"
      WRITE(*,*)"   RETURN"
-     WRITE(*,*)"   END SUBROUTINE"    
+     WRITE(*,*)"   END SUBROUTINE"
   ENDDO
 END PROGRAM test_kind
 
-            
+