static void t_ref ( int *  status )

static

Definition at line 1889 of file palTest.c.

References palAtmdsp(), palDcs2c(), palRefco(), palRefcoq(), palRefro(), palRefv(), palRefz(), and vvd().

Referenced by main().

                                 {
  double ref, refa, refb, refa2, refb2, vu[3], vr[3], zr;

  palRefro( 1.4, 3456.7, 280, 678.9, 0.9, 0.55,
            -0.3, 0.006, 1e-9, &ref );
  vvd( ref, 0.00106715763018568, 1e-12, "palRefro",
       "o", status );

  palRefro( 1.4, 3456.7, 280, 678.9, 0.9, 1000,
            -0.3, 0.006, 1e-9, &ref );
  vvd( ref, 0.001296416185295403, 1e-12, "palRefro",
       "r", status );

  palRefcoq( 275.9, 709.3, 0.9, 101, &refa, &refb );
  vvd( refa, 2.324736903790639e-4, 1e-12, "palRefcoq",
       "a/r", status );
  vvd( refb, -2.442884551059e-7, 1e-15, "palRefcoq",
       "b/r", status );

  palRefco( 2111.1, 275.9, 709.3, 0.9, 101,
            -1.03, 0.0067, 1e-12, &refa, &refb );
  vvd( refa, 2.324673985217244e-4, 1e-12, "palRefco",
       "a/r", status );
  vvd( refb, -2.265040682496e-7, 1e-15, "palRefco",
       "b/r", status );

  palRefcoq( 275.9, 709.3, 0.9, 0.77, &refa, &refb );
  vvd( refa, 2.007406521596588e-4, 1e-12, "palRefcoq",
       "a", status );
  vvd( refb, -2.264210092590e-7, 1e-15, "palRefcoq",
       "b", status );

  palRefco( 2111.1, 275.9, 709.3, 0.9, 0.77,
            -1.03, 0.0067, 1e-12, &refa, &refb );
  vvd( refa, 2.007202720084551e-4, 1e-12, "palRefco",
       "a", status );
  vvd( refb, -2.223037748876e-7, 1e-15, "palRefco",
       "b", status );

  palAtmdsp ( 275.9, 709.3, 0.9, 0.77,
              refa, refb, 0.5, &refa2, &refb2 );
  vvd ( refa2, 2.034523658888048e-4, 1e-12, "palAtmdsp",
        "a", status );
  vvd ( refb2, -2.250855362179e-7, 1e-15, "palAtmdsp",
        "b", status );

  palDcs2c ( 0.345, 0.456, vu );
  palRefv ( vu, refa, refb, vr );
  vvd ( vr[0], 0.8447487047790478, 1e-12, "palRefv",
        "x1", status );
  vvd ( vr[1], 0.3035794890562339, 1e-12, "palRefv",
        "y1", status );
  vvd ( vr[2], 0.4407256738589851, 1e-12, "palRefv",
        "z1", status );

  palDcs2c ( 3.7, 0.03, vu );
  palRefv ( vu, refa, refb, vr );
  vvd ( vr[0], -0.8476187691681673, 1e-12, "palRefv",
        "x2", status );
  vvd ( vr[1], -0.5295354802804889, 1e-12, "palRefv",
        "y2", status );
  vvd ( vr[2], 0.0322914582168426, 1e-12, "palRefv",
        "z2", status );

  palRefz ( 0.567, refa, refb, &zr );
    vvd ( zr, 0.566872285910534, 1e-12, "palRefz",
          "hi el", status );

  palRefz ( 1.55, refa, refb, &zr );
  vvd ( zr, 1.545697350690958, 1e-12, "palRefz",
        "lo el", status );



}

Here is the call graph for this function:

Here is the caller graph for this function: