Changeset 873 in Sophya for trunk/SophyaExt/FitsIOServer/fitsntuple.cc
- Timestamp:
- Apr 11, 2000, 10:01:21 AM (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SophyaExt/FitsIOServer/fitsntuple.cc
r860 r873 56 56 int nbcols, nbentries; 57 57 nbcols = fn.NbColsFromFits(); 58 cout << " nbcols= " << nbcols << endl;59 58 nbentries = 0; 60 59 for (int k=0; k<nbcols; k++) nbentries=max( nbentries, fn.NentriesFromFits(k) ); … … 99 98 } 100 99 delete [] ColName; 101 cout << " preparation du tabeau column" << endl;102 100 if (column_ != NULL) delete [] column_; 103 101 column_ = new float[nbentries]; … … 105 103 // j'initialise le NTuple a zero, pour le dimensionner 106 104 // (SetVal suppose que le ntuple est deja dimensionne) 107 cout << " nbcol= " << nbcols << endl;108 105 r_4* ligne = new r_4[nbcols]; 109 106 for (int k=0; k<nbcols; k++) ligne[k]=0.; 110 107 for (int k=0; k<nbentries;k++) dobj_->Fill(ligne); 111 cout << " ntuple initialise a zero" << endl;112 108 delete [] ligne; 113 cout << "debut boucle nbcol= " << nbcols << endl;114 109 for (int k=0; k<nbcols;k++) 115 110 { 116 cout << " avant lecture col. no " << k << endl;117 111 fn.GetBinTabFCol(column_, nbentries, k); 118 cout << " lecture effectuee " << endl;119 112 for (int nent=0; nent<nbentries; nent++) dobj_->SetVal(nent,k, column_[nent]); 120 cout << " valeurs inserre dans ntuple " << endl;121 113 } 122 114 dobj_->Info()=fn.DVListFromFits(); … … 147 139 Noms[k]= new char[LONNOM1]; 148 140 strncpy(Noms[k],dobj_->NomIndex(k),LONNOM1); 149 cout << " nom entre dans ntuple: " << Noms[k] << endl;150 141 } 151 142 // la librairie fitsio ecrit colonne par colonne … … 163 154 for (int k=0; k<ncols;k++) putColToFits(k, nentries, getColFromObj(k)); 164 155 165 cout << " fin d'ecriture "<< endl;166 156 } 167 157
Note:
See TracChangeset
for help on using the changeset viewer.