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); }