static void vvd ( double  val, double  valok, double  dval, const char *  func, const char *  test, int *  status  )

static

Definition at line 99 of file palTest.c.

References verbose.

Referenced by t_addet(), t_afin(), t_airmas(), t_altaz(), t_amp(), t_ampqk(), t_aop(), t_bear(), t_caf2r(), t_caldj(), t_cc2s(), t_cldj(), t_ctf2d(), t_ctf2r(), t_dat(), t_djcal(), t_dmat(), t_e2h(), t_ecleq(), t_epb(), t_epb2d(), t_epco(), t_epj(), t_epj2d(), t_eqecl(), t_eqeqx(), t_eqgal(), t_etrms(), t_fk45z(), t_fk524(), t_fk52h(), t_fk54z(), t_flotin(), t_galeq(), t_galsup(), t_ge50(), t_geoc(), t_gmst(), t_map(), t_mapqkz(), t_nut(), t_obs(), t_pa(), t_pcd(), t_planet(), t_pm(), t_polmo(), t_preces(), t_range(), t_ranorm(), t_ref(), t_refco(), t_rv(), t_rvgalc(), t_rvlg(), t_rvlsrd(), t_rvlsrk(), t_sep(), t_supgal(), t_tp(), t_vecmat(), vrmat(), and vvec().

{
   double a, f;   /* absolute and fractional error */


   a = val - valok;
   if (fabs(a) > dval) {
      f = fabs(valok / a);
      *status = 1;
      printf("%s failed: %s want %.20g got %.20g (1/%.3g)\n",
             func, test, valok, val, f);
   } else if (verbose) {
      printf("%s passed: %s want %.20g got %.20g\n",
             func, test, valok, val);
   }
   return;
}