Changeset 1194 in Sophya for trunk/SophyaExt/FitsIOServer/fitsntuple.cc
- Timestamp:
- Sep 19, 2000, 5:09:28 PM (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SophyaExt/FitsIOServer/fitsntuple.cc
r1143 r1194 160 160 DVList dvl= dobj_->Info(); 161 161 // extension name 162 char* extname = "NTuple_Binary_tbl";162 string extname("NTuple_Binary_tbl"); 163 163 164 char** Noms = new char*[ncols];164 vector<string> Noms(ncols); 165 165 int k; 166 166 for (k=0; k< ncols; k++) 167 167 { 168 Noms[k]= new char[LONNOM1]; 169 strncpy(Noms[k],dobj_->NomIndex(k),LONNOM1); 168 Noms[k]= dobj_->NomIndex(k); 170 169 } 171 170 172 char* type= new char[ncols+1]; 173 for (k=0;k<ncols+1;k++) type[k]='E'; 174 type[ncols]='\0'; 171 string type(ncols, 'E'); 175 172 vector<int> dummy; 176 173 177 174 os.makeHeaderBntblOnFits(type,Noms, nentries, ncols, dvl, extname, dummy); 178 for (k=0; k< ncols; k++)179 {180 delete [] Noms[k];181 }182 delete [] Noms;183 delete [] type;184 175 float* column = new float[nentries]; 185 176 for (k=0; k<ncols;k++)
Note:
See TracChangeset
for help on using the changeset viewer.