static void t_ldsun ( int *  status )

static

Definition at line 4630 of file t_erfa_c.c.

References eraLdsun(), and vvd().

Referenced by main().

{
   double p[3], e[3], em, p1[3];


   p[0] = -0.763276255;
   p[1] = -0.608633767;
   p[2] = -0.216735543;
   e[0] = -0.973644023;
   e[1] = -0.20925523;
   e[2] = -0.0907169552;
   em = 0.999809214;

   eraLdsun(p, e, em, p1);

   vvd(p1[0], -0.7632762580731413169, 1e-12,
               "eraLdsun", "1", status);
   vvd(p1[1], -0.6086337635262647900, 1e-12,
               "eraLdsun", "2", status);
   vvd(p1[2], -0.2167355419322321302, 1e-12,
               "eraLdsun", "3", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: