Skip to content

Commit

Permalink
Update bufr_c2f_interface.F90
Browse files Browse the repository at this point in the history
  • Loading branch information
AlexanderRichert-NOAA authored Jun 25, 2024
1 parent 8c9f20f commit 5fc3a86
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/bufr_c2f_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -679,6 +679,7 @@ function isetprm_c(cprmnm,ipval) result(ires) bind(C, name='isetprm_f')
integer(c_int) :: ires
integer :: isetprm
ires = isetprm(c_f_string(cprmnm),ipval)

end function isetprm_c

!> Define a customized maximum length for output BUFR messages.
Expand Down

0 comments on commit 5fc3a86

Please sign in to comment.