filename	IN:	Name of the HDF file
	palette	IN:	Buffer containing the palette to be written

	Purpose	Appends a palette to a file.
	Return value	Returns SUCCEED (or 0) if successful and FAIL (or -1) otherwise.
	Description	If the named file does not exist, it is created and the palette written to it. The palette buffer should beat least 768 bytes in length.

	FORTRAN	integer function dpapal(filename, palette)
		character*(*) filename, palette