Index: /trunk/Mars/mfileio/MWriteFitsFile.cc
===================================================================
--- /trunk/Mars/mfileio/MWriteFitsFile.cc	(revision 17660)
+++ /trunk/Mars/mfileio/MWriteFitsFile.cc	(revision 17661)
@@ -4,4 +4,5 @@
 #include "MArrayS.h"
 #include "MArrayB.h"
+#include "MArrayF.h"
 
 #include "MRead.h"
@@ -888,39 +889,48 @@
           if (strncmp(dataMember->GetTrueTypeName(), "MArray", 6) == 0)
           {
-//              MArrayHelperBase * clHelper;
               if (strcmp(dataMember->GetTrueTypeName(), "MArrayS*") == 0)
               {
-                    typeName = "UShort_t";
-                    arraySize = (*((MArrayS**)((char*)baseAdr + dataMember->GetOffset())))->GetSize();
-                    InitSingleColumn(tableName,
+                  typeName = "UShort_t";
+                  arraySize = (*((MArrayS**)((char*)baseAdr + dataMember->GetOffset())))->GetSize();
+                  InitSingleColumn(tableName,
+                                   arraySize,
+                                   typeName.Data(),
+                                   (char*)(*((MArrayS**)((char*)baseAdr + dataMember->GetOffset())))->GetArray(),
+                                   colName.Data(),
+                                   unit,
+                                   comment);
+              }
+              else if (strcmp(dataMember->GetTrueTypeName(), "MArrayB*") == 0)
+              {
+                      typeName = "UChar_t";
+                      arraySize = (*((MArrayB**)((char*)baseAdr + dataMember->GetOffset())))->GetSize();
+                      InitSingleColumn(tableName,
                                      arraySize,
                                      typeName.Data(),
-                                     (char*)(*((MArrayS**)((char*)baseAdr + dataMember->GetOffset())))->GetArray(),
+                                     (char*)(*((MArrayB**)((char*)baseAdr + dataMember->GetOffset())))->GetArray(),
                                      colName.Data(),
                                      unit,
                                      comment);
               }
-              else
+              else if (strcmp(dataMember->GetTrueTypeName(), "MArrayF*") == 0)
               {
-                  if (strcmp(dataMember->GetTrueTypeName(), "MArrayB*") == 0)
-                  {
-                      typeName = "UChar_t";
-                      arraySize = (*((MArrayB**)((char*)baseAdr + dataMember->GetOffset())))->GetSize();
+                      typeName = "TFloat_t";
+                      arraySize = (*((MArrayF**)((char*)baseAdr + dataMember->GetOffset())))->GetSize();
                       InitSingleColumn(tableName,
-                                       arraySize,
-                                       typeName.Data(),
-                                       (char*)(*((MArrayB**)((char*)baseAdr + dataMember->GetOffset())))->GetArray(),
-                                       colName.Data(),
-                                       unit,
-                                       comment);
-                  }
-                  else
-                  {
-                      *fLog << err << dataMember->GetTrueTypeName() << " not yet implemented." << endl;
-                      return kFALSE;
-                  }
+                                     arraySize,
+                                     typeName.Data(),
+                                     (char*)(*((MArrayF**)((char*)baseAdr + dataMember->GetOffset())))->GetArray(),
+                                     colName.Data(),
+                                     unit,
+                                     comment);
               }
 
-            continue;
+              else {
+                  *fLog << err << dataMember->GetTrueTypeName() << " not yet implemented." << endl;
+                  return kFALSE;
+              }
+
+
+              continue;
           }
          else if (strcmp(dataMember->GetTrueTypeName(), "TClonesArray") == 0)