rbytes.c

Go to the documentation of this file.

#include "bufrlib.h"
#include "cobfl.h"

f77int rbytes( char *bmg, f77int *mxmb, f77int isloc, f77int newbytes )
{
    short iret;

    if ( ( isloc + newbytes ) > *mxmb ) {
    iret = 1;
    }
    else if ( fread( &bmg[isloc], 1, newbytes, pbf[0] ) != newbytes ) {
    iret = ( feof(pbf[0]) ? -1 : -2 );
    }
    else {
    iret = 0;
    }

    return (f77int) iret;
}