Changeset 1235 in Sophya for trunk/SophyaExt

Timestamp:

Oct 13, 2000, 3:29:41 PM (25 years ago)

Author:

ansari

Message:

nettoyage stack d'erreurs cfitsio

File:

• trunk/SophyaExt/FitsIOServer/fitsfile.cc (modified) (5 diffs)

trunk/SophyaExt/FitsIOServer/fitsfile.cc

@@ -177 +177 @@
   // print out cfitsio error messages and exit program 
   // print error report  
-  fits_report_error(stderr, status);
+     fits_report_error(stderr, status);
   cout << " erreur:: " << texte << endl;
   throw IOExc("FitsFile:: error FITSIO status");
@@ -186 +186 @@
   fits_status_ = status;
   status = 0;
+  fits_clear_errmsg();
 }
 
@@ -1128 +1129 @@
 
   // create new FITS file
-
   fits_create_file(&fptr_,flnm,&status);
   if( status )
@@ -1138 +1138 @@
         case append :
           status = 0;
+          fits_clear_errmsg();
           fits_open_file(&fptr_,flnm,READWRITE,&status);
           if( status )
@@ -1154 +1155 @@
           {
             status = 0;
+            fits_clear_errmsg();
             char* newname = new char[strlen(flnm)+1];
             //