FTS1_COMNT - Get the value of a FITS COMMENT card from a buffer of cards

Description:

This routine searches a buffer containing the header card images from a FITS file for the next card with keyword COMMENT. The search begins at a defined card image; and ends when the next end of a header block, marked by the END keyword, is encountered or the buffer is exhausted. The routine returns the comment string, and the number of the card image within the buffer array that contains the comment. If the keyword is is present %THERE is true, otherwise it is false.

Invocation:

CALL FTS1_COMNT( NCARD, BUFFER, STCARD, THERE, VALUE, CARD, : STATUS )

Arguments:

NCARD = INTEGER (Given)

The number of card images in the buffer.

BUFFER( NCARD ) = CHARACTER $*$ ( $*$ ) (Given)

The buffer containing the header card images.

STCARD = INTEGER (Given)

The number of the card from which to search for the next comment card

THERE = LOGICAL (Returned)

If true the parameter %NAME is present.

VALUE = CHARACTER $*$ ( $*$ ) (Returned)

The comment string of the first COMMENT keyword found at or after %STCARD. The length should be at least 72 characters.

CARD = INTEGER(Returned)

The number of the card containing the first COMMENT card. If no COMMENT card could be found this is returned with a value of zero.

STATUS = INTEGER (Given)

Global status value.