Changeset 3884 for trunk/psLib/src/astro/psTime.c
- Timestamp:
- May 11, 2005, 12:02:16 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
r3712 r3884 10 10 * @author Ross Harman, MHPCC 11 11 * 12 * @version $Revision: 1. 59$ $Name: not supported by cvs2svn $13 * @date $Date: 2005-0 4-19 02:13:53$12 * @version $Revision: 1.60 $ $Name: not supported by cvs2svn $ 13 * @date $Date: 2005-05-11 22:02:15 $ 14 14 * 15 15 * Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii … … 43 43 44 44 /** Two times pi with double precision accuracy */ 45 #define TWOPI (2.0* PS_PI)45 #define TWOPI (2.0*M_PI) 46 46 47 47 /** Conversion from radians to degrees */ 48 #define R2DEG = (180.0/ PS_PI)48 #define R2DEG = (180.0/M_PI) 49 49 50 50 /** Maximum length of time string */ … … 563 563 564 564 t = 2000.0 + (mjd - 51544.03)/365.2422; 565 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);565 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); 566 566 result = dut->data.F64[0] + dut->data.F64[1]*(mjd - dut->data.F64[2]) - dut2ut1; 567 567 … … 692 692 } 693 693 694 // Create output sphere and convert arcsec to radians (i.e. x/60/60* PS_PI/180)694 // Create output sphere and convert arcsec to radians (i.e. x/60/60*M_PI/180) 695 695 output = psAlloc(sizeof(psSphere)); 696 output->r = x * PS_PI / 648000.0;697 output->d = y * PS_PI / 648000.0;696 output->r = x * M_PI / 648000.0; 697 output->d = y * M_PI / 648000.0; 698 698 699 699 return output;
Note:
See TracChangeset
for help on using the changeset viewer.
