IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Apr 19, 2013, 4:38:18 PM (13 years ago)
Author:
eugene
Message:

minor changes in test blocks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/psastro/src/psastroChooseRefstars.c

    r35050 r35419  
    107107
    108108                    if (ref->Mag < clampMagMin) {
    109                         psWarning("Skipping refstar with abusrd magnintude %f ra: %f dec: %f\n",
     109                        psWarning("Skipping refstar with abusrd magnitude %f ra: %f dec: %f\n",
    110110                            ref->Mag, RAD_TO_DEG(ref->sky->r), RAD_TO_DEG(ref->sky->d));
    111111                        goto skip;
     
    131131
    132132# if (0)
    133                 // XXX test
    134                 FILE *outfile = fopen ("refstars.dat", "w");
    135                 assert (outfile);
    136                 for (int nn = 0; nn < refstars->n; nn++) {
    137                           pmAstromObj *ref = refstars->data[nn];
    138                           fprintf (outfile, "%lf %lf\n", ref->sky->r*PS_DEG_RAD, ref->sky->d*PS_DEG_RAD);
     133                if (1) {
     134                  // test output block, not used in normal ops
     135                  char filename[64];
     136                  snprintf (filename, 64, "refstars.%02d.dat", Nchip);
     137                  FILE *outfile = fopen (filename, "w");
     138                  assert (outfile);
     139                  for (int nn = 0; nn < refstars->n; nn++) {
     140                    pmAstromObj *ref = refstars->data[nn];
     141                    fprintf (outfile, "%lf %lf\n", ref->sky->r*PS_DEG_RAD, ref->sky->d*PS_DEG_RAD);
     142                  }
     143                  fclose (outfile);
    139144                }
    140                 fclose (outfile);
     145                if (1) {
     146                  // test output block, not used in normal ops
     147                  char filename[64];
     148                  snprintf (filename, 64, "refstars.%02d.dat", Nchip);
     149                  FILE *outfile = fopen (filename, "w");
     150                  assert (outfile);
     151                  for (int nn = 0; nn < refstars->n; nn++) {
     152                    pmAstromObj *ref = refstars->data[nn];
     153                    fprintf (outfile, "%lf %lf  %lf %lf  %lf %lf\n", ref->sky->r*PS_DEG_RAD, ref->sky->d*PS_DEG_RAD, );
     154                  }
     155                  fclose (outfile);
     156                }
    141157# endif
    142158
Note: See TracChangeset for help on using the changeset viewer.