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