Changeset 1814 in Sophya for trunk/SophyaExt/FitsIOServer/fabtcolread.cc

Timestamp:

Dec 14, 2001, 12:00:21 PM (24 years ago)

Author:

cmv

Message:

lecture/ecriture clefs fits cmv 14/12/01

File:

• trunk/SophyaExt/FitsIOServer/fabtcolread.cc (modified) (1 diff)

trunk/SophyaExt/FitsIOServer/fabtcolread.cc

@@ -244 +244 @@
 }
 
+//////////////////////////////////////////////////////////////
+double FitsABTColRead::ReadKey(char *keyname)
+{
+ if(keyname==NULL) return 0.;
+ int sta=0; double val;
+ if(fits_read_key(FitsPtr,TDOUBLE,keyname,&val,NULL,&sta))
+   printerror(sta);
+ return val;
+}
 
 //////////////////////////////////////////////////////////////