forked from Wallen-github/Jplde_Ephemeris_C
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathjplbin.h
59 lines (52 loc) · 1.69 KB
/
jplbin.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
/***************************************************************************
******* JPLBIN.H v.1.2 *********
****************************************************************************
** This header file is used both by ASC2EPH and TESTEPH programs. **
** It is NECESSARY TO ADJUST IT MANUALLY for different ephemerides. **
****************************************************************************
** Written: May 28, 1997 by PAD ** Last modified: June 23,1997 by PAD **
****************************************************************************
** PAD: dr. Piotr A. Dybczynski, e-mail: [email protected] **
** Astronomical Observatory of the A.Mickiewicz Univ., Poznan, Poland **
***************************************************************************/
/* UNCOMMENT ONE AND ONLY ONE OF THE FOLLOWING DENUM DEFINITIONS: */
/*#define DENUM 200*/
/*#define DENUM 403*/
/*#define DENUM 404*/
#define DENUM 405
/*#define DENUM 406*/
#if DENUM==200
#define KSIZE 1652
#elif DENUM==403 || DENUM==405
#define KSIZE 2036
#elif DENUM==404 || DENUM==406
#define KSIZE 1456
#endif
#define NRECL 4
#define RECSIZE (NRECL*KSIZE)
#define NCOEFF (KSIZE/2)
#define TRUE 1
#define FALSE 0
/* we use long int instead of int for DOS-Linux compatibility */
struct rec1{
char ttl[3][84];
char cnam[400][6];
double ss[3];
long int ncon;
double au;
double emrat;
long int ipt[12][3];
long int numde;
long int lpt[3];
};
struct{
struct rec1 r1;
char spare[RECSIZE-sizeof(struct rec1)];
} R1;
struct rec2{
double cval[400];
};
struct{
struct rec2 r2;
char spare[RECSIZE-sizeof(struct rec2)];
} R2;