Changeset 4800
- Timestamp:
- Aug 16, 2005, 3:04:36 PM (21 years ago)
- Location:
- trunk/Ohana/src
- Files:
-
- 3 added
- 25 edited
-
addstar/doc/Changes.txt (modified) (2 diffs)
-
addstar/src/find_matches.c (modified) (8 diffs)
-
addstar/src/find_matches_refstars.c (modified) (4 diffs)
-
addstar/src/replace_match.c (modified) (1 diff)
-
addstar/src/update_coords.c (modified) (2 diffs)
-
gastro/src/gptolemy.c (modified) (2 diffs)
-
gastro2/src/gptolemy2.c (modified) (1 diff)
-
libautocode/def/average-elixir.d (added)
-
libautocode/def/average.d (modified) (1 diff)
-
libautocode/def/measure-elixir.d (added)
-
libautocode/def/measure-panstarrs.d (added)
-
libautocode/def/measure.d (modified) (1 diff)
-
libautocode/doc/notes.txt (modified) (2 diffs)
-
mosastro/src/gptolemy.c (modified) (1 diff)
-
opihi/dvo/calextract.c (modified) (1 diff)
-
opihi/dvo/calmextract.c (modified) (1 diff)
-
opihi/dvo/catalog.c (modified) (6 diffs)
-
opihi/dvo/cmatch.c (modified) (1 diff)
-
opihi/dvo/compare.c (modified) (2 diffs)
-
opihi/dvo/dmt.c (modified) (1 diff)
-
opihi/dvo/dvomisc.c (modified) (3 diffs)
-
opihi/dvo/gstar.c (modified) (3 diffs)
-
opihi/dvo/imdata.c (modified) (2 diffs)
-
opihi/dvo/lcurve.c (modified) (1 diff)
-
opihi/dvo/lightcurve.c (modified) (1 diff)
-
opihi/dvo/photometry.c (modified) (7 diffs)
-
opihi/dvo/pmeasure.c (modified) (2 diffs)
-
opihi/dvo/subpix.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Ohana/src/addstar/doc/Changes.txt
r4772 r4800 1 2 2005.08.15:3 cleanup of the minor Wall,Werror messages4 1 5 2 2005.02.24 : I am adding the mosaic two-level astrometry information to the Image table. 6 3 7 4 2005.07.06 : current release is addstar-1.1 5 8 6 I have made a variety of fairly substantial changes since 9 7 v1.0. I have added autocode for the basic DVO data types. I … … 23 21 need to know about the mysql backend interface. 24 22 25 23 2005.08.15: 24 cleanup of the minor Wall,Werror messages -
trunk/Ohana/src/addstar/src/find_matches.c
r3389 r4800 74 74 75 75 for (i = 0; i < Nave; i++) { 76 fRD_to_XY (&X2[i], &Y2[i], catalog[0].average[i].R , catalog[0].average[i].D, &tcoords);76 fRD_to_XY (&X2[i], &Y2[i], catalog[0].average[i].R_PS, catalog[0].average[i].D_PS, &tcoords); 77 77 N2[i] = i; 78 78 catalog[0].found[N2[i]] = -1; … … 146 146 147 147 /** add measurements for this star **/ 148 catalog[0].measure[Nmeas].dR = 360000.0*(catalog[0].average[n].R - stars[N].R); 149 catalog[0].measure[Nmeas].dD = 360000.0*(catalog[0].average[n].D - stars[N].D); 148 /** dR,dD now represent arcsec **/ 149 catalog[0].measure[Nmeas].dR_PS = 3600.0*(catalog[0].average[n].R_PS - stars[N].R); 150 catalog[0].measure[Nmeas].dD_PS = 3600.0*(catalog[0].average[n].D_PS - stars[N].D); 150 151 catalog[0].measure[Nmeas].M = MIN (1000*stars[N].M + MTIME, NO_MAG); 151 152 catalog[0].measure[Nmeas].dM = MIN (1000*stars[N].dM, NO_ERR); /* error in input files stored in thousandths of mag */ … … 216 217 if (catalog[0].found[n] < 0) { 217 218 /* should the catalog star be on this image? project into image coords */ 218 if (!in_image (catalog[0].average[n].R , catalog[0].average[n].D, image)) continue;219 if (!in_image (catalog[0].average[n].R_PS, catalog[0].average[n].D_PS, image)) continue; 219 220 /* find last missing meas */ 220 221 if (catalog[0].average[n].Nn < 1) { /* no previous missing obs */ … … 234 235 } 235 236 /* calculate time of exposure for this coordinate in the image */ 236 RD_to_XY (&X, &Y, catalog[0].average[n].R , catalog[0].average[n].D, &image[0].coords);237 RD_to_XY (&X, &Y, catalog[0].average[n].R_PS, catalog[0].average[n].D_PS, &image[0].coords); 237 238 catalog[0].missing[Nmiss].t = image[0].tzero + 1e-4*Y*image[0].trate; /* trate is in 0.1 msec / row */ 238 239 catalog[0].average[n].Nn ++; … … 254 255 secz = airmass (image[0].secz, stars[N].R, stars[N].D, SiderealTime, Latitude); 255 256 256 catalog[0].average[Nave].R = stars[N].R;257 catalog[0].average[Nave].D = stars[N].D;257 catalog[0].average[Nave].R_PS = stars[N].R; 258 catalog[0].average[Nave].D_PS = stars[N].D; 258 259 catalog[0].average[Nave].M = NO_MAG; 259 260 catalog[0].average[Nave].dM = NO_MAG; … … 273 274 } 274 275 275 catalog[0].measure[Nmeas].dR = 0.0;276 catalog[0].measure[Nmeas].dD = 0.0;276 catalog[0].measure[Nmeas].dR_PS = 0.0; 277 catalog[0].measure[Nmeas].dD_PS = 0.0; 277 278 catalog[0].measure[Nmeas].M = MIN (1000*stars[N].M + MTIME, NO_MAG); 278 279 catalog[0].measure[Nmeas].dM = MIN (1000*stars[N].dM, NO_ERR); … … 298 299 for (j = 0; (j < Noverlap) && !SKIP_MISSED; j++) { 299 300 if (!FindMosaicForImage (overlap, Noverlap, j)) continue; 300 if (!in_image (catalog[0].average[Nave].R , catalog[0].average[Nave].D, &overlap[j])) continue;301 if (!in_image (catalog[0].average[Nave].R_PS, catalog[0].average[Nave].D_PS, &overlap[j])) continue; 301 302 if (catalog[0].average[Nave].Nn < 1) { 302 303 catalog[0].average[Nave].missing = Nmiss; … … 306 307 last_miss = Nmiss; 307 308 /* get time of exposure of this portion of the image */ 308 RD_to_XY (&X, &Y, catalog[0].average[Nave].R , catalog[0].average[Nave].D, &overlap[j].coords);309 RD_to_XY (&X, &Y, catalog[0].average[Nave].R_PS, catalog[0].average[Nave].D_PS, &overlap[j].coords); 309 310 catalog[0].missing[Nmiss].t = overlap[j].tzero + 1e-4*Y*overlap[j].trate; /* rough guess at time */ 310 311 catalog[0].average[Nave].Nn ++; -
trunk/Ohana/src/addstar/src/find_matches_refstars.c
r3361 r4800 62 62 63 63 for (i = 0; i < Nave; i++) { 64 fRD_to_XY (&X2[i], &Y2[i], catalog[0].average[i].R , catalog[0].average[i].D, &tcoords);64 fRD_to_XY (&X2[i], &Y2[i], catalog[0].average[i].R_PS, catalog[0].average[i].D_PS, &tcoords); 65 65 N2[i] = i; 66 66 catalog[0].found[N2[i]] = -1; … … 127 127 128 128 /** add measurements for this star **/ 129 catalog[0].measure[Nmeas].dR = 360000.0*(catalog[0].average[n].R - stars[N][0].R); 130 catalog[0].measure[Nmeas].dD = 360000.0*(catalog[0].average[n].D - stars[N][0].D); 129 /** *** dR,dD now in arcsec *** **/ 130 catalog[0].measure[Nmeas].dR_PS = 3600.0*(catalog[0].average[n].R_PS - stars[N][0].R); 131 catalog[0].measure[Nmeas].dD_PS = 3600.0*(catalog[0].average[n].D_PS - stars[N][0].D); 131 132 catalog[0].measure[Nmeas].M = MIN (1000*stars[N][0].M, NO_MAG); 132 133 catalog[0].measure[Nmeas].dM = MIN (1000*stars[N][0].dM, NO_ERR); … … 192 193 if (stars[N][0].found >= 0) continue; 193 194 194 catalog[0].average[Nave].R = stars[N][0].R;195 catalog[0].average[Nave].D = stars[N][0].D;195 catalog[0].average[Nave].R_PS = stars[N][0].R; 196 catalog[0].average[Nave].D_PS = stars[N][0].D; 196 197 catalog[0].average[Nave].M = NO_MAG; 197 198 catalog[0].average[Nave].dM = NO_MAG; … … 211 212 } 212 213 213 catalog[0].measure[Nmeas].dR = 0.0;214 catalog[0].measure[Nmeas].dD = 0.0;214 catalog[0].measure[Nmeas].dR_PS = 0.0; 215 catalog[0].measure[Nmeas].dD_PS = 0.0; 215 216 catalog[0].measure[Nmeas].M = MIN (1000*stars[N][0].M, NO_MAG); 216 217 catalog[0].measure[Nmeas].dM = MIN (1000*stars[N][0].dM, NO_ERR); -
trunk/Ohana/src/addstar/src/replace_match.c
r3376 r4800 10 10 for (i = 0; i < average[0].Nm; i++) { 11 11 if (measure[i].source != thiscode[0].code) continue; 12 measure[i].dR = 360000.0*(average[0].R- star[0].R);13 measure[i].dD = 360000.0*(average[0].D- star[0].D);12 measure[i].dR_PS = 3600.0*(average[0].R_PS - star[0].R); 13 measure[i].dD_PS = 3600.0*(average[0].D_PS - star[0].D); 14 14 measure[i].M = MIN (1000*star[0].M, NO_MAG); 15 15 measure[i].dM = MIN (1000*star[0].dM, NO_ERR); -
trunk/Ohana/src/addstar/src/update_coords.c
r3376 r4800 19 19 continue; 20 20 } 21 R = measure[m].dR ;22 D = measure[m].dD ;21 R = measure[m].dR_PS; 22 D = measure[m].dD_PS; 23 23 r += R; 24 24 d += D; … … 33 33 r = r / Npt; /* these are corrections in 1/100 arcsec to RA and DEC */ 34 34 d = d / Npt; 35 average[0].R -= r / 360000.0;36 average[0].D -= d / 360000.0;35 average[0].R_PS -= r / 3600.0; 36 average[0].D_PS -= d / 3600.0; 37 37 m = average[0].offset; /* first measurement of this star */ 38 38 for (i = 0; i < average[0].Nm; i++) { 39 measure[m].dR -= r;40 measure[m].dD -= d;39 measure[m].dR_PS -= r; 40 measure[m].dD_PS -= d; 41 41 m = next[m]; 42 42 } -
trunk/Ohana/src/gastro/src/gptolemy.c
r2435 r4800 41 41 /* select all entries, ignore magnitudes */ 42 42 for (i = 0; i < catalog.Naverage; i++, nstar++) { 43 stars[0][nstar].X = catalog.average[i].R ;44 stars[0][nstar].Y = catalog.average[i].D ;43 stars[0][nstar].X = catalog.average[i].R_PS; 44 stars[0][nstar].Y = catalog.average[i].D_PS; 45 45 stars[0][nstar].mag = 0.001*catalog.measure[catalog.average[i].offset].M; 46 46 } … … 49 49 # if (0) 50 50 for (i = 0; i < catalog.Naverage; i++, nstar++) { 51 stars[0][nstar].X = catalog.average[i].R ;52 stars[0][nstar].Y = catalog.average[i].D ;51 stars[0][nstar].X = catalog.average[i].R_PS; 52 stars[0][nstar].Y = catalog.average[i].D_PS; 53 53 GotIt = FALSE; 54 54 if (catalog.average[i].M != NO_MAG) { -
trunk/Ohana/src/gastro2/src/gptolemy2.c
r2442 r4800 39 39 /* select all entries, ignore magnitudes */ 40 40 for (i = 0; i < catalog.Naverage; i++, nstar++) { 41 stars[nstar].R = catalog.average[i].R ;42 stars[nstar].D = catalog.average[i].D ;41 stars[nstar].R = catalog.average[i].R_PS; 42 stars[nstar].D = catalog.average[i].D_PS; 43 43 stars[nstar].M = 0.001*catalog.measure[catalog.average[i].offset].M; 44 44 } -
trunk/Ohana/src/libautocode/def/average.d
r4023 r4800 2 2 EXTNAME DVO_AVERAGE 3 3 TYPE BINTABLE 4 SIZE 324 SIZE 40 5 5 6 6 # elements of data structure / FITS table 7 7 8 FIELD R , RA, float, RA, decimal degrees9 FIELD D , DEC, float, DEC, decimal degrees8 FIELD R_PS, RA, double, RA, decimal degrees 9 FIELD D_PS, DEC, double, DEC, decimal degrees 10 10 FIELD M, MAG, short, primary mag, millimag 11 11 FIELD Nm, NMEAS, unsigned short, number of measures -
trunk/Ohana/src/libautocode/def/measure.d
r4023 r4800 2 2 EXTNAME DVO_MEASURE 3 3 TYPE BINTABLE 4 SIZE 3 24 SIZE 36 5 5 6 6 # elements of data structure / FITS table 7 7 8 FIELD dR, D_RA, short, RA offset, 1/100 arcsec 9 FIELD dD, D_DEC, short, DEC offset, 1/100 arcsec 8 # these are the entries from the Elixir DB format: 9 # FIELD dR, D_RA, short, RA offset, 1/100 arcsec 10 # FIELD dD, D_DEC, short, DEC offset, 1/100 arcsec 11 # replace these with the above names 12 FIELD dR_PS, D_RA, float, RA offset, arcsec 13 FIELD dD_PS, D_DEC, float, DEC offset, arcsec 14 10 15 FIELD M, MAG, short, catalog mag, millimag 11 16 FIELD Mcal, Mcal, short, image cal mag, millimag -
trunk/Ohana/src/libautocode/doc/notes.txt
r3515 r4800 14 14 - fits_fread_datatable_NAME 15 15 - fits_fwrite_datatable_NAME 16 17 18 16 19 17 FITS db APIs … … 112 110 - unlock file 113 111 112 113 --- 114 115 DVO tables 116 117 I am converting all DVO tables to have an internal representation of 118 the table with the necessary precision (ie, double for RA & DEC, etc), 119 and a set of external representations in which the precision and 120 available columns are truncated to fit a specific representation. the 121 autocode tables then include the internal name (ie, measure.d) and the 122 external versions (ie, measure-elixir.d, etc). 123 124 To pursue this, I have modifed the definion of measure.d to replace, 125 eg, dR with dR_PS. I am now compiling all of ohana and looking for 126 places where the new name is needed in the code, stopping the 127 compilation. (In the process, I am being forced to clean up the 128 relphot - at least - coding problems: unused variables, undeclared 129 functions, etc). After I have made the changes, I will search for all 130 instances of dR_PS and return them to their original. 131 132 The only things to watch for in this process are units for the 133 values. In the older code, the value of measure.dR was interpreted as 134 1/100th of an arcsec. Everywhere this was the interpretation must be 135 changed to make the value represent 1 arcsec. This will also be an 136 issue for the internal magnitude representations, which all use 137 millimags... 138 -
trunk/Ohana/src/mosastro/src/gptolemy.c
r3294 r4800 29 29 for (i = 0; i < catalog.Naverage; i++) { 30 30 bzero (&stars[i], sizeof(StarData)); 31 stars[i].R = catalog.average[i].R ;32 stars[i].D = catalog.average[i].D ;31 stars[i].R = catalog.average[i].R_PS; 32 stars[i].D = catalog.average[i].D_PS; 33 33 stars[i].Mag = 0.001*catalog.measure[catalog.average[i].offset].M; 34 34 } -
trunk/Ohana/src/opihi/dvo/calextract.c
r4689 r4800 103 103 vec[Nm ][0].elements[N] = M2; 104 104 vec[NC ][0].elements[N] = color; 105 vec[NR ][0].elements[N] = catalog.average[i].R ;106 vec[ND ][0].elements[N] = catalog.average[i].D ;105 vec[NR ][0].elements[N] = catalog.average[i].R_PS; 106 vec[ND ][0].elements[N] = catalog.average[i].D_PS; 107 107 vec[Nd1][0].elements[N] = ExtractAverages (code[0], mode[0], &catalog.average[i], &catalog.secfilt[i*Nsec], &catalog.measure[m], AVE_dMAG); 108 108 vec[Nd2][0].elements[N] = dM2; -
trunk/Ohana/src/opihi/dvo/calmextract.c
r4689 r4800 138 138 vec[Nc ][0].elements[N] = color; 139 139 vec[Ns ][0].elements[N] = Nstar; 140 vec[NR ][0].elements[N] = catalog.average[i].R ;141 vec[ND ][0].elements[N] = catalog.average[i].D ;140 vec[NR ][0].elements[N] = catalog.average[i].R_PS; 141 vec[ND ][0].elements[N] = catalog.average[i].D_PS; 142 142 } 143 143 Nstar ++; -
trunk/Ohana/src/opihi/dvo/catalog.c
r4689 r4800 196 196 dparse (&D, Ad, tbuffer); 197 197 dparse (&M, Am, tbuffer); 198 catalog.average[nstar].R = R;199 catalog.average[nstar].D = D;198 catalog.average[nstar].R_PS = R; 199 catalog.average[nstar].D_PS = D; 200 200 catalog.average[nstar].M = M * 1000.0; 201 201 nstar++; … … 238 238 dparse (&D, Ad, &tbuffer[i*Bytes_Star]); 239 239 dparse (&M, Am, &tbuffer[i*Bytes_Star]); 240 catalog.average[nstar].R = R;241 catalog.average[nstar].D = D;240 catalog.average[nstar].R_PS = R; 241 catalog.average[nstar].D_PS = D; 242 242 catalog.average[nstar].M = M * 1000.0; 243 243 nstar++; … … 288 288 dparse (&D, 2, &tbuffer[i*BYTES_STAR]); 289 289 dparse (&M, 3, &tbuffer[i*BYTES_STAR]); 290 catalog.average[nstar].R = R;291 catalog.average[nstar].D = D;290 catalog.average[nstar].R_PS = R; 291 catalog.average[nstar].D_PS = D; 292 292 catalog.average[nstar].M = M * 1000.0; 293 293 nstar++; … … 347 347 if (LimExclude && (Zvec.elements[N] > 0.99)) continue; 348 348 if (Zvec.elements[N] < 0.011) continue; 349 while (catalog.average[i].R < Rmin) catalog.average[i].R+= 360.0;350 while (catalog.average[i].R > Rmax) catalog.average[i].R-= 360.0;351 if (fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R , catalog.average[i].D, &graphmode.coords)) N ++;349 while (catalog.average[i].R_PS < Rmin) catalog.average[i].R_PS += 360.0; 350 while (catalog.average[i].R_PS > Rmax) catalog.average[i].R_PS -= 360.0; 351 if (fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R_PS, catalog.average[i].D_PS, &graphmode.coords)) N ++; 352 352 } 353 353 break; … … 362 362 if (Zvec.elements[N] == 0.01) 363 363 continue; 364 while (catalog.average[i].R < Rmin) catalog.average[i].R+= 360.0;365 while (catalog.average[i].R > Rmax) catalog.average[i].R-= 360.0;366 if (fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R , catalog.average[i].D, &graphmode.coords)) N++;364 while (catalog.average[i].R_PS < Rmin) catalog.average[i].R_PS += 360.0; 365 while (catalog.average[i].R_PS > Rmax) catalog.average[i].R_PS -= 360.0; 366 if (fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R_PS, catalog.average[i].D_PS, &graphmode.coords)) N++; 367 367 } 368 368 break; … … 377 377 if (Zvec.elements[N] == 0.01) 378 378 continue; 379 while (catalog.average[i].R < Rmin) catalog.average[i].R+= 360.0;380 while (catalog.average[i].R > Rmax) catalog.average[i].R-= 360.0;381 if (fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R , catalog.average[i].D, &graphmode.coords)) N++;379 while (catalog.average[i].R_PS < Rmin) catalog.average[i].R_PS += 360.0; 380 while (catalog.average[i].R_PS > Rmax) catalog.average[i].R_PS -= 360.0; 381 if (fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R_PS, catalog.average[i].D_PS, &graphmode.coords)) N++; 382 382 } 383 383 break; -
trunk/Ohana/src/opihi/dvo/cmatch.c
r3462 r4800 85 85 dparse (&D, 2, &tbuffer[i*BYTES_STAR]); 86 86 dparse (&M, 3, &tbuffer[i*BYTES_STAR]); 87 catalog2.average[nstar].R = R;88 catalog2.average[nstar].D = D;87 catalog2.average[nstar].R_PS = R; 88 catalog2.average[nstar].D_PS = D; 89 89 catalog2.average[nstar].M = M * 1000.0; 90 90 nstar++; -
trunk/Ohana/src/opihi/dvo/compare.c
r3462 r4800 19 19 for (i = j = 0; (i < catlog1[0].Naverage) && (j < catlog2[0].Naverage);) { 20 20 21 dX = catlog1[0].average[i].R - catlog2[0].average[j].R;21 dX = catlog1[0].average[i].R_PS - catlog2[0].average[j].R_PS; 22 22 23 23 if (!(i % 100)) … … 32 32 first_j = j; 33 33 for (j = first_j; (fabs (dX) < radius) && (j < catlog2[0].Naverage); j++) { 34 dX = catlog1[0].average[i].R - catlog2[0].average[j].R;35 dY = catlog1[0].average[i].D - catlog2[0].average[j].D;34 dX = catlog1[0].average[i].R_PS - catlog2[0].average[j].R_PS; 35 dY = catlog1[0].average[i].D_PS - catlog2[0].average[j].D_PS; 36 36 dR = hypot (dX, dY); 37 37 if (dR < radius) { 38 rvec[0].elements[Nmatch] = catlog1[0].average[i].R ;39 dvec[0].elements[Nmatch] = catlog1[0].average[i].D ;38 rvec[0].elements[Nmatch] = catlog1[0].average[i].R_PS; 39 dvec[0].elements[Nmatch] = catlog1[0].average[i].D_PS; 40 40 mvec[0].elements[Nmatch] = catlog1[0].average[i].M; 41 41 drvec[0].elements[Nmatch] = dX; -
trunk/Ohana/src/opihi/dvo/dmt.c
r4689 r4800 97 97 Yvec.elements[N] = (dmt1 + dmt2) / 2.0; 98 98 if (SaveVectors) { 99 Rvec.elements[N] = catalog.average[i].R ;100 Dvec.elements[N] = catalog.average[i].D ;99 Rvec.elements[N] = catalog.average[i].R_PS; 100 Dvec.elements[N] = catalog.average[i].D_PS; 101 101 Zvec.elements[N] = M0; 102 102 } -
trunk/Ohana/src/opihi/dvo/dvomisc.c
r3462 r4800 15 15 16 16 for (i = 0; i < Naverage; i++) { 17 A = average[i].R ;18 D = average[i].D ;17 A = average[i].R_PS; 18 D = average[i].D_PS; 19 19 SD = cos(RAD_DEG*A + zeta)*sin(theta)*cos(RAD_DEG*D) + cos(theta)*sin(RAD_DEG*D); 20 20 CD = sqrt (1 - SD*SD); … … 28 28 RA += 360; 29 29 30 average[i].R = RA;31 average[i].D = DEC;30 average[i].R_PS = RA; 31 average[i].D_PS = DEC; 32 32 } 33 33 … … 59 59 j = (l << 1) + 1; 60 60 while (j <= ir) { 61 if (j < ir && ave[j].R < ave[j+1].R) j++;62 if (tmp.R < ave[j].R) {61 if (j < ir && ave[j].R_PS < ave[j+1].R_PS) j++; 62 if (tmp.R_PS < ave[j].R_PS) { 63 63 ave[i] = ave[j]; 64 64 j += (i=j) + 1; -
trunk/Ohana/src/opihi/dvo/gstar.c
r4689 r4800 81 81 /* stars are not guaranteed to be sorted in RA or in DEC, so first sort the list */ 82 82 for (i = 0; i < Nstars; i++) { 83 RA[i] = catalog.average[i].R ;84 DEC[i] = catalog.average[i].D ;83 RA[i] = catalog.average[i].R_PS; 84 DEC[i] = catalog.average[i].D_PS; 85 85 N1[i] = i; 86 86 } … … 127 127 k = N1[i]; 128 128 fprintf (GetOutfile(), "star: %d\n", k); 129 fprintf (GetOutfile(), "%9.5f %9.5f %3d of %3d %4.1f %5d\n", catalog.average[k].R , catalog.average[k].D,129 fprintf (GetOutfile(), "%9.5f %9.5f %3d of %3d %4.1f %5d\n", catalog.average[k].R_PS, catalog.average[k].D_PS, 130 130 catalog.average[k].Nm, catalog.average[k].Nn + catalog.average[k].Nm, 131 131 0.01*catalog.average[k].Xp, catalog.average[k].code); … … 164 164 fprintf (GetOutfile(), "%6.3f %6.3f %5.3f %20s %5.2f %5.2f %2d %3x %3d %-20s\n", 165 165 Mcat, Mrel, 0.001*catalog.measure[m].dM, 166 date, 0.01*catalog.measure[m].dR, 0.01*catalog.measure[m].dD,166 date, catalog.measure[m].dR_PS, catalog.measure[m].dD_PS, 167 167 catalog.measure[m].dophot, catalog.measure[m].flags, 168 168 catalog.measure[m].source, GetPhotcodeNamebyCode (catalog.measure[m].source)); -
trunk/Ohana/src/opihi/dvo/imdata.c
r4689 r4800 134 134 if ((catalog.measure[i].t < start) || (catalog.measure[i].t > stop)) continue; 135 135 n = catalog.measure[i].averef; 136 vec[0].elements[N] = catalog.average[n].R - catalog.measure[i].dR / 360000.0;136 vec[0].elements[N] = catalog.average[n].R_PS - catalog.measure[i].dR_PS / 3600.0; 137 137 N++; 138 138 CHECK_REALLOCATE (vec[0].elements, float, NPTS, N, 1000); … … 143 143 if ((catalog.measure[i].t < start) || (catalog.measure[i].t > stop)) continue; 144 144 n = catalog.measure[i].averef; 145 vec[0].elements[N] = catalog.average[n].D - catalog.measure[i].dD / 360000.0;145 vec[0].elements[N] = catalog.average[n].D_PS - catalog.measure[i].dD_PS / 3600.0; 146 146 N++; 147 147 CHECK_REALLOCATE (vec[0].elements, float, NPTS, N, 1000); -
trunk/Ohana/src/opihi/dvo/lcurve.c
r4689 r4800 101 101 /* stars are not guaranteed to be sorted in RA or in DEC, so first sort the list */ 102 102 for (i = 0; i < Nstars; i++) { 103 RA[i] = catalog.average[i].R ;104 DEC[i] = catalog.average[i].D ;103 RA[i] = catalog.average[i].R_PS; 104 DEC[i] = catalog.average[i].D_PS; 105 105 N1[i] = i; 106 106 } -
trunk/Ohana/src/opihi/dvo/lightcurve.c
r4689 r4800 78 78 /* stars are not guaranteed to be sorted in RA or in DEC, so first sort the list */ 79 79 for (i = 0; i < Nstars; i++) { 80 RA[i] = catalog.average[i].R ;81 DEC[i] = catalog.average[i].D ;80 RA[i] = catalog.average[i].R_PS; 81 DEC[i] = catalog.average[i].D_PS; 82 82 N1[i] = i; 83 83 } -
trunk/Ohana/src/opihi/dvo/photometry.c
r4689 r4800 564 564 switch (param) { 565 565 case AVE_RA: 566 value = average[0].R ;566 value = average[0].R_PS; 567 567 break; 568 568 case AVE_DEC: 569 value = average[0].D ;569 value = average[0].D_PS; 570 570 break; 571 571 case AVE_NMEAS: … … 1057 1057 break; 1058 1058 case MEAS_RA: /* OK */ 1059 value = average[0].R - measure[0].dR / 360000.0;1059 value = average[0].R_PS - measure[0].dR_PS / 3600.0; 1060 1060 break; 1061 1061 case MEAS_DEC: /* OK */ 1062 value = average[0].D - measure[0].dD / 360000.0;1062 value = average[0].D_PS - measure[0].dD_PS / 3600.0; 1063 1063 break; 1064 1064 case MEAS_dMAG: /* OK */ … … 1078 1078 break; 1079 1079 case MEAS_dR: /* OK */ 1080 value = 0.01*measure[0].dR;1080 value = measure[0].dR_PS; 1081 1081 break; 1082 1082 case MEAS_dD: /* OK */ 1083 value = 0.01*measure[0].dD;1083 value = measure[0].dD_PS; 1084 1084 break; 1085 1085 case MEAS_FWHM: /* OK */ … … 1093 1093 break; 1094 1094 case MEAS_XCCD: /* OK */ 1095 ra = average[0].R - measure[0].dR / 360000.0;1096 dec = average[0].D - measure[0].dD / 360000.0;1095 ra = average[0].R_PS - measure[0].dR_PS / 3600.0; 1096 dec = average[0].D_PS - measure[0].dD_PS / 3600.0; 1097 1097 image = MatchImage (measure[0].t, measure[0].source); 1098 1098 if (image == NULL) break; … … 1101 1101 break; 1102 1102 case MEAS_YCCD: /* OK */ 1103 ra = average[0].R - measure[0].dR / 360000.0;1104 dec = average[0].D - measure[0].dD / 360000.0;1103 ra = average[0].R_PS - measure[0].dR_PS / 3600.0; 1104 dec = average[0].D_PS - measure[0].dD_PS / 3600.0; 1105 1105 image = MatchImage (measure[0].t, measure[0].source); 1106 1106 if (image == NULL) break; … … 1109 1109 break; 1110 1110 case MEAS_XMOSAIC: /* OK */ 1111 ra = average[0].R - measure[0].dR / 360000.0;1112 dec = average[0].D - measure[0].dD / 360000.0;1111 ra = average[0].R_PS - measure[0].dR_PS / 3600.0; 1112 dec = average[0].D_PS - measure[0].dD_PS / 3600.0; 1113 1113 mosaic = MatchMosaic (measure[0].t, measure[0].source); 1114 1114 if (mosaic == NULL) break; … … 1117 1117 break; 1118 1118 case MEAS_YMOSAIC: /* OK */ 1119 ra = average[0].R - measure[0].dR / 360000.0;1120 dec = average[0].D - measure[0].dD / 360000.0;1119 ra = average[0].R_PS - measure[0].dR_PS / 3600.0; 1120 dec = average[0].D_PS - measure[0].dD_PS / 3600.0; 1121 1121 mosaic = MatchMosaic (measure[0].t, measure[0].source); 1122 1122 if (mosaic == NULL) break; -
trunk/Ohana/src/opihi/dvo/pmeasure.c
r4689 r4800 121 121 for (N = i = 0; i < catalog.Naverage; i++) { 122 122 if (IDclip && (catalog.average[i].code != IDchoice)) continue; 123 while (catalog.average[i].R < Rmin) catalog.average[i].R+= 360.0;124 while (catalog.average[i].R > Rmax) catalog.average[i].R-= 360.0;123 while (catalog.average[i].R_PS < Rmin) catalog.average[i].R_PS += 360.0; 124 while (catalog.average[i].R_PS > Rmax) catalog.average[i].R_PS -= 360.0; 125 125 m = catalog.average[i].offset; 126 126 for (k = 0; k < catalog.average[i].Nm; k++) { … … 134 134 if (LimExclude && (Zvec.elements[N] > 0.99)) continue; 135 135 if (Zvec.elements[N] < 0.011) continue; 136 fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R - 2.777e-6*catalog.measure[m+k].dR, catalog.average[i].D - 2.777e-6*catalog.measure[m+k].dD, &graphmode.coords);136 fRD_to_XY (&Xvec.elements[N], &Yvec.elements[N], catalog.average[i].R_PS - catalog.measure[m+k].dR_PS/3600.0, catalog.average[i].D_PS - catalog.measure[m+k].dD_PS/3600.0, &graphmode.coords); 137 137 N ++; 138 138 } -
trunk/Ohana/src/opihi/dvo/subpix.c
r3462 r4800 61 61 ALLOCATE (index, int, Nstars); 62 62 for (i = 0; i < Nstars; i++) { 63 RA[i] = catalog.average[i].R ;64 DEC[i] = catalog.average[i].D ;63 RA[i] = catalog.average[i].R_PS; 64 DEC[i] = catalog.average[i].D_PS; 65 65 index[i] = i; 66 66 }
Note:
See TracChangeset
for help on using the changeset viewer.
