bug fix: should've called nfmpi_inq_buffer_size

Parallel-NetCDF · Sep 29, 2023 · 01b15a5 · 01b15a5
1 parent 92ba286
commit 01b15a5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)