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

static

Definition at line 58 of file t_erfa_c.c.

References verbose.

Referenced by t_ab(), t_af2a(), t_anp(), t_anpm(), t_apcg(), t_apcg13(), t_apci(), t_apci13(), t_apco(), t_apco13(), t_apcs(), t_apcs13(), t_aper(), t_aper13(), t_apio(), t_apio13(), t_atci13(), t_atciq(), t_atciqn(), t_atciqz(), t_atco13(), t_atic13(), t_aticq(), t_aticqn(), t_atio13(), t_atioq(), t_atoc13(), t_atoi13(), t_atoiq(), t_bi00(), t_bp00(), t_bp06(), t_bpn2xy(), t_c2i00a(), t_c2i00b(), t_c2i06a(), t_c2ibpn(), t_c2ixy(), t_c2ixys(), t_c2s(), t_c2t00a(), t_c2t00b(), t_c2t06a(), t_c2tcio(), t_c2teqx(), t_c2tpe(), t_c2txy(), t_cal2jd(), t_cp(), t_cpv(), t_cr(), t_dat(), t_dtdb(), t_dtf2d(), t_ee00(), t_ee00a(), t_ee00b(), t_ee06a(), t_eect00(), t_eform(), t_eo06a(), t_eors(), t_epb(), t_epb2jd(), t_epj(), t_epj2jd(), t_epv00(), t_eqeq94(), t_era00(), t_fad03(), t_fae03(), t_faf03(), t_faju03(), t_fal03(), t_falp03(), t_fama03(), t_fame03(), t_fane03(), t_faom03(), t_fapa03(), t_fasa03(), t_faur03(), t_fave03(), t_fk52h(), t_fk5hip(), t_fk5hz(), t_fw2m(), t_fw2xy(), t_g2icrs(), t_gc2gd(), t_gc2gde(), t_gd2gc(), t_gd2gce(), t_gmst00(), t_gmst06(), t_gmst82(), t_gst00a(), t_gst00b(), t_gst06(), t_gst06a(), t_gst94(), t_h2fk5(), t_hfk5z(), t_icrs2g(), t_ir(), t_jd2cal(), t_ld(), t_ldn(), t_ldsun(), t_num00a(), t_num00b(), t_num06a(), t_numat(), t_nut00a(), t_nut00b(), t_nut06a(), t_nut80(), t_nutm80(), t_obl06(), t_obl80(), t_p06e(), t_p2pv(), t_p2s(), t_pap(), t_pas(), t_pb06(), t_pdp(), t_pfw06(), t_plan94(), t_pm(), t_pmat00(), t_pmat06(), t_pmat76(), t_pmp(), t_pmpx(), t_pmsafe(), t_pn(), t_pn00(), t_pn00a(), t_pn00b(), t_pn06(), t_pn06a(), t_pnm00a(), t_pnm00b(), t_pnm06a(), t_pnm80(), t_pom00(), t_ppp(), t_ppsp(), t_pr00(), t_prec76(), t_pv2p(), t_pv2s(), t_pvdpv(), t_pvm(), t_pvmpv(), t_pvppv(), t_pvstar(), t_pvtob(), t_pvu(), t_pvup(), t_pvxpv(), t_pxp(), t_refco(), t_rm2v(), t_rv2m(), t_rx(), t_rxp(), t_rxpv(), t_rxr(), t_ry(), t_rz(), t_s00(), t_s00a(), t_s00b(), t_s06(), t_s06a(), t_s2c(), t_s2p(), t_s2pv(), t_s2xpv(), t_sepp(), t_seps(), t_sp00(), t_starpm(), t_starpv(), t_sxp(), t_sxpv(), t_taitt(), t_taiut1(), t_taiutc(), t_tcbtdb(), t_tcgtt(), t_tdbtcb(), t_tdbtt(), t_tf2a(), t_tf2d(), t_tr(), t_trxp(), t_trxpv(), t_tttai(), t_tttcg(), t_tttdb(), t_ttut1(), t_ut1tai(), t_ut1tt(), t_ut1utc(), t_utctai(), t_utcut1(), t_xy06(), t_xys00a(), t_xys00b(), t_xys06a(), t_zp(), t_zpv(), and t_zr().

{
   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);
   }

}