FACT++  1.0
static void t_jdcalf ( int *  status)
static

Definition at line 4489 of file t_erfa_c.c.

References eraJdcalf(), and viv().

Referenced by main().

4504 {
4505  double dj1, dj2;
4506  int iydmf[4], j;
4507 
4508 
4509  dj1 = 2400000.5;
4510  dj2 = 50123.9999;
4511 
4512  j = eraJdcalf(4, dj1, dj2, iydmf);
4513 
4514  viv(iydmf[0], 1996, "eraJdcalf", "y", status);
4515  viv(iydmf[1], 2, "eraJdcalf", "m", status);
4516  viv(iydmf[2], 10, "eraJdcalf", "d", status);
4517  viv(iydmf[3], 9999, "eraJdcalf", "f", status);
4518 
4519  viv(j, 0, "eraJdcalf", "j", status);
4520 
4521 }
eraJdcalf
int eraJdcalf(int ndp, double dj1, double dj2, int iymdf[4])
Definition: jdcalf.c:3
viv
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)
Definition: t_erfa_c.c:24

+ Here is the call graph for this function:

+ Here is the caller graph for this function: