debug2.cpp

     if (help == 'y')
       //    if (dbgfile != NULL)
       {
       printf( "%84s\n",
              "// ------------------ after dscom :-----------------");
       printf( "//    inputs :\n");
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "epoch ", epoch, "ep ", ep, "argpp ", argpp, "tc ", tc,
          "inclp ", inclp, "nodep ", nodep);
       printf( "// assert( %7s === %15.9f ); \n ", "np ", np);
       printf( "//    outputs :\n");
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "snodm ", snodm, "cnodm ", cnodm, "sinim ", sinim, "cosim ", cosim,
          "sinomm ", sinomm, "cosomm ", cosomm);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "day ", day, "e3 ", e3, "ee2 ", ee2, "em ", em,
          "emsq ", emsq, "gam ", gam);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "peo ", peo, "pgho ", pgho, "pho ", pho, "pinco ", pinco,
          "plo ", plo);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "rtemsq ", rtemsq, "se2 ", se2, "se3 ", se3, "sgh2 ", sgh2,
          "sgh3 ", sgh3, "sgh4 ", sgh4);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "sh2 ", sh2, "sh3 ", sh3, "si2 ", si2, "si3 ", si3,
          "sl2 ", sl2, "sl3 ", sl3);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "sl4 ", sl4, "s1 ", s1, "s2 ", s2, "s3 ", s3,
          "s4 ", s4, "s5 ", s5);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "s6 ", s6, "s7 ", s7, "ss1 ", ss1, "ss2 ", ss2,
          "ss3 ", ss3, "ss4 ", ss4);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "ss5 ", ss5, "ss6 ", ss6, "ss7 ", ss7, "sz1 ", sz1,
          "sz2 ", sz2, "sz3 ", sz3);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "sz11 ", sz11, "sz12 ", sz12, "sz13 ", sz13, "sz21 ", sz21,
          "sz22 ", sz22, "sz23 ", sz23);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "sz31 ", sz31, "sz32 ", sz32, "sz33 ", sz33, "xgh2 ", xgh2,
          "xgh3 ", xgh3, "xgh4 ", xgh4);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "xh2 ", xh2, "xh3 ", xh3, "xi2 ", xi2, "xi3 ", xi3,
          "xl2 ", xl2, "xl3 ", xl3);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "xl4 ", xl4, "nm ", nm, "z1 ", z1, "z2 ", z2,
          "z3 ", z3, "z11 ", z11);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "z12 ", z12, "z13 ", z13, "z21 ", z21, "z22 ", z22,
          "z23 ", z23, "z31 ", z31);
       printf(
          "// assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); assert( %7s === %15.9f ); \n",
          "z32 ", z32, "z33 ", z33, "zmol ", zmol, "zmos ", zmos);
      }