Changeset 356 in Sophya for trunk

Timestamp:

Aug 5, 1999, 3:52:27 PM (26 years ago)

Author:

ansari

Message:

added support for FITS output

Location:

trunk/Poubelle/archTOI.old

Files:

• archtoi.cc (modified) (1 diff)
• archtoi.h (modified) (1 diff)

trunk/Poubelle/archTOI.old/archtoi.cc

@@ -342 +342 @@
            (blk->param.bolo[i].bolo_code_util != bolo_hors_service &&
             blk->param.bolo[i].bolo_code_util != bolo_normal_non_transmis)) {
-        j++;
+        //j++;
         char line[80];
         strcpy(line, blk->param.nom_coef[blk->param.bolo[i].numero_nom_coef].bolo_nom);
         char* pline = line;
-        fits_write_keys_str(fptr, "BOLO", j, 1, &pline, (char**) NULL, &fitsStatus);
+        fits_write_keys_str(fptr, "BOLO", i, 1, &pline, (char**) NULL, &fitsStatus);
       }
 #else
-        j++;
+        //j++;
         char line[80];
         strcpy(line, blk->param.bolo[i].bolo_nom);
         char* pline = line;
-        fits_write_keys_str(fptr, "BOLO", j, 1, &pline, (char**) NULL, &fitsStatus);
+        fits_write_keys_str(fptr, "BOLO", i, 1, &pline, (char**) NULL, &fitsStatus);
 #endif
     }
-    fits_write_key(fptr, TINT, "BOLO", &j, NULL, &fitsStatus);
+    //fits_write_key(fptr, TINT, "BOLO", &j, NULL, &fitsStatus);
   }
   fits_write_comment(fptr, "Generated with archtoi " ARCHTOI_VERS, &fitsStatus);

trunk/Poubelle/archTOI.old/archtoi.h

@@ -63 +63 @@
 };
 
+#define ARCHTOI_VERS "1.0"
+
 #endif