Changeset 923 in Sophya for trunk/SophyaExt/FitsIOServer/fitsntuple.cc

Timestamp:

Apr 13, 2000, 7:34:37 PM (25 years ago)

Author:

ansari

Message:

Compil SGI-CC , Probleme avec for(int i) repete - Reza 13/4/2000

File:

• trunk/SophyaExt/FitsIOServer/fitsntuple.cc (modified) (7 diffs)

trunk/SophyaExt/FitsIOServer/fitsntuple.cc

@@ -57 +57 @@
   nbcols = fn.NbColsFromFits();
   nbentries = 0;
-  for (int k=0; k<nbcols; k++) nbentries=max( nbentries, fn.NentriesFromFits(k) );
+  int k;
+  for (k=0; k<nbcols; k++) nbentries=max( nbentries, fn.NentriesFromFits(k) );
   
   char ** ColName = new char*[nbcols];
   
-  for (int k=0; k<nbcols;k++) 
+  for (k=0; k<nbcols;k++) 
     {
       ColName[k] = new char[LONNOM1]; 
@@ -67 +68 @@
       ColName[k][LONNOM] =  '\0';
     }
-  for (int k=0; k<nbcols;k++)
+  for (k=0; k<nbcols;k++)
     {
       char ss= fn.ColTypeFromFits(k);
@@ -93 +94 @@
       (*dobj_) = NTuple(nbcols,ColName);
     }
-  for (int k=0; k<nbcols;k++) 
+  for (k=0; k<nbcols;k++) 
     {
       delete [] ColName[k];
@@ -104 +105 @@
   // (SetVal suppose que le ntuple est deja dimensionne)
   r_4* ligne = new r_4[nbcols];
-    for (int k=0; k<nbcols; k++) ligne[k]=0.;
-    for (int k=0; k<nbentries;k++) dobj_->Fill(ligne);
+    for (k=0; k<nbcols; k++) ligne[k]=0.;
+    for (k=0; k<nbentries;k++) dobj_->Fill(ligne);
     delete [] ligne;
-  for (int k=0; k<nbcols;k++) 
+  for (k=0; k<nbcols;k++) 
     {
       fn.GetBinTabFCol(column_, nbentries, k);
@@ -135 +136 @@
 
   char** Noms = new char*[ncols];   
-  for (int k=0; k< ncols; k++)
+  int k;
+  for (k=0; k< ncols; k++)
     {
       Noms[k]= new char[LONNOM1];
@@ -142 +144 @@
   // la librairie fitsio ecrit colonne par colonne 
   char* type= new char[ncols+1];
-  for (int k=0;k<ncols+1;k++) type[k]='E';
+  for (k=0;k<ncols+1;k++) type[k]='E';
   type[ncols]='\0';
   vector<int> dummy;
   fn.makeHeaderBntblOnFits(type,Noms, nentries, ncols, dvl, extname, dummy);
-   for (int k=0; k< ncols; k++)
+   for (k=0; k< ncols; k++)
     {
       delete [] Noms[k];
@@ -152 +154 @@
    delete [] Noms;
    delete [] type;
-   for (int k=0; k<ncols;k++) putColToFits(k, nentries, getColFromObj(k));
+   for (k=0; k<ncols;k++) putColToFits(k, nentries, getColFromObj(k));
 
 }