Changeset 2940 for trunk/external-alma/atnf/PKSIO/SDFITSwriter.cc
- Timestamp:
- 05/13/14 14:39:48 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/external-alma/atnf/PKSIO/SDFITSwriter.cc
r1757 r2940 230 230 231 231 // SCAN (shared, real). 232 fits_insert_col(cSDptr, ++ncol, "SCAN","1I", &cStatus);232 fits_insert_col(cSDptr, ++ncol, (char *)"SCAN", (char *)"1I", &cStatus); 233 233 234 234 // CYCLE (additional, real). 235 fits_insert_col(cSDptr, ++ncol, "CYCLE","1J", &cStatus);235 fits_insert_col(cSDptr, ++ncol, (char *)"CYCLE", (char *)"1J", &cStatus); 236 236 237 237 // DATE-OBS (core, real). 238 fits_insert_col(cSDptr, ++ncol, "DATE-OBS","10A", &cStatus);238 fits_insert_col(cSDptr, ++ncol, (char *)"DATE-OBS", (char *)"10A", &cStatus); 239 239 240 240 // TIME (core, real). 241 fits_insert_col(cSDptr, ++ncol, "TIME","1D", &cStatus);241 fits_insert_col(cSDptr, ++ncol, (char *)"TIME", (char *)"1D", &cStatus); 242 242 sprintf(tunit, "TUNIT%d", ncol); 243 243 fits_write_key_str(cSDptr, tunit, "s", "units of field", &cStatus); 244 244 245 245 // EXPOSURE (core, real). 246 fits_insert_col(cSDptr, ++ncol, "EXPOSURE","1E", &cStatus);246 fits_insert_col(cSDptr, ++ncol, (char *)"EXPOSURE", (char *)"1E", &cStatus); 247 247 sprintf(tunit, "TUNIT%d", ncol); 248 248 fits_write_key_str(cSDptr, tunit, "s", "units of field", &cStatus); 249 249 250 250 // OBJECT (core, real). 251 fits_insert_col(cSDptr, ++ncol, "OBJECT","16A", &cStatus);251 fits_insert_col(cSDptr, ++ncol, (char *)"OBJECT", (char *)"16A", &cStatus); 252 252 253 253 // OBJ-RA (additional, real). 254 fits_insert_col(cSDptr, ++ncol, "OBJ-RA","1D", &cStatus);254 fits_insert_col(cSDptr, ++ncol, (char *)"OBJ-RA", (char *)"1D", &cStatus); 255 255 sprintf(tunit, "TUNIT%d", ncol); 256 256 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); 257 257 258 258 // OBJ-DEC (additional, real). 259 fits_insert_col(cSDptr, ++ncol, "OBJ-DEC","1D", &cStatus);259 fits_insert_col(cSDptr, ++ncol, (char *)"OBJ-DEC", (char *)"1D", &cStatus); 260 260 sprintf(tunit, "TUNIT%d", ncol); 261 261 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); 262 262 263 263 // RESTFRQ (additional, real). 264 fits_insert_col(cSDptr, ++ncol, "RESTFRQ","1D", &cStatus);264 fits_insert_col(cSDptr, ++ncol, (char *)"RESTFRQ",(char *) "1D", &cStatus); 265 265 sprintf(tunit, "TUNIT%d", ncol); 266 266 fits_write_key_str(cSDptr, tunit, "Hz", "units of field", &cStatus); 267 267 268 268 // OBSMODE (shared, real). 269 fits_insert_col(cSDptr, ++ncol, "OBSMODE","16A", &cStatus);269 fits_insert_col(cSDptr, ++ncol, (char *)"OBSMODE", (char *)"16A", &cStatus); 270 270 271 271 // BEAM (additional, real). 272 fits_insert_col(cSDptr, ++ncol, "BEAM","1I", &cStatus);272 fits_insert_col(cSDptr, ++ncol, (char *)"BEAM", (char *)"1I", &cStatus); 273 273 274 274 // IF (additional, real). 275 fits_insert_col(cSDptr, ++ncol, "IF","1I", &cStatus);275 fits_insert_col(cSDptr, ++ncol, (char *)"IF", (char *)"1I", &cStatus); 276 276 277 277 // FREQRES (core, real). 278 fits_insert_col(cSDptr, ++ncol, "FREQRES","1D", &cStatus);278 fits_insert_col(cSDptr, ++ncol, (char *)"FREQRES", (char *)"1D", &cStatus); 279 279 sprintf(tunit, "TUNIT%d", ncol); 280 280 fits_write_key_str(cSDptr, tunit, "Hz", "units of field", &cStatus); 281 281 282 282 // BANDWID (core, real). 283 fits_insert_col(cSDptr, ++ncol, "BANDWID","1D", &cStatus);283 fits_insert_col(cSDptr, ++ncol, (char *)"BANDWID", (char *)"1D", &cStatus); 284 284 sprintf(tunit, "TUNIT%d", ncol); 285 285 fits_write_key_str(cSDptr, tunit, "Hz", "units of field", &cStatus); … … 290 290 291 291 // CRPIX1 (core, real). 292 fits_insert_col(cSDptr, ++ncol, "CRPIX1","1E", &cStatus);292 fits_insert_col(cSDptr, ++ncol, (char *)"CRPIX1", (char *)"1E", &cStatus); 293 293 294 294 // CRVAL1 (core, real). 295 fits_insert_col(cSDptr, ++ncol, "CRVAL1","1D", &cStatus);295 fits_insert_col(cSDptr, ++ncol, (char *)"CRVAL1", (char *)"1D", &cStatus); 296 296 sprintf(tunit, "TUNIT%d", ncol); 297 297 fits_write_key_str(cSDptr, tunit, "Hz", "units of field", &cStatus); 298 298 299 299 // CDELT1 (core, real). 300 fits_insert_col(cSDptr, ++ncol, "CDELT1","1D", &cStatus);300 fits_insert_col(cSDptr, ++ncol, (char *)"CDELT1", (char *)"1D", &cStatus); 301 301 sprintf(tunit, "TUNIT%d", ncol); 302 302 fits_write_key_str(cSDptr, tunit, "Hz", "units of field", &cStatus); … … 330 330 331 331 // CRVAL3 (core, real). 332 fits_insert_col(cSDptr, ++ncol, "CRVAL3","1D", &cStatus);332 fits_insert_col(cSDptr, ++ncol, (char *)"CRVAL3", (char *)"1D", &cStatus); 333 333 sprintf(tunit, "TUNIT%d", ncol); 334 334 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); … … 347 347 348 348 // CRVAL4 (core, real). 349 fits_insert_col(cSDptr, ++ncol, "CRVAL4","1D", &cStatus);349 fits_insert_col(cSDptr, ++ncol, (char *)"CRVAL4", (char *)"1D", &cStatus); 350 350 sprintf(tunit, "TUNIT%d", ncol); 351 351 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); … … 355 355 356 356 // SCANRATE (additional, real). 357 fits_insert_col(cSDptr, ++ncol, "SCANRATE","2E", &cStatus);357 fits_insert_col(cSDptr, ++ncol, (char *)"SCANRATE", (char *)"2E", &cStatus); 358 358 sprintf(tunit, "TUNIT%d", ncol); 359 359 fits_write_key_str(cSDptr, tunit, "deg/s", "units of field", &cStatus); … … 377 377 // TSYS (core, real). 378 378 sprintf(tform, "%dE", maxNPol); 379 fits_insert_col(cSDptr, ++ncol, "TSYS", tform, &cStatus);379 fits_insert_col(cSDptr, ++ncol, (char *)"TSYS", tform, &cStatus); 380 380 sprintf(tunit, "TUNIT%d", ncol); 381 381 fits_write_key_str(cSDptr, tunit, bunit, "units of field", &cStatus); … … 383 383 // CALFCTR (additional, real). 384 384 sprintf(tform, "%dE", maxNPol); 385 fits_insert_col(cSDptr, ++ncol, "CALFCTR", tform, &cStatus);385 fits_insert_col(cSDptr, ++ncol, (char *)"CALFCTR", tform, &cStatus); 386 386 387 387 if (cHaveBase) { 388 388 // BASELIN (additional, real). 389 389 sprintf(tform, "%dE", 2*maxNPol); 390 fits_insert_col(cSDptr, ++ncol, "BASELIN", tform, &cStatus);390 fits_insert_col(cSDptr, ++ncol, (char *)"BASELIN", tform, &cStatus); 391 391 long tdim[] = {2, maxNPol}; 392 392 fits_write_tdim(cSDptr, ncol, 2, tdim, &cStatus); … … 394 394 // BASESUB (additional, real). 395 395 sprintf(tform, "%dE", 24*maxNPol); 396 fits_insert_col(cSDptr, ++ncol, "BASESUB", tform, &cStatus);396 fits_insert_col(cSDptr, ++ncol, (char *)"BASESUB", tform, &cStatus); 397 397 tdim[0] = 24; 398 398 fits_write_tdim(cSDptr, ncol, 2, tdim, &cStatus); … … 407 407 strcpy(tform, "1PE"); 408 408 } 409 fits_insert_col(cSDptr, ++ncol, "DATA", tform, &cStatus);409 fits_insert_col(cSDptr, ++ncol, (char *)"DATA", tform, &cStatus); 410 410 411 411 if (cDoTDIM) { 412 412 // TDIMn varies with IF, write a TDIM column. 413 413 sprintf(ttype, "TDIM%d", ncol); 414 fits_insert_col(cSDptr, ++ncol, ttype, "16A", &cStatus);414 fits_insert_col(cSDptr, ++ncol, ttype, (char *)"16A", &cStatus); 415 415 } else { 416 416 // TDIMn fixed for each IF, write a TDIM keyword. … … 430 430 strcpy(tform, "1PB"); 431 431 } 432 fits_insert_col(cSDptr, ++ncol, "FLAGGED", tform, &cStatus);432 fits_insert_col(cSDptr, ++ncol, (char *)"FLAGGED", tform, &cStatus); 433 433 434 434 if (cDoTDIM) { 435 435 // TDIMn varies with IF, write a TDIM column. 436 436 sprintf(ttype, "TDIM%d", ncol); 437 fits_insert_col(cSDptr, ++ncol, ttype, "16A", &cStatus);437 fits_insert_col(cSDptr, ++ncol, ttype, (char *)"16A", &cStatus); 438 438 } else { 439 439 // TDIMn fixed for each IF, write a TDIM keyword. … … 445 445 // XCALFCTR (additional, real). 446 446 sprintf(tform, "%dE", 2); 447 fits_insert_col(cSDptr, ++ncol, "XCALFCTR", tform, &cStatus);447 fits_insert_col(cSDptr, ++ncol, (char *)"XCALFCTR", tform, &cStatus); 448 448 449 449 // XPOLDATA (additional, real). … … 455 455 strcpy(tform, "1PE"); 456 456 } 457 fits_insert_col(cSDptr, ++ncol, "XPOLDATA", tform, &cStatus);457 fits_insert_col(cSDptr, ++ncol, (char *)"XPOLDATA", tform, &cStatus); 458 458 459 459 if (cDoTDIM) { 460 460 // TDIMn varies with IF, write a TDIM column. 461 461 sprintf(ttype, "TDIM%d", ncol); 462 fits_insert_col(cSDptr, ++ncol, ttype, "16A", &cStatus);462 fits_insert_col(cSDptr, ++ncol, ttype, (char *)"16A", &cStatus); 463 463 } else { 464 464 // TDIMn fixed for each IF, write a TDIM keyword. … … 474 474 if (cIsMX) { 475 475 // REFBEAM (additional, real). 476 fits_insert_col(cSDptr, ++ncol, "REFBEAM","1I", &cStatus);476 fits_insert_col(cSDptr, ++ncol, (char *)"REFBEAM", (char *)"1I", &cStatus); 477 477 } 478 478 479 479 // TCAL (shared, real). 480 480 sprintf(tform, "%dE", min(maxNPol,2)); 481 fits_insert_col(cSDptr, ++ncol, "TCAL", tform, &cStatus);481 fits_insert_col(cSDptr, ++ncol, (char *)"TCAL", tform, &cStatus); 482 482 sprintf(tunit, "TUNIT%d", ncol); 483 483 fits_write_key_str(cSDptr, tunit, "Jy", "units of field", &cStatus); 484 484 485 485 // TCALTIME (additional, real). 486 fits_insert_col(cSDptr, ++ncol, "TCALTIME","16A", &cStatus);486 fits_insert_col(cSDptr, ++ncol, (char *)"TCALTIME", (char *)"16A", &cStatus); 487 487 488 488 // AZIMUTH (shared, real). 489 fits_insert_col(cSDptr, ++ncol, "AZIMUTH","1E", &cStatus);489 fits_insert_col(cSDptr, ++ncol, (char *)"AZIMUTH", (char *)"1E", &cStatus); 490 490 sprintf(tunit, "TUNIT%d", ncol); 491 491 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); 492 492 493 493 // ELEVATIO (shared, real). 494 fits_insert_col(cSDptr, ++ncol, "ELEVATIO","1E", &cStatus);494 fits_insert_col(cSDptr, ++ncol, (char *)"ELEVATIO", (char *)"1E", &cStatus); 495 495 sprintf(tunit, "TUNIT%d", ncol); 496 496 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); 497 497 498 498 // PARANGLE (additional, real). 499 fits_insert_col(cSDptr, ++ncol, "PARANGLE","1E", &cStatus);499 fits_insert_col(cSDptr, ++ncol, (char *)"PARANGLE", (char *)"1E", &cStatus); 500 500 sprintf(tunit, "TUNIT%d", ncol); 501 501 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus); 502 502 503 503 // FOCUSAXI (additional, real). 504 fits_insert_col(cSDptr, ++ncol, "FOCUSAXI","1E", &cStatus);504 fits_insert_col(cSDptr, ++ncol, (char *)"FOCUSAXI", (char *)"1E", &cStatus); 505 505 sprintf(tunit, "TUNIT%d", ncol); 506 506 fits_write_key_str(cSDptr, tunit, "m", "units of field", &cStatus); 507 507 508 508 // FOCUSTAN (additional, real). 509 fits_insert_col(cSDptr, ++ncol, "FOCUSTAN","1E", &cStatus);509 fits_insert_col(cSDptr, ++ncol, (char *)"FOCUSTAN", (char *)"1E", &cStatus); 510 510 sprintf(tunit, "TUNIT%d", ncol); 511 511 fits_write_key_str(cSDptr, tunit, "m", "units of field", &cStatus); 512 512 513 513 // FOCUSROT (additional, real). 514 fits_insert_col(cSDptr, ++ncol, "FOCUSROT","1E", &cStatus);515 sprintf(tunit, "TUNIT%d", ncol); 516 fits_write_key_str(cSDptr, tunit, "deg","units of field", &cStatus);514 fits_insert_col(cSDptr, ++ncol, (char *)"FOCUSROT", (char *)"1E", &cStatus); 515 sprintf(tunit, "TUNIT%d", ncol); 516 fits_write_key_str(cSDptr, tunit, (char *)"deg", (char *)"units of field", &cStatus); 517 517 518 518 // TAMBIENT (shared, real). 519 fits_insert_col(cSDptr, ++ncol, "TAMBIENT","1E", &cStatus);519 fits_insert_col(cSDptr, ++ncol, (char *)"TAMBIENT", (char *)"1E", &cStatus); 520 520 sprintf(tunit, "TUNIT%d", ncol); 521 521 fits_write_key_str(cSDptr, tunit, "C", "units of field", &cStatus); 522 522 523 523 // PRESSURE (shared, real). 524 fits_insert_col(cSDptr, ++ncol, "PRESSURE","1E", &cStatus);524 fits_insert_col(cSDptr, ++ncol, (char *)"PRESSURE", (char *)"1E", &cStatus); 525 525 sprintf(tunit, "TUNIT%d", ncol); 526 526 fits_write_key_str(cSDptr, tunit, "Pa", "units of field", &cStatus); 527 527 528 528 // HUMIDITY (shared, real). 529 fits_insert_col(cSDptr, ++ncol, "HUMIDITY","1E", &cStatus);529 fits_insert_col(cSDptr, ++ncol, (char *)"HUMIDITY", (char *)"1E", &cStatus); 530 530 sprintf(tunit, "TUNIT%d", ncol); 531 531 fits_write_key_str(cSDptr, tunit, "%", "units of field", &cStatus); 532 532 533 533 // WINDSPEE (shared, real). 534 fits_insert_col(cSDptr, ++ncol, "WINDSPEE","1E", &cStatus);534 fits_insert_col(cSDptr, ++ncol, (char *)"WINDSPEE", (char *)"1E", &cStatus); 535 535 sprintf(tunit, "TUNIT%d", ncol); 536 536 fits_write_key_str(cSDptr, tunit, "m/s", "units of field", &cStatus); 537 537 538 538 // WINDDIRE (shared, real). 539 fits_insert_col(cSDptr, ++ncol, "WINDDIRE","1E", &cStatus);539 fits_insert_col(cSDptr, ++ncol, (char *)"WINDDIRE", (char *)"1E", &cStatus); 540 540 sprintf(tunit, "TUNIT%d", ncol); 541 541 fits_write_key_str(cSDptr, tunit, "deg", "units of field", &cStatus);
Note: See TracChangeset
for help on using the changeset viewer.