#include <stdio.h>
/*
#include "geminc.h"
#include "gemprm.h"
  */
#ifdef UNDERSCORE
#define gbf_read gbf_read_
#endif

extern FILE     *fptr;

#include "create_fortran_link.h"

create_fortran_link(void, gbf_read,(int* nbytes,unsigned char* buffer,int* iret ),( nbytes, buffer, iret ) )

/************************************************************************
 * gbf_read								*
 *									*
 * This function reads the specified number of bytes from the buffer	*
 * to the open file.							*
 *									*
 * gbf_read ( nbytes, buffer, iret )					*
 *									*
 * Input parameters:							*
 *	*nbytes		int		Number of bytes to write	*
 *	*buffer		unsigned char	Data to write to file		*
 *									*
 * Output parameters:							*
 *	*iret		int		Return code			*
 *					 -6 = No file has been opened	*
 **									*
 * G. Krueger/EAI	3/96						*
 * K. Brill/HPC		8/99	Adapted from cfl_writ -- make nbytes	*
 *				a pointer, move *fptr to external	*
 ***********************************************************************/
{
	int	ier, nbyts, nbout;
/*---------------------------------------------------------------------*/
	*iret = 0;
	nbyts = *nbytes;

	if ( fptr == NULL ) {
	    *iret = -6;
	    return;
	}
/*
 *	Write the record.
 */
	nbout = fread ( buffer, sizeof(unsigned char), nbyts, fptr );

	if ( nbout != nbyts ) {
	    *iret = -1;
/*	    printf ( "Error reading from GRIB file.\n" ); */
	}


}