[svn-r17164] Description:

Removed the blank space after !DEC$ to satisify the absoft compiler.

tested smirom

1 files changed, 36 insertions, 36 deletions

diff --git a/hl/fortran/src/H5IMff.f90 b/hl/fortran/src/H5IMff.f90
index 0fd4cd8..6e13c30 100755
--- a/hl/fortran/src/H5IMff.f90
+++ b/hl/fortran/src/H5IMff.f90
@@ -67,9 +67,9 @@ subroutine h5immake_image_8bit_f(loc_id,&
  interface
   integer function h5immake_image_8bit_c(loc_id,namelen,dset_name,width,height,buf)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMMAKE_IMAGE_8BIT_C'::h5immake_image_8bit_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMMAKE_IMAGE_8BIT_C'::h5immake_image_8bit_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
@@ -127,9 +127,9 @@ subroutine h5imread_image_f(loc_id,&
  interface
   integer function h5imread_image_c(loc_id,namelen,dset_name,buf)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMREAD_IMAGE_C'::h5imread_image_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMREAD_IMAGE_C'::h5imread_image_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
@@ -191,9 +191,9 @@ subroutine h5immake_image_24bit_f(loc_id,&
  interface
   integer function h5immake_image_24bit_c(loc_id,namelen,dset_name,ilen,il,width,height,buf)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMMAKE_IMAGE_24BIT_C'::h5immake_image_24bit_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMMAKE_IMAGE_24BIT_C'::h5immake_image_24bit_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: il
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
@@ -265,9 +265,9 @@ subroutine h5imget_image_info_f(loc_id,&
  interface
   integer function h5imget_image_info_c(loc_id,namelen,dset_name,width,height,planes,npals,ilen,interlace)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMGET_IMAGE_INFO_C'::h5imget_image_info_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_IMAGE_INFO_C'::h5imget_image_info_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: interlace
   integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
@@ -326,9 +326,9 @@ integer function h5imis_image_f(loc_id,&
  interface
   integer function h5imis_image_c(loc_id,namelen,dset_name)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMIS_IMAGE_C'::h5imis_image_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMIS_IMAGE_C'::h5imis_image_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
@@ -385,9 +385,9 @@ subroutine h5immake_palette_f(loc_id,&
  interface
   integer function h5immake_palette_c(loc_id,namelen,dset_name,pal_dims,buf)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMMAKE_PALETTE_C'::h5immake_palette_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMMAKE_PALETTE_C'::h5immake_palette_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
@@ -444,9 +444,9 @@ subroutine h5imlink_palette_f(loc_id,&
  interface
   integer function h5imlink_palette_c(loc_id,namelen,dset_name,ilen,pal_name)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMLINK_PALETTE_C'::h5imlink_palette_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMLINK_PALETTE_C'::h5imlink_palette_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: pal_name
   integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
@@ -506,9 +506,9 @@ subroutine h5imunlink_palette_f(loc_id,&
  interface
   integer function h5imunlink_palette_c(loc_id,namelen,dset_name,ilen,pal_name)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMUNLINK_PALETTE_C'::h5imunlink_palette_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMUNLINK_PALETTE_C'::h5imunlink_palette_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: pal_name
   integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
@@ -567,9 +567,9 @@ subroutine h5imget_npalettes_f(loc_id,&
  interface
   integer function h5imget_npalettes_c(loc_id,namelen,dset_name,npals)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMGET_NPALETTES_C'::h5imget_npalettes_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_NPALETTES_C'::h5imget_npalettes_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
   character(len=*), intent(in) :: dset_name          ! name of the dataset 
@@ -627,9 +627,9 @@ subroutine h5imget_palette_info_f(loc_id,&
  interface
   integer function h5imget_palette_info_c(loc_id,namelen,dset_name,pal_number,dims)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMGET_PALETTE_INFO_C'::h5imget_palette_info_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_PALETTE_INFO_C'::h5imget_palette_info_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                ! file or group identifier 
   character(len=*), intent(in) :: dset_name             ! name of the dataset 
@@ -689,9 +689,9 @@ subroutine h5imget_palette_f(loc_id,&
  interface
   integer function h5imget_palette_c(loc_id,namelen,dset_name,pal_number,buf)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMGET_PALETTE_C'::h5imget_palette_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_PALETTE_C'::h5imget_palette_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
@@ -744,9 +744,9 @@ integer function h5imis_palette_f(loc_id,&
  interface
   integer function h5imis_palette_c(loc_id,namelen,dset_name)
   use h5global
-  !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-  !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5IMIS_PALETTE_C'::h5imis_palette_c
-  !DEC$ ENDIF
+  !DEC$IF DEFINED(HDF5F90_WINDOWS)
+  !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMIS_PALETTE_C'::h5imis_palette_c
+  !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer