void FSMKYL_U (fitsfile **fptr, short sppkey[], int *logval, short sppcomm[], int *status) { strpak (sppkey, c_keyword, FLEN_KEYWORD); strpak (sppcomm, c_comment, FLEN_COMMENT); ffmkyl (*fptr, c_keyword, *logval, c_comment, status); }
/*--------------------------------------------------------------------------*/ int ffukyl(fitsfile *fptr, /* I - FITS file pointer */ char *keyname, /* I - keyword name */ int 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 (ffmkyl(fptr, keyname, value, comm, status) == KEY_NO_EXIST) { *status = tstatus; ffpkyl(fptr, keyname, value, comm, status); } return(*status); }