FACT++  1.0
int eraAtoi13 ( const char *  type,
double  ob1,
double  ob2,
double  utc1,
double  utc2,
double  dut1,
double  elong,
double  phi,
double  hm,
double  xp,
double  yp,
double  phpa,
double  tc,
double  rh,
double  wl,
double *  ri,
double *  di 
)

Definition at line 3 of file atoi13.c.

References eraApio13(), and eraAtoiq().

Referenced by t_atoi13().

146 {
147  int j;
148  eraASTROM astrom;
149 
150 /* Star-independent astrometry parameters for CIRS->observed. */
151  j = eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
152  phpa, tc, rh, wl, &astrom);
153 
154 /* Abort if bad UTC. */
155  if ( j < 0 ) return j;
156 
157 /* Transform observed to CIRS. */
158  eraAtoiq(type, ob1, ob2, &astrom, ri, di);
159 
160 /* Return OK/warning status. */
161  return j;
162 
163 /* Finished. */
164 
165 }
void eraAtoiq(const char *type, double ob1, double ob2, eraASTROM *astrom, double *ri, double *di)
Definition: atoiq.c:3
int eraApio13(double utc1, double utc2, double dut1, double elong, double phi, double hm, double xp, double yp, double phpa, double tc, double rh, double wl, eraASTROM *astrom)
Definition: apio13.c:3
int type

+ Here is the call graph for this function:

+ Here is the caller graph for this function: