From 01b15a5c01ec8027cde7837783020d480d302b2c Mon Sep 17 00:00:00 2001 From: wkliao Date: Thu, 28 Sep 2023 21:49:44 -0500 Subject: [PATCH] bug fix: should've called nfmpi_inq_buffer_size --- src/binding/f90/getput_var.m4 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/binding/f90/getput_var.m4 b/src/binding/f90/getput_var.m4 index c8dc6a81c..65e428fd2 100644 --- a/src/binding/f90/getput_var.m4 +++ b/src/binding/f90/getput_var.m4 @@ -738,7 +738,7 @@ NBVAR(bput, 7, EightByteInt, integer, int8, `:,:,:,:,:,:,:', INTENTV) integer (kind=MPI_OFFSET_KIND), intent(out) :: buf_size integer :: nf90mpi_inq_buffer_size - nf90mpi_inq_buffer_size = nfmpi_inq_buffer_usage(ncid, buf_size) + nf90mpi_inq_buffer_size = nfmpi_inq_buffer_size(ncid, buf_size) end function nf90mpi_inq_buffer_size function nf90mpi_buffer_detach(ncid)