IRA_DTOC

Converts a pair of double-precision sky co-ordinate values to character form

Description:

This routine creates a pair of text strings containing formatted versions of the given sky co-ordinate values. The exact format depends on the type of sky co-ordinate system in use and the value of STYLE (see the " Notes" section below). The input co-ordinate values are shifted into their first order ranges before being used (see IRA_NORM).

Invocation

CALL IRA_DTOC( A, B, SCS, STYLE, ATEXT, BTEXT, STATUS )

Arguments

A = DOUBLE PRECISION (Given)
The value of the sky longitude to be formatted, in radians. If A has the Starlink " BAD" value (VAL__BADD) then the output string ATEXT is set blank.
B = DOUBLE PRECISION (Given)
The value of the sky latitude to be formatted, in radians. If B has the " BAD" value then the output string BTEXT is set blank.
SCS = CHARACTER ∗ ( ∗ ) (Given)
The sky co-ordinate system in use (see ID2 section " Sky Coordinates" ). Any unambiguous abbreviation will do.
STYLE = INTEGER (Given)
A value in the range 1 to 5 which specifies the style of output formatting required. Additionally, a value of zero can specified which causes a default style to be used dependant on the value of SCS. See the " Notes" section below for a description of the individual styles and defaults for each SCS.
ATEXT = CHARACTER ∗ ( ∗ ) (Returned)
The string containing the formatted description of the sky longitude value A. The variable supplied for ATEXT should have a declared length equal to the value of parameter IRA__SZFSC.
BTEXT = CHARACTER ∗ ( ∗ ) (Returned)
The string containing the formatted description of the sky latitude value B. The variable supplied for BTEXT should have a declared length equal to the value of parameter IRA__SZFSC.
STATUS = INTEGER (Given and Returned)
The global status.

Notes:

STYLE = 1: (a full description)

" RA = 12hrs 3m 0.02s" and " DEC = -33deg 23m 0.00s"

STYLE = 2: (a more brief form readable by IRA_CTOD)

" 12h 3m 0.02s" and " -33d 23m 0.00s"

STYLE = 3: ( a very brief form readable by IRA_CTOD)

" 120300.00" and " -332300.00" (e.g. hhmmss.ss and ddmmss.ss)

STYLE = 4: (a brief form readable by IRA_CTOD)

" 12 03 0.02" and " -33 23 0.00"

STYLE = 5: (a brief form readable by IRA_CTOD)

" 12.050006" and " -33.383333" (e.g. fractional values in hours (RA) and degrees (DEC))

STYLE = 1:

" l = 12deg 3m 0.02s" and " b = -33deg 23m 0.00s"

STYLE = 2:

" 12deg 3m 0.02s" and " -33d 23m 0.00s"

STYLE = 3:

" 0120300.00" and " -332300.00" (e.g. dddmmss.ss and ddmmss.ss )

STYLE = 4: (a brief form readable by IRA_CTOD)

" 12 03 0.02" and " -33 23 0.00"

STYLE = 5: (a brief form readable by IRA_CTOD)

" 12.050006" and " -33.383333" (e.g. fractional values in degrees )

STYLE = 1:

" Lambda = 12deg 3m 0.02s" and " Beta = -33deg 23m 0.00s"

STYLE = 2:

" 12deg 3m 0.02s" and " -33d 23m 0.00s"

STYLE = 3:

" 0120300.00" and " -332300.00" (e.g. dddmmss.ss and ddmmss.ss)

STYLE = 4: (a brief form readable by IRA_CTOD)

" 12 03 0.02" and " -33 23 0.00"

STYLE = 5: (a brief form readable by IRA_CTOD)

" 12.050006" and " -33.383333" (e.g. fractional values in degrees)