Changeset 4800 for trunk/Ohana/src/opihi/dvo/dvomisc.c
- Timestamp:
- Aug 16, 2005, 3:04:36 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Ohana/src/opihi/dvo/dvomisc.c (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
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;
Note:
See TracChangeset
for help on using the changeset viewer.
