void FSMKYS_U (fitsfile **fptr, short sppkey[], short sppvalue[],
short sppcomm[], int *status) {
strpak (sppkey, c_keyword, FLEN_KEYWORD);
strpak (sppvalue, c_value, FLEN_VALUE);
strpak (sppcomm, c_comment, FLEN_COMMENT);
ffmkys (*fptr, c_keyword, c_value, c_comment, status);
}
/*--------------------------------------------------------------------------*/
int ffukys(fitsfile *fptr, /* I - FITS file pointer */
char *keyname, /* I - keyword name */
char *value, /* I - keyword value */
char *comm, /* I - keyword comment */
int *status) /* IO - error status */
{
int tstatus;
if (*status > 0) /* inherit input status value if > 0 */
return(*status);
tstatus = *status;
if (ffmkys(fptr, keyname, value, comm, status) == KEY_NO_EXIST)
{
*status = tstatus;
ffpkls(fptr, keyname, value, comm, status);
}
return(*status);
}
