Changeset 1662 in Sophya for trunk/SophyaExt

Timestamp:

Oct 1, 2001, 3:14:02 PM (24 years ago)

Author:

cmv

Message:

je vire TINT32BIT en attendant cfitsio2204 sur toutes machines cmv 1/9/01

File:

• trunk/SophyaExt/FitsIOServer/fabtwriter.cc (modified) (3 diffs)

trunk/SophyaExt/FitsIOServer/fabtwriter.cc

@@ -17 +17 @@
   fbtw.AddCol("vars",NULL,"km",TSHORT);       // col=0
   fbtw.AddCol("vars2",NULL,"km",TSHORT);      // col=1
-  fbtw.AddCol("varl",NULL,"Degre",TINT32BIT); // col=2
+  fbtw.AddCol("varl",NULL,"Degre",TLONG);     // col=2
   fbtw.AddCol("varf",NULL,"",TFLOAT);         // col=3
   fbtw.AddCol("vard","","arcmin",TDOUBLE);    // col=4
@@ -123 +123 @@
           if BINARY_TBL and tform="" or tform=NULL)
   \param tunit : fits tunit definition (optional)
-  \param datatype : TBYTE TSHORT TINT32BIT TLONG TFLOAT TDOUBLE
+  \param datatype : TBYTE TSHORT TLONG (TINT32BIT) TFLOAT TDOUBLE
                     TUSHORT TULONG. That parameter is only use in case
                     of a BINARY_TBL table when tform is not defined).
@@ -145 +145 @@
    if(datatype==TBYTE)          strcpy(str,"1B");
    else if(datatype==TSHORT)    strcpy(str,"1I");
-   else if(datatype==TINT32BIT) strcpy(str,"1J");
+   //CMV$CHECK Commentaire temporaire (il faut au moins cfitsio 2204)
+   //else if(datatype==TINT32BIT) strcpy(str,"1J");
    else if(datatype==TLONG)     strcpy(str,"1J");
    else if(datatype==TFLOAT)    strcpy(str,"1E");