Skip to content

Commit

Permalink
fortran wrapper for g2c_inq()
Browse files Browse the repository at this point in the history
  • Loading branch information
edwardhartnett committed Dec 21, 2024
1 parent c125b42 commit df1cf25
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/g2cf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -132,13 +132,14 @@ function g2cf_open_index(data_file, index_file, mode, g2cid) result (status)
status = cstatus
end function g2cf_open_index

!> Close a GRIB2 file.
!> Learn how many messages are in a GRIB2 file.
!>
!> @param g2id The ID of the open file
!> @param num_msg The number of messages in the file.
!>
!> @return 0 for success, error code otherwise.
!>
!> @author Edward Hartnett @date 2024-06-12
!> @author Edward Hartnett @date 2024-12-21
function g2cf_inq(g2id, num_msg) result(status)
use iso_c_binding
use g2c_interface
Expand Down

0 comments on commit df1cf25

Please sign in to comment.