# include <hstio.h>	/* defines HST I/O functions */
# include "calnic.h"	/* defines NICMOS data structure */
# include "calnica.h"	/* defines CALNICA data structure */

/* N_PHOTCALC: Store the photometry parameter values in the global header
** keywords PHOTMODE, PHOTFLAM, PHOTFNU, PHOTZPT, PHOTPLAM, and PHOTBW.
** 
** The input data are NOT modified (only the global header is modified).
**
** Revision history:
** H.Bushouse	Sept. 1995	Build 1
** H.Bushouse	April 1996	Upgraded for Build 2 (Version 2.0)
** H.Bushouse	09-Feb-1999	Updated use of putKey routines for HSTIO v2.1
**				(Version 3.2.2)
*/

int n_photcalc (NicInfo *nic, PhotData *phot, SingleNicmosGroup *input) {

/* Arguments:
**	nic	 i: NICMOS info structure
**	phot	 i: Photometry parameters
**	input	io: input image
*/

	/* Write the photometry values to header keywords */
	if (putKeyS (input->globalhdr, "PHOTMODE", phot->mode, ""))
	    return (status = 1);
	if (putKeyF (input->globalhdr, "PHOTFLAM", phot->flam, ""))
	    return (status = 1);
	if (putKeyF (input->globalhdr, "PHOTFNU",  phot->fnu,  ""))
	    return (status = 1);
	if (putKeyF (input->globalhdr, "PHOTZPT",  phot->zpt,  ""))
	    return (status = 1);
	if (putKeyF (input->globalhdr, "PHOTPLAM", phot->plam, ""))
	    return (status = 1);
	if (putKeyF (input->globalhdr, "PHOTBW",   phot->bw,   ""))
	    return (status = 1);

	/* Successful return */
	return (status = 0);
}