Changeset 2336 in Sophya for trunk/ArchTOIPipe
- Timestamp:
- Mar 10, 2003, 2:23:09 PM (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ArchTOIPipe/Kernel/fitsringwtr.cc
r2329 r2336 4 4 // Christophe Magneville 5 5 // Reza Ansari 6 // $Id: fitsringwtr.cc,v 1. 3 2003-02-24 14:14:51 cecileExp $6 // $Id: fitsringwtr.cc,v 1.4 2003-03-10 13:23:09 aubourg Exp $ 7 7 8 8 #include "fitsringwtr.h" … … 52 52 53 53 fits_lock(); 54 fits_create_img(fptr,BYTE_IMG,0,NULL,&fstatus); 54 55 fits_write_date(fptr, &fstatus); 55 fits_create_img(fptr,BYTE_IMG,0,NULL,&fstatus);56 56 fits_write_comment(fptr,"ArchTOIPipe FITSRingWriter",&fstatus); 57 57 strcpy(buf, "RINGSET"); … … 73 73 fits_write_key(fptr, TDOUBLE, "CIRTHETA", &theta, "Theta angle in radians", &fstatus); 74 74 double phi = getData(1, ring*nSamples); 75 wontNeedBefore(ring*nSamples);76 75 fits_write_key(fptr, TDOUBLE, "CIRPHI", &phi, "Phi angle in radians", &fstatus); 77 76 fits_write_key(fptr, TDOUBLE, "CIRAPER", &aperture, "Aperture angle in radians", &fstatus); 78 77 fits_write_key(fptr, TLONG, "NSAMPLES", &nSamples, "Number of samples on the circle", &fstatus); 79 78 fits_unlock(); 79 wontNeedBefore(ring*nSamples); 80 80 81 81 for (int i=0; i<nSamples; i++) { 82 82 double data = getData(2, ring*nSamples+i); 83 83 fits_lock(); 84 fits_write_col(fptr, TDOUBLE, 1,i ,1,1, &data, &fstatus);84 fits_write_col(fptr, TDOUBLE, 1,i+1,1,1, &data, &fstatus); 85 85 fits_unlock(); 86 86 }
Note:
See TracChangeset
for help on using the changeset viewer.