Skip to content

Commit 01b15a5

Browse files
committed
bug fix: should've called nfmpi_inq_buffer_size
1 parent 92ba286 commit 01b15a5

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/binding/f90/getput_var.m4

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -738,7 +738,7 @@ NBVAR(bput, 7, EightByteInt, integer, int8, `:,:,:,:,:,:,:', INTENTV)
738738
integer (kind=MPI_OFFSET_KIND), intent(out) :: buf_size
739739
integer :: nf90mpi_inq_buffer_size
740740

741-
nf90mpi_inq_buffer_size = nfmpi_inq_buffer_usage(ncid, buf_size)
741+
nf90mpi_inq_buffer_size = nfmpi_inq_buffer_size(ncid, buf_size)
742742
end function nf90mpi_inq_buffer_size
743743

744744
function nf90mpi_buffer_detach(ncid)

0 commit comments

Comments
 (0)