1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/******************************************************************************
* Johns Hopkins University
* Center For Astrophysical Sciences
* FUSE
******************************************************************************
*
* Synopsis: cf_fes_proc_update(fitsfile *fptr, char *prgm_id,
* char *key_value)
*
* Description: cf_fes_proc_update will update the FITS header keyword
* which corresponds to the given prgm_id in the file
* fptr to the value given in key_value.
*
* Arguments: fitsfile *fptr Pointer to input file
* char *prgm_id Procedure name
* char *key_value Updated procedure status
*
* History: 07/21/98 emm Begin work.
* 08/19/2004 1.1 wvd Move to v3.0, add CF_VER_NUM,
* change cf_errmsg to cf_if_error.
* Delete fits_print_err.
* 09/07/2007 1.2 bot Removed unused CF_VER_NUM and CF_PRGM_ID
*
*****************************************************************************/
#include <stdio.h>
#include <string.h>
#include "calfuse.h"
int cf_fes_proc_update(fitsfile *fptr, char *prgm_id, char *key_value)
{
int i=0, status=0;
/*
* The calfuse.h file contains the definitions of fes_keyword_tab
* NUM_FES_PROC_STEPS, and FES_CALIBRATION_STEP_KEYS.
*/
struct fes_keyword_tab keytab[NUM_FES_PROC_STEPS]=FES_CALIBRATION_STEP_KEYS;
/*
* Find the keyword associated with prgm_id by looping
* through keytab[i].proc
*/
while ((strncmp(keytab[i].proc,prgm_id, strlen(keytab[i].proc)) != 0) &&
(i < NUM_FES_PROC_STEPS)) i++;
if (i < NUM_FES_PROC_STEPS) {
/*
* We found a match to prgm_id, so change the associated
* keyword in the header.
*/
fits_modify_key_str(fptr,keytab[i].name,key_value,
"&",&status);
if (status) {
cf_if_error("Error updating keyword");
return status;
}
}
else {
/*
* The given prgm_id did not match any of the known
* keytab[i].hist_proc, so return 1.
*/
cf_if_error("Program ID does not apply to this"
"type of file, could not update");
fprintf(stderr,"Failed to update program id:%20.20s\n",
prgm_id);
return 1;
}
return status;
}
|
