home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / grafx.zip / PHYSCON.ICL < prev    next >
Text File  |  1989-01-10  |  948b  |  24 lines
  1. c    ********************************************************************
  2. c    ...physical constants
  3. c
  4.     parameter (api=3.1415926535,a2pi=2.0*api,apio2=api/2.0)
  5.     parameter (atwopi=a2pi)
  6.     parameter (acdtor=a2pi/360.0,acrtod=1.0/acdtor)
  7.     parameter (aerkm=6378.135,ackmtor=1.0/aerkm)
  8.     parameter (aernm=3444.058,apernm=3432.458,acnmtor=1.0/aernm)
  9.     parameter (aws=6.300387832,agm=107.0866)
  10.     parameter (aee=0.0820055,aee2=aee**2,a1maee2=1.0-aee2)
  11. c
  12. c    api     - the constant pi
  13. c    acrtod  - convert radians to degrees
  14. c    aerkm   - earth radius in kilometers
  15. c    aernm   - earth radius in nautical miles
  16. c    apernm  - polar earth radius in nautical miles
  17. c    aws     - earth rotation rate (radians per day)
  18. c    agm     - earth gravitational constant (sqrt(mu) for DU e.r. 
  19. c                and TU days.)
  20. c    aee     - eccentricity of the oblate earth 
  21. c                (aee=sqrt(1.0-(apernm/aernm)**2)
  22. c
  23. c    ********************************************************************
  24.