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

Timestamp:

Oct 29, 2003, 6:51:36 PM (22 years ago)

Author:

cmv

Message:

lecture d'une clef fits string cmv 29/10/2003

File:

• trunk/SophyaExt/FitsIOServer/fabtcolread.cc (modified) (2 diffs)

trunk/SophyaExt/FitsIOServer/fabtcolread.cc

@@ -407 +407 @@
 
 //////////////////////////////////////////////////////////////
+/*!
+  Read a fitsheader key into double
+  \param keyname : name of the key
+  \return value into double
+*/
 double FitsABTColRd::ReadKey(char *keyname)
 {
@@ -414 +419 @@
    printerror(sta);
  return val;
+}
+
+/*!
+  Read a fitsheader key into long
+  \param keyname : name of the key
+  \return value into long
+*/
+long FitsABTColRd::ReadKeyL(char *keyname)
+{
+ if(keyname==NULL) return 0;
+ int sta=0; long val=0;
+ if(fits_read_key(FitsPtr,TLONG,keyname,&val,NULL,&sta))
+   printerror(sta);
+ return val;
+}
+
+/*!
+  Read a fitsheader key into string
+  \param keyname : name of the key
+  \return value into string
+*/
+string FitsABTColRd::ReadKeyS(char *keyname)
+{
+ if(keyname==NULL) return 0;
+ int sta=0; char val[FLEN_VALUE];
+ if(fits_read_key(FitsPtr,TSTRING,keyname,val,NULL,&sta))
+   printerror(sta);
+ string sval = val;
+ return sval;
 }