SURF_WRITE_MAP_INFO - Calculate FITS and WCS information for rebinned image

Description:

This routine writes Axis, FITS and WCS information to a rebinned map file. Note that this routine does not write WCS information to the FITS header - that is stored in the WCS information. Keywords CRVAL, CRPIX and CTYPE are used here to generate the WCS only.

Invocation:

CALL SURF_WRITE_MAP_INFO( OUT_NDF, OUT_COORDS, OUT_TITLE, MJD_STANDARD, NFILE, FILENAME, OUT_LONG, OUT_LAT, OUT_PIXEL, I_CENTRE, J_CENTRE, NX_OUT, NY_OUT, WAVELENGTH FILTER, WRITE_CHOP, CHOP_PA, CHOP_THROW, WPLATE, ANGROT, STATUS )

Arguments:

OUT_NDF = INTEGER (Given)

NDF identifier of output file

OUT_COORDS = CHAR (Given)

Output coordinate system

OUT_TITLE = CHAR (Given)

Title of map

OUT_UNITS = CHAR (Given)

Output units

MJD_STANDARD = DOUBLE (Given)

Modified Julian date of map

NFILE = INTEGER (Given)

Number of files in input map

FILENAME = CHAR(NFILE) (Given)

Names of input files

OUT_PIXEL = REAL (Given)

Size of pixel in output map (radians)

OUT_LONG = DOUBLE (Given)

Longitude of output map (radians)

OUT_LAT = DOUBLE (Given)

Latitude of output map (radians)

I_CENTRE = INTEGER (Given)

Position of X reference pixel in output map

J_CENTRE = INTEGER (Given)

Position of Y reference pixel in output map

NX_OUT = INTEGER (Given)

Size of output map in X direction

NY_OUT = INTEGER (Given)

Size of output map in Y direction

WAVELENGTH = REAL (Given)

Wavelength of the map (microns)

FILTER = CHARACTER (Given)

Name of filter

WRITE_CHOP = LOGICAL (Given)

Write the CHOP information to the header

CHOP_CRD = CHARACTER (Given)

Chop coordinate frame

CHOP_PA = REAL (Given)

Chop position angle in degrees east of north

CHOP_THROW = REAL (Given)

Chop throw in arcsec

WPLATE = REAL (Given)

Wave plate angle (ignored if bad value).

ANGROT = REAL (Given)

POLPACK rotation angle between waveplate and X pixel axis (ignored if bad value)

TELESCOPE = CHARACTER (Given)

Name of telescope to write to FITS header

INSTRUMENT = CHARACTER (Given)

Name of instrument to write to FITS header

STATUS = INTEGER (Given and Returned)

The global status

Copyright

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.