Changeset 712 in Sophya for trunk/SophyaExt

Timestamp:

Jan 21, 2000, 6:02:41 PM (26 years ago)

Author:

ansari

Message:

Correction long -> int_4 - Reza 21/01/2000

File:

• trunk/SophyaExt/FitsIOServer/fitsioserver.cc (modified) (4 diffs)

trunk/SophyaExt/FitsIOServer/fitsioserver.cc

@@ -55 +55 @@
       if(tfields != 1)
         throw IOExc("FitsIOServer::dataobj  ERROR more than one column !");
-
       // get the datatype of the values
       int DTYPE;
@@ -169 +168 @@
       else if(bitpix ==  LONG_IMG)
         {
-         // TMatrix<int> *mat=new TMatrix<int>(nrows,ncols);
-          TMatrix<long> *mat=new TMatrix<long>(nrows,ncols);
+          TMatrix<int_4> *mat=new TMatrix<int_4>(nrows,ncols);
           load(*mat,flnm);
           if(naxis == 1)
             {
-              TVector<long> *vect=new TVector<long>(*mat);
-         //     TVector<int> *vect=new TVector<int>(*mat);              // Rationalisation mac D.Y.
+              TVector<int_4> *vect=new TVector<int_4>(*mat);
               delete mat;
               return vect;
@@ -437 +434 @@
               int ival;
               fits_read_key(fptr,TINT,keyname,&ival,NULL,&status);
-              nt0.Info()[keyname]= (long) ival;         // Portage mac DY
+              nt0.Info()[keyname]= (int_4) ival;                // Portage mac DY
               break;
             case 'L':
@@ -443 +440 @@
               if(strncmp(strval,"T",1) == 0) ilog= 1;
               else ilog= 0;
-              nt0.Info()[keyname]= (long) ilog;
+              nt0.Info()[keyname]= (int_4) ilog;
               break;
             case 'F':