C+
C NAME:
C	FTCRHD
C PURPOSE:
C	Create (append) a new empty HDU following the last extension that
C	has been previously accessed by the program.
C CALLING SEQUENCE:
C	call FTCRHD(unit, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	This will overwrite any extensions in an existing FITS file if the
C	program has not already moved to that (or a later) extension using
C	the FTMAHD or FTMRHD routines.
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTCLOS
C PURPOSE:
C	Closes a fits file
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTCLOS(iU, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTGMSG
C PURPOSE:
C	Return top message from internal FITSIO error stack.
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTGMSG(cStr)
C OUTPUTS:
C	cStr		character*(*)	name of fits file
C PROCEDURE:
C	Return the top (oldest) 80-character error message from the
C	internal FITSIO stack of error messages and shift any remaining
C	messages on the stack up one level.
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTINIT
C PURPOSE:
C	Open a new fits file
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTINIT(iu, cFile, blocksize, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cFile		character*(*)	name of fits file
C	blocksize	integer		block size (set to 1)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTNOPN
C PURPOSE:
C	Open an existing fits file
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTNOPN(iU, cFile, Mode, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cFile		character*(*)	name of fits file
C	Mode		integer		FTS__READONLY: read - only mode
C					FTS__WRITE: write mode
C					(parameters in include file ftspar.h)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTGISZ
C PURPOSE:
C	Get the size of all the dimensions of the image 
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTGISZ(iU, nMax, nDim, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	nMax		integer		Max. # dimensions allowed
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	nDim(nMax)	integer		array with dimensions
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTGKN_JEDLS
C PURPOSE:
C	Reads an array of keyword values from a Fits header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTGKN[JEDLS](iU, cName, iStart, iMax, ArrV, nFnd, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cName		character*8	keyword root name (e.g. 'NAXIS')
C	iStart		integer		start number
C	iMax		integer		max. number of keys
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	ArrV(nFound)	[JEDLS]		array with keyword values
C	nFound		integer		# keys found
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTGKNJ
C SEE ALSO:
C	FTGKN_JEDLS
C-

C+
C NAME:
C	FTGKNE
C SEE ALSO:
C	FTGKN_JEDLS
C-

C+
C NAME:
C	FTGKND
C SEE ALSO:
C	FTGKN_JEDLS
C-

C+
C NAME:
C	FTGKNL
C SEE ALSO:
C	FTGKN_JEDLS
C-

C+
C NAME:
C	FTGKNS
C SEE ALSO:
C	FTGKN_JEDLS
C-

C+
C NAME:
C	FTGKY_JEDLS
C PURPOSE:
C	Reads a single keyword value from Fits header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTGKY[JEDLS](iU, cName, iValue, Comment, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cName		character*8	keyword name
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	Value		[JEDLS]		value of keyword
C	Comment		character*(*)	Comment string (following backslash)
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	J - integer (I*4)
C	E - real floating point (R*4)
C	D - double precision real floating-point (R*8)
C	L - logical (L*4)
C	S - character string
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTGKYJ
C SEE ALSO:
C	FTGKY_JEDLS
C-

C+
C NAME:
C	FTGKYE
C SEE ALSO:
C	FTGKY_JEDLS
C-

C+
C NAME:
C	FTGKYD
C SEE ALSO:
C	FTGKY_JEDLS
C-

C+
C NAME:
C	FTGKYL
C SEE ALSO:
C	FTGKY_JEDLS
C-

C+
C NAME:
C	FTGKYS
C SEE ALSO:
C	FTGKY_JEDLS
C-

C+
C NAME:
C	FTGPV_BIJED
C PURPOSE:
C	Reads the data area from a Fits file
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTGPV[BIJED](iU, iGroup, iFPix, nBuf, NullVal, ZBuf, AnyF, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	iGroup		integer		sequence number of data group
C					(set to zero usually).
C	iFPix		integer		1st pixel to read
C	nBuf		integer		# values to read
C	NullVal		[BIJED]		undefined array elements are set to
C					NullVal. If NullVal=0 no such check is
C					performed.
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	ZBuf(nBuf)	real		data array
C	AnyF		logical		set to .TRUE. if any ZBuf elements are
C					undefined.
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	B - character*1 (unsigned byte)  
C	I - short integer (I*2)
C	J - integer (I*4)
C	E - real floating point (R*4)
C	D - double precision real floating-point (R*8)
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTGPVB
C SEE ALSO:
C	FTGPV_BIJED
C-

C+
C NAME:
C	FTGPVI
C SEE ALSO:
C	FTGPV_BIJED
C-

C+
C NAME:
C	FTGPVJ
C SEE ALSO:
C	FTGPV_BIJED
C-

C+
C NAME:
C	FTGPVE
C SEE ALSO:
C	FTGPV_BIJED
C-

C+
C NAME:
C	FTGPVD
C SEE ALSO:
C	FTGPV_BIJED
C-

C+
C NAME:
C	FTMAHD
C PURPOSE:
C	Move to a specified (absolute) HDU in the FITS file
C	(nhdu = 1 for the FITS primary array)
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTMAHD(iu, nhdu, > hdutype, status)
C INPUTS:
C	iU		integer		logical unit number
C	nhdu		integer		index of HDU (1 for primary array)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	hdutype		integer		type of HDU:
C					 0 = primary array or IMAGE
C					 1 = ASCII table
C					 2 = binary table
C					-1 = unknown
C	iStatus		integer		non-zero value indicates error
C MODIFICATION HISTORY:
C	Part of FITSIO package
C-

C+
C NAME:
C	FTMRHD
C PURPOSE:
C	Move to a new (existing) HDU forward or backwards relative
C	to the current HDU (CHDU)
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTMRHD(iu, nmove, > hdutype, status)
C INPUTS:
C	iU		integer		logical unit number
C	nmove		integer		number of HDU to move
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	hdutype		integer		type of HDU:
C					 0 = primary array or IMAGE
C					 1 = ASCII table
C					 2 = binary table
C					-1 = unknown
C	iStatus		integer		non-zero value indicates error
C MODIFICATION HISTORY:
C	Part of FITSIO package
C-

C+
C NAME:
C	FTPKY_JLS
C PURPOSE:
C	Writes a single keyword value from Fits header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTPKY[JLS](iU, cName, Value, Comment, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cName		character*8	keyword name
C	Value		[JEDLS]		value of keyword
C	Comment		character*(*)	Comment string (following backslash)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	J - integer (I*4)
C	L - logical (L*4)
C	S - character string
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTPKYJ
C SEE ALSO:
C	FTPKY_JLS
C-

C+
C NAME:
C	FTPKYL
C SEE ALSO:
C	FTPKY_JLS
C-

C+
C NAME:
C	FTPKYS
C SEE ALSO:
C	FTPKY_JLS
C-

C+
C NAME:
C	FTPKY_EDFG
C PURPOSE:
C	Writes a single keyword value from Fits header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTPKY[EDFG](iU, cName, Value, iDecimals, Comment, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cName		character*8	keyword name
C	Value		[JEDLS]		value of keyword
C	iDecimals	integer		number of digits
C	Comment		character*(*)	Comment string (following backslash)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	E - real exponential floating point (R*4)
C	F - real fixed-format floating point (R*4)
C	D - double precision real floating-point (R*8)
C	G - double precision fixed-format real floating-point (R*8)
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTPKYE
C SEE ALSO:
C	FTPKY_EDFG
C-

C+
C NAME:
C	FTPKYD
C SEE ALSO:
C	FTPKY_EDFG
C-

C+
C NAME:
C	FTPKYF
C SEE ALSO:
C	FTPKY_EDFG
C-

C+
C NAME:
C	FTPKYG
C SEE ALSO:
C	FTPKY_EDFG
C-

C+
C NAME:
C	FTUKY_JLS
C PURPOSE:
C	Updates a single keyword value from Fits header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTUKY[JLS](iU, cName, Value, Comment, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cName		character*8	keyword name
C	Value		[JLS]		value of keyword
C	Comment		character*(*)	Comment string (following backslash)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	J - integer (I*4)
C	L - logical (L*4)
C	S - character string
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTUKYJ
C SEE ALSO:
C	FTUKY_JLS
C-

C+
C NAME:
C	FTUKYL
C SEE ALSO:
C	FTUKY_JLS
C-

C+
C NAME:
C	FTUKYS
C SEE ALSO:
C	FTUKY_JLS
C-




C+
C NAME:
C	FTUKY_EDFG
C PURPOSE:
C	Updates a single keyword value from Fits header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTUKY[EDFG](iU, cName, Value, iDecimals, Comment, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cName		character*8	keyword name
C	Value		[EDFG]		value of keyword
C	iDecimals	integer		number of digits
C	Comment		character*(*)	Comment string (following backslash)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	E - real exponential floating point (R*4)
C	F - real fixed-format floating point (R*4)
C	D - double precision real floating-point (R*8)
C	G - double precision fixed-format real floating-point (R*8)
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTUKYE
C SEE ALSO:
C	FTUKY_EDFG
C-

C+
C NAME:
C	FTUKYD
C SEE ALSO:
C	FTUKY_EDFG
C-

C+
C NAME:
C	FTUKYF
C SEE ALSO:
C	FTUKY_EDFG
C-

C+
C NAME:
C	FTUKYG
C SEE ALSO:
C	FTUKY_EDFG
C-

C+
C NAME:
C	FTPHPR
C PURPOSE:
C	Writes basic Fits header to a Fits file
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTPHPR(iU, bSimple, iBitPix, 2, nAxes, 0, 1, bExtend, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	bSimple		logical		set .TRUE.
C	iBitPix		integer		# bits per value (8,16,32,-32,-64)
C	nAxis		integer		# dimensions
C	nAxis(nAxis)	integer		size of each dimension
C	pCount		integer		set 0
C	gCount		integer		set 1
C	bExtend		logical		set .TRUE.
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTPKN_JLS
C PURPOSE:
C	Put numbered sequence of keyword into header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTPKN[JLS](iU, cKeyRoot, startno, no_keys, keyvals, comments, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cKeyRoot	character*(*)	root name of the sequence
C	iStartNr	integer		start number of the sequence (usually 1)
C	iNr		integer		# keys in the sequence
C	Keyvals(iNr)	J: int*2, L: int*4, S:character
C					array of sequence values
C	Comment(iNr)	character*(*)	comment strings
C					(add '&' to first elements to use only the first
C					comment for all sequence elements)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C 	FTPKNJ
C SEE ALSO:
C	FTPKN_JLS
C-

C+
C NAME:
C 	FTPKNL
C SEE ALSO:
C	FTPKN_JLS
C-

C+
C NAME:
C 	FTPKNS
C SEE ALSO:
C	FTPKN_JLS
C-

C+
C NAME:
C	FTPKN_EDFG
C PURPOSE:
C	Put numbered sequence of keyword into header
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTPKN[EDFG](iU,cKeyroot,iStartNr,iNr,Keyvals,Decimals,Comments,iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	cKeyRoot	character*(*)	root name of the sequence
C	iStartNr	integer		start number of the sequence (usually 1)
C	iNr		integer		# keys in the sequence
C	Keyvals(iNr)	J: int*2, L: int*4, S:character
C					array of sequence values
C	Decimals	integer		# decimal points
C	Comment(iNr)	character*(*)	comment strings
C					(add '&' to first elements to use only the first
C					comment for all sequence elements)
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	E - real exponential floating point (R*4)
C	F - real fixed-format floating point (R*4)
C	D - double precision real floating-point (R*8)
C	G - double precision fixed-format floating point (R*8)
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C 	FTPKNE
C SEE ALSO:
C	FTPKN_EDFG
C-
C+
C NAME:
C 	FTPKND
C SEE ALSO:
C	FTPKN_EDFG
C-
C+
C NAME:
C 	FTPKNF
C SEE ALSO:
C	FTPKN_EDFG
C-
C+
C NAME:
C 	FTPKNG
C SEE ALSO:
C	FTPKN_EDFG
C-

C+
C NAME:
C	FTPPR_BIJED
C PURPOSE:
C	Writes the data area to a Fits file
C CATEGORY:
C	gen/for
C CALLING SEQUENCE:
C	call FTPPR[BIJED](iU, iGroup, iFPix, nBuf, ZBuf, iStatus)
C INPUTS:
C	iU		integer		logical unit number
C	iGroup		integer		sequence number of data group
C					(set to zero usually).
C	iFPix		integer		1st pixel to write
C	nBuf		integer		# values to write
C	ZBuf(nBuf)	real		data array
C	iStatus		integer		must be initialized to zero
C OUTPUTS:
C	iStatus		integer		non-zero value indicates error
C PROCEDURE:
C	B - character*1 (unsigned byte)  
C	I - short integer (I*2)
C	J - integer (I*4)
C	E - real floating point (R*4)
C	D - double precision real floating-point (R*8)
C MODIFICATION HISTORY:
C	Part of FITSIO packeage
C-

C+
C NAME:
C	FTPPRB
C SEE ALSO:
C	FTPPR_BIJED
C-

C+
C NAME:
C	FTPPRI
C SEE ALSO:
C	FTPPR_BIJED
C-

C+
C NAME:
C	FTPPRJ
C SEE ALSO:
C	FTPPR_BIJED
C-

C+
C NAME:
C	FTPPRE
C SEE ALSO:
C	FTPPR_BIJED
C-

C+
C NAME:
C	FTPPRD
C SEE ALSO:
C	FTPPR_BIJED
C-