Changeset 3182 for trunk/psLib/src/astro/psTime.c
- Timestamp:
- Feb 9, 2005, 4:36:42 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/psLib/src/astro/psTime.c (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psLib/src/astro/psTime.c
r3114 r3182 10 10 * @author Ross Harman, MHPCC 11 11 * 12 * @version $Revision: 1.5 0$ $Name: not supported by cvs2svn $13 * @date $Date: 2005-02- 03 00:45:06$12 * @version $Revision: 1.51 $ $Name: not supported by cvs2svn $ 13 * @date $Date: 2005-02-10 02:36:41 $ 14 14 * 15 15 * Copyright 2004 Maui High Performance Computing Center, University of Hawaii … … 43 43 44 44 /** Two times pi with double precision accuracy */ 45 #define TWOPI (2.0* M_PI)45 #define TWOPI (2.0*PS_PI) 46 46 47 47 /** Conversion from radians to degrees */ 48 #define R2DEG = (180.0/ M_PI)48 #define R2DEG = (180.0/PS_PI) 49 49 50 50 /** Maximum length of time string */ … … 548 548 549 549 t = 2000.0 + (mjd - 51544.03)/365.2422; 550 dut2ut1 = 0.022*sin(TWOPI*t) - 0.012*cos(TWOPI*t) - 0.006*sin(4.0* M_PI*t) + 0.007*cos(4.0*M_PI*t);550 dut2ut1 = 0.022*sin(TWOPI*t) - 0.012*cos(TWOPI*t) - 0.006*sin(4.0*PS_PI*t) + 0.007*cos(4.0*PS_PI*t); 551 551 result = dut->data.F64[0] + dut->data.F64[1]*(mjd - dut->data.F64[2]) - dut2ut1; 552 552 … … 677 677 } 678 678 679 // Create output sphere and convert arcsec to radians (i.e. x/60/60* M_PI/180)679 // Create output sphere and convert arcsec to radians (i.e. x/60/60*PS_PI/180) 680 680 output = psAlloc(sizeof(psSphere)); 681 output->r = x * M_PI / 648000.0;682 output->d = y * M_PI / 648000.0;681 output->r = x * PS_PI / 648000.0; 682 output->d = y * PS_PI / 648000.0; 683 683 684 684 return output;
Note:
See TracChangeset
for help on using the changeset viewer.
