void FSUKYJ_U (fitsfile **fptr, short sppkey[], int *value,
short sppcomm[], int *status) {
strpak (sppkey, c_keyword, FLEN_KEYWORD);
strpak (sppcomm, c_comment, FLEN_COMMENT);
ffukyj (*fptr, c_keyword, (long)*value, c_comment, status);
}
/*--------------------------------------------------------------------------*/
int ffpthp(fitsfile *fptr, /* I - FITS file pointer */
long theap, /* I - starting addrss for the heap */
int *status) /* IO - error status */
/*
Define the starting address for the heap for a binary table.
The default address is NAXIS1 * NAXIS2. It is in units of
bytes relative to the beginning of the regular binary table data.
This routine also writes the appropriate THEAP keyword to the
FITS header.
*/
{
if (*status > 0 || theap < 1)
return(*status);
/* reset position to the correct HDU if necessary */
if (fptr->HDUposition != (fptr->Fptr)->curhdu)
ffmahd(fptr, (fptr->HDUposition) + 1, NULL, status);
(fptr->Fptr)->heapstart = theap;
ffukyj(fptr, "THEAP", theap, "byte offset to heap area", status);
return(*status);
}
