Changeset 1635 for trunk/external/atnf/PKSIO/SDFITSwriter.cc
- Timestamp:
- 09/25/09 11:47:11 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/external/atnf/PKSIO/SDFITSwriter.cc
r1466 r1635 2 2 //# SDFITSwriter.cc: ATNF CFITSIO interface class for SDFITS output. 3 3 //#--------------------------------------------------------------------------- 4 //# Copyright (C) 2000-200 84 //# Copyright (C) 2000-2009 5 5 //# Mark Calabretta, ATNF 6 6 //# … … 27 27 //# AUSTRALIA 28 28 //# 29 //# $Id: SDFITSwriter.cc,v 19.1 5 2008-11-17 06:58:58cal103 Exp $29 //# $Id: SDFITSwriter.cc,v 19.17 2009-09-18 07:29:26 cal103 Exp $ 30 30 //#--------------------------------------------------------------------------- 31 31 //# Original: 2000/07/24, Mark Calabretta, ATNF … … 37 37 38 38 #include <casa/iostream.h> 39 #include <cstring>40 39 41 40 #include <algorithm> … … 174 173 char version[7]; 175 174 char date[11]; 176 sscanf("$Revision: 19.1 5$", "%*s%s", version);177 sscanf("$Date: 200 8-11-17 06:58:58$", "%*s%s", date);175 sscanf("$Revision: 19.17 $", "%*s%s", version); 176 sscanf("$Date: 2009-09-18 07:29:26 $", "%*s%s", date); 178 177 sprintf(text, "SDFITSwriter (v%s, %s)", version, date); 179 178 fits_write_key_str(cSDptr, "ORIGIN", text, "output class", &cStatus); … … 231 230 232 231 // CYCLE (additional, real). 233 fits_insert_col(cSDptr, ++ncol, "CYCLE", "1 I", &cStatus);232 fits_insert_col(cSDptr, ++ncol, "CYCLE", "1J", &cStatus); 234 233 235 234 // DATE-OBS (core, real). … … 391 390 392 391 // BASESUB (additional, real). 393 sprintf(tform, "%dE", 9*maxNPol);392 sprintf(tform, "%dE", 24*maxNPol); 394 393 fits_insert_col(cSDptr, ++ncol, "BASESUB", tform, &cStatus); 395 tdim[0] = 9;394 tdim[0] = 24; 396 395 fits_write_tdim(cSDptr, ncol, 2, tdim, &cStatus); 397 396 } … … 681 680 682 681 // BASESUB. 683 fits_write_col_flt(cSDptr, ++icol, cRow, 1, 9*nPol, mbrec.baseSub[0][0],682 fits_write_col_flt(cSDptr, ++icol, cRow, 1, 24*nPol, mbrec.baseSub[0][0], 684 683 &cStatus); 685 684 }
Note: See TracChangeset
for help on using the changeset viewer.