void FSMKYE_U (fitsfile **fptr, short sppkey[], float *rval,
int *decim, short sppcomm[], int *status) {
strpak (sppkey, c_keyword, FLEN_KEYWORD);
strpak (sppcomm, c_comment, FLEN_COMMENT);
ffmkye (*fptr, c_keyword, *rval, *decim, c_comment, status);
}
/*--------------------------------------------------------------------------*/
int ffukye(fitsfile *fptr, /* I - FITS file pointer */
char *keyname, /* I - keyword name */
float 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 (ffmkye(fptr, keyname, value, decim, comm, status) == KEY_NO_EXIST)
{
*status = tstatus;
ffpkye(fptr, keyname, value, decim, comm, status);
}
return(*status);
}
