Changeset 1399 for trunk/external/atnf/PKSIO/SDFITSreader.cc
- Timestamp:
- 11/16/07 13:36:15 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/external/atnf/PKSIO/SDFITSreader.cc
r1325 r1399 2 2 //# SDFITSreader.cc: ATNF CFITSIO interface class for SDFITS input. 3 3 //#--------------------------------------------------------------------------- 4 //# Copyright (C) 2000-200 64 //# Copyright (C) 2000-2007 5 5 //# Associated Universities, Inc. Washington DC, USA. 6 6 //# … … 26 26 //# Charlottesville, VA 22903-2475 USA 27 27 //# 28 //# $Id: SDFITSreader.cc,v 19.2 2 2006/07/12 00:14:26 mcalabreExp $28 //# $Id: SDFITSreader.cc,v 19.23 2007/11/12 03:37:56 cal103 Exp $ 29 29 //#--------------------------------------------------------------------------- 30 30 //# The SDFITSreader class reads single dish FITS files such as those written … … 57 57 long nelem; // Column data repeat count; < 0 for vardim. 58 58 int tdimcol; // TDIM column number; 0 for keyword; -1 absent. 59 char units[32]; // Units from TUNITn keyword. 59 60 }; 60 61 … … 182 183 183 184 if (cALFA_BD) { 184 // ALFA BDFITS: variable length arrays don't actually vary and there is 185 // ALFA BDFITS: variable length arrays don't actually vary and there is 185 186 // no TDIM (or MAXISn) card; use the LAGS_IN value. 186 187 cNAxis = 5; … … 725 726 double antPos[3], 726 727 char obsMode[32], 728 char bunit[32], 727 729 float &equinox, 728 730 char radecsys[32], … … 773 775 readData(OBSMODE, 1, obsMode); // Shared. 774 776 777 // Brightness unit. 778 strcpy(bunit, cData[DATA].units); 779 if (strcmp(bunit, "JY") == 0) { 780 bunit[1] = 'y'; 781 } else if (strcmp(bunit, "JY/BEAM") == 0) { 782 strcpy(bunit, "Jy/beam"); 783 } 784 775 785 readParm("EQUINOX", TFLOAT, &equinox); // Shared. 776 786 if (cStatus == 405) { … … 1242 1252 1243 1253 // Source identification. 1244 readData(OBJECT, cRow,mbrec.srcName);1254 readData(OBJECT, cRow, mbrec.srcName); 1245 1255 1246 1256 readData(OBJ_RA, cRow, &mbrec.srcRA); … … 1737 1747 long nelem, width; 1738 1748 fits_get_coltype(cSDptr, colnum, &coltype, &nelem, &width, &cStatus); 1749 fits_get_bcolparms(cSDptr, colnum, 0x0, cData[iData].units, 0x0, 0x0, 0x0, 1750 0x0, 0x0, 0x0, &cStatus); 1739 1751 1740 1752 // Look for a TDIMnnn keyword or column.
Note: See TracChangeset
for help on using the changeset viewer.