SUBROUTINE SCOSPOS_ADTOXY ( ALPHA, DELTA, DTSYS__TRAN, : PTSYS__TRAN, DEQIN__TRAN, PEPCH__TRAN, PRMS__MO, : DISTR__TC, RACEN__TC, DECEN__TC, PLTCF__TC, X, Y, STATUS ) ALPHA = DOUBLE PRECISION (Given) Right Ascension in the mean, desired system specified in the housekeeping file (radians). DELTA = DOUBLE PRECISION (Given) Declination in the mean, desired system specified in the housekeeping file (radians). DTSYS__TRAN = CHARACTER*12 (Given) Desired time system, 'B' or 'J'. PTSYS__TRAN = CHARACTER*12 (Given) Plate time system, 'B' or 'J' DEQIN__TRAN = DOUBLE PRECISION (Given) Desired equinox. PEPCH__TRAN = DOUBLE PRECISION (Given) Plate epoch. PRMS__MO(35) = DOUBLE PRECISION (Given) Array for converting mean to observed coordinates. DISTR__TC = DOUBLE PRECISION (Given) Distortion coefficient. RACEN__TC = DOUBLE PRECISION (Given) Right Ascension of the plate centre (radians). DECEN__TC = DOUBLE PRECISION (Given) Declination of the plate centre (radians). PLTCF__TC(6) = DOUBLE PRECISION (Given) Transform coefficients: RA,dec to x,y. X = DOUBLE PRECISION (Returned) Plate X position in the coordinate system used by SuperCOSMOS (0.01 micron). Y = DOUBLE PRECISION (Returned) Plate Y position in the coordinate system used by SuperCOSMOS (0.01 micron). STATUS = INTEGER (Given and Returned) The global status.

Tue Aug 20 12:05:06 BST 1996