# include #ifdef VAX # include #else VAX # include #endif VAX # include #define EPOCH 1985 #define EPSILONg 279.611371 /* solar ecliptic long at EPOCH */ #define RHOg 282.680403 /* solar ecliptic long of perigee at EPOCH */ #define e 0.01671542 /* solar orbit eccentricity */ #define lzero 18.251907 /* lunar mean long at EPOCH */ #define Pzero 192.917585 /* lunar mean long of perigee at EPOCH */ #define Nzero 55.204723 /* lunar mean long of node at EPOCH */ # define PI 3.141592654