diff options
Diffstat (limited to 'fortran/examples/grpit.f90')
| -rw-r--r-- | fortran/examples/grpit.f90 | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/fortran/examples/grpit.f90 b/fortran/examples/grpit.f90 index 66fb09e..bf3ddb3 100644 --- a/fortran/examples/grpit.f90 +++ b/fortran/examples/grpit.f90 @@ -57,9 +57,9 @@ end do ! - ! Initialize FORTRAN predefined datatypes. + ! Initialize FORTRAN interface. ! - CALL h5init_types_f(error) + CALL h5init_fortran_f(error) ! ! Create a new file using default properties. @@ -185,5 +185,10 @@ ! Close the file. ! CALL h5fclose_f(file_id, error) + + ! + ! Close FORTRAN interface. + ! + CALL h5close_fortran_f(error) END PROGRAM GRPITEXAMPLE |