[svn-r2797]
Purpose:
Maintenance
Description:
Updated examples to use new F90 programming model
Platforms tested:
O2K and Solaris2.7
This commit is contained in:
@@ -25,9 +25,9 @@
|
||||
INTEGER :: error ! Error flag
|
||||
|
||||
!
|
||||
! Initialize FORTRAN predefined datatypes.
|
||||
! Initialize FORTRAN interface.
|
||||
!
|
||||
CALL h5init_types_f(error)
|
||||
CALL h5init_fortran_f(error)
|
||||
|
||||
!
|
||||
! Create a new file using default properties.
|
||||
@@ -61,9 +61,9 @@
|
||||
CALL h5fclose_f(file_id, error)
|
||||
|
||||
!
|
||||
! Close FORTRAN predefined datatypes.
|
||||
! Close FORTRAN interface.
|
||||
!
|
||||
CALL h5close_types_f(error)
|
||||
CALL h5close_fortran_f(error)
|
||||
|
||||
END PROGRAM DSETEXAMPLE
|
||||
|
||||
|
||||
Reference in New Issue
Block a user