Deleted Added
sdiff udiff text old ( 2491 ) new ( 9987 )
full compact
pom.c (2491) pom.c (9987)
1/*
2 * Copyright (c) 1989, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * This code is derived from software posted to USENET.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions

--- 41 unchanged lines hidden (view full) ---

50 * particular piece of code was adapted from.
51 *
52 * -- Keith E. Brandt VIII 1984
53 *
54 */
55
56#include <sys/time.h>
57#include <stdio.h>
1/*
2 * Copyright (c) 1989, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * This code is derived from software posted to USENET.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions

--- 41 unchanged lines hidden (view full) ---

50 * particular piece of code was adapted from.
51 *
52 * -- Keith E. Brandt VIII 1984
53 *
54 */
55
56#include <sys/time.h>
57#include <stdio.h>
58#include <tzfile.h>
59#include <math.h>
60
61#define PI 3.141592654
62#define EPOCH 85
63#define EPSILONg 279.611371 /* solar ecliptic long at EPOCH */
64#define RHOg 282.680403 /* solar ecliptic long of perigee at EPOCH */
65#define ECCEN 0.01671542 /* solar orbit eccentricity */
66#define lzero 18.251907 /* lunar mean long at EPOCH */
67#define Pzero 192.917585 /* lunar mean long of perigee at EPOCH */
68#define Nzero 55.204723 /* lunar mean long of node at EPOCH */
58#include <math.h>
59
60#define PI 3.141592654
61#define EPOCH 85
62#define EPSILONg 279.611371 /* solar ecliptic long at EPOCH */
63#define RHOg 282.680403 /* solar ecliptic long of perigee at EPOCH */
64#define ECCEN 0.01671542 /* solar orbit eccentricity */
65#define lzero 18.251907 /* lunar mean long at EPOCH */
66#define Pzero 192.917585 /* lunar mean long of perigee at EPOCH */
67#define Nzero 55.204723 /* lunar mean long of node at EPOCH */
68#define isleap(y) (((y) % 4) == 0 && ((y) % 100) != 0 || ((y) % 400) == 0)
69
70double dtor(), potm(), adj360();
71
72main()
73{
74 extern int errno;
75 struct timeval tp;
76 struct timezone tzp;

--- 102 unchanged lines hidden --- 		69
70double dtor(), potm(), adj360();
71
72main()
73{
74 extern int errno;
75 struct timeval tp;
76 struct timezone tzp;

--- 102 unchanged lines hidden ---