Changeset 2355 in Sophya for trunk/ArchTOIPipe
- Timestamp:
- Mar 28, 2003, 5:06:40 PM (23 years ago)
- Location:
- trunk/ArchTOIPipe
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ArchTOIPipe/Kernel/fitsringwtr.cc
r2337 r2355 4 4 // Christophe Magneville 5 5 // Reza Ansari 6 // $Id: fitsringwtr.cc,v 1. 5 2003-03-10 13:33:03 aubourgExp $6 // $Id: fitsringwtr.cc,v 1.6 2003-03-28 16:06:40 cecile Exp $ 7 7 8 8 #include "fitsringwtr.h" … … 60 60 fits_unlock(); 61 61 62 char* ttype = "DATA"; 63 char* tform = "1D"; 64 char xname[100]; 65 62 66 for (int ring = 0; ring<nRings; ring++) { 63 char* ttype = "DATA";64 char* tform = "1D";65 char xname[100];66 67 sprintf(xname, "CRING_%d", ring); 67 68 … … 84 85 fits_lock(); 85 86 fits_write_col(fptr, TDOUBLE, 1,i+1,1,1, &data, &fstatus); 86 fits_unlock(); 87 fits_unlock(); 87 88 } 88 89 fits_lock();90 fits_close_file(fptr, &fstatus);91 fits_report_error(stderr, fstatus);92 fits_unlock();93 89 } 94 90 91 fits_lock(); 92 fits_close_file(fptr, &fstatus); 93 fits_report_error(stderr, fstatus); 94 fits_unlock(); 95 cout << "fitsringwriter done " << endl; 95 96 } -
trunk/ArchTOIPipe/ProcWSophya/toi2ring.cc
r2331 r2355 3 3 // Christophe Magneville 4 4 // Reza Ansari 5 // $Id: toi2ring.cc,v 1. 4 2003-02-24 14:47:10cecile Exp $5 // $Id: toi2ring.cc,v 1.5 2003-03-28 16:06:17 cecile Exp $ 6 6 7 7 #include "toimanager.h" … … 61 61 int_8 Nrings=0,i; 62 62 63 double phi_prec=-1.; 63 double phi_prec=-1.,ctheta_prec,cphi_prec; 64 double phi,val,ctheta,cphi; 65 64 66 double* r = new double[Nsamples]; 65 67 double* wr = new double[Nsamples]; … … 69 71 } 70 72 71 72 73 cout << "loop " << snb << " " << sne << endl; 73 74 … … 75 76 76 77 uint_8 flg = 0; 77 doublectheta = getData(0,k);78 doublecphi = getData(1,k);79 doublephi = getData(2,k);80 doubleval = getData(3,k);78 ctheta = getData(0,k); 79 cphi = getData(1,k); 80 phi = getData(2,k); 81 val = getData(3,k); 81 82 mSnRead++; 82 83 … … 85 86 wr[i]++; 86 87 87 cout << k << " " << phi << " " << phi_prec << " " << Nrings <<endl;88 88 89 89 if(phi < phi_prec || k == sne){ 90 91 // if (k==sne) { wfits.setNRings(Nrings); wwfits.setNRings(Nrings);} 90 92 91 93 for(i=0;i<Nsamples;i++) { 92 94 if(wr[i] == 0) r[i] = -999999.; 93 95 else r[i] /= wr[i]; 94 cout << "PUT " << i << " " << Nrings << " " << Nsamples << " " << ctheta << " " << cphi << " " << r[i]<< endl;95 putData(0,Nrings*Nsamples+i,ctheta );96 putData(1,Nrings*Nsamples+i,cphi );96 97 putData(0,Nrings*Nsamples+i,ctheta_prec); 98 putData(1,Nrings*Nsamples+i,cphi_prec); 97 99 putData(2,Nrings*Nsamples+i,r[i]); 98 putData(3,Nrings*Nsamples+i,ctheta );99 putData(4,Nrings*Nsamples+i,cphi );100 putData(3,Nrings*Nsamples+i,ctheta_prec); 101 putData(4,Nrings*Nsamples+i,cphi_prec); 100 102 putData(5,Nrings*Nsamples+i,wr[i]); 101 103 wr[i]=0; 102 104 r[i]=0.; 105 103 106 } 104 107 105 Nrings++; 106 return; 107 108 Nrings++; 109 cout <<" Ring "<< Nrings << " written " << endl; 108 110 } 109 110 111 111 phi_prec=phi; 112 ctheta_prec=ctheta; 113 cphi_prec=cphi; 112 114 totnscount++; 113 } 115 } 114 116 115 117 cout<<"RING2Toi::run: Samples Read "<<mSnRead -
trunk/ArchTOIPipe/TestPipes/tsttoi2ring.cc
r2331 r2355 23 23 void usage(void) { 24 24 cout<<"tsttoi2ring fitsin_phase fitsin_value fitsout_value fitsout_weight "; 25 cout<<" Nsamples SN_begin SN_last (all -f SN_last<SN_begin)"<<endl;25 cout<<" Nsamples SN_begin SN_last Nring (all if SN_last<SN_begin)"<<endl; 26 26 return; 27 27 } … … 39 39 bool snimplicit = false; 40 40 41 if(narg != 8) {usage(); exit(2);}41 if(narg != 9) {usage(); exit(2);} 42 42 char * fitsin_phase = arg[1]; 43 43 char * fitsin_value = arg[2]; … … 47 47 int_8 sdeb = atoi(arg[6]); 48 48 int_8 sfin = atoi(arg[7]); 49 int_8 Nring = atoi(arg[8]); 49 50 cout<<"Requested Samples from "<<sdeb<<" , "<<sfin<<endl; 50 51 … … 86 87 wfits.setNSamples(Nsamples); 87 88 wwfits.setNSamples(Nsamples); 88 wfits.setNRings(1); 89 wwfits.setNRings(1); 90 89 wfits.setNRings(Nring); 90 wwfits.setNRings(Nring); 91 91 92 93 cout << "fits writer created"<<endl;94 92 95 93 … … 115 113 plombier.Connect(m2ring,"WCircTheta",wwfits,"CircTheta"); 116 114 plombier.Connect(m2ring,"WCircPhi",wwfits,"CircPhi"); 117 plombier.Connect(m2ring,"WRvalue",wwfits,"signal"); 115 plombier.Connect(m2ring,"WRvalue",wwfits,"signal"); 118 116 119 117 // Run
Note:
See TracChangeset
for help on using the changeset viewer.