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

Timestamp:

Aug 8, 2002, 7:48:02 PM (23 years ago)

Author:

cmv

Message:

long long gestion cfistio>2.4 (compat <2.4) cmv 8/8/2002

File:

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

trunk/SophyaExt/FitsIOServer/fabtcolread.cc

@@ -466 +466 @@
 }
 
+/*! idem before but for TVector of int_8 */
+long FitsABTColRead::Read(long n1,long n2,TVector<int_8>& data)
+{
+#ifdef TLONGLONG
+ if(n1<0 || n1>=NBline)
+   throw RangeCheckError("FitsABTColRead::Read TVector bad requested 1srt line \n");
+ if(data.Size()<=0 && n2<n1)
+   throw RangeCheckError("FitsABTColRead::Read TVector bad requested 2sd line \n");
+ if(n2<0) n2 = n1 + data.Size()-1;
+ if(n2>=NBline) n2 = NBline-1;
+
+ sa_size_t nread = n2-n1+1;
+ if(data.Size()<nread) data.SetSize(nread);
+
+ int sta=0;
+ fits_read_col(FitsPtr,TLONGLONG,ColNum+1,n1+1,1,nread,NULL,data.Data(),NULL,&sta);
+ if(sta) {
+   printerror(sta);
+   throw NotAvailableOperation("FitsABTColRead::Read_TVector<float>: Error Reading Fits file\n");
+ }
+
+ return nread;
+#else
+  throw PException("FitsABTColRead::Read(..,TVector<int_8>&) Not in that cfitsio version");
+#endif
+}
+
 /////////////////////////////////////////////////
 /*!