mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r3068]

Browse Source 
Purpose:
    Code maintenace
Description:
    Comments to the h5tget_order_f and h5tset_order_f subroutines were
    incorrect.
Solution:
    Fixed.
This commit is contained in:
Elena Pourmal 2000-12-02 12:21:43 -05:00
parent c0c9ae025f
commit f99a7ddacc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fortran/src/H5Tff.f90
View File

@ -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)