pal.h | pal.h | |||
---|---|---|---|---|
skipping to change at line 96 | skipping to change at line 96 | |||
double wl, double tlr, | double wl, double tlr, | |||
double *aob, double *zob, double *hob, | double *aob, double *zob, double *hob, | |||
double *dob, double *rob ); | double *dob, double *rob ); | |||
void palAoppa ( double date, double dut, double elongm, double phim, | void palAoppa ( double date, double dut, double elongm, double phim, | |||
double hm, double xp, double yp, double tdk, double pmb, | double hm, double xp, double yp, double tdk, double pmb, | |||
double rh, double wl, double tlr, double aoprms[14] ); | double rh, double wl, double tlr, double aoprms[14] ); | |||
void palAoppat ( double date, double aoprms[14] ); | void palAoppat ( double date, double aoprms[14] ); | |||
void palAopqk ( double rap, double dap, double aoprms[14], | void palAopqk ( double rap, double dap, const double aoprms[14], | |||
double *aob, double *zob, double *hob, | double *aob, double *zob, double *hob, | |||
double *dob, double *rob ); | double *dob, double *rob ); | |||
void palAtmdsp ( double tdk, double pmb, double rh, double wl1, | void palAtmdsp ( double tdk, double pmb, double rh, double wl1, | |||
double a1, double b1, double wl2, double *a2, double *b2 ) ; | double a1, double b1, double wl2, double *a2, double *b2 ) ; | |||
void palAv2m ( float axvec[3], float rmat[3][3] ); | void palAv2m ( float axvec[3], float rmat[3][3] ); | |||
float palBear ( float a1, float b1, float a2, float b2 ); | float palBear ( float a1, float b1, float a2, float b2 ); | |||
skipping to change at line 374 | skipping to change at line 374 | |||
void palNutc ( double date, double *dpsi, double *deps, double *eps0 ); | void palNutc ( double date, double *dpsi, double *deps, double *eps0 ); | |||
void palNutc80 ( double date, double *dpsi, double *deps, double *eps0 ); | void palNutc80 ( double date, double *dpsi, double *deps, double *eps0 ); | |||
void palOap ( const char *type, double ob1, double ob2, double date, | void palOap ( const char *type, double ob1, double ob2, double date, | |||
double dut, double elongm, double phim, double hm, | double dut, double elongm, double phim, double hm, | |||
double xp, double yp, double tdk, double pmb, | double xp, double yp, double tdk, double pmb, | |||
double rh, double wl, double tlr, | double rh, double wl, double tlr, | |||
double *rap, double *dap ); | double *rap, double *dap ); | |||
void palOapqk ( const char *type, double ob1, double ob2, double aoprms[14] , | void palOapqk ( const char *type, double ob1, double ob2, const double aopr ms[14], | |||
double *rap, double *dap ); | double *rap, double *dap ); | |||
int palObs( size_t n, const char * c, | int palObs( size_t n, const char * c, | |||
char * ident, size_t identlen, | char * ident, size_t identlen, | |||
char * name, size_t namelen, | char * name, size_t namelen, | |||
double * w, double * p, double * h ); | double * w, double * p, double * h ); | |||
double palPa ( double ha, double dec, double phi ); | double palPa ( double ha, double dec, double phi ); | |||
double palPav ( float v1[3], float v2[3] ); | double palPav ( float v1[3], float v2[3] ); | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added | |||
palmac.h | palmac.h | |||
---|---|---|---|---|
skipping to change at line 76 | skipping to change at line 76 | |||
/* pi/180: degrees to radians */ | /* pi/180: degrees to radians */ | |||
static const double PAL__DD2R = 0.0174532925199432957692369076848861271344 28718885417; | static const double PAL__DD2R = 0.0174532925199432957692369076848861271344 28718885417; | |||
/* Radians to arcseconds */ | /* Radians to arcseconds */ | |||
static const double PAL__DR2AS = 2.0626480624709635515647335733077861319665 970087963e5; | static const double PAL__DR2AS = 2.0626480624709635515647335733077861319665 970087963e5; | |||
/* Arcseconds to radians */ | /* Arcseconds to radians */ | |||
static const double PAL__DAS2R = 4.8481368110953599358991410235794797595635 330237270e-6; | static const double PAL__DAS2R = 4.8481368110953599358991410235794797595635 330237270e-6; | |||
/* Radians to degrees */ | ||||
static const double PAL__DR2D = 57.2957795130823208767981548141051703324054 | ||||
72466564; | ||||
/* Radians to hours */ | /* Radians to hours */ | |||
static const double PAL__DR2H = 3.81971863420548805845321032094034468882703 14977709; | static const double PAL__DR2H = 3.81971863420548805845321032094034468882703 14977709; | |||
/* Radians to seconds of time */ | /* Radians to seconds of time */ | |||
static const double PAL__DR2S = 1.37509870831397570104315571553852408797773 13391975e4; | static const double PAL__DR2S = 1.37509870831397570104315571553852408797773 13391975e4; | |||
/* Seconds of time to radians */ | ||||
static const double PAL__DS2R = 7.272205216643039903848712e-5; | ||||
/* Start of SLA modified Julian date epoch */ | /* Start of SLA modified Julian date epoch */ | |||
static const double PAL__MJD0 = 2400000.5; | static const double PAL__MJD0 = 2400000.5; | |||
/* Light time for 1 AU (sec) */ | /* Light time for 1 AU (sec) */ | |||
static const double PAL__CR = 499.004782; | static const double PAL__CR = 499.004782; | |||
/* Seconds per day */ | /* Seconds per day */ | |||
static const double PAL__SPD = 86400.0; | static const double PAL__SPD = 86400.0; | |||
/* Km per sec to AU per tropical century | /* Km per sec to AU per tropical century | |||
skipping to change at line 110 | skipping to change at line 116 | |||
in radians/sec from IERS Conventions (2003). */ | in radians/sec from IERS Conventions (2003). */ | |||
static const double PAL__SR = 7.2921150e-5; | static const double PAL__SR = 7.2921150e-5; | |||
/* Gaussian gravitational constant (exact) */ | /* Gaussian gravitational constant (exact) */ | |||
static const double PAL__GCON = 0.01720209895; | static const double PAL__GCON = 0.01720209895; | |||
/* DNINT(A) - round to nearest whole number (double) */ | /* DNINT(A) - round to nearest whole number (double) */ | |||
#define DNINT(A) ((A)<0.0?ceil((A)-0.5):floor((A)+0.5)) | #define DNINT(A) ((A)<0.0?ceil((A)-0.5):floor((A)+0.5)) | |||
/* DMAX(A,B) - return maximum value - evaluates arguments multiple times */ | /* DMAX(A,B) - return maximum value - evaluates arguments multiple times */ | |||
#define DMAX(A,B) (A > B ? A : B ) | #define DMAX(A,B) ((A) > (B) ? (A) : (B) ) | |||
/* DMIN(A,B) - return minimum value - evaluates arguments multiple times */ | ||||
#define DMIN(A,B) ((A) < (B) ? (A) : (B) ) | ||||
/* We actually prefer to use C99 copysign() but we define this here as a ba ckup | /* We actually prefer to use C99 copysign() but we define this here as a ba ckup | |||
but it will not detect -0.0 so is not useful for palDfltin. */ | but it will not detect -0.0 so is not useful for palDfltin. */ | |||
/* DSIGN(A,B) - magnitude of A with sign of B (double) */ | /* DSIGN(A,B) - magnitude of A with sign of B (double) */ | |||
#define DSIGN(A,B) ((B)<0.0?-fabs(A):fabs(A)) | #define DSIGN(A,B) ((B)<0.0?-fabs(A):fabs(A)) | |||
#endif | #endif | |||
End of changes. 3 change blocks. | ||||
1 lines changed or deleted | 11 lines changed or added | |||