File: deltaT_test.c

package info (click to toggle)
plplot 5.14.0%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 30,424 kB
  • sloc: ansic: 79,613; xml: 28,583; cpp: 20,037; ada: 19,456; tcl: 12,081; f90: 11,423; ml: 7,276; java: 6,863; python: 6,792; sh: 3,185; perl: 828; lisp: 75; makefile: 48; sed: 33; fortran: 5
file content (20 lines) | stat: -rw-r--r-- 620 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include "deltaT.h"
#include "qsastime.h"
#include "dsplint.h"
#include <stdio.h>
int main()
{
    int    iyear;
//  double year, delta, ddelta, d2delta;
    double year, delta;
    for ( iyear = -1000; iyear <= 2000; ++iyear )
    {
        year = (double) iyear;
//    dsplint(xspline, yspline, y2spline, number_of_entries_in_spline_tables, year, &delta, &ddelta, &d2delta);
        dsplint( xspline, yspline, y2spline, number_of_entries_in_spline_tables, year, &delta );
//    printf("%9.0f.%9.0f.%15.6E%15.6E\n", year, delta, ddelta, d2delta);
        printf( "%9.0f.%9.0f.\n", year, delta );
    }
    return 0;
}