C+
C NAME:
C	say_fts
C PURPOSE:
C	Processes error stack of cfitsio package
C CATEGORY:
C	ucsd/for/gen/lib
C CALLING SEQUENCE:
	subroutine say_fts(cSay,cSeverity,istat)
C INPUTS:
C	cSay		character*(*)	passed to Say
C	cSeverity	character*(*)	passed to Say
C	istat		integer		error code from FITS routine
C CALLS:
C	Say, FTGMSG, itrim, cInt2Str
C PROCEDURE:
C	Processes the Fits error stack; then calls Say with
C	cSeverity to control program continuation.
C MODIFICATION HISTORY:
C	DEC-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    character	cSay*(*)
	    character	cSeverity*(*)
	    integer	istat

	character	cSayFts*7		/'say_fts'/
	character	cError*80
	character	cInt2Str*14

	call Say(cSayFts,'I','<time>','.#.#error code '//cInt2Str(istat))

	cError = ' '
	call FTGMSG( cError )
	do while (itrim(cError) .ne. 0)
	    call Say(' ',' ','... fts',cError)
	    call FTGMSG( cError )
	end do

	call Say(cSay,cSeverity,'fts','end of error stack')

	return
	end