void FSMKYD_U (fitsfile **fptr, short sppkey[], double *dval,
int *decim, short sppcomm[], int *status) {
strpak (sppkey, c_keyword, FLEN_KEYWORD);
strpak (sppcomm, c_comment, FLEN_COMMENT);
ffmkyd (*fptr, c_keyword, *dval, *decim, c_comment, status);
}
/*--------------------------------------------------------------------------*/
int ffukyd(fitsfile *fptr, /* I - FITS file pointer */
char *keyname, /* I - keyword name */
double value, /* I - keyword value */
int decim, /* I - no of decimals */
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 (ffmkyd(fptr, keyname, value, decim, comm, status) == KEY_NO_EXIST)
{
*status = tstatus;
ffpkyd(fptr, keyname, value, decim, comm, status);
}
return(*status);
}