Fortran type conversion warnings
if (iret == GRIB_SUCCESS .and. ibytes > huge(nbytes)) then
iret = GRIB_MESSAGE_TOO_LARGE
end if
- nbytes = ibytes
+ nbytes = INT(ibytes, kind=kindOfInt)
if (present(status)) then
status = iret
else
if (iret == GRIB_SUCCESS .and. ibytes > huge(nbytes)) then
iret = GRIB_MESSAGE_TOO_LARGE
end if
- nbytes = ibytes
+ nbytes = INT(ibytes, kind=kindOfInt)
if (present(status)) then
status = iret
else
!> Reads a message in the buffer array from the file opened with grib_open_file.
!>
- !>
!> In case of error, if the status parameter (optional) is not given, the program will
!> exit with an error message.\n Otherwise the error message can be
!> gathered with @ref grib_get_error_string.
if (iret == GRIB_SUCCESS .and. ibytes > huge(nbytes)) then
iret = GRIB_MESSAGE_TOO_LARGE
end if
- nbytes = ibytes
+ nbytes = INT(ibytes, kind=kindOfInt)
if (present(status)) then
status = iret
else
!> exit with an error message.\n Otherwise the error message can be
!> gathered with @ref grib_get_error_string.
!>
- !>
!> @param ifile id of the opened file to be used in all the file functions.
!> @param buffer binary buffer to be read
!> @param nbytes number of bytes to be read
if (iret == GRIB_SUCCESS .and. ibytes > huge(nbytes)) then
iret = GRIB_MESSAGE_TOO_LARGE
end if
- nbytes = ibytes
+ nbytes = INT(ibytes, kind=kindOfInt)
if (present(status)) then
status = iret
else
if (iret == GRIB_SUCCESS .and. ibytes > huge(nbytes)) then
iret = GRIB_MESSAGE_TOO_LARGE
end if
- nbytes = ibytes
+ nbytes = INT(ibytes, kind=kindOfInt)
if (iret /= 0) then
call grib_f_write_on_fail(gribid)
end if
