| pal.h | pal.h | |||
|---|---|---|---|---|
| skipping to change at line 32 | skipping to change at line 32 | |||
| * TIMJ: Tim Jenness (JAC, Hawaii) | * TIMJ: Tim Jenness (JAC, Hawaii) | |||
| * {enter_new_authors_here} | * {enter_new_authors_here} | |||
| * Notes: | * Notes: | |||
| * | * | |||
| * History: | * History: | |||
| * 2012-02-08 (TIMJ): | * 2012-02-08 (TIMJ): | |||
| * Initial version. Define all SLA prototypes in PAL form even | * Initial version. Define all SLA prototypes in PAL form even | |||
| * though none are implemented. | * though none are implemented. | |||
| * Adapted with permission from the Fortran SLALIB library. | ||||
| * {enter_further_changes_here} | * {enter_further_changes_here} | |||
| * Copyright: | * Copyright: | |||
| * Copyright (C) 2012 Science and Technology Facilities Council. | * Copyright (C) 2012 Science and Technology Facilities Council. | |||
| * All Rights Reserved. | * All Rights Reserved. | |||
| * Licence: | * Licence: | |||
| * This program is free software; you can redistribute it and/or | * This program is free software; you can redistribute it and/or | |||
| * modify it under the terms of the GNU General Public License as | * modify it under the terms of the GNU General Public License as | |||
| * published by the Free Software Foundation; either version 3 of | * published by the Free Software Foundation; either version 3 of | |||
| End of changes. 1 change blocks. | ||||
| 0 lines changed or deleted | 1 lines changed or added | |||
| palmac.h | palmac.h | |||
|---|---|---|---|---|
| skipping to change at line 32 | skipping to change at line 32 | |||
| * TIMJ: Tim Jenness (JAC, Hawaii) | * TIMJ: Tim Jenness (JAC, Hawaii) | |||
| * DSB: David Berry (JAC, Hawaii) | * DSB: David Berry (JAC, Hawaii) | |||
| * {enter_new_authors_here} | * {enter_new_authors_here} | |||
| * Notes: | * Notes: | |||
| * | * | |||
| * History: | * History: | |||
| * 2012-02-08 (TIMJ): | * 2012-02-08 (TIMJ): | |||
| * Initial version. | * Initial version. | |||
| * Adapted with permission from the Fortran SLALIB library. | ||||
| * 2012-04-13 (DSB): | * 2012-04-13 (DSB): | |||
| * Added PAL__DR2H and PAL__DR2S | * Added PAL__DR2H and PAL__DR2S | |||
| * {enter_further_changes_here} | * {enter_further_changes_here} | |||
| * Copyright: | * Copyright: | |||
| * Copyright (C) 2012 Science and Technology Facilities Council. | * Copyright (C) 2012 Science and Technology Facilities Council. | |||
| * All Rights Reserved. | * All Rights Reserved. | |||
| * Licence: | * Licence: | |||
| * This program is free software; you can redistribute it and/or | * This program is free software; you can redistribute it and/or | |||
| skipping to change at line 67 | skipping to change at line 68 | |||
| * {note_any_bugs_here} | * {note_any_bugs_here} | |||
| *- | *- | |||
| */ | */ | |||
| /* Pi */ | /* Pi */ | |||
| static const double PAL__DPI = 3.141592653589793238462643383279502884197169 3993751; | static const double PAL__DPI = 3.141592653589793238462643383279502884197169 3993751; | |||
| /* 2Pi */ | /* 2Pi */ | |||
| static const double PAL__D2PI = 6.28318530717958647692528676655900576839433 87987502; | static const double PAL__D2PI = 6.28318530717958647692528676655900576839433 87987502; | |||
| /* pi/2: 90 degrees in radians */ | ||||
| static const double PAL__DPIBY2 = 1.570796326794896619231321691639751442098 | ||||
| 5846996876; | ||||
| /* pi/180: degrees to radians */ | /* pi/180: degrees to radians */ | |||
| static const double PAL__DD2R = 0.0174532925199432957692369076848861271344 28718885417; | static const double PAL__DD2R = 0.01745329251994329576923690768488612713442 8718885417; | |||
| /* 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 */ | /* Radians to degrees */ | |||
| static const double PAL__DR2D = 57.2957795130823208767981548141051703324054 72466564; | static const double PAL__DR2D = 57.2957795130823208767981548141051703324054 72466564; | |||
| /* Hours to radians */ | ||||
| static const double PAL__DH2R = 0.26179938779914943653855361527329190701643 | ||||
| 078328126; | ||||
| /* 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 */ | /* Seconds of time to radians */ | |||
| static const double PAL__DS2R = 7.272205216643039903848712e-5; | static const double PAL__DS2R = 7.272205216643039903848712e-5; | |||
| /* Start of SLA modified Julian date epoch */ | /* Start of SLA modified Julian date epoch */ | |||
| skipping to change at line 112 | skipping to change at line 119 | |||
| is an expression including other constants. */ | is an expression including other constants. */ | |||
| #define PAL__PMF (100.0*60.0*60.0*360.0/PAL__D2PI); | #define PAL__PMF (100.0*60.0*60.0*360.0/PAL__D2PI); | |||
| /* Mean sidereal rate - the rotational angular velocity of Earth | /* Mean sidereal rate - the rotational angular velocity of Earth | |||
| 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; | |||
| /* DINR(A) - truncate to nearest whole number towards zero (double) */ | ||||
| #define DINT(A) ((A)<0.0?ceil(A):floor(A)) | ||||
| /* 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 */ | /* DMIN(A,B) - return minimum value - evaluates arguments multiple times */ | |||
| #define DMIN(A,B) ((A) < (B) ? (A) : (B) ) | #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 | |||
| End of changes. 5 change blocks. | ||||
| 1 lines changed or deleted | 13 lines changed or added | |||