From f99a7ddaccaa1e0b0ee492ed23502d3bfcd5b055 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Sat, 2 Dec 2000 12:21:43 -0500 Subject: [svn-r3068] Purpose: Code maintenace Description: Comments to the h5tget_order_f and h5tset_order_f subroutines were incorrect. Solution: Fixed. --- fortran/src/H5Tff.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90 index 2b86c57..344bfd8 100644 --- a/fortran/src/H5Tff.f90 +++ b/fortran/src/H5Tff.f90 @@ -115,9 +115,9 @@ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier INTEGER, INTENT(OUT) :: order ! Datatype byte order, bossible values are: - ! H5T_ORDER_LE (0) - ! H5T_ORDER_BE (1) - ! H5T_ORDER_VAX (2) + ! H5T_ORDER_LE_F + ! H5T_ORDER_BE_F + ! H5T_ORDER_VAX_F INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER, EXTERNAL :: h5tget_order_c hdferr = h5tget_order_c(type_id, order) @@ -129,9 +129,9 @@ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier INTEGER, INTENT(IN) :: order ! Datatype byte order, bossible values ! are: - ! H5T_ORDER_LE (0) - ! H5T_ORDER_BE (1) - ! H5T_ORDER_VAX (2) + ! H5T_ORDER_LE_F + ! H5T_ORDER_BE_F + ! H5T_ORDER_VAX_F INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER, EXTERNAL :: h5tset_order_c hdferr = h5tset_order_c(type_id, order) -- cgit v0.12