static void t_pmsafe ( int *  status )

static

Definition at line 5649 of file t_erfa_c.c.

References eraPmsafe(), viv(), and vvd().

Referenced by main().

{
   int j;
   double ra1, dec1, pmr1, pmd1, px1, rv1, ep1a, ep1b, ep2a, ep2b,
          ra2, dec2, pmr2, pmd2, px2, rv2;


   ra1 = 1.234;
   dec1 = 0.789;
   pmr1 = 1e-5;
   pmd1 = -2e-5;
   px1 = 1e-2;
   rv1 = 10.0;
   ep1a = 2400000.5;
   ep1b = 48348.5625;
   ep2a = 2400000.5;
   ep2b = 51544.5;

   j = eraPmsafe(ra1, dec1, pmr1, pmd1, px1, rv1,
                 ep1a, ep1b, ep2a, ep2b,
                 &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2);

   vvd(ra2, 1.234087484501017061, 1e-12,
            "eraPmsafe", "ra2", status);
   vvd(dec2, 0.7888249982450468574, 1e-12,
            "eraPmsafe", "dec2", status);
   vvd(pmr2, 0.9996457663586073988e-5, 1e-12,
             "eraPmsafe", "pmr2", status);
   vvd(pmd2, -0.2000040085106737816e-4, 1e-16,
             "eraPmsafe", "pmd2", status);
   vvd(px2, 0.9999997295356765185e-2, 1e-12,
            "eraPmsafe", "px2", status);
   vvd(rv2, 10.38468380113917014, 1e-10,
            "eraPmsafe", "rv2", status);
   viv ( j, 0, "eraPmsafe", "j", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: