Function:	ftsi_putr

Purpose:	Write real data to FITS tape.

Category:	FITS

File:		fts_io.c

Author: 	Peter Roelfsema

Use:		INTEGER FTSI_PUTR ( MTID	input	INTEGER,
				    ARRAY	input	REAL ( >ARRLEN ),
				    ARRLEN )	input	INTEGER.
	FTSI_PUTR returns:
		>= 0 : number of values accepted,
		-10 : tape io error,
		-20 : no memory for iobuf available,
	MTID	A device unit number as obtained from MTOPEN,
	ARRAY	Source array of the data,
	ARRLEN	Length of ARRAY, ARRLEN = 0 will result in the writing
		of a file mark indicating the end of the FITS file.


Description:
	Fills a FITS tape with reals from ARRAY.  The reals are
	checked to be in range as defined by bitpix.  If not in range
	a BLANK is put on tape instead of the real.  Returned is the
	number of reals accepted for copy to tape,
	or a negative number as an error indication.

Updates:
	Jul 26, 1991: AdJ, more consistent return values.
	Aug 23, 1990: SS,  document created.