Removed trailing space from Fortran files.

1 files changed, 17 insertions, 17 deletions

diff --git a/fortran/test/tH5T.F90 b/fortran/test/tH5T.F90
index a986ba6..51e1a23 100644
--- a/fortran/test/tH5T.F90
+++ b/fortran/test/tH5T.F90
@@ -113,7 +113,7 @@ CONTAINS
 
      INTEGER(HID_T) :: fixed_str1, fixed_str2
      LOGICAL :: are_equal
-     INTEGER(SIZE_T), PARAMETER :: str_size = 10 
+     INTEGER(SIZE_T), PARAMETER :: str_size = 10
      INTEGER(SIZE_T) :: query_size
 
      ! Test h5tcreate_f with H5T_STRING_F option:
@@ -125,34 +125,34 @@ CONTAINS
      CALL check("h5tset_size_f", error, total_error)
      CALL h5tset_strpad_f(fixed_str1, H5T_STR_NULLTERM_F, error)
      CALL check("h5tset_strpad_f", error, total_error)
-     
+
      CALL h5tcreate_f(H5T_STRING_F, str_size, fixed_str2, error)
      CALL check("h5tcreate_f", error, total_error)
      CALL h5tset_strpad_f(fixed_str2, H5T_STR_NULLTERM_F, error)
      CALL check("h5tset_strpad_f", error, total_error)
-     
+
      CALL h5tequal_f(fixed_str1, fixed_str2, are_equal, error)
      IF(.NOT.are_equal)THEN
         CALL check("h5tcreate_f", -1, total_error)
      ENDIF
-     
+
      CALL h5tget_size_f(fixed_str1, query_size, error)
      CALL check("h5tget_size_f", error, total_error)
-     
+
      IF(query_size.NE.str_size)THEN
         CALL check("h5tget_size_f", -1, total_error)
      ENDIF
-     
+
      CALL h5tget_size_f(fixed_str2, query_size, error)
      CALL check("h5tget_size_f", error, total_error)
 
      IF(query_size.NE.str_size)THEN
         CALL check("h5tget_size_f", -1, total_error)
      ENDIF
-     
+
      CALL h5tclose_f(fixed_str1,error)
      CALL check("h5tclose_f", error, total_error)
-     
+
      CALL h5tclose_f(fixed_str2,error)
      CALL check("h5tclose_f", error, total_error)
      data_dims(1) = dimsize
@@ -526,7 +526,7 @@ CONTAINS
      CALL h5dread_f(dset_id, dt3_id, double_member_out, data_dims, error)
      CALL check("h5dread_f", error, total_error)
      DO i = 1, dimsize
-        CALL VERIFY("h5dread_f:Wrong double precision data is read back", double_member_out(i), double_member(i), total_error)   
+        CALL VERIFY("h5dread_f:Wrong double precision data is read back", double_member_out(i), double_member(i), total_error)
      ENDDO
      !
      !
@@ -541,20 +541,20 @@ CONTAINS
      CALL h5dread_f(dset_id, dt4_id, real_member_out, data_dims, error)
      CALL check("h5dread_f", error, total_error)
      DO i = 1, dimsize
-        CALL VERIFY("h5dread_f:Wrong double precision data is read back", real_member_out(i), real_member(i), total_error)   
+        CALL VERIFY("h5dread_f:Wrong double precision data is read back", real_member_out(i), real_member(i), total_error)
      ENDDO
      !
      ! *-----------------------------------------------------------------------
      ! * Test encoding and decoding compound datatypes
      ! *-----------------------------------------------------------------------
      !
-     !     Encode compound type in a buffer 
+     !     Encode compound type in a buffer
      !         -- First find the buffer size
 
      CALL H5Tencode_f(dtype_id, cmpd_buf, cmpd_buf_size, error)
      CALL check("H5Tencode_f", error, total_error)
 
-     !  Try decoding bogus buffer 
+     !  Try decoding bogus buffer
 
      CALL H5Tdecode_f(cmpd_buf, decoded_tid1, error)
      CALL verify("H5Tdecode_f", error, -1, total_error)
@@ -562,11 +562,11 @@ CONTAINS
      CALL H5Tencode_f(dtype_id, cmpd_buf, cmpd_buf_size, error)
      CALL check("H5Tencode_f", error, total_error)
 
-     !  Decode from the compound buffer and return an object handle 
+     !  Decode from the compound buffer and return an object handle
      CALL H5Tdecode_f(cmpd_buf, decoded_tid1, error)
      CALL check("H5Tdecode_f", error, total_error)
 
-     !  Verify that the datatype was copied exactly 
+     !  Verify that the datatype was copied exactly
 
      CALL H5Tequal_f(decoded_tid1, dtype_id, flag, error)
      CALL check("H5Tequal_f", error, total_error)
@@ -886,7 +886,7 @@ CONTAINS
     CALL H5Tget_native_type_f(dtype, H5T_DIR_ASCEND_F, native_type, error)
     CALL check("H5Tget_native_type_f",error, total_error)
 
-    ! Verify the datatype retrieved and converted 
+    ! Verify the datatype retrieved and converted
     CALL H5Tget_order_f(native_type, order1, error)
     CALL check("H5Tget_order_f",error, total_error)
     CALL H5Tget_order_f(H5T_NATIVE_INTEGER, order2, error)
@@ -957,7 +957,7 @@ CONTAINS
 ! * Modifications:
 ! *
 ! *-------------------------------------------------------------------------
-! 
+!
 
 SUBROUTINE test_derived_flt(cleanup, total_error)
 
@@ -977,7 +977,7 @@ SUBROUTINE test_derived_flt(cleanup, total_error)
 
   INTEGER :: error
 
-  ! Create File 
+  ! Create File
   CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
   IF (error .NE. 0) THEN
      WRITE(*,*) "Cannot modify filename"