C+
C NAME:
C	bWriteFrm
C PURPOSE:
C	Writes a binary .nic file in the exact format the SMEI camera
C	software produces.
C CATEGORY:
C	I/O
C CALLING SEQUENCE:
	logical function bWriteFrm(cFile, cDir, nX, nY, nB, Orig, hdr)
C INPUTS:
C	cFile		character*(*)	file name
C					(the file type will be replaced by .nic)
C	cDir		character*(*)	output directory
C					if not left blank this directory overrides
C					the directory specification in cFile
C	nX		integer		row length
C	nY		integer		column height
C	nB		integer		# bytes per number in output file
C					2 for integer*2
C					4 for integer*4
C					-4 for real*4
C	Orig(nX*nY)	integer		image data
C	hdr(*)		double precision
C					frame header entries
C OUTPUTS:
C	(output to .nic file)
C CALLS:
C	NicHdr, bWriteNic
C SEE ALSO:
C	bReadNic
C PROCEDURE:
C	See bWriteNic
C MODIFICATION HISTORY:
C	JUN-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    character		cFile*(*)
	    character		cDir *(*)
	    integer		nX
	    integer		nY
	    integer		nB
	    real		Orig(*)
	    double precision	hdr(*)

	character		cTrailer*512
	logical			bWriteNic

	cTrailer = 'buf'
	call NicHdr(0, hdr, cTrailer(4:))

	bWriteFrm = bWriteNic(cFile, cDir, nX, nY, nB, Orig, cTrailer)

	return
	end