Changeset 27046

Timestamp:

Feb 23, 2010, 5:25:24 PM (16 years ago)

Author:

Paul Price

Message:

Close PSASTRO.MODEL (now require closing all pmFPAfiles).

File:

• trunk/psastro/src/psastroUseModel.c (modified) (7 diffs)

trunk/psastro/src/psastroUseModel.c

@@ -1 +1 @@
 /** @file psastroMosiacAstrom.c
  *
- *  @brief 
+ *  @brief
  *
  *  @ingroup libpsastro
@@ -17 +17 @@
 /**
  * Apply the generic astrometry model to this image.  This assumes the WCS i
- * terms either do not exist or are invalid 
+ * terms either do not exist or are invalid
  */
 bool psastroUseModel (pmConfig *config, psMetadata *recipe) {
@@ -29 +29 @@
   if (!useModel) return true;
 
-  // identify reference astrometry table.  
+  // identify reference astrometry table.
   // if not defined, correction was not requested; skip step
   pmFPAfile *astrom = psMetadataLookupPtr (NULL, config->files, "PSASTRO.MODEL");
@@ -69 +69 @@
       pmFPAview *myView = pmFPAviewAlloc (0);
 
-      // loop over all chips, replace input astrometry elements with those from astrom 
+      // loop over all chips, replace input astrometry elements with those from astrom
       pmChip *obsChip = NULL;
       while ((obsChip = pmFPAviewNextChip (myView, input->fpa, 1)) != NULL) {
-          psTrace ("psastro", 4, "Chip %d: %x %x\n", myView->chip, obsChip->file_exists, obsChip->process);
-          if (!obsChip->process || !obsChip->file_exists || !obsChip->data_exists) { continue; }
+          psTrace ("psastro", 4, "Chip %d: %x %x\n", myView->chip, obsChip->file_exists, obsChip->process);
+          if (!obsChip->process || !obsChip->file_exists || !obsChip->data_exists) { continue; }
 
-          // set the chip astrometry using the astrom file
-          pmChip *refChip = pmFPAviewThisChip (myView, astrom->fpa);
+          // set the chip astrometry using the astrom file
+          pmChip *refChip = pmFPAviewThisChip (myView, astrom->fpa);
 
-          psFree (obsChip->toFPA);
-          psFree (obsChip->fromFPA);
+          psFree (obsChip->toFPA);
+          psFree (obsChip->fromFPA);
 
-          // supply astrometry from model 
-          obsChip->toFPA   = psMemIncrRefCounter (refChip->toFPA);
-          obsChip->fromFPA = psMemIncrRefCounter (refChip->fromFPA);
+          // supply astrometry from model
+          obsChip->toFPA   = psMemIncrRefCounter (refChip->toFPA);
+          obsChip->fromFPA = psMemIncrRefCounter (refChip->fromFPA);
 
-          // XXX if we want to write out the result, update the header here.  this needs to be
-          // updated with the correct HDU selection.  obsChip->hdu may not exist.
-          // pmAstromWriteBilevelChip (obsChip->hdu->header, obsChip, NONLIN_TOL);
+          // XXX if we want to write out the result, update the header here.  this needs to be
+          // updated with the correct HDU selection.  obsChip->hdu may not exist.
+          // pmAstromWriteBilevelChip (obsChip->hdu->header, obsChip, NONLIN_TOL);
       }
 
@@ -108 +108 @@
   if (DEBUG) psastroDumpCorners ("corners.up.ast2.dat", "corners.dn.ast2.dat", astrom->fpa);
 
-  // loop over all chips, replace input astrometry elements with those from astrom 
+  // loop over all chips, replace input astrometry elements with those from astrom
   pmChip *obsChip = NULL;
   while ((obsChip = pmFPAviewNextChip (view, input->fpa, 1)) != NULL) {
@@ -120 +120 @@
     psFree (obsChip->fromFPA);
 
-    // supply astrometry from model 
+    // supply astrometry from model
     obsChip->toFPA   = psMemIncrRefCounter (refChip->toFPA);
     obsChip->fromFPA = psMemIncrRefCounter (refChip->fromFPA);
@@ -147 +147 @@
   // psFree (updates);
 
+  // files associated with the science image
+  if (!pmFPAfileIOChecks (config, view, PM_FPA_AFTER)) {
+      psError (PS_ERR_IO, false, "Can't close the astrometry model file");
+      return false;
+  }
+
   psFree (view);
   return true;