Further improvements

1 files changed, 0 insertions, 418 deletions

diff --git a/include/slalib.h b/include/slalib.h
deleted file mode 100644
index 1cba29a..0000000
--- a/include/slalib.h
+++ /dev/null
@@ -1,418 +0,0 @@
-#ifndef SLALIBHDEF
-#define SLALIBHDEF
-#include <math.h>
-
-/*
-**  - - - - - - - - -
-**   s l a l i b . h
-**  - - - - - - - - -
-**
-**  Prototype function declarations for slalib library.
-**
-**  Last revision:   29 November 1996
-**
-**  Copyright P.T.Wallace.  All rights reserved.
-*/
-
-void slaAddet ( double rm, double dm, double eq, double *rc, double *dc );
-
-void slaAfin ( char *string, int *iptr, float *a, int *j );
-
-double slaAirmas ( double zd );
-
-void slaAltaz ( double ha, double dec, double phi,
-                double *az, double *azd, double *azdd,
-                double *el, double *eld, double *eldd,
-                double *pa, double *pad, double *padd );
-
-void slaAmp ( double ra, double da, double date, double eq,
-              double *rm, double *dm );
-
-void slaAmpqk ( double ra, double da, double amprms[21],
-                double *rm, double *dm );
-
-void slaAop ( double rap, double dap, double date, double dut,
-              double elongm, double phim, double hm, double xp,
-              double yp, double tdk, double pmb, double rh,
-              double wl, double tlr,
-              double *aob, double *zob, double *hob,
-              double *dob, double *rob );
-
-void slaAoppa ( double date, double dut, double elongm, double phim,
-                double hm, double xp, double yp, double tdk, double pmb,
-                double rh, double wl, double tlr, double aoprms[14] );
-
-void slaAoppat ( double date, double aoprms[14] );
-
-void slaAopqk ( double rap, double dap, double aoprms[14],
-                double *aob, double *zob, double *hob,
-                double *dob, double *rob );
-
-void slaAtmdsp ( double tdk, double pmb, double rh, double wl1,
-                 double a1, double b1, double wl2, double *a2, double *b2 );
-
-void slaAv2m ( float axvec[3], float rmat[3][3] );
-
-float slaBear ( float a1, float b1, float a2, float b2 );
-
-void slaCaf2r ( int ideg, int iamin, float asec, float *rad, int *j );
-
-void slaCaldj ( int iy, int im, int id, double *djm, int *j );
-
-void slaCalyd ( int iy, int im, int id, int *ny, int *nd, int *j );
-
-void slaCc2s ( float v[3], float *a, float *b );
-
-void slaCc62s ( float v[6], float *a, float *b, float *r,
-                float *ad, float *bd, float *rd );
-
-void slaCd2tf ( int ndp, float days, char *sign, int ihmsf[4] );
-
-void slaCldj ( int iy, int im, int id, double *djm, int *j );
-
-void slaClyd ( int iy, int im, int id, int *ny, int *nd, int *jstat );
-
-void slaCr2af ( int ndp, float angle, char *sign, int idmsf[4] );
-
-void slaCr2tf ( int ndp, float angle, char *sign, int ihmsf[4] );
-
-void slaCs2c ( float a, float b, float v[3] );
-
-void slaCs2c6 ( float a, float b, float r, float ad,
-                float bd, float rd, float v[6] );
-
-void slaCtf2d ( int ihour, int imin, float sec, float *days, int *j );
-
-void slaCtf2r ( int ihour, int imin, float sec, float *rad, int *j );
-
-void slaDaf2r ( int ideg, int iamin, double asec, double *rad, int *j );
-
-void slaDafin ( char *string, int *iptr, double *a, int *j );
-
-double slaDat ( double dju );
-
-void slaDav2m ( double axvec[3], double rmat[3][3] );
-
-double slaDbear ( double a1, double b1, double a2, double b2 );
-
-void slaDbjin ( char *string, int *nstrt,
-                double *dreslt, int *jf1, int *jf2 );
-
-void slaDc62s ( double v[6], double *a, double *b, double *r,
-                double *ad, double *bd, double *rd );
-
-void slaDcc2s ( double v[3], double *a, double *b );
-
-void slaDcmpf ( double coeffs[6], double *xz, double *yz, double *xs,
-                double *ys, double *perp, double *orient );
-
-void slaDcs2c ( double a, double b, double v[3] );
-
-void slaDd2tf ( int ndp, double days, char *sign, int ihmsf[4] );
-
-void slaDe2h ( double ha, double dec, double phi,
-               double *az, double *el );
-
-void slaDeuler ( char *order, double phi, double theta, double psi,
-                 double rmat[3][3] );
-
-void slaDfltin ( char *string, int *nstrt, double *dreslt, int *jflag );
-
-void slaDh2e ( double az, double el, double phi, double *ha, double *dec);
-
-void slaDimxv ( double dm[3][3], double va[3], double vb[3] );
-
-void slaDjcal ( int ndp, double djm, int iymdf[4], int *j );
-
-void slaDjcl ( double djm, int *iy, int *im, int *id, double *fd, int *j );
-
-void slaDm2av ( double rmat[3][3], double axvec[3] );
-
-void slaDmat ( int n, double *a, double *y, double *d, int *jf, int *iw );
-
-void slaDmoon ( double date, double pv[6] );
-
-void slaDmxm ( double a[3][3], double b[3][3], double c[3][3] );
-
-void slaDmxv ( double dm[3][3], double va[3], double vb[3] );
-
-void slaDr2af ( int ndp, double angle, char *sign, int idmsf[4] );
-
-void slaDr2tf ( int ndp, double angle, char *sign, int ihmsf[4] );
-
-double slaDrange ( double angle );
-
-double slaDranrm ( double angle );
-
-void slaDs2c6 ( double a, double b, double r, double ad, double bd,
-                double rd, double v[6] );
-
-void slaDs2tp ( double ra, double dec, double raz, double decz,
-                double *xi, double *eta, int *j );
-
-double slaDsep ( double a1, double b1, double a2, double b2 );
-
-double slaDt ( double epoch );
-
-void slaDtf2d ( int ihour, int imin, double sec, double *days, int *j );
-
-void slaDtf2r ( int ihour, int imin, double sec, double *rad, int *j );
-
-void slaDtp2s ( double xi, double eta, double raz, double decz,
-                double *ra, double *dec );
-
-void slaDtp2v ( double xi, double eta, double v0[3], double v[3] );
-
-void slaDtps2c ( double xi, double eta, double ra, double dec,
-                 double *raz1, double *decz1,
-                 double *raz2, double *decz2, int *n );
-
-void slaDtpv2c ( double xi, double eta, double v[3],
-                 double v01[3], double v02[3], int *n );
-
-double slaDtt ( double dju );
-
-void slaDv2tp ( double v[3], double v0[3], double *xi, double *eta, int *j );
-
-double slaDvdv ( double va[3], double vb[3] );
-
-void slaDvn ( double v[3], double uv[3], double *vm );
-
-void slaDvxv ( double va[3], double vb[3], double vc[3] );
-
-void slaE2h ( float ha, float dec, float phi, float *az, float *el );
-
-void slaEarth ( int iy, int id, float fd, float posvel[6] );
-
-void slaEcleq ( double dl, double db, double date, double *dr, double *dd );
-
-void slaEcmat ( double date, double rmat[3][3] );
-
-void slaEcor ( float rm, float dm, int iy, int id, float fd,
-               float *rv, float *tl );
-
-void slaEg50 ( double dr, double dd, double *dl, double *db );
-
-double slaEpb ( double date );
-
-double slaEpb2d ( double epb );
-
-double slaEpco ( char k0, char k, double e );
-
-double slaEpj ( double date );
-
-double slaEpj2d ( double epj );
-
-void slaEqecl ( double dr, double dd, double date, double *dl, double *db );
-
-double slaEqeqx ( double date );
-
-void slaEqgal ( double dr, double dd, double *dl, double *db );
-
-void slaEtrms ( double ep, double ev[3] );
-
-void slaEuler ( char *order, float phi, float theta, float psi,
-                float rmat[3][3] );
-
-void slaEvp ( double date, double deqx,
-              double dvb[3], double dpb[3],
-              double dvh[3], double dph[3] );
-
-void slaFitxy ( int itype, int np, double xye[][2], double xym[][2],
-                double coeffs[6], int *j );
-
-void slaFk425 ( double r1950, double d1950, double dr1950,
-                double dd1950, double p1950, double v1950,
-                double *r2000, double *d2000, double *dr2000,
-                double *dd2000, double *p2000, double *v2000 );
-
-void slaFk45z ( double r1950, double d1950, double bepoch,
-                double *r2000, double *d2000 );
-
-void slaFk524 ( double r2000, double d2000, double dr2000,
-                double dd2000, double p2000, double v2000,
-                double *r1950, double *d1950, double *dr1950,
-                double *dd1950, double *p1950, double *v1950 );
-
-void slaFk54z ( double r2000, double d2000, double bepoch,
-                double *r1950, double *d1950,
-                double *dr1950, double *dd1950 );
-
-void slaFlotin ( char *string, int *nstrt, float *reslt, int *jflag );
-
-void slaGaleq ( double dl, double db, double *dr, double *dd );
-
-void slaGalsup ( double dl, double db, double *dsl, double *dsb );
-
-void slaGe50 ( double dl, double db, double *dr, double *dd );
-
-void slaGeoc ( double p, double h, double *r, double *z );
-
-double slaGmst ( double ut1 );
-
-double slaGmsta ( double date, double ut1 );
-
-void slaH2e ( float az, float el, float phi, float *ha, float *dec );
-
-void slaImxv ( float rm[3][3], float va[3], float vb[3] );
-
-void slaIntin ( char *string, int *nstrt, long *ireslt, int *jflag );
-
-void slaInvf ( double fwds[6], double bkwds[6], int *j );
-
-void slaKbj ( int jb, double e, char *k, int *j );
-
-void slaM2av ( float rmat[3][3], float axvec[3] );
-
-void slaMap ( double rm, double dm, double pr, double pd,
-              double px, double rv, double eq, double date,
-              double *ra, double *da );
-
-void slaMappa ( double eq, double date, double amprms[21] );
-
-void slaMapqk ( double rm, double dm, double pr, double pd,
-                double px, double rv, double amprms[21],
-                double *ra, double *da );
-
-void slaMapqkz ( double rm, double dm, double amprms[21],
-                 double *ra, double *da );
-
-void slaMoon ( int iy, int id, float fd, float posvel[6] );
-
-void slaMxm ( float a[3][3], float b[3][3], float c[3][3] );
-
-void slaMxv ( float rm[3][3], float va[3], float vb[3] );
-
-void slaNut ( double date, double rmatn[3][3] );
-
-void slaNutc ( double date, double *dpsi, double *deps, double *eps0 );
-
-void slaOap ( char *type, double ob1, double ob2, double date,
-              double dut, double elongm, double phim, double hm,
-              double xp, double yp, double tdk, double pmb,
-              double rh, double wl, double tlr,
-              double *rap, double *dap );
-
-void slaOapqk ( char *type, double ob1, double ob2, double aoprms[14],
-                double *rap, double *dap );
-
-void slaObs ( int n, char *c, char *name, double *w, double *p, double *h );
-
-double slaPa ( double ha, double dec, double phi );
-
-void slaPcd ( double disco, double *x, double *y );
-
-void slaPda2h ( double p, double d, double a,
-                double *h1, int *j1, double *h2, int *j2 );
-
-void slaPdq2h ( double p, double d, double q,
-                double *h1, int *j1, double *h2, int *j2 );
-
-void slaPlanet ( double date, int np, double pv[6], int *j );
-
-void slaPm ( double r0, double d0, double pr, double pd,
-             double px, double rv, double ep0, double ep1,
-             double *r1, double *d1 );
-
-void slaPolmo ( double elongm, double phim, double xp, double yp,
-                double *elong, double *phi, double *daz );
-
-void slaPrebn ( double bep0, double bep1, double rmatp[3][3] );
-
-void slaPrec ( double ep0, double ep1, double rmatp[3][3] );
-
-void slaPrecl ( double ep0, double ep1, double rmatp[3][3] );
-
-void slaPreces ( char sys[3], double ep0, double ep1,
-                 double *ra, double *dc );
-
-void slaPrenut ( double epoch, double date, double rmatpn[3][3] );
-
-void slaPvobs ( double p, double h, double stl, double pv[6] );
-
-void slaPxy ( int np, double xye[][2], double xym[][2],
-              double coeffs[6],
-              double xyp[][2], double *xrms, double *yrms, double *rrms );
-
-float slaRange ( float angle );
-
-float slaRanorm ( float angle );
-
-double slaRcc ( double tdb, double ut1, double wl, double u, double v );
-
-void slaRdplan ( double date, int np, double elong, double phi,
-                 double *ra, double *dec, double *diam );
-
-void slaRefco ( double hm, double tdk, double pmb, double rh,
-                double wl, double phi, double tlr, double eps,
-                double *refa, double *refb );
-
-void slaRefro ( double zobs, double hm, double tdk, double pmb,
-                double rh, double wl, double phi, double tlr, double eps,
-                double *ref );
-
-void slaRefv ( double vu[3], double refa, double refb, double vr[3] );
-
-void slaRefz ( double zu, double refa, double refb, double *zr );
-
-float slaRverot ( float phi, float ra, float da, float st );
-
-float slaRvgalc ( float r2000, float d2000 );
-
-float slaRvlg ( float r2000, float d2000 );
-
-float slaRvlsrd ( float r2000, float d2000 );
-
-float slaRvlsrk ( float r2000, float d2000 );
-
-void slaS2tp ( float ra, float dec, float raz, float decz,
-               float *xi, float *eta, int *j );
-
-float slaSep ( float a1, float b1, float a2, float b2 );
-
-void slaSmat ( int n, float *a, float *y, float *d, int *jf, int *iw );
-
-void slaSubet ( double rc, double dc, double eq,
-                double *rm, double *dm );
-
-void slaSupgal ( double dsl, double dsb, double *dl, double *db );
-
-void slaSvd ( int m, int n, int mp, int np,
-              double *a, double *w, double *v, double *work,
-              int *jstat );
-
-void slaSvdcov ( int n, int np, int nc,
-                 double *w, double *v, double *work, double *cvm );
-
-void slaSvdsol ( int m, int n, int mp, int np,
-                 double *b, double *u, double *w, double *v,
-                 double *work, double *x );
-
-void slaTp2s ( float xi, float eta, float raz, float decz,
-               float *ra, float *dec );
-
-void slaTp2v ( float xi, float eta, float v0[3], float v[3] );
-
-void slaTps2c ( float xi, float eta, float ra, float dec,
-                float *raz1, float *decz1,
-                float *raz2, float *decz2, int *n );
-
-void slaTpv2c ( float xi, float eta, float v[3],
-                float v01[3], float v02[3], int *n );
-
-void slaUnpcd ( double disco, double *x, double *y );
-
-void slaV2tp ( float v[3], float v0[3], float *xi, float *eta, int *j );
-
-float slaVdv ( float va[3], float vb[3] );
-
-void slaVn ( float v[3], float uv[3], float *vm );
-
-void slaVxv ( float va[3], float vb[3], float vc[3] );
-
-void slaXy2xy ( double x1, double y1, double coeffs[6],
-                double *x2, double *y2 );
-
-double slaZd ( double ha, double dec, double phi );
-
-#endif