Index: trunk/MagicSoft/Cosy/catalog/SaoFile.cc =================================================================== --- trunk/MagicSoft/Cosy/catalog/SaoFile.cc (revision 740) +++ trunk/MagicSoft/Cosy/catalog/SaoFile.cc (revision 740) @@ -0,0 +1,234 @@ +#include "SaoFile.h" + +#include +#include + +#include "slamac.h" + +#include "File.h" + +#define FALSE 0 +#define TRUE 1 + +static int lt(sort_t *t1, sort_t *t2) +{ + // t1->ra < t2->ra + if (t1->ra < t2->ra) + return 1; + + // t1->ra > t2->ra + if (t1->ra > t2->ra) + return 0; + + // t1->ra == t2->ra + if (t1->dec < t2->dec) + return 1; + else + return 0; +} + + +static void rekMergesort(sort_t **a, int length, int l, int r) +{ + // a recursive merge sort algorithm + if ( r <= l ) + return; + + sort_t **b = new sort_t*[length]; + + int m = (r+l)/2; + + rekMergesort(a, length, l, m); + + rekMergesort(a, length, m+1, r); + + int i; + for (i=m+1; i>l; i--) + b[i-1]=a[i-1]; + + int j; + for (j=m; jSize()/(compressed?70-20:205); + + cout << "Opening" << (compressed?" compressed":"") << " catalog '" << name << "'" + << " with " << fEntries << " entries" << endl; + + delFlag = ' '; +} + +SaoFile::~SaoFile() +{ + delete file; +} + +int SaoFile::GetEntryNr() const +{ + return file->Tell()/(compressed?70-20:205); +} + +int SaoFile::GetEntry(const int i) +{ + file->Seek(i*(compressed?70-20:205)); + return GetNextEntry(); +} + +void SaoFile::Reset() const +{ + file->Seek(0); +} + +int SaoFile::GetNextEntry() +{ + if (file->Eof()) + return FALSE; + + SAO = file->Geti(6); + if (!compressed) + { + delFlag = file->Getc(); + file->Skip(77-8); + } + Pmag = file->Getf(4); + Vmag = file->Getf(4); + if (!compressed) + file->Skip(161/*151*/-85); + /* + RA2000h = file->geti(2); + RA2000m = file->geti(2); + RA2000s = file->getf(6); + */ + pmRA2000 = file->Getf(7); + if (!compressed) + file->Skip(178-168); + /* + DE2000sgn = file->getc(); + DE2000d = file->geti(2); + DE2000m = file->geti(2); + DE2000s = file->getf(5); + */ + pmDE2000 = file->Getf(6); + RA2000rad = file->Getf(10); + DE2000rad = file->Getf(11); + file->Newline(); + + sprintf(data, "%6i%4.1f%4.1f"/*"%2i%2i%6.3f"*/"%7.4f"/*"%c%2i%2i%5.2f"*/"%6.3f%10.8f%11.8f\n", + Nr(), MagP(), MagV(), /*RaH(), RaM(), RaS(),*/ RaPm(), + /*DecSgn(), DecD(), DecM(), DecS(),*/ DecPm(), Ra(), Dec()); + + return !file->Eof(); +} + +void SaoFile::Print() const +{ + cout << SAO << " " << delFlag << " " << Pmag << " " << Vmag << " " + << /*RA2000h << "h" << RA2000m << "m" << RA2000s << "s " << */pmRA2000 << " " + << /*DE2000sgn << DE2000d << "d" << DE2000m << "m" << DE2000s << "s " << */pmDE2000 << " Ra:" + << RA2000rad << " Dec:" << DE2000rad << endl; +} + +void SaoFile::Compress() +{ + FILE *f = fopen("sao.cmp", "w"); + + cout << endl << " Compressing catalog..." << flush; + + const int entries = GetNrOfEntries(); + const int step = entries/360; + + for (int i=0; ira = (int)(360.0*(Ra()/D2PI)); + srt[counter]->dec = (int)(360.0*(Dec()/D2PI)); + srt[counter]->nr = counter; + + if (counter%step==0) + cout << "." << flush; + + counter++; + } + cout << "done." << endl << endl; + + /* sort entries */ + cout << "Sorting coordinates..." << flush; + rekMergesort(srt, entries, 0, entries-1); + cout << "done." << endl << endl; + + cout << "Writing sorted catalogue..." << flush; + FILE *f = fopen("sao-sort.cmp", "w"); + FILE *idx = fopen("sao-sort.idx", "w"); + + int ra=0, ral=0; + int dec=0, decl=0; + for (int i=0; inr); + + ra = (int)(360.0*Ra()/D2PI); + dec = (int)(360.0*Dec()/D2PI); + + if (ra!=ral || dec!=decl) + { + if (ra!=ral) + cout << "." << flush; + fprintf(idx, "%3d %3d %10d\n", ra, dec, i); + } + + ral = ra; + decl = dec; + + fprintf(f, String()); + if (i%5000==0) + cout << "." << flush; + } + fclose(idx); + fclose(f); + cout << "done." << endl; +} + Index: trunk/MagicSoft/Cosy/catalog/SaoFile.h =================================================================== --- trunk/MagicSoft/Cosy/catalog/SaoFile.h (revision 740) +++ trunk/MagicSoft/Cosy/catalog/SaoFile.h (revision 740) @@ -0,0 +1,82 @@ +#ifndef SAOFILE_H +#define SAOFILE_H + +#include "coord.h" + +struct _sort +{ + int ra; + int dec; + int nr; +}; + +typedef struct _sort sort_t; + +class File; + +class SaoFile +{ +private: + File *file; + int compressed; + + char data[205]; + + int SAO; + char delFlag; + float Pmag; + float Vmag; + // int RA2000h; + // int RA2000m; + // float RA2000s; + float pmRA2000; + // char DE2000sgn; + // int DE2000d; + // int DE2000m; + float DE2000s; + float pmDE2000; + float RA2000rad; + float DE2000rad; + + int fEntries; + +public: + SaoFile(const char *name); + ~SaoFile(); + + void Compress(); + void Sort(); + + int GetEntryNr() const; + int GetEntry(const int i); + void Reset() const; + int GetNextEntry(); + void Print() const; + + int GetNrOfEntries() const { return fEntries; } + + int Nr() const { return SAO; } + int DelFlag() const { return delFlag=='D'; } + float MagP() const { return Pmag; } + float MagV() const { return Vmag; } + float Ra() const { return RA2000rad; } + float Dec() const { return DE2000rad; } + RaDec GetRaDec() const { return RaDec(RA2000rad, DE2000rad); } + + float RaPm() const { return pmRA2000; } + float DecPm() const { return pmDE2000; } + RaDec GetRaDecPm() const { return RaDec(pmRA2000, pmDE2000); } + + + // char DecSgn() { return DE2000sgn; } + // int RaH() { return RA2000h; } + // int DecD() { return DE2000d; } + // int RaM() { return RA2000m; } + // int DecM() { return DE2000m; } + // float RaS() { return RA2000s; } + // float DecS() { return DE2000s; } + + const char *String() const { return data; } +}; + +#endif Index: trunk/MagicSoft/Cosy/catalog/StarCatalog.cc =================================================================== --- trunk/MagicSoft/Cosy/catalog/StarCatalog.cc (revision 740) +++ trunk/MagicSoft/Cosy/catalog/StarCatalog.cc (revision 740) @@ -0,0 +1,668 @@ +#include "StarCatalog.h" + +#include // cout +#include // cout + +#include + +#include "slalib.h" +#include "slamac.h" +#include "File.h" +#include "timer.h" + +StarCatalog::StarCatalog() : fEntries(0) +{ + // p = pointer to MainFrame (not owner) + + // + // calculate observers location (goe) + // + int status; + slaDaf2r(51, 38, 48.0, &fPhi, &status); + slaDaf2r( 9, 56, 36.0, &fElong, &status); + + cout << "fPhi: 51ø38'48.0\" = " << 360.0/D2PI*fPhi << endl; + cout << "fElong: 9ø56'36.0\" = " << 360.0/D2PI*fElong << endl; + + // + // read index file + // + File idx("sao-sort.idx", "r"); + while (!idx.Eof()) + { + idx.Newline(); + fEntries++; + } + + idx.Reset(); + + fSrt = new sort_t[fEntries]; + + for (int i=0; i Alt: " << 360.0/D2PI*fAltAz.Alt(); + cout << " Az: " << fAltAz.Az() << endl; + + fRaDec = AltAz2RaDec(fAltAz); + + cout << "Ra: " << 360.0/D2PI*fRaDec.Ra(); + cout << " Dec: " << 360.0/D2PI*fRaDec.Dec() << endl; + + CalcAltAzRange(); + CalcRaDecRange(); +} + +RaDec StarCatalog::AltAz2RaDec(const AltAz &altaz) const +{ + // + // -- observed to apparent -- + // Workaraound for slalib: discard const + // + double r=0, d=0; + slaOapqk ("A", altaz.Az(), DPI/2-altaz.Alt(), (double*)fAoprms, &r, &d); + + // + // -- apparent to mean -- + // Workaraound for slalib: discard const + // + double ra, dec; + slaAmpqk(r, d, (double*)fAmprms, &ra, &dec); + + return RaDec(ra, dec); +} + +AltAz StarCatalog::RaDec2AltAz(const RaDec &radec, const RaDec &rdpm) const +{ + // + // ---- Mean to apparent ---- + // + + double r=0, d=0; + slaMapqkz(radec.Ra(), radec.Dec(), (double*)fAmprms, &r, &d); + // + // Doesn't work - don't know why + // + // slaMapqk (radec.Ra(), radec.Dec(), rdpm.Ra(), rdpm.Dec(), + // 0, 0, (double*)fAmprms, &r, &d); + // + + // + // -- apparent to observed -- + // + double r1=0; // ra + double d1=0; // dec + double h0=0; // ha + + double zd; + double az; + slaAopqk (r, d, (double*)fAoprms, + &az, // observed azimuth (radians: N=0,E=90) + &zd, // observed zenith distance (radians) [-pi/2, pi/2] + &h0, // observed hour angle (radians) + &d1, // observed declination (radians) + &r1); // observed right ascension (radians) + + return AltAz(DPI/2-zd, az); +} + +void StarCatalog::SetRaDec(const RaDec &radec, const RaDec &rdpm) +{ + fRaDec = radec; + fRaDec *= D2PI/360.0; + + RaDec pm = rdpm * D2PI/360.0; + + fAltAz = RaDec2AltAz(fRaDec, pm); + + cout << "Alt: " << 360.0/D2PI*fAltAz.Alt() << " "; + cout << "Az: " << 360.0/D2PI*fAltAz.Az() << endl; + + CalcRaDecRange(); + CalcAltAzRange(); +} + +void StarCatalog::CalcAltAzRange() +{ + char fAlt0[180]; + + for (int h=0; h<180; h++) + fAlt0[h] = kFALSE; + + for (int h=0; h<360; h++) + fAz0[h] = kFALSE; + + double az0, alt0; + double az1, alt1; + // + // scan horizontal border + // + for (int x=-768/2; x<768/2+1; x++) + { + slaDh2e(DPI+x*fPixSize, -fHeight, DPI/2-fAltAz.Alt(), &az0, &alt0); + slaDh2e(DPI+x*fPixSize, +fHeight, DPI/2-fAltAz.Alt(), &az1, &alt1); + + const int z0 = ((int)(360.0/D2PI*(az0+fAltAz.Az()))+360)%360; + const int t0 = (int)(360.0/D2PI*alt0); + + fAz0[z0] = kTRUE; + + if (-89<=t0 && t0<=90) + fAlt0[90-t0] = kTRUE; + + const int z1 = ((int)(360.0/D2PI*(az1+fAltAz.Az()))+360)%360; + const int t1 = (int)(360.0/D2PI*alt1); + + fAz0[z1] = kTRUE; + + if (-89<=t1 && t1<=90) + fAlt0[90-t1] = kTRUE; + } + + // + // scan vertical border + // + for (int y=-576/2; y<576/2+1; y++) + { + slaDh2e(DPI-fWidth, y*fPixSize, DPI/2-fAltAz.Alt(), &az0, &alt0); + slaDh2e(DPI+fWidth, y*fPixSize, DPI/2-fAltAz.Alt(), &az1, &alt1); + + const int z0 = ((int)(360.0/D2PI*(az0+fAltAz.Az()))+360)%360; + const int t0 = (int)(360.0/D2PI*alt0); + + fAz0[z0] = kTRUE; + + if (-89<=t0 && t0<=90) + fAlt0[90-t0] = kTRUE; + + const int z1 = ((int)(360.0/D2PI*(az1+fAltAz.Az()))+360)%360; + const int t1 = (int)(360.0/D2PI*alt1); + + fAz0[z1] = kTRUE; + + if (-89<=t1 && t1<=90) + fAlt0[90-t1] = kTRUE; + } + + // + // count degrees of azimut + // + fAzCnt=0; + for (int x=0; x<360; x++) + if (fAz0[x]) + fAzCnt++; + + cout << "fAzCnt: " << setw(3) << fAzCnt << " " << flush; + + // + // calculate min and max of altitude + // + fAltMin=0; + fAltMax=0; + for (int y=0; y<180; y++) + { + if (fAlt0[y]) + fAltMax = y; + + if (fAlt0[179-y]) + fAltMin = 179-y; + } + + fAltMin -= 90; + fAltMax -= 90; + + // + // check whether altaz north- or south-pole is in the visible region + // + char img[768*576]; + if (DrawAltAz(0, img, 90, 0)) + { + fAltMax=89; + cout << "Alt Az Pole1 Inside!" << endl; + } + if (DrawAltAz(0, img, -90, 0)) + { + fAltMin=-90; + cout << "Alt Az Pole2 Inside!" << endl; + } + + cout << "fAltMin: " << setw(3) << fAltMin << " "; + cout << "fAltMax: " << setw(3) << fAltMax << endl; +} +void StarCatalog::CalcRaDecRange() +{ + // + // calculate range to search in + // + char fDec[180]; + + for (int h=0; h<180; h++) + fDec[h] = kFALSE; + + for (int h=0; h<360; h++) + fRa0[h] = kFALSE; + + double ha0, ha1; + double de0, de1; + + // + // scan horizontal border + // + for (int x=-768/2; x<768/2+1; x++) + { + double dx, dy; + slaDh2e(DPI-x*fPixSize, -fHeight, DPI/2-fAltAz.Alt(), &dx, &dy); + slaDh2e(fAltAz.Az()+dx, -dy, fPhi, &ha0, &de0); + + slaDh2e(DPI-x*fPixSize, +fHeight, DPI/2-fAltAz.Alt(), &dx, &dy); + slaDh2e(fAltAz.Az()+dx, -dy, fPhi, &ha1, &de1); + + const int h0 = ((int)(360.0/D2PI*(fAlpha-ha0))+360)%360; + const int d0 = (int)(360.0/D2PI*de0); + + fRa0[h0] = kTRUE; + + if (-90<=d0 && d0<=89) + fDec[d0+90] = kTRUE; + + const int h1 = ((int)(360.0/D2PI*(fAlpha-ha1))+360)%360; + const int d1 = (int)(360.0/D2PI*de1); + + fRa0[h1] = kTRUE; + + if (-90<=d1 && d1<=89) + fDec[d1+90] = kTRUE; + } + + // + // scan vertical border + // + for (int y=-576/2; y<576/2+1; y++) + { + double dx, dy; + slaDh2e(DPI-fWidth, -y*fPixSize, DPI/2-fAltAz.Alt(), &dx, &dy); + slaDh2e(fAltAz.Az()+dx, -dy, fPhi, &ha0, &de0); + + slaDh2e(DPI+fWidth, -y*fPixSize, DPI/2-fAltAz.Alt(), &dx, &dy); + slaDh2e(fAltAz.Az()+dx, -dy, fPhi, &ha1, &de1); + + const int h0 = ((int)(360.0/D2PI*(fAlpha-ha0))+360)%360; + const int d0 = (int)(360.0/D2PI*de0); + + fRa0[h0] = kTRUE; + + if (-90<=d0 && d0<=89) + fDec[d0+90] = kTRUE; + + const int h1 = ((int)(360.0/D2PI*(fAlpha-ha1))+360)%360; + const int d1 = (int)(360.0/D2PI*de1); + + fRa0[h1] = kTRUE; + + if (-90<=d1 && d1<=89) + fDec[d1+90] = kTRUE; + } + + // + // count degrees of right ascension + // + fRaCnt=0; + for (int x=0; x<360; x++) + if (fRa0[x]) + fRaCnt++; + cout << "fRaCnt: " << setw(3) << fRaCnt << " " << flush; + + // + // calculate min and max of declination + // + for (int y=0; y<180; y++) + { + if (fDec[y]) + fDecMax = y; + + if (fDec[179-y]) + fDecMin = 179-y; + } + + fDecMin -= 90; + fDecMax -= 90; + + // + // check whether radec north- or south-pole is in the visible region + // + char img[768*576]; + if (DrawRaDec(0, img, 0, 90)) + { + fDecMax=89; + cout << "Ra Dec Pole1 Inside!" << endl; + } + if (DrawRaDec(0, img, 0, -90)) + { + fDecMin=-90; + cout << "Ra Dec Pole1 Inside!" << endl; + } + + cout << "fDecMin: " << setw(3) << fDecMin << " "; + cout << "fDecMax: " << setw(3) << fDecMax << endl; +} + +void StarCatalog::DrawSCAltAz(char *img, const int color) +{ + // + // ------------ draw az lines --------------- + // + for (int az=0; az<360; az++) + { + if (!fAz0[az]) + continue; + + for (double alt=fAltMin-1; alt88 && az%5) || alt>89.5) + continue; + + DrawAltAz(color, img, alt, az); + } + } + + // + // ------------ draw alt lines --------------- + // + for (int alt=fAltMin; alt88 && ra%5) || dec>89.5) + continue; + + DrawRaDec(color, img, ra, dec, ra==0||ra==90); + } + } + + // + // ------------ draw dec lines --------------- + // + for (int dec=fDecMin; dec767) + continue; + + const float p = xx+size-x; + const float q = 2*size - p; + const int h = (int)sqrt(p*q); + + const int y1 = yy-h; + if (y1>=0 && y1<576) + img[y1*768+x] = color; + + const int y2 = yy+h; + if (y2>=0 && y2<576) + img[y2*768+x] = color; + } +} + +Bool_t StarCatalog::DrawAltAz(const int color, char *img, double alt, double az, int size) +{ + // + // alt/az[deg] -> alt/az[rad] + // + alt *= D2PI/360.0; + az *= D2PI/360.0; + + // + // alt/az[rad] -> alt/az[pix] + // + double dx, dy; + slaDe2h(az-fAltAz.Az(), -alt, DPI/2-fAltAz.Alt(), &dx, &dy); + + // + // Align alt/az[pix] + // + const int xx = 767-(int)((fWidth-dx+DPI)/fPixSize); + const int yy = (int)((fHeight+dy)/fPixSize); + + // + // Range Check + // + if (!(0<=xx && xx<768 && 0<=yy && yy<576)) + return kFALSE; + + // + // Draw + // + DrawCircle(color, img, xx, yy, size); + + return kTRUE; +} + +Bool_t StarCatalog::Draw(const int color, char *img, const AltAz &altaz) +{ + return DrawAltAz(color, img, altaz.Alt(), altaz.Az()); +} + +Bool_t StarCatalog::Draw(const int color, char *img, const SaoFile *sao) +{ + // + // ---- mean to observed --- + // + AltAz altaz=RaDec2AltAz(sao->GetRaDec(), sao->GetRaDecPm()) * 360.0/D2PI; + + if (sao->MagV() > fLimitMag) + return kFALSE; + + const int mag = (10 - (sao->MagV()>1 ? (int)sao->MagV() : 1))/2; + + // + // ---- imaging ----- + // + return DrawAltAz(color, img, altaz.Alt(), altaz.Az(), mag); +} + +Bool_t StarCatalog::DrawRaDec(const int color, char *img, double ra, double dec, int size) +{ + // + // radec[deg] -> radec[rad] + // + ra *= D2PI/360.0; + dec *= D2PI/360.0; + + // + // radec[rad] -> hadec[rad] + // + const double ha = fAlpha-ra; + + // + // hadec[rad] -> altaz[rad] + // + double alt, az; + slaDe2h(ha, dec, fPhi, &az, &alt); + + // + // altaz[rad] -> altaz[deg] + // + alt *= 360.0/D2PI; + az *= 360.0/D2PI; + + return DrawAltAz(color, img, alt, az, size); +} + +Bool_t StarCatalog::Draw(const int color, char *img, const RaDec &radec) +{ + return DrawRaDec(color, img, radec.Ra(), radec.Dec()); +} + +void StarCatalog::CalcImg(char *img) +{ + + // + // --------- search for stars in catalog ---------- + // + int count = 0; + int deleted = 0; + + int idx = 0; + + while (fSrt[idx].decGetEntry(nr++); + + // + // Try to draw star into the image (white) + // + if (!Draw(0xff, img, fSao)) + deleted++; + + count++; + } + while ((int)(360.0/D2PI*fSao->Ra())==ra); + } + + cout << " " << count << "-" << deleted << "=" << count-deleted << " " << flush; +} + Index: trunk/MagicSoft/Cosy/catalog/StarCatalog.h =================================================================== --- trunk/MagicSoft/Cosy/catalog/StarCatalog.h (revision 740) +++ trunk/MagicSoft/Cosy/catalog/StarCatalog.h (revision 740) @@ -0,0 +1,87 @@ +#ifndef STARCATALOG_H +#define STARCATALOG_H + +#ifndef ROOT_TROOT +#include +#endif +#ifndef SAOFILE_H +#include "SaoFile.h" +#endif + +#include "coord.h" + +class StarCatalog +{ +private: + SaoFile *fSao; + sort_t *fSrt; + int fEntries; + + double fPhi; // location of observatory + double fElong; + + double fPixSize; // [rad/pix] size of one pixel + double fWidth; // size of display + double fHeight; // + + float fLimitMag; // [M] limiting magnitude for display + + AltAz fAltAz; // [rad] + char fAz0[360]; + int fAltMin; + int fAltMax; + int fAzCnt; + + RaDec fRaDec; // [rad] + char fRa0[360]; + int fRaCnt; + int fDecMin; + int fDecMax; + + double fAlpha; + double fMjd; + double fAmprms[21]; + double fAoprms[14]; + + void DrawCross(char *img, const int x, const int y); + void DrawCircle(int color, char *img, int xx, int yy, int size); + + Bool_t DrawAltAz(const int color, char *img, double alt, double az, int size=0); + Bool_t DrawRaDec(const int color, char *img, double ra, double dec, int size=0); + + Bool_t Draw(const int color, char *img, const AltAz &altaz); + Bool_t Draw(const int color, char *img, const RaDec &radec); + Bool_t Draw(const int color, char *img, const SaoFile *sao); + + void CalcImg(char *); + + void SetAltAz(const AltAz &altaz); + void SetMjd(const double mjd); + void DrawSCAltAz(char *img, const int color); + void DrawSCRaDec(char *img, const int color); + void SetRaDec(const RaDec &radec, const RaDec &rdpm); + + void CalcRaDecRange(); + void CalcAltAzRange(); + + RaDec AltAz2RaDec(const AltAz &altaz) const; + AltAz RaDec2AltAz(const RaDec &radec, const RaDec &rdpm) const; + +public: + StarCatalog(); + virtual ~StarCatalog(); + + void GetImg(char *img, char *cimg, const double utc, + const RaDec &radec); + void GetImg(char *img, char *cimg, const double utc, + const AltAz &altaz); + + const AltAz GetAltAz() const { return fAltAz*360/D2PI; } + const ZdAz GetZdAz() const { return ZdAz(DPI/2-fAltAz.Alt(), fAltAz.Az())*360/D2PI; } + const RaDec GetRaDec() const { return fRaDec*360/D2PI; } + + void SetPixSize(const double pixsize); + void SetLimitMag(const float mag) { fLimitMag = mag; }; +}; + +#endif Index: trunk/MagicSoft/Cosy/gui/MGCosy.cc =================================================================== --- trunk/MagicSoft/Cosy/gui/MGCosy.cc (revision 740) +++ trunk/MagicSoft/Cosy/gui/MGCosy.cc (revision 740) @@ -0,0 +1,289 @@ +#include "MGCosy.h" + +#include "msgqueue.h" + +#include + +#include // TGPopupMenu +#include // TGButton +#include // gSystem +#include // TGLabel +#include // TGHorizontal3DLine + +#include "timer.h" // Timer + +#include "MCosy.h" +#include "MGList.h" +#include "MGCoordinates.h" + +#define IDM_EXIT 1 +#define IDM_TEXT 2 + +#define kPB_POSITION 0x1001 +#define kPB_TRACK 0x1002 +#define kPB_STOP 0x1003 +#define kPB_CALCALTAZ 0x1004 +#define kPB_POLARIS 0x1005 + +#define kEF_A 0x1010 +#define kEF_B 0x1011 + +void MGCosy::CreateMenu() +{ + fLayMenuBar = new TGLayoutHints (kLHintsNormal | kLHintsExpandX); + fLayMenuItem = new TGLayoutHints (kLHintsNormal, 0, 4, 0, 0); + + // + // crate the menu bar + // + TGPopupMenu *fFileMenu = new TGPopupMenu(fClient->GetRoot()); + fFileMenu->AddEntry ("Exit", IDM_EXIT) ; + fFileMenu->Associate(this); + fList->Add(fFileMenu); + + // + // the button messages are handled by main frame (this) + // + TGMenuBar *fMenuBar = new TGMenuBar(this, 1, 1, kHorizontalFrame); + fMenuBar->AddPopup("File", fFileMenu, fLayMenuItem); + AddFrame(fMenuBar); + fList->Add(fMenuBar); + + // + // Seperator beyonf menubar + // + TGHorizontal3DLine *fLineSep = new TGHorizontal3DLine(this); + AddFrame(fLineSep, fLayMenuBar); + fList->Add(fLineSep); + +} + +void MGCosy::CreateLabel() +{ + fLabel1 = new TGLabel*[3]; + fLabel1[0] = new TGLabel(this, "00000"); // Max: 16384 + fLabel1[0]->SetTextJustify(kTextRight); + fLabel1[0]->Move(5, 40); + fList->Add(fLabel1[0]); + // AddFrame(fLabel1[0], new TGLayoutHints(kLHintsNormal, 0, 0, 0, 0)); + fLabel1[1] = new TGLabel(this, "000"); // Max: 256 + fLabel1[1]->SetTextJustify(kTextRight); + fLabel1[1]->Move(48, 40); + fList->Add(fLabel1[1]); + // AddFrame(fLabel1[1], new TGLayoutHints(kLHintsNormal, 0, 0, 0, 0)); + fLabel1[2] = new TGLabel(this, "000"); // Max: 256 + fLabel1[2]->SetTextJustify(kTextRight); + fLabel1[2]->Move(75, 40); + fList->Add(fLabel1[2]); + // AddFrame(fLabel1[2], new TGLayoutHints(kLHintsNormal, 9, 9, 9, 9)); + + fLabel2 = new TGLabel*[3]; + fLabel2[0] = new TGLabel(this, "00000"); + fLabel2[0]->SetTextJustify(kTextRight); + fLabel2[0]->Move(5, 60); + fList->Add(fLabel2[0]); + // AddFrame(fLabel2[0], new TGLayoutHints); //(kLHintsNormal, 0, 0, 0, 0)); + fLabel2[1] = new TGLabel(this, "000"); + fLabel2[1]->SetTextJustify(kTextRight); + fLabel2[1]->Move(48, 60); + fList->Add(fLabel2[1]); + // AddFrame(fLabel2[1], new TGLayoutHints); //(kLHintsNormal, 1, 0, 0, 0)); + fLabel2[2] = new TGLabel(this, "000"); + fLabel2[2]->SetTextJustify(kTextRight); + fLabel2[2]->Move(75, 60); + fList->Add(fLabel2[2]); + // AddFrame(fLabel2[2], new TGLayoutHints); //(kLHintsNormal, 2, 0, 0, 0)); + + fLabel3 = new TGLabel*[3]; + fLabel3[0] = new TGLabel(this, "00000"); + fLabel3[0]->SetTextJustify(kTextRight); + fLabel3[0]->Move(5, 80); + fList->Add(fLabel3[0]); + // AddFrame(fLabel3[0]); //, new TGLayoutHints(kLHintsNormal, 0, 0, 0, 0)); + fLabel3[1] = new TGLabel(this, "000"); + fLabel3[1]->SetTextJustify(kTextRight); + fLabel3[1]->Move(48, 80); + fList->Add(fLabel3[1]); + // AddFrame(fLabel3[1]); //, new TGLayoutHints(kLHintsNormal, 1, 0, 0, 0)); + fLabel3[2] = new TGLabel(this, "000"); + fLabel3[2]->SetTextJustify(kTextRight); + fLabel3[2]->Move(75, 80); + fList->Add(fLabel3[2]); + // AddFrame(fLabel3[2]); //, new TGLayoutHints(kLHintsNormal, 2, 0, 0, 0)); +} + +void MGCosy::CreateButton() +{ + TGTextButton *fButton1 = new TGTextButton(this, "Position Zd/Az", kPB_POSITION); + TGTextButton *fButton2 = new TGTextButton(this, "Track Ra/Dec", kPB_TRACK); + TGTextButton *fButton3 = new TGTextButton(this, "Stop", kPB_STOP); + TGTextButton *fButton4 = new TGTextButton(this, "Calc Zd/Az", kPB_CALCALTAZ); + TGTextButton *fButton5 = new TGTextButton(this, "Set Polaris", kPB_POLARIS); + fButton1->Move(110, 40); + fButton2->Move(110, 65); + fButton3->Move(260, 90); + fButton4->Move(110, 90); + fButton5->Move(110, 115); + fButton1->SetToolTipText("Move Telescope to Zd/Az position."); + fButton2->SetToolTipText("Track the coordinates given in Ra/Dec."); + fButton3->SetToolTipText("Stop movement of telescope."); + fButton4->SetToolTipText("Calculate Zd/Az corresponding to Ra/Dec."); + fButton5->SetToolTipText("Set the actual position as the position of Polaris."); + fList->Add(fButton1); + fList->Add(fButton2); + fList->Add(fButton3); + fList->Add(fButton4); + fList->Add(fButton5); +} + +MGCosy::MGCosy(MsgQueue *q, const TGWindow *p, UInt_t w, UInt_t h) + : TGMainFrame(p, w, h), fQueue(q) +{ + fList = new MGList; + + CreateMenu(); + CreateLabel(); + CreateButton(); + + fCoord = new MGCoordinates(this, kTRUE, + "Coordinate 1 [\xb0]:", "Coordinate 2 [\xb0]:"); + fCoord->Move(10, 160); + fList->Add(fCoord); + + // + // Map the window, set up the layout, etc. + // + SetWMSizeHints(350, 250, 350, 250, 10, 10 ) ; // set the smallest and biggest size of the Main frame + + MapSubwindows(); + Layout(); + + SetWindowName("Cosy Main Window"); + SetIconName("Cosy"); + + MapWindow(); +} + + + +// ====================================================================== + +MGCosy::~MGCosy() +{ + delete fLayMenuBar; + delete fLayMenuItem; + + fList->Delete(); + delete fList; +} +// ====================================================================== + +void MGCosy::CloseWindow() +{ + // Got close message for this MainFrame. Calls parent CloseWindow() + // (which destroys the window) and terminate the application. + // The close message is generated by the window manager when its close + // window menu item is selected. + + gSystem->ExitLoop(); + // gSystem->DispatchOneEvent(kTRUE); + + // TGMainFrame::CloseWindow(); + // gROOT->GetApplication()->Terminate(0); +} + +#include + +Bool_t MGCosy::ProcessMessage(Long_t msg, Long_t mp1, Long_t mp2) +{ + // + // This processing is serialized! + // + switch (GET_MSG(msg)) + { + case kC_COMMAND: + switch (GET_SUBMSG(msg)) + { + case kCM_BUTTON: + + switch (mp1) + { + case kPB_POSITION: + cout << "Start positioning." << endl; + { + XY xy = fCoord->GetCoordinates(); + ZdAz dest(xy.X(), xy.Y()); + cout << dest.Zd() << kDEG << " " << dest.Az() << kDEG << endl; + fQueue->PostMsg(WM_POSITION, &dest, sizeof(dest)); + } + cout << "PostMsg(WM_POSITION) returned." << endl; + return kTRUE; + + case kPB_TRACK: + cout << "Start tracking." << endl; + { + XY xy = fCoord->GetCoordinates(); + RaDec dest(xy.X(), xy.Y()); + cout << dest.Ra() << kDEG << " " << dest.Dec() << kDEG << endl; + fQueue->PostMsg(WM_TRACK, &dest, sizeof(dest)); + } + cout << "PostMsg(WM_TRACK) returned." << endl; + return kTRUE; + + case kPB_STOP: + cout << "Sending stop movement msg." << endl; + fQueue->PostMsg(WM_STOP, 0, 0); + cout << "PostMsg(WM_STOP) returned." << endl; + return kTRUE; + + case kPB_CALCALTAZ: + { + Timer t; + t.GetTime(); + + XY xy = fCoord->GetCoordinates(); + RaDec rd(xy.X(), xy.Y()); + + cout << "Ra/Dec: " << rd.Ra() << kDEG << " " << rd.Dec() << kDEG << endl; + ZdAz aa=MCosy::RaDec2ZdAz(t.GetMjd(), rd*D2PI/360.0)*360.0/D2PI; + cout << "Zd/Az: " << aa.Zd() << kDEG << " " << aa.Az() << kDEG << endl; + } + return kTRUE; + + case kPB_POLARIS: + fQueue->PostMsg(WM_POLARIS, 0, 0); + return kTRUE; + + default: + return kTRUE; + } + break; + + case kCM_MENU: + + switch (mp1) + { + case IDM_EXIT: + CloseWindow(); + return kTRUE; + + default: + return kTRUE; + } + return kTRUE; + + default: + return kTRUE; + } + + default: + return kTRUE; + } + + // + // Start a thread to process the message. + // + // fQueue->PostMsg(msg, mp1, mp2); + return kTRUE; + +} Index: trunk/MagicSoft/Cosy/gui/MGCosy.h =================================================================== --- trunk/MagicSoft/Cosy/gui/MGCosy.h (revision 740) +++ trunk/MagicSoft/Cosy/gui/MGCosy.h (revision 740) @@ -0,0 +1,68 @@ +#ifndef MGCOSY_H +#define MGCOSY_H + +#ifndef ROOT_TGFrame +#include +#endif + +//#ifndef ROOT_TOrdCollection +//#include +//#endif + +#ifndef ROOT_TGWidget +#include +#endif + +#include + +class TGLabel; +class TGPopupMenu; +class TGMenuBar; +class TGHorizontal3DLine; +class TGLayoutHints; +class MsgQueue; +class TIterator; +class MGImage; +class MGList; +class MGCoordinates; + +class MGCosy : public TGMainFrame +{ +private: + + // + // Create a main frame with a number of different buttons. + // + TGLayoutHints *fLayMenuBar; + TGLayoutHints *fLayMenuItem; + + MGList *fList; + + TGLabel **fLabel1; + TGLabel **fLabel2; + TGLabel **fLabel3; + + MGCoordinates *fCoord; + + MsgQueue *fQueue; + + void CreateMenu(); + void CreateLabel(); + void CreateButton(); + +public: + MGCosy(MsgQueue *q, const TGWindow *p, UInt_t w, UInt_t h); + ~MGCosy(); + + void CloseWindow(); + + TGLabel **GetLabel1() { return fLabel1; } + TGLabel **GetLabel2() { return fLabel2; } + TGLabel **GetLabel3() { return fLabel3; } + + Bool_t ProcessMessage(Long_t msg, Long_t mp1, Long_t mp2); +}; + +#endif + + Index: trunk/MagicSoft/slalib/slalib.ps =================================================================== --- trunk/MagicSoft/slalib/slalib.ps (revision 740) +++ trunk/MagicSoft/slalib/slalib.ps (revision 740) @@ -0,0 +1,15492 @@ +%!PS-Adobe-2.0 +%%Creator: dvips(k) 5.85 Copyright 1999 Radical Eye Software +%%Title: sun67.dvi +%%Pages: 215 +%%PageOrder: Ascend +%%BoundingBox: 0 0 596 842 +%%EndComments +%DVIPSWebPage: (www.radicaleye.com) +%DVIPSCommandLine: dvips sun67 +%DVIPSParameters: dpi=600, compressed +%DVIPSSource: TeX output 2000.03.16:1139 +%%BeginProcSet: texc.pro +%! +/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S +N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72 +mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0 +0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{ +landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize +mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[ +matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round +exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{ +statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0] +N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin +/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array +/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2 +array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N +df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A +definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get +}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub} +B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr +1 add N}if}B/id 0 N/rw 0 N/rc 0 N/gp 0 N/cp 0 N/G 0 N/CharBuilder{save 3 +1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx +0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx +sub Cy .1 sub]/id Ci N/rw Cw 7 add 8 idiv string N/rc 0 N/gp 0 N/cp 0 N{ +rc 0 ne{rc 1 sub/rc X rw}{G}ifelse}imagemask restore}B/G{{id gp get/gp +gp 1 add N A 18 mod S 18 idiv pl S get exec}loop}B/adv{cp add/cp X}B +/chg{rw cp id gp 4 index getinterval putinterval A gp add/gp X adv}B/nd{ +/cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{ +A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy +get A 0 eq{pop 128}{A 255 eq{pop 127}{A 2 idiv S 128 and or}ifelse} +ifelse put 1 adv}B/clr{rw cp 2 index string putinterval adv}B/set{rw cp +fillstr 0 4 index getinterval putinterval adv}B/fillstr 18 string 0 1 17 +{2 copy 255 put pop}for N/pl[{adv 1 chg}{adv 1 chg nd}{1 add chg}{1 add +chg nd}{adv lsh}{adv lsh nd}{adv rsh}{adv rsh nd}{1 add adv}{/rc X nd}{ +1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]A{bind pop} +forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn +/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put +}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{ +bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A +mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{ +SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{ +userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X +1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4 +index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N +/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{ +/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT) +(LaserWriter 16/600)]{A length product length le{A length product exch 0 +exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse +end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask +grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot} +imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round +exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto +fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p +delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M} +B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{ +p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S +rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end + +%%EndProcSet +TeXDict begin 39158280 55380996 1000 600 600 (sun67.dvi) +@start +%DVIPSBitmapFont: Fa cmti9 9 17 +/Fa 17 122 df67 +D<010FB51280A216009038003FC05DA292C7FCA25CA2147EA214FEA25CA21301A25CA213 +03A25CA21307A25CA2130FA25CA2131FA25CA2133FA291C8FCA25BA2137EA213FEA25B12 +01B512F8A25C21337BB21E>73 D<0107B512FE49ECFFC017F0903A003F8007F8EE01FCEE +007E92C7127F835C1880147EA214FEEF7F005CA2010115FE5F4A13015F01034A5AEE0FC0 +4A495A04FEC7FC49B512F016C09138E003E0ED01F8010F6D7E167C4A137EA2131FA25CA2 +013F14FEA291C7FCA24913015E137EEF01C001FE150318805B00011607277FFFF0001400 +B5ECFE0EEE7E1CC9EA1FF8EE07E032357BB238>82 D<913901FC018091380FFF03023F13 +C791387E07EF903A01F801FF0049487E4A7F495A4948133E131F91C7FC5B013E143CA313 +7E1638A293C7FC137FA26D7E14E014FE90381FFFC06D13F86D7F01017F6D6C7E020F7F14 +00153F6F7E150FA4120EA2001E5D121CA2151F003C92C7FCA2003E143E5D127E007F5C6D +485A9038C007E039F3F80FC000F0B5C8FC38E03FFC38C00FF029377AB42B>I +97 D<14FCEB07FF90381F078090383E03C0EBFC013801F8033803F0073807E00F13C012 +0F391F80070091C7FC48C8FCA35A127EA312FE5AA4007C14C0EC01E0A2EC03C06CEB0F80 +EC1F006C137C380F81F03803FFC0C648C7FC1B2278A023>99 D101 D<151FED7FC0EDF0E0020113F0EC03E3 +A2EC07C316E0EDC1C091380FC0005DA4141F92C7FCA45C143E90381FFFFEA3D9007EC7FC +147CA414FC5CA513015CA413035CA413075CA3130FA25CA3131F91C8FCA35B133E1238EA +7E3CA2EAFE7812FC485AEA78E0EA3FC0000FC9FC244582B418>I105 D<133FEA07FF5A13FEEA007EA3137C +A213FCA213F8A21201A213F0A21203A213E0A21207A213C0A2120FA21380A2121FA21300 +A25AA2123EA2127EA2127C1318EAFC1C133CEAF838A21378137012F013F0EAF8E01279EA +3FC0EA0F00103579B314>108 D<2703C003F8137F3C0FF00FFE01FFC03C1E783C1F07C1 +E03C1C7CF00F8F01F03B3C3DE0079E0026383FC001FC7FD97F805B007001005B5E137ED8 +F0FC90380FC00100E05FD860F8148012000001021F130360491400A200034A1307604901 +3E130FF081800007027EEC83C0051F138049017C1403A2000F02FC1407053E130049495C +EF1E0E001F01015D183C010049EB0FF0000E6D48EB03E03A227AA03F>I<3903C007F039 +0FF01FFC391E787C1E391C7CF01F393C3DE00F26383FC01380EB7F8000781300EA707EA2 +D8F0FC131F00E01500EA60F8120000015C153E5BA20003147E157C4913FCEDF818000715 +3C0201133801C013F0A2000F1578EDE070018014F016E0001FECE1C015E390C7EAFF0000 +0E143E26227AA02B>I<14FCEB07FF90381F07C090383E03E09038FC01F0EA01F83903F0 +00F8485A5B120F484813FCA248C7FCA214014814F8127EA2140300FE14F05AA2EC07E0A2 +007CEB0FC01580141FEC3F006C137E5C381F01F0380F83E03803FF80D800FCC7FC1E2278 +A027>I<3903C00FC0390FF03FF0391E78F078391C7DE03C393C3FC0FC00381380EB7F00 +007814F8D8707E13701500EAF0FC12E0EA60F812001201A25BA21203A25BA21207A25BA2 +120FA25BA2121FA290C8FC120E1E227AA020>114 DI<1303EB0F80A3131FA21400A25BA2133EA2137EA2137C387FFF +F8A2B5FC3800F800A21201A25BA21203A25BA21207A25BA2120FA25B1460001F13F014E0 +1300130114C01303001E1380EB07005BEA0F1EEA07F8EA01E015307AAE19>I<13F0D803 +FC1307D80F1E130F000E141F121C123C0038143FD8783E133E1270A2017E137ED8F07C13 +7CEA60FCC65A15FC000114F85BA21401000314F013E0A2140315E0EA07C0A20003130715 +C0EBE00F141F0001133F9038F07F8038007FEFEB1F8FEB001F1500A25C003E133E007E13 +7E147C5C007C5BEA7001495A38380780D83C1FC7FCEA0FFCEA07F020317AA025>121 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fb cmbx8 8 1 +/Fb 1 49 df48 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fc cmmi8 8 22 +/Fc 22 120 df11 D14 +D<90383FFFFCA2903800FE00A25CA21301A25CA21303A25CA21307A25CA2130FA25CA213 +1FA25CA2133FA291C7FCA25BA2137EA213FEA25BA21201A25BA21203B512E0A21E2D7DAC +1F>73 D<000FB8FCA23B1FC003F8003F0100151F001C4A130E123C003801071406123000 +704A130EA20060010F140C12E0485CA2141FC715005DA2143FA292C8FCA25CA2147EA214 +FEA25CA21301A25CA21303A25CA21307A25C130F131F001FB512F0A2302D7FAC29>84 +D97 +D<13F8121FA21201A25BA21203A25BA21207A25BA2120FEBC7E0EB9FF8EBB83C381FF01E +EBE01F13C09038800F80EA3F00A2123EA2007E131FA2127CA2143F00FC14005AA2147EA2 +147C14FC5C387801F01303495A383C0F806C48C7FCEA0FFCEA03F0192F7DAD1E>II101 D<1307EB0F80EB1FC0A2EB0F80EB070090C7FCA9EA01E0EA07F8EA0E3CEA +1C3E123812301270EA607EEAE07C12C013FC485A120012015B12035BA21207EBC04014C0 +120F13801381381F01801303EB0700EA0F06131EEA07F8EA01F0122E7EAC18>105 +D<15E0EC01F01403A3EC01C091C7FCA9147CEB03FE9038078F80EB0E07131C013813C013 +30EB700F0160138013E013C0EB801F13001500A25CA2143EA2147EA2147CA214FCA25CA2 +1301A25CA21303A25CA2130700385BEAFC0F5C49C7FCEAF83EEAF0F8EA7FF0EA1F801C3B +81AC1D>I<137CEA0FFCA21200A213F8A21201A213F0A21203A213E0A21207A213C0A212 +0FA21380A2121FA21300A25AA2123EA2127EA2127CA2EAFC08131812F8A21338133012F0 +1370EAF860EA78E0EA3FC0EA0F000E2F7DAD15>108 D<27078007F0137E3C1FE01FFC03 +FF803C18F0781F0783E03B3878E00F1E01263079C001B87F26707F8013B00060010013F0 +01FE14E000E015C0485A4914800081021F130300015F491400A200034A13076049133E17 +0F0007027EEC8080188149017C131F1801000F02FCEB3F03053E130049495C180E001F01 +01EC1E0C183C010049EB0FF0000E6D48EB03E0391F7E9D3E>I<3907C007E0391FE03FF8 +3918F8783E393879E01E39307B801F38707F00126013FEEAE0FC12C05B00815C0001143E +5BA20003147E157C5B15FC0007ECF8081618EBC00115F0000F1538913803E03001801470 +16E0001F010113C015E390C7EAFF00000E143E251F7E9D2B>II<90387C01F89038FE07FE3901CF8E0F3A03879C07 +80D907B813C0000713F000069038E003E0EB0FC0000E1380120CA2D8081F130712001400 +A249130F16C0133EA2017EEB1F80A2017C14005D01FC133E5D15FC6D485A3901FF03E090 +38FB87C0D9F1FFC7FCEBF0FC000390C8FCA25BA21207A25BA2120FA2EAFFFCA2232B829D +24>I<903807E03090381FF87090387C1CF0EBF80D3801F00F3903E007E0EA07C0000F13 +03381F800715C0EA3F00A248130F007E1480A300FE131F481400A35C143E5A147E007C13 +FE5C1301EA3E07EA1F0E380FFCF8EA03F0C7FC13015CA313035CA21307A2EBFFFEA21C2B +7D9D20>I<3807C01F390FF07FC0391CF8E0E0383879C138307B8738707F07EA607E13FC +00E0EB03804848C7FCA2128112015BA21203A25BA21207A25BA2120FA25BA2121FA290C8 +FC120E1B1F7E9D20>II<130E13 +1FA25BA2133EA2137EA2137CA213FCA2B512F8A23801F800A25BA21203A25BA21207A25B +A2120FA25BA2001F1310143013001470146014E0381E01C0EB0380381F0700EA0F0EEA07 +FCEA01F0152B7EA919>III +I E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fd cmmi12 14.4 12 +/Fd 12 123 df11 DI14 D<013EEC0FF8D9FFC0EB7FFF00036D48B512C0903BC3F003F01FE03C0783F8 +0F800FF03C0F01FC1F0007F8000E023C1303001E6D4814FC001C5C6E5A003C5C00385CA2 +D8780390C7FC00705BA25CD8F007150718F800005BA2010F150FA24A15F0A2011F151FA2 +4A15E0A2013F153FA24A15C0A2017F157FA24A1580A201FF15FFA291C81300A2485DA249 +5DA200031503A2495DA216075B5FEA01E0C9120FA25FA2161FA25FA2163FA25FA2167FA2 +5FA216FFA294C7FCA35EA21678364D7DB33A>17 D21 +D24 +D<0103B812F8010F17FC133F5B90B9FC4818F84818E02907F800E000E0C7FC260FC00113 +01018013C0D81F005D003E1303003C15034814804813075A5FC7380F0007A35C141E160F +143EA25CA302FC131F5C1301A3495AA20107815C130FA283495AA2133F83495A8301FF14 +0F91C7FCA2705A5B0138EC03C03E347CB242>I<120FEA3FC0EA7FE012FF13F0A213F8A3 +127F123FEA0F381200A513781370A313F013E0A2120113C0120313801207EA0F00121EA2 +5A5A12300D23768B21>59 D104 +D120 +DII E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fe cmsy10 14.4 4 +/Fe 4 34 df<007FBA12FEBCFCA36C19FE4805769F5D>0 D<0070EF038000F8EF07C06C +170F6C171F007FEF3F806C6CEE7F006C6C16FE6C6C4B5A6C6C4B5A6C6C4B5A6C6C4B5A6C +6C4B5A017F4B5A6D6C4AC7FC6D6C14FE6D6C495A6D6C495A6D6C495A6D6C495A6D6C495A +027F495A6E6C48C8FC91381FC0FE91380FE1FC913807F3F86EB45A6E5B6E5B6F5A6FC9FC +4B7E4B7E4A7F4A7F913807F3F891380FE1FC91381FC0FE91383F807F4A486C7E02FE6D7E +49486D7E49486D7E49486D7E49486D7E49486D7E4948147F49C86C7E01FE6F7E48486F7E +48486F7E48486F7E48486F7E48486F7E4848167F48CAEA3F8000FEEF1FC048170F481707 +0070EF03803A3B6FBA5D>2 D6 D<1B1E1B1FA4881B0FA2881B +07A2881B0388757EA2757E1C7EA288767E767E767E89F403FC767E9938007F80777EF51F +F0007FBE12FEC01280A36CF5FE00D0EA1FF0F53FC0535AE201FEC7FC525AF407F065525A +525A52C8FC1C7EA264515AA2515A641B0764A21B0F64A21B1F99C9FCA41B1E693F79BC78 +>33 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Ff cmex10 10 3 +/Ff 3 114 df32 D<12F07E127C7E123F7E6C7E6C7E6C7E7F12016C7E7F +137E133E133F6D7E130F806D7EA26D7E80130180130080147E147F8081141F81140F8114 +0781A2140381140181A2140081A2157FA36F7EA382151FA282150FA3821507A382A21503 +A282A31501A282A31500A382A482A21780A7163F17C0AC161F17E0B3B3A217C0163FAC17 +80167FA71700A25EA45EA31501A35EA21503A35EA21507A25EA3150F5EA3151F5EA2153F +5EA34BC7FCA315FEA25D1401A25D14035D1407A25D140F5D141F5D143F92C8FC5C147E14 +FE5C13015C13035C495AA2495A5C131F49C9FC133E137E5B5B485A12035B485A485A48CA +FC5A123E5A5A5A2BF87E8242>I<1B301B78A21BF8A21BF01A01A21BE01A03A21BC01A07 +A21B801A0FA21B0062A21A1E1A3EA21A3C1A7CA21A781AF8A262A21901A2621903A26219 +07A262190FA297C7FC61A2191E193EA2193C197CA2197819F8A2611801A2611803A261A2 +1807A261180FA296C8FC60A2181E183EA2183C187C131001301678017016F813F8600001 +16011203486C5E000F1603121DD838FE5E00701607126000C05FEA407F0000160FA26D6C +92C9FC5FA2171E6D6C143EA2173C6D6C147CA2177817F86D7E5F16016D7E5F1603A26D6C +5C1607A26D6C5C160FA294CAFC027F5BA2161EEC3F80163EA2163C91381FC07CA2167891 +380FE0F8A25E15E1EC07F15E15F3EC03FB5E15FFA26E5BA36E90CBFCA35D157EA2157C15 +3C15384D96788353>113 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fg cmti12 14.4 4 +/Fg 4 117 df46 D99 D101 D<140F4A7E143FA3147F92C7FCA35C5CA313015CA313035CA313075CA2007FB6 +1280B7FC1600A226000FE0C7FC131F5CA3133F5CA3137F91C8FCA35B5BA312015BA31203 +5BA312075BA3000F143C5B157C1578121F4913F85D14014A5A01805B14074A5A92C7FC38 +0FC03E5C3807E1F86CB45A6C13C0D8007EC8FC214C75CA27>116 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fh cmsy6 6 1 +/Fh 1 49 df48 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fi cmmi10 10.95 59 +/Fi 59 123 df11 DI14 DI< +EC01C014035DA5EDBFF0913801FFF8913803E03891380FFFF891381E3FE00238C7FC14F0 +495A495A495A49C8FC130E131E5B5B137013F0485AA2485A485AA248C9FCA25A121EA25A +A3127C1278A312F8A25AA57EA47EA27E127F7F6C7E13F86CB4FC6C13C06C13F8000113FF +6C6C13C0011F7F01037F9038007FF8140F14036E7E1400A2157C1578A35D131C6D485A90 +380783C06DB4C7FCEB007C25527CBE28>II<15FCEC03FF91380F87C091383E03 +E0EC7C0102F813F01301903903F000F8495A010F14FC5C495A133F91C7FC4914FE13FEA2 +12015B12034913011207A25B000F15FC1503121F5BA21507003F15F890B6FCA33A7FC000 +0FF05BA2151F16E048C7FCA2ED3FC0A2481580157F1600A215FEA24A5AA24A5A007E5C14 +075D4A5A003E5C141F4AC7FC6C137E5C380F81F03807C3E03801FF80D8007EC8FC27417D +BF2B>I<133F14E0EB07F0EB03FC13016D7EA3147FA26E7EA36E7EA36E7EA36E7EA36E7E +A26E7EA36E7EA3157FA36F7E157F15FF4A7F5C913807CFE0EC0F8FEC1F0F91383E07F014 +7C14FC49486C7EEB03F0EB07E049486C7EEB1F80EB3F00496D7E13FE4848147F485A485A +4848EC3F80485A123F4848EC1FC048C8FC4816E048150F48ED07F0007015032C407BBE35 +>21 DI<017FEC01C0D83FFFEC03E016075B1200160F17C0 +5B161F00011680163F491500A20003157EA2495C150100075D4B5A49495AA2000F4A5A4B +5A4949C7FC157E001F147C5D49485AEC07E0003F495A4AC8FCEB003E14F848485AEB07C0 +D87E1FC9FC13FCEAFFE0138000F8CAFC2B287CA72D>II<011FB612FE +017F15FF48B8FC5A4816FE3B0FC03801C000EA1F00003E1403003C01785B4813705AECF0 +075AC712E0010191C7FCA25DEB03C0A313071480A2010F5BA2EB1F0082A2133EA2137E82 +5B150F0001815B120315075BC648EB038030287DA634>II<020FB512 +FE027F14FF49B7FC1307011F15FE903A3FE03FE00090387F000F01FE6D7E484813034848 +8048481301485A5B121F5B123F90C7FC5A127EA2150300FE5D5AA24B5AA2150F5E4B5AA2 +007C4AC7FC157E157C6C5C001E495A001FEB07E0390F800F802603E07EC8FC3800FFF8EB +3FC030287DA634>I<16F0A25EA21501A25EA21503A25EA21507A293C7FCA25DA2150EA2 +151EA2151C4AB47E020F13F091387F3CFC903901F8381FD907E0EB0F80903A0F807807C0 +D93F00EB03E0017E90387001F04915F84848EBF000484815FC48485B4848157C1401EA1F +805DEA3F00020314FC5A007E5CA20207130100FE16F848140016034A14F01607020E14E0 +007CED0FC0141E007EED1F80003E011CEB3F00167E6C013C5B0180495A000F90383803E0 +D807E0EB0FC02701F0783FC7FC3900FC79FC90381FFFE0D903FEC8FCEB00F0A25CA21301 +A25CA21303A25CA21307A291C9FCA25BA22E527BBE36>30 D32 D<0120ED01C00178ED07F001F8150F000117F85B +485A5B0007160749150348C9EA01F0A2121E1700121C003C023814E0003814FCA2007816 +01140100704A14C0A217034B148000F0130317074B14005F5D0207141E6F133E6C010F5C +4A7E6C013F5C007E9038FFF8033B7F87FDFF0FF0D9FFF8EBFFE06C495C4A6C5B6C496C90 +C7FC00079038001FFCD801F8EB03F035297EA739>I<011FB912F8017F18FC48BAFC5A48 +19F8260FC0F0C9EA070048C6481780D83E011703383C03C000785BEAF0074848CAFC010E +1406D8001E140E131C133C0138021E1407017818000170141C163C6101F0027C140E4917 +1E16FC03015DA2000102035D030715F8DB0FBC5C043C495A031F1403DB7E3E495A6C6CD9 +FC1E495A9027F801F81F013FC7FC9026FC0FF0EB80FE90B5486CB45A6D01C05C6DD90007 +5BD91FFC6D13C0D907E0D900FEC8FC46287DA64B>36 D<121EEA7F80A2EAFFC0A4EA7F80 +A2EA1E000A0A798919>58 D<121EEA7F8012FF13C0A213E0A3127FEA1E601200A413E013 +C0A312011380120313005A120E5A1218123812300B1C798919>I<183818FC1703EF0FF8 +EF3FE0EFFF80933803FE00EE0FF8EE3FE0EEFF80DB03FEC7FCED0FF8ED3FE0EDFF80DA03 +FEC8FCEC0FF8EC3FE0ECFF80D903FEC9FCEB0FF8EB3FE0EBFF80D803FECAFCEA0FF8EA3F +E0EA7F8000FECBFCA2EA7F80EA3FE0EA0FF8EA03FEC66C7EEB3FE0EB0FF8EB03FE903800 +FF80EC3FE0EC0FF8EC03FE913800FF80ED3FE0ED0FF8ED03FE923800FF80EE3FE0EE0FF8 +EE03FE933800FF80EF3FE0EF0FF8EF03FC17001838363678B147>II<126012F8B4 +FCEA7FC0EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007FC0EC1FF0EC07 +FCEC01FF9138007FC0ED1FF0ED07FCED01FF9238007FC0EE1FF0EE07FCEE01FF9338007F +C0EF1FF0EF07F8EF01FCA2EF07F8EF1FF0EF7FC0933801FF00EE07FCEE1FF0EE7FC04B48 +C7FCED07FCED1FF0ED7FC04A48C8FCEC07FCEC1FF0EC7FC04948C9FCEB07FCEB1FF0EB7F +C04848CAFCEA07FCEA1FF0EA7FC048CBFC12FC1270363678B147>I<17075F84171FA217 +3F177FA217FFA25E5EA24C6C7EA2EE0E3F161E161C1638A21670A216E0ED01C084ED0380 +171FED07005D150E5DA25D157815705D844A5A170F4A5A4AC7FC92B6FC5CA2021CC7120F +143C14384A81A24A140713015C495AA249C8FC5B130E131E4982137C13FED807FFED1FFE +B500F00107B512FCA219F83E417DC044>65 D<49B712F818FF19E090260001FEC7EA3FF0 +F007F84B6E7E727E850203815D1A80A20207167F4B15FFA3020F17004B5C611803021F5E +4B4A5A180FF01FE0023F4B5A4B4A5ADD01FEC7FCEF07F8027FEC7FE092B6C8FC18E092C7 +EA07F84AEC01FE4A6E7E727E727E13014A82181FA213034A82A301075F4A153FA261010F +167F4A5E18FF4D90C7FC011F5E4A14034D5A013FED1FF04D5A4AECFFC0017F020790C8FC +B812FC17F094C9FC413E7DBD45>II<49B912C0A3D9000190C71201F0003F4B151F190F1A80020316075DA314075D1A00A2 +140F4B1307A24D5B021F020E130E4B92C7FC171EA2023F5C5D177CEE01FC4AB55AA3ED80 +0302FF6D5A92C7FCA3495D5C19380401147801034B13704A16F093C85AA2010716014A5E +180361010F16074A4BC7FCA260011F163E4A157E60013F15014D5A4A140F017F15FFB95A +A260423E7DBD43>69 D<49B9FCA3D9000190C7120718004B157F193F191E14035DA31407 +5D191CA2140F5D17074D133C021F020E13384B1500A2171E023F141C4B133C177C17FC02 +7FEB03F892B5FCA39139FF8003F0ED00011600A2495D5CA2160101035D5CA293C9FC1307 +5CA3130F5CA3131F5CA2133FA25C497EB612F8A3403E7DBD3A>I<49B6D8C03FB512F81B +F01780D900010180C7383FF00093C85B4B5EA2197F14034B5EA219FF14074B93C7FCA260 +140F4B5DA21803141F4B5DA21807143F4B5DA2180F4AB7FC61A20380C7121F14FF92C85B +A2183F5B4A5EA2187F13034A5EA218FF13074A93C8FCA25F130F4A5DA21703131F4A5DA2 +013F1507A24A5D496C4A7EB6D8E01FB512FCA2614D3E7DBD4C>72 +D<49B600C090387FFFF896B5FC5FD900010180C7000F130093C813F84B16E01A804FC7FC +0203163C4B15F84E5AF003C002074B5A4B021FC8FC183E1878020F5D4BEB03E0EF07804D +C9FC021F143E4B5B17F04C5A023F1307EDC00F4C7E163F027FEBFFF8ED81EFED83CF9238 +8F87FC9138FF9F0792383C03FE15784B6C7E4913E0158092C77F5C01036F7E5C717EA213 +074A6E7EA2717E130F4A6E7EA284011F15035C717E133F855C496C4A13E0B600E0017F13 +FFA34D3E7DBD4D>75 D<49B612F0A3D900010180C7FC93C8FC5DA314035DA314075DA314 +0F5DA3141F5DA3143F5DA3147F5DA314FF92C9FCA35B5C180C181E0103161C5C183C1838 +13074A1578187018F0130F4AEC01E0A21703011FED07C04A140F171F013FED3F8017FF4A +1303017F021F1300B9FCA25F373E7DBD3E>I<49B56C93B512C050148062D90001F18000 +704B90C7FC03DF5F1A0E1A1D1403039FEE39FC1A711A739126078FE015E3030F5FF101C3 +F10387140F020E93380707F0A2F10E0F021E161C91261C07F05E1938F1701F143C023804 +E05BA2953801C03F0278ED038091267003F85EF00700060E137F14F002E04B91C8FCA24E +5B01015E4A6C6C5D60943801C00113030280DA03805BA294380700030107150E91C700FE +5D5F1907495D010E4B5CA24D130F011E6E5A011C60705A013C171F017C92C7FC01FE027E +5DD803FF4D7EB500FC017C017FB512E0167804385E5A3E7CBD58>I<49B712F018FF19C0 +D9000190C76C7EF00FF84BEC03FC1801020382727E5DA214071A805DA2140F4E13005DA2 +021F5E18034B5D1807023F5E4E5A4B4A5A4E5A027F4B5A06FEC7FC4BEB03FCEF3FF091B7 +12C005FCC8FC92CBFCA25BA25CA21303A25CA21307A25CA2130FA25CA2131FA25CA2133F +A25C497EB612E0A3413E7DBD3A>80 D<48B912FCA25A913A0003FE000F01F84A1301D807 +E0EE00F8491307491778000F5D90C7FC001E140FA2001C4B1470123C0038141FA200785D +1270033F15F000F018E0485DC81600157FA25EA215FFA293C9FCA25CA25DA21403A25DA2 +1407A25DA2140FA25DA2141FA25DA2143FA25DA2147FA214FF497F001FB612FCA25E3E3D +7FBC35>84 D<027FB5D88007B512C091B6FCA2020101F8C7EBF8009126007FE0EC7F804C +92C7FC033F157C701478616F6C495A4E5A6F6C495A4EC8FC180E6F6C5B606F6C5B601701 +6F6C485A4D5A6F018FC9FC179E17BCEE7FF85F705AA3707EA283163F167FEEF7FCED01E7 +EEC3FEED0383ED070392380E01FF151E4B6C7F5D5D4A486D7E4A5A4A486D7E92C7FC140E +4A6E7E5C4A6E7E14F0495A49486E7E1307D91F806E7ED97FC014072603FFE0EC1FFF007F +01FC49B512FEB55CA24A3E7EBD4B>88 D97 DIIII<163EEE +FFC0923803E1E0923807C0F0ED0F811687ED1F8F160F153FA217E092387E038093C7FCA4 +5DA514015DA30103B512FCA390260003F0C7FCA314075DA4140F5DA5141F5DA4143F92C8 +FCA45C147EA414FE5CA413015CA4495AA35CEA1E07127F5C12FF495AA200FE90C9FCEAF8 +1EEA703EEA7878EA1FF0EA07C02C537CBF2D>III<143C14FEA21301A314FCEB00701400AD13 +7E3801FF803803C7C0EA0703000F13E0120E121C13071238A2EA780F007013C0A2EAF01F +14801200133F14005B137EA213FE5BA212015B0003130E13F0A20007131EEBE01CA2143C +EBC0381478147014E013C13803E3C03801FF00EA007C173E7EBC1F>I107 +DI<01F8D907F0EB07F8D803FED93FFEEB1FFE28078F80F81FEB781F3E0F0F81C00F +81E00F803E0E07C78007C3C007C0001CD9CF00EBC78002FEDAEF007F003C4914FE003849 +5C49485C12780070495CA200F0494948130F011F600000495CA2041F141F013F6091C75B +193F043F92C7FC5B017E92C75A197E5E01FE9438FE01C049027E14FCA204FE0101130300 +0106F81380495CF20700030115F00003190E494A151E1A1C03035E0007943800F8F0494A +EC7FE0D801C0D900E0EC1F804A297EA750>I<01F8EB0FF0D803FEEB3FFC3A078F80F03E +3A0F0F83C01F3B0E07C7800F80001CEBCF0002FE80003C5B00385B495A127800705BA200 +F049131F011F5D00005BA2163F013F92C7FC91C7FC5E167E5B017E14FE5EA201FE0101EB +03804914F8A203031307000103F013005B170E16E000035E49153C17385F0007913801F1 +E0496DB45AD801C0023FC7FC31297EA737>III<91381F800C9138FFE01C903903F0707C90390FC0387890391F801CF890383F000F +137E4914F000011407485A485A16E0485A121F150F484814C0A3007F141F491480A300FF +143F90C71300A35D48147EA315FE007E495A1403A26C13074A5A381F801D000F13793807 +C1F33901FFC3F038007F03130014075DA3140F5DA3141F5DA2143F147F90381FFFFE5BA2 +263A7DA729>III<147014FC1301A25CA21303A25CA213 +07A25CA2130FA25CA2007FB512F0B6FC15E039001F8000133FA291C7FCA25BA2137EA213 +FEA25BA21201A25BA21203A25BA21207EC01C013E01403000F1480A2EBC0071500140E14 +1E5C000713385C3803E1E03801FF80D8003EC7FC1C3A7EB821>I<137C48B4EC03802603 +C7C0EB0FC0EA0703000F7F000E151F121C010715801238163FEA780F0070491400A2D8F0 +1F5C5C0000157E133F91C712FEA2495C137E150113FE495CA215030001161C4914F0A215 +07173CEEE038150F031F1378000016706D133F017C017313F0017E01E313E0903A3F03C1 +F1C0903A0FFF007F80D901FCEB1F002E297EA734>I<013EEE0380D9FF800107EB0FE026 +01C3E090381F801FD8038117F0380701F0000E153F001E1600D81C03160F003C17070038 +4BEB03E0D87807147E00705B1801D8F00F14FE4A4914C01200131FDA800114034C148013 +3F140003031407494A1400137EA26001FE0107140E495C60A360150F017C5E017E011F14 +F0705B6D0139495A6D903970F8038090280FC0E07C0FC7FC903A03FFC01FFC903A007F00 +07F03C297EA741>119 DI<137C48B4EC03802603C7C0EB0FC0EA070300 +0F7F000E151F001C168013071238163FD8780F150000705BA2D8F01F5C4A137E1200133F +91C712FE5E5B137E150113FE495CA2150300015D5BA215075EA2150F151F00005D6D133F +017C137F017E13FF90393F03DF8090380FFF1FEB01FC90C7123F93C7FCA25DD80380137E +D80FE013FE001F5C4A5AA24848485A4A5A6CC6485A001C495A001E49C8FC000E137C3807 +81F03803FFC0C648C9FC2A3B7EA72D>I<02F8130ED903FE131ED90FFF131C49EB803C49 +EBC0784914F090397E07F1E09038F800FF49EB1FC049EB07800001EC0F006C48131E90C7 +5A5D5D4A5A4A5A4A5A4AC7FC143E14785C495A495A495A49C8FC011E14E05B5B49130148 +48EB03C0485AD807F8EB078048B4131F3A1F87E07F00391E03FFFE486C5B00785CD87000 +5B00F0EB7FC048011FC7FC27297DA72A>I E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fj cmr12 14.4 67 +/Fj 67 123 df12 D38 D<15E01401EC03C0EC0780EC0F00141E5C147C5C495A13035C495A130F5C131F +91C7FC133E137EA25BA2485AA25B1203A2485AA3120F5BA2121FA25BA2123FA290C8FCA3 +5AA5127EA312FEB3A3127EA3127FA57EA37FA2121FA27FA2120FA27F1207A36C7EA21201 +7FA26C7EA2137EA2133E7F80130F8013076D7E8013016D7E147C143C8080EC0780EC03C0 +EC01E014001B7974D92E>40 D<12E07E12787E7E7E6C7E7F6C7E6C7E7F1200137C137E13 +3E133F7F6D7E80A26D7EA26D7EA2130180A26D7EA380147EA2147FA280A21580A2141FA3 +15C0A5140FA315E0B3A315C0A3141FA51580A3143FA21500A25CA2147EA214FE5CA3495A +A25C1303A2495AA2495AA25C49C7FC5B133E137E137C5B12015B485A485A5B48C8FC121E +5A5A5A5A1B797AD92E>I<120FEA3FC0EA7FE012FF13F0A213F8A3127F123FEA0F381200 +A513781370A313F013E0A2120113C0120313801207EA0F00121EA25A5A12300D23768B21 +>44 DI<120FEA3FC0EA7FE0EAFFF0A6EA7FE0EA3FC0EA0F000C +0C768B21>I<1738177CA217FC17F8A2160117F0A2160317E0A2160717C0A2160F178016 +1F1700A25E163EA2167E167CA216FC5EA215015E15035EA215075EA2150F5EA2151F93C7 +FCA25D153E157E157CA215FC5DA214015DA214035DA214075D140F5DA2141F92C8FCA25C +143EA2147E147CA214FC5CA213015C13035CA213075CA2130F5CA2131F91C9FCA25B133E +137E137CA213FC5BA212015BA212035BA212075B120F5BA2121F90CAFCA25A123EA2127E +127CA212FC5AA212702E787AD93B>II<14075C5C147F5C1307133F000FB5FCB6FC13F913C1EAF0011200B3B3B3A7497F01 +0F13E0B712FEA4274F75CE3B>III<160F5EA25E5EA25E5DA25D5DA25D151E151C153C5D157015F04A +5A5D14035D4A5A5C140E5C143C14385C14F05C495A13035C130749C7FC130E131E5B1338 +13785B5B1201485A5B120748C8FC120E121E5A123812785AB912F0A4C8000190C7FCAF4B +7F4B7F020FB612E0A434507DCF3B>I<000316C001C0140301F8141F903AFFC003FF8091 +B612005E5E5E16E016804BC7FC019F13F8018113800180C9FCB0EC0FF0ECFFFE01836D7E +903987F01FE090399F0007F801BE6D7E01F86D7E496D7E49EC7F805BEE3FC04915E0C912 +1F17F0A317F8160FA317FCA5120EEA3F80487E12FF7FA217F85B161F5B48C813F0127000 +78ED3FE0A26C16C0167F6CEDFF80001F16006C6C495A6C6C13036C6CEB07F8D801F8EB1F +F06CB4EB7FE06DB51280011F49C7FC010713F8010013C02E517ACE3B>II57 +D +65 DIIIIIIII<49B612FEA490C7003F +138092380FFE001507B3B3B3A21206EA3FC0487E487EA44B5AA25B007F5D0180131F0078 +C75B6C143F003E4A5A6C5D6C6C495A2707E003FEC7FC3901FC07FC6CB512F0013F13C0D9 +07FCC8FC2F547BD13C>IIIIIIIIII<003FBB12C0A449C79038F0000701F06E48130001C0183F48C8EE0FE0007E +1907007C1903A200781901A400701900A500F01AF0481A70A6C91700B3B3AC4C7E030313 +FC027FB712E0A44C517CD055>III89 D<001FB912E0A402FCC7000113C002805C49C8148001F84B1300495D495E494B5A +49153F90C95B484C5A123E4D5A5E003C5F4C5B5E95C7FC00384B5AA24C5A163F5F4C5AC9 +12FF5F4B5B5D5F4B90C8FCA24B5A151F5E4B5A157F5E4B5AA24A5B5C5E4A90C9FC5C5D4A +5AA24A4815E0147F5D4A5A5B5D495B49160192C813C0495AA2495A133F4A1503495A13FF +4A1507485B180F485B48171F91C9123F4848167F001F17FF494B138048481507007F161F +490203B5FCBAFCA43B527AD148>II93 +D97 +DII<17FF4BB5FCA4ED0007160182B3A6EC0FF8EC7FFF49B512E0903907FC +03F090391FE0007C49487F49C7120F01FE80484880485A000781484880A2485AA2485AA2 +127FA35B12FFAB127FA27FA2123FA27F121FA26C6C5C00075D7F6C6C5C6C6C5C6C6C021E +7F6D6C017C13E0D91FC049EBFF8090390FF807E00103B512800100495ADA1FF091C7FC39 +547CD241>II<157F913803FFE0020F13F091383FC0 +F891387F01FC903901FE03FE903803FC0714F81307EB0FF0A290391FE003FCED01F892C7 +FC495AB3B612FEA426003FC0C7FCB3B3A580EBFFF0007FEBFFF8A427547DD324>III<1378EA01FE487E487F +A66C90C7FC6C5AEA007890C8FCB0EB7F80B5FCA41203C6FC137FB3B3A43801FFE0B61280 +A419507CCF21>I +107 DI<01FF +D907FEEC03FFB590261FFFC0010F13E0037F01F0013F13F8912701F80FFC9038FC07FE91 +3D03C003FE01E001FF000390260700019038038000C6010E6D6C48C76C7E6D48DA7F8E6E +7E4A159CA24ADA3FF86E7E02605D14E04A5DA34A5DB3AD2601FFE0DAFFF0EC7FF8B6D8C0 +7F9026FFE03FB512F0A45C347CB363>I<01FFEB07FCB590383FFF8092B512E0913901F0 +0FF8913903C007FC000349C66C7EC6010E13016D486D7E5C143002706E7E146014E05CA3 +5CB3AD2601FFE0903801FFE0B600C0B612C0A43A347CB341>II<90397F8007FCB590387FFF800281B512E0913987F00FF891398F8003FC00039039 +9E0001FFC601BC6D7FD97FF86E7E4A6E7E4A6E7E4A140F844A6E7EA2717EA3717EA47113 +80AB4D1300A44D5AA24D5AA2606E140F4D5A6E5D6E4A5A6E4A5A02BC4AC7FC029E495A02 +8FEB07FC913987E01FF00281B512C0DA807F90C8FCED0FF892CAFCB13801FFE0B612C0A4 +394B7DB341>II<01FFEB1F80B5EB7FF0913801FFF8913803E1FC91380783FE0003EB0F07C6131E +EB7F1C1438143091387003FC91386000F0160014E05CA45CB3AA8048487EB612F0A42734 +7DB32E>IIIIII<007FB5D8800FB51280A4C69026FC0003 +EBF000D93FF86D1380011F4BC7FC010F15F801075D6D6C5C6E495A6D6C5C6D14076E6C48 +C8FCEDC01E6E6C5A021F133891380FF0786F5A913807FDE002035BEC01FF5E80157F6F7E +824B7E15FFEDE7F802017F913803C3FEEC07814AC67E020E80021E6D7E4A133F4A6D7E4A +80707E4948130749486D7E010781010F6E7E013F8201FF8200076D010713F0B500F8011F +EBFFE0A43B337FB23E>II<001FB712E0A301FCC7EA7FC001E014FF01 +8049138090C714004B5A001E14074B5A485D4B5A153F4B5A00385D15FF4A5B93C7FC4A5A +1407C7485A5D4A5A143F4A5A5D14FF495B92C8FC494814E01307495A5C495A013FEC01C0 +495A5C13FF485B91C71203485A12074848140749140F485A003FED3F80484814FF491307 +B8FCA32B337DB234>I E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fk cmtt12 14.4 1 +/Fk 1 96 df<003FB712F84816FCB812FEA46C16FC6C16F82F08797C3E>95 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fl cmsy10 10.95 14 +/Fl 14 121 df<007FB812F8B912FCA26C17F83604789847>0 D<121EEA7F80A2EAFFC0 +A4EA7F80A2EA1E000A0A799B19>I<0060166000F816F06C1501007E15036CED07E06C6C +EC0FC06C6CEC1F806C6CEC3F006C6C147E6C6C5C6C6C495A017E495A6D495A6D6C485A6D +6C485A6D6C48C7FC903803F07E6D6C5A903800FDF8EC7FF06E5A6E5AA24A7E4A7EECFDF8 +903801F8FC903803F07E49487E49486C7E49486C7E49486C7E017E6D7E496D7E48486D7E +4848147E4848804848EC1F804848EC0FC048C8EA07E0007EED03F0481501481500006016 +602C2C73AC47>I<1506150FB3A9007FB912E0BA12F0A26C18E0C8000FC9FCB3A6007FB9 +12E0BA12F0A26C18E03C3C7BBC47>6 D14 DI<007FB912E0BA12F0A26C18E0CDFCAE007FB912E0BA12F0A26C +18E0CDFCAE007FB912E0BA12F0A26C18E03C287BAA47>17 D<1818187CEF01FCEF07F8EF +1FF0EF7FC0933801FF00EE07FCEE1FF0EE7FC04B48C7FCED07FCED1FF0ED7FC04A48C8FC +EC07FCEC1FF0EC7FC04948C9FCEB07FCEB1FF0EB7FC04848CAFCEA07FCEA1FF0EA7FC048 +CBFC5AEA7F80EA3FE0EA0FF8EA03FEC66C7EEB3FE0EB0FF8EB03FE903800FF80EC3FE0EC +0FF8EC03FE913800FF80ED3FE0ED0FF8ED03FE923800FF80EE3FE0EE0FF8EE03FE933800 +FF80EF3FE0EF0FF8EF03FC170018381800AE007FB812F8B912FCA26C17F8364878B947> +20 D<126012F812FEEA7F80EA3FE0EA0FF8EA03FEC66C7EEB3FE0EB0FF8EB03FE903800 +FF80EC3FE0EC0FF8EC03FE913800FF80ED3FE0ED0FF8ED03FE923800FF80EE3FE0EE0FF8 +EE03FE933800FF80EF3FE0EF0FF8EF03FC1701EF07F8EF1FF0EF7FC0933801FF00EE07FC +EE1FF0EE7FC04B48C7FCED07FCED1FF0ED7FC04A48C8FCEC07FCEC1FF0EC7FC04948C9FC +EB07FCEB1FF0EB7FC04848CAFCEA07FCEA1FF0EA7FC048CBFC12FC1270CCFCAE007FB812 +F8B912FCA26C17F8364878B947>I24 DI<193019 +78A2197C193CA2193E191EA2191F737EA2737E737EA2737E737E1A7C1A7EF21F80F20FC0 +F207F0007FBB12FCBDFCA26C1AFCCDEA07F0F20FC0F21F80F27E001A7C624F5A4F5AA24F +5A4F5AA24FC7FC191EA2193E193CA2197C1978A2193050307BAE5B>33 +D<126012F0B3B3B3B3B11260045B76C319>106 D120 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fm cmsy8 8 4 +/Fm 4 49 df0 D12 D14 D<137813FE1201A3120313FCA3EA07F8A313F0A2EA0FE0A313C0121F1380A3EA +3F00A3123E127E127CA35AA35A0F227EA413>48 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fn cmti10 10.95 72 +/Fn 72 124 df11 +D<933807FF80043F13E09338FE00F8DB01F0133EDB07E0130E4B48131F4C137F031F14FF +4BC7FCA218FE157E1878180015FE5DA31401A25DA414030103B712F0A218E0903A0003F0 +00070207140F4B14C0A3171F020F15805DA2173F1800141F5D5F177EA2143F92C712FE5F +A34A1301027EECF81CA3160302FEECF03C4A1538A21878187013014A010113F018E09338 +00F1C0EF7F804948EC1F0094C7FCA35C1307A2001E5B127F130F00FF5BA249CAFC12FEEA +F81EEA703CEA7878EA1FF0EA07C0385383BF33>II39 DI< +14031580A2EC01C0EC00E0A21570A215781538153CA3151EA4151FA2150FA7151FA9153F +A2153EA3157EA2157CA215FCA215F8A21401A215F0A2140315E0A2140715C0A2EC0F80A2 +141F15005C143EA25CA25CA2495A5C1303495A5C130F49C7FC131E5B137C5B5B485A485A +485A48C8FC121E5A12705A5A205A7FC325>I44 D<387FFFFCA3B5FCA21605799521>I<120FEA3FC0127FA212FFA31380EA +7F00123C0A0A77891C>I<1838187CA218F8170118F0EF03E0A2EF07C0A2EF0F80171F18 +00173EA25FA25F16015F4C5AA24C5AA24C5A161F94C7FC163EA25EA25E15015E4B5AA24B +5AA24B5A151F93C8FC153EA25DA25D14015D4A5AA24A5AA24A5A141F92C9FC143EA25CA2 +5C13015C495AA2495AA2495A131F91CAFC133EA25BA25B12015B485AA2485AA2485A121F +90CBFC123EA25AA25AA25A5A365B7FC32E>I<15FE913807FF8091381F07C091387C01F0 +ECF000494813F8494813780107147C495A49C7FC167E133E137EA25BA2485AA2000315FE +A25B000715FCA2491301120FA34848EB03F8A44848EB07F0A448C7EA0FE0A316C0007E14 +1F12FE1680153FA2481500A2157EA25DA25D4813015D6C495A127C4A5A4A5A6C49C7FC14 +3E6C5B380FC1F03803FFC0C648C8FC273F76BC2E>I<15031507150F151F151E153E157E +EC01FEEC03FC1407141FEB01FF90380FFBF8EB1FC3EB0E07130015F0A2140FA215E0A214 +1FA215C0A2143FA21580A2147FA21500A25CA25CA21301A25CA21303A25CA21307A25CA2 +130FA25CA2131FA25CEB7FE0B612F0A215E0203D77BC2E>I<15FE913803FFC091380F01 +F091383C00F84A137C4A7F4948133F49487F4A148049C7FC5BEB0E0C011E15C0EB1C0EEB +3C06133813781370020E133FD9F00C148013E0141C0218137F00011600EBC0384A13FEEC +600102E05B3A00E3C003F89039FF0007F0013C495A90C7485A5E037FC7FC15FC4A5A4A5A +EC0FC04AC8FC147E14F8EB03E0495A011FC9FC133E49141801F0143C48481438485A1678 +485A48C85A120E001E4A5AD83FE0130301FF495A397C3FF01FD8780FB55AD8700391C7FC +D8F0015B486C6C5A6E5AEC07C02A3F79BC2E>II<02C0EB018002F0130FD901FEEB7F0091B5 +12FE5E5E4914E016804BC7FCECBFF8D90780C8FC91C9FCA35B130EA3131E131CA3133C90 +38381FC0ECFFF090383BE07C90387F003E017E133F017C7F0178805B498090C7FCA6153F +A4001F147F486C5C487EA24913FF00FF92C7FC90C7FC48495A12E04A5A5D6C495A140F00 +705C0078495A6C495A003E01FEC8FC381F03FC380FFFF0000313C0C648C9FC293F77BC2E +>53 DI< +D9703FEB01C09138FF800301F3158001EFEBC00790B5EB0F0048151E14832603FE015B01 +F8147C2607F0005B49EBE3F04848137F496D5A48C71201001E4A5A1507485D0038140F00 +7892C7FC00705C00F0143E5A5DC8FC5DA24A5AA214035D14074A5AA2141F5DA24AC8FCA2 +5C147E14FEA2495AA3495AA313075C130FA25C131FA35C133FA35C91C9FC131E2A3F73BC +2E>I<157F913801FFE0913807C0F091381F007C023C133C4A133E4A131F1301495A5C13 +07A2495AA2163F011F143EA2167E6E137C16F8ECE00102F013F09138F803E09138FC07C0 +90390FFE0F00ECFFBE6D13F86D5B7F6D7F8101037F90380F9FFFD91F0F1380D97C0713C0 +497E48486C13E03903E0007F4848133F4848131F001F140F90C7FC003E1407A2127E127C +A200FC15C05AA2ED0F80A2ED1F00153E007C143C157C007E5C6CEB03F0391F8007C0390F +E03F802607FFFEC7FC000113F838003FC0283F78BC2E>I<15FF020713C091381F81E091 +383E00F002FC13F84948137C495A4948137E010F143E495A133F4A133F017F147F91C7FC +5BA2485AA216FF12035B16FE150112075B1503A216FC491307A20003140F16F8151F1201 +6D133F0000EC7FF015EF90387C01CF90393E079FE090380FFE1FD903F813C090C7123FA2 +1680157F160015FEA24A5A001C5C007F1303485C4A5A4A5A4A5A4849C7FC00F8137E00E0 +5B6C485A387C07E0383FFFC06C90C8FCEA03F8283F77BC2E>I<131EEB3F80137FEBFFC0 +5AA214806C13005B133C90C7FCB3120FEA3FC0127FA212FFA35B6CC7FC123C122777A61C +>I<171C173C177CA217FCA216011603A21607A24C7EA2161DA216391679167116E1A2ED +01C1A2ED038115071601150EA2031C7FA24B7EA25D15F05D4A5AA24A5AA24AC7FC5C140E +5C021FB6FC4A81A20270C7127FA25C13015C495AA249C8FCA2130E131E131C133C5B01F8 +82487ED807FEEC01FFB500E0017FEBFF80A25C39417BC044>65 D<49B712C018F818FE90 +3B0003FC0001FF9438007F804BEC3FC0A2F01FE014074B15F0180FA2140F5D181FA2021F +16E05D183F19C0023FED7F804B14FF19004D5A027F4A5A92C7EA07F0EF1FE0EF7F804AD9 +03FEC7FC92B512F017FE4AC7EA3F800101ED1FE04A6E7E17078401036F7E5CA30107825C +A3010F5E4A1407A260011F150F5C4D5A60013F153F4A4A5A4D5A017F4A90C7FC4C5A91C7 +EA0FF849EC3FF0B812C094C8FC16F83C3E7BBD40>I<9339FF8001C0030F13E0033F9038 +F803809239FF807E07913A03FC001F0FDA0FF0EB071FDA1FC0ECBF00DA7F806DB4FC4AC7 +7E495AD903F86E5A495A130F4948157E4948157C495A13FF91C9FC4848167812035B1207 +491670120FA2485A95C7FC485AA3127F5BA312FF5BA490CCFCA2170FA2170EA2171E171C +173C173817786C16706D15F04C5A003F5E6D1403001F4B5A6D4AC8FC000F151E6C6C5C6C +6C14F86C6C495A6C6CEB07C090397FC03F8090261FFFFEC9FC010713F0010013803A4272 +BF41>I<49B712C018F818FE903B0003FE0003FF9438007F804BEC1FC0F00FE0F007F014 +074BEC03F8F001FCA2140F4BEC00FEA3141F4B15FFA3143F5DA3027F5D5DA219FE14FF92 +C81203A34917FC4A1507A219F813034A150F19F0A20107EE1FE05CF03FC0A2010FEE7F80 +4A16006060011F4B5A4A4A5A4D5AA2013F4B5A4AEC3FC04DC7FC017F15FEEE03FC4AEB0F +F001FFEC7FE0B8128004FCC8FC16E0403E7BBD45>I<49B812F8A390260003FEC7121F18 +074B14031801F000F014075DA3140F5D19E0A2141F4B1338A2EF7801023F027013C04B91 +C7FCA217F0027F5CED80011603160F91B65AA3ED001F49EC07805CA3010392C8FC5CF003 +804C13070107020E14005C93C75A180E010F161E4A151C183CA2011F5E5C60A2013F1501 +4A4A5A1707017F150F4D5A4A147F01FF913807FF80B9FCA295C7FC3D3E7BBD3E>I<49B8 +12F0A390260003FEC7123F180F4B1403A2F001E014075DA3140F5D19C0A2141F5D1770EF +F003023F02E013804B91C7FCA21601027F5CED8003A2160702FFEB1F8092B5FCA349D900 +3FC8FC4A7F82A20103140E5CA2161E0107141C5CA293C9FC130F5CA3131F5CA3133F5CA2 +137FA25C497EB612E0A33C3E7BBD3B>I<9339FF8001C0030F13E0033F9038F803809239 +FF807E07913A03FC001F0FDA0FF0EB071FDA1FC0ECBF00DA7F806DB4FC4AC77E495AD903 +F86E5A495A130F4948157E4948157C495A13FF91C9FC4848167812035B1207491670120F +A2485A95C7FC485AA3127F5BA312FF5BA30303B512FC90C7FCA2DB000190C7FCA25FA216 +035FA316076C5E7FA2003F150F6D5D121F6D141F000F153F6C6C4A5A6C6C14F76C6CEB01 +E36CB4EB07C1903A7FC03F81C090391FFFFE00010701F890C8FC010013803A4272BF46> +I<49B648B6FC495DA2D9000390C7000313004B5D4B5DA2180714074B5DA2180F140F4B5D +A2181F141F4B5DA2183F143F4B5DA2187F147F4B5DA218FF91B8FC96C7FCA292C712015B +4A5DA2170313034A5DA2170713074A5DA2170F130F4A5DA2171F131F4A5DA2173F133F4A +5DA2017F157FA24A5D496C4A7EB66CB67EA3483E7BBD44>I<49B6FC5BA2D9000313005D +5DA314075DA3140F5DA3141F5DA3143F5DA3147F5DA314FF92C7FCA35B5CA313035CA313 +075CA3130F5CA3131F5CA3133F5CA2137FA25C497EB67EA3283E7BBD23>I<4AB61280A2 +180091C713C0167F5FA216FF94C7FCA35D5EA315035EA315075EA3150F5EA3151F5EA315 +3F5EA3157FA25EA215FFA293C8FCA25CA25DA2380F8003EA3FC0D87FE05BA21407D8FFC0 +5B140F01805B49485A12FC0070495A4A5A6C01FEC9FC383C01FC380F07F03807FFC0C648 +CAFC314079BD30>I<49B6903807FFFE605ED9000390C7000113E04B6E13004B15FC4E5A +19E002074B5A4BEC0F804EC7FC183C020F5D4B5C4D5AEF07C0021F4AC8FC4B131E5F5F02 +3F5C9238C003E0EE07804CC9FC027F5B4B5AEEFF801581ECFF834B7FED0F7FED1E3F4901 +7C7FECFEF89138FFE01F03C07F491380ED000F4A805C010714074A80A21603010F815C16 +0183131F4A6D7FA2177F013F825C173F017F82A24A81496C4A7EB6D8800FB512C0A26147 +3E7BBD46>I<49B612C0A25FD9000390C8FC5D5DA314075DA3140F5DA3141F5DA3143F5D +A3147F5DA314FF92C9FCA35B5CA313035C18C0EF01E0010716C05C17031880130F4A1407 +18005F131F4A141EA2173E013F5D4A14FC1601017F4A5A16074A131F01FFECFFF0B8FCA2 +5F333E7BBD39>I<49B5933807FFFC496062D90003F0FC00505ADBBF805E1A771AEF1407 +033F923801CFE0A2F1039F020FEE071F020E606F6C140E1A3F021E161C021C04385BA2F1 +707F143C023804E090C7FCF001C0629126780FE0495A02705FF00700F00E0114F002E003 +1C5BA2F03803010116704A6C6C5D18E019070103ED01C00280DA03805BA2943807000F13 +070200020E5C5FDB03F8141F495D010E4B5CA24D133F131E011CDAF9C05CEEFB80197F01 +3C6DB4C7FC013895C8FC5E01784A5C13F8486C4A5CD807FE4C7EB500F04948B512FE16E0 +1500563E7BBD52>I<902601FFFE020FB5FC496D5CA2D900016D010013C04AEE3F00193E +70141C193CEC07BFDB3FE01438151F1978020F7FDA0E0F15708219F0EC1E07021C6D5CA2 +03031401023C7FDA38015DA2701303EC7800027002805BA2047F130702F014C04A013F91 +C7FCA2715A0101141F4AECF00EA2040F131E010315F84A151C1607EFFC3C0107140391C7 +143817FE040113784915FF010E16708218F0131E011C6F5AA2173F133C01385E171F1378 +13F8486C6F5AEA07FEB500F01407A295C8FC483E7BBD44>II<49B77E18F018FC90 +3B0003FE0003FEEF00FF4BEC7F80F03FC00207151F19E05DA2020F16F0A25DA2141FF03F +E05DA2023F16C0187F4B1580A2027FEDFF00604B495A4D5A02FF4A5A4D5A92C7EA3FC04C +B4C7FC4990B512FC17E04ACAFCA21303A25CA21307A25CA2130FA25CA2131FA25CA2133F +A25CA2137FA25C497EB67EA33C3E7BBD3E>II<49B612FCEFFF8018F0903B0003FE000FF8EF03FE4BEB00FF841980 +0207ED3FC05DA219E0140F5DA3021FED7FC05DA2F0FF80143F4B15004D5A60027F4A5A4B +495A4D5AEF3F8002FF02FEC7FC92380007F892B512E01780499038000FE04A6D7E707E70 +7E0103814A130083A213075CA25E130F5C5F1603131F5CA3013F020714404A16E05F017F +160119C04A01031303496C1680B6D8800113079438FE0F009338007E1ECAEA3FFCEF07F0 +3B407BBD42>I<92391FE00380ED7FFC913A01FFFE0700913907F01F8F91390FC007DF4A +C66CB4FC023E6D5A4A130014FC495A4948147CA2495AA2010F15785CA3011F1570A46E91 +C7FCA2808014FE90380FFFE015FC6DEBFF8016E06D806D806D6C7F141F02037FEC003FED +07FF1501A281A282A212075A167E120EA2001E15FE5EA25E003E14015E003F14034B5A48 +6C5C150F6D495A6D49C8FCD8F9F0137C39F8FE01F839F03FFFF0D8E00F13C026C001FEC9 +FC314279BF33>I<48B9FCA25A903AFE001FF00101F89138E0007FD807E0163E49013F14 +1E5B48C75BA2001E147FA2001C4B131C123C003814FFA2007892C7FC12704A153C00F017 +38485CC716001403A25DA21407A25DA2140FA25DA2141FA25DA2143FA25DA2147FA25DA2 +14FFA292C9FCA25BA25CA21303A25CEB0FFE003FB67E5AA2383D71BC41>I<001FB500F0 +90B512F0485DA226003FF0C7380FFC004AEC03F04A5D715A017F1503A24A5DA201FF1507 +95C7FC91C8FCA2485E170E5BA20003161E171C5BA20007163C17385BA2000F167817705B +A2001F16F05F5BA2003F1501A2495DA2007F1503A2495DA2160794C8FC48C8FC5E160E16 +1E6C151C163C5E5E5E6C6C13014B5A001F4A5A6C6C011FC9FC6D133E6C6C13F83903FC07 +F0C6B512C0013F90CAFCEB07F83C406FBD44>II<277FFFFE01B500FC90B512E0B5FCA20003902680000790C7380F +FC006C90C701FCEC07F049725A04035EA26350C7FCA20407150EA2040F5D1A3C041F1538 +62163B6216734F5A6D14E303014B5A6C15C303034BC8FC1683DB0703140E191E030E151C +61031C7F61ED380161157003F04A5A15E002014B5A15C0DA03804AC9FC60DA0700140E60 +140E605C029C5D14B8D97FF85D5C715A5C4A5DA24A92CAFC5F91C7FC705A137E5F137C5F +137801705D53406EBD5B>I<91B690383FFFFC605E020101E0010F13006E49EB07F84C6D +5A19C06F6C495A96C7FC033F140E705B183C031F5C705B4D5A030F5C70485A4DC8FC0307 +130EEEFC1E5F03035BEEFE705F6F6C5A5FA26F90C9FC83A2707EA216FF4B7F5DED079FEE +1FF0150EED1C0F03387F1578EDF007DA01E07F15C09138038003DA07007F140E021E1301 +4A805C02707F4A81495A4948147F01078249C8FC013F6F7E496C147F2603FFC049487EB5 +00F8011FEBFFE0A261463E7CBD44>II<027FB612FEA3913AFFF80007FC03C014F892C7EA0FF0D901FC141F4A +EC3FE04AEC7FC04A15800103EDFF004A5B4C5A4948495A5F91C7485A49141F010E4A5A4C +5A5F011E4AC7FC90C75A4B5A4B5A5E4B5A151F4B5A4B5A5E15FF4A90C8FC4A5A4A5A5D14 +0F4A5A4A5A4A48130E4B131E02FF141C4990C7FC495A4948143C4A1438010F1578495A49 +481470494814F05C01FF4A5A4890C7FC4848140348481407494A5A000F151F4848143F48 +48ECFF804848130F90B7FCB8FC94C7FC373E79BD38>I<147E49B47E903907C1C3809039 +1F80EFC090383F00FF017E137F4914804848133F485AA248481400120F5B001F5C157E48 +5AA215FE007F5C90C7FCA21401485C5AA21403EDF0385AA21407EDE078020F1370127C02 +1F13F0007E013F13E0003E137FECF3E1261F01E313C03A0F8781E3803A03FF00FF00D800 +FC133E252977A72E>97 DIIII<167C4BB4FC923807C78092380F83C0ED1F87161FED3F3F +A2157EA21780EE0E004BC7FCA414015DA414035DA30103B512F8A390260007E0C7FCA314 +0F5DA5141F5DA4143F92C8FCA45C147EA414FE5CA413015CA4495AA4495AA4495A121E12 +7F5C12FF49C9FCA2EAFE1EEAF83C1270EA7878EA3FE0EA0F802A5383BF1C>III<1478EB01FCA21303A314 +F8EB00E01400AD137C48B4FC38038F80EA0707000E13C0121E121CEA3C0F1238A2EA781F +00701380A2EAF03F140012005B137E13FE5BA212015BA212035B1438120713E0000F1378 +EBC070A214F0EB80E0A2EB81C01383148038078700EA03FEEA00F8163E79BC1C>I107 +DIIII<903903E001F890390FF807FE903A1E7C1E0F80903A1C3E3C07 +C0013C137801389038E003E0EB783F017001C013F0ED80019038F07F0001E015F8147E16 +03000113FEA2C75AA20101140717F05CA20103140F17E05CA20107EC1FC0A24A1480163F +010F15005E167E5E131F4B5A6E485A4B5A90393FB80F80DA9C1FC7FCEC0FFCEC03E049C9 +FCA2137EA213FEA25BA21201A25BA21203A2387FFFE0B5FCA22D3A80A72E>I<027E1360 +903901FF81E0903807C1C390391F80E7C090383F00F7017E137F5B4848EB3F80485AA248 +5A000F15005B121F5D4848137EA3007F14FE90C75AA3481301485CA31403485CA314074A +5A127C141F007E133F003E495A14FF381F01EF380F879F3903FF1F80EA00FC1300143F92 +C7FCA35C147EA314FE5CA21301130390B512F05AA2233A77A72A>IIII<137C48B4141C26038F80137EEA0707000E7F001E15FE121CD83C +0F5C12381501EA781F007001805BA2D8F03F1303140000005D5B017E1307A201FE5C5B15 +0F1201495CA2151F0003EDC1C0491481A2153F1683EE0380A2ED7F07000102FF13005C01 +F8EBDF0F00009038079F0E90397C0F0F1C90391FFC07F8903907F001F02A2979A731>I< +017CEB01C048B4EB07F038038F80EA0707000E01C013F8121E001C1403EA3C0F0038EC01 +F0A2D8781F130000705BA2EAF03F91C712E012005B017E130116C013FE5B150300011580 +5BA2ED07001203495B150EA25DA25D1578000114706D5B0000495A6D485AD97E0FC7FCEB +1FFEEB03F0252979A72A>I<017C167048B491387001FC3A038F8001F8EA0707000E01C0 +15FE001E1403001CEDF000EA3C0F0038177C1507D8781F4A133C00701380A2D8F03F130F +020049133812005B017E011F14784C137013FE5B033F14F0000192C712E05BA217010003 +4A14C049137E17031880A2EF070015FE170E00010101141E01F86D131C0000D9039F5BD9 +FC076D5A903A3E0F07C1E0903A1FFC03FFC0902703F0007FC7FC372979A73C>I<903903 +F001F890390FFC07FE90393C1E0E0F9026780F1C138001F0EBB83FD801E013F89039C007 +F07FEA0380000714E0D9000F140048151C000E4AC7FCA2001E131FA2C75BA2143F92C8FC +A35C147EA314FE4A131CA30101143C001E1538003F491378D87F811470018314F000FF5D +9039077801C039FE0F7C033A7C0E3C078027783C1E1EC7FC391FF80FFC3907E003F02929 +7CA72A>I<137C48B4143826038F8013FCEA0707000E7F001E1401001C15F8EA3C0F1238 +1503D8781F14F000701380A2D8F03F1307020013E012005B017E130F16C013FE5B151F12 +01491480A2153F000315005BA25D157EA315FE5D00011301EBF8030000130790387C1FF8 +EB3FF9EB07E1EB00035DA21407000E5CEA3F80007F495AA24A5AD8FF0090C7FC143E007C +137E00705B387801F0383803E0381E0FC06CB4C8FCEA03F8263B79A72C>III E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fo cmr9 9 58 +/Fo 58 123 df12 D<003C13F0387E01F838FF03FCA2EB83FEA2EA7F81383D80F600 +011306A40003130EEB000CA248131C00061318000E1338000C1330001C13704813E03870 +01C00060138017177EB326>34 D<123C127EB4FCA21380A2127F123D1201A412031300A2 +5A1206120E120C121C5A5A126009177AB315>39 D<14C01301EB0380EB0F00130E5B133C +5B5BA2485A485AA212075B120F90C7FC5AA2121E123EA3123C127CA55AB0127CA5123C12 +3EA3121E121FA27E7F12077F1203A26C7E6C7EA213787F131C7F130FEB0380EB01C01300 +124A79B71E>I<12C07E1270123C121C7E120F6C7E6C7EA26C7E6C7EA27F1378137C133C +133EA2131E131FA37F1480A5EB07C0B0EB0F80A514005BA3131E133EA2133C137C137813 +F85BA2485A485AA2485A48C7FC120E5A123C12705A5A124A7CB71E>I<123C127EB4FCA2 +1380A2127F123D1201A412031300A25A1206120E120C121C5A5A126009177A8715>44 +DI<123C127E12FFA4127E123C08087A8715>I48 D<13075B5B137FEA07FFB5FC13BFEAF83F +1200B3B3A2497E007FB51280A319327AB126>II52 D<000C14C0380FC00F90B51280 +15005C5C14F014C0D80C18C7FC90C8FCA9EB0FC0EB7FF8EBF07C380FC03F9038001F80EC +0FC0120E000CEB07E0A2C713F01403A215F8A41218127E12FEA315F0140712F8006014E0 +1270EC0FC06C131F003C14806CEB7F00380F80FE3807FFF8000113E038003F801D347CB1 +26>I<123C127E12FFA4127E123C1200B0123C127E12FE12FFA3127F123F1203A4120712 +06A3120E120C121C1238123012701260082F7A9F15>59 D<15E0A34A7EA24A7EA34A7EA3 +EC0DFE140CA2EC187FA34A6C7EA202707FEC601FA202E07FECC00FA2D901807F1507A249 +486C7EA301066D7EA2010E80010FB5FCA249800118C77EA24981163FA2496E7EA3496E7E +A20001821607487ED81FF04A7ED8FFFE49B512E0A333367DB53A>65 +DII69 DI72 +DI<017FB5FCA39038003F +E0EC1FC0B3B1127EB4FCA4EC3F805A0060140000705B6C13FE6C485A380F03F03803FFC0 +C690C7FC20357DB227>III< +D8FFFC923801FFF86D5DA20003EFFE00D801BFED06FCA3D99F80140CA2D98FC01418A3D9 +87E01430A2D983F01460A3D981F814C0A3D980FCEB0180A2027EEB0300A36E1306A26E6C +5AA36E6C5AA36E6C5AA26E6C5AA36E6C5AA3913800FD80A2037FC7FCA3486C133ED80FF0 +4B7EB5011C90387FFFF8A33D337CB246>I79 D82 D<90381FE00390387FFC0748B5FC3907F01FCF +390F8003FF48C7FC003E80814880A200788000F880A46C80A27E92C7FC127F13C0EA3FF0 +13FF6C13F06C13FF6C14C06C14F0C680013F7F01037F9038003FFF140302001380157F15 +3FED1FC0150F12C0A21507A37EA26CEC0F80A26C15006C5C6C143E6C147E01C05B39F1FC +03F800E0B512E0011F138026C003FEC7FC22377CB42B>I<007FB712FEA390398007F001 +D87C00EC003E0078161E0070160EA20060160600E01607A3481603A6C71500B3AB4A7E01 +1FB512FCA330337DB237>I86 +DI<0003130C48131C000E1338481370001813 +60003813E0003013C0EA700100601380A2EAE00300C01300A400DE137800FF13FCEB83FE +A2EA7F81A2383F00FC001E1378171774B326>92 D97 DII<153FEC0FFFA3EC007F81AEEB +07F0EB3FFCEBFC0F3901F003BF3907E001FF48487E48487F8148C7FCA25A127E12FEAA12 +7E127FA27E6C6C5BA26C6C5B6C6C4813803A03F007BFFC3900F81E3FEB3FFCD90FE01300 +26357DB32B>III<151F90391FC07F809039FFF8E3C03901 +F07FC73907E03F033A0FC01F83809039800F8000001F80EB00074880A66C5CEB800F000F +5CEBC01F6C6C48C7FCEBF07C380EFFF8380C1FC0001CC9FCA3121EA2121F380FFFFEECFF +C06C14F06C14FC4880381F0001003EEB007F4880ED1F8048140FA56C141F007C15006C14 +3E6C5C390FC001F83903F007E0C6B51280D91FFCC7FC22337EA126>IIIII< +EA07E012FFA3120F1207B3B3A7EA0FF0B5FCA310347EB315>I<2703F01FE013FF00FF90 +267FF80313C0903BF1E07C0F03E0903BF3803E1C01F02807F7003F387FD803FE1470496D +486C7EA2495CA2495CB3486C496C487EB53BC7FFFE3FFFF0A33C217EA041>I<3903F01F +C000FFEB7FF09038F1E0FC9038F3807C3907F7007EEA03FE497FA25BA25BB3486CEB7F80 +B538C7FFFCA326217EA02B>II<3903F03F8000FFEBFFE09038F3C0F89038F7007ED807FE7F6C48EB1F804914C04913 +0F16E0ED07F0A3ED03F8A9150716F0A216E0150F16C06D131F6DEB3F80160001FF13FC90 +38F381F89038F1FFE0D9F07FC7FC91C8FCAA487EB512C0A325307EA02B>I<903807F003 +90383FFC07EBFC0F3901F8038F3807E001000F14DF48486CB4FC497F123F90C77E5AA25A +5AA9127FA36C6C5B121F6D5B000F5B3907E003BF3903F0073F3800F81EEB3FF8EB0FE090 +C7FCAAED7F8091380FFFFCA326307DA029>I<3803E07C38FFE1FF9038E38F809038E71F +C0EA07EEEA03ECA29038FC0F8049C7FCA35BB2487EB512E0A31A217FA01E>II<1330A51370A313F0A21201A212031207 +381FFFFEB5FCA23803F000AF1403A814073801F806A23800FC0EEB7E1CEB1FF8EB07E018 +2F7FAD1E>IIIII<3A7FFF807FF8A33A07F8001FC00003EC0F800001 +EC070015066C6C5BA26D131C017E1318A26D5BA2EC8070011F1360ECC0E0010F5BA29038 +07E180A214F3010390C7FC14FBEB01FEA26D5AA31478A21430A25CA214E05CA2495A1278 +D8FC03C8FCA21306130EEA701CEA7838EA1FF0EA0FC025307F9F29>I<003FB512F0A2EB +000F003C14E00038EB1FC00030EB3F800070137F1500006013FE495A13035CC6485A495A +A2495A495A49C7FC153013FE485A12035B48481370485A001F14604913E0485A387F0003 +48130F90B5FCA21C207E9F22>I E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fp cmr6 6 5 +/Fp 5 54 df<13E01201120712FF12F91201B3A7487EB512C0A212217AA01E>49 +DI<13FF000313C0380F03E0381C00F014F800 +3E13FC147CA2001E13FC120CC712F8A2EB01F0EB03E0EB0FC03801FF00A2380003E0EB00 +F01478147C143E143F1230127812FCA2143E48137E0060137C003813F8381E03F0380FFF +C00001130018227DA01E>I<14E01301A213031307A2130D131D13391331136113E113C1 +EA01811203EA07011206120C121C12181230127012E0B6FCA2380001E0A6EB03F0EB3FFF +A218227DA11E>I<00101330381E01F0381FFFE014C01480EBFE00EA1BF00018C7FCA513 +FE381BFF80381F03C0381C01E0381800F014F8C71278A2147CA21230127812F8A2147848 +13F8006013F0387001E01238381E07803807FF00EA01F816227CA01E>I +E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fq cmtt10 10.95 80 +/Fq 80 123 df<0060150C00F0151EB3ABB712FEA36C15FC27227C9530>32 +D<00101304007C131F00FEEB3F80A26C137FA248133FB2007E1400007C7F003C131E0010 +1304191C75B830>34 D<1438147C14FCA4EB03FF011F13E090B512FC4880000780481580 +261FFEFD13C09039F0FC3FE0D83FC0131FD87F80EB0FF001001307007E15F800FE14035A +1507A36CEC03F0A2007F91C7FC138013C0EA3FF0EA1FFE13FF6C13FF6C14E0000114F86C +6C7F011F7F01037F0100148002FD13C09138FC7FE0151FED0FF015070018EC03F8127E15 +01B4FCA35AA26CEC03F07E01801307ED0FE0D83FC0131F01F0EB7FC0D81FFEB512806CB6 +12006C5C6C5CC614F0013F13C0D907FEC7FCEB00FCA5147C143825477BBE30>36 +DI39 D<141E147F14FF5BEB03FEEB +07FCEB0FF0EB1FE0EB3FC0EB7F80EBFF00485A5B12035B485A120F5BA2485AA2123F5BA2 +127F90C7FCA412FEAD127FA47F123FA27F121FA26C7EA27F12076C7E7F12017F6C7EEB7F +80EB3FC0EB1FE0EB0FF0EB07FCEB03FEEB01FF7F147F141E184771BE30>I<127812FE7E +7F6C7E6C7EEA0FF06C7E6C7E6C7E6C7EEB7F80133F14C0131FEB0FE014F01307A2EB03F8 +A214FC1301A214FE1300A4147FAD14FEA4130114FCA2130314F8A2EB07F0A2130F14E0EB +1FC0133F1480137FEBFF00485A485A485A485AEA3FE0485A485A90C7FC5A1278184778BE +30>I<14E0497E497EA60038EC0380007EEC0FC0D8FF83EB3FE001C3137F9038F3F9FF26 +7FFBFB13C06CB61280000FECFE00000314F86C5C6C6C13C0011F90C7FC017F13C048B512 +F04880000F14FE003FECFF80267FFBFB13C026FFF3F913E09038C3F87F0183133FD87E03 +EB0FC00038EC0380000091C7FCA66D5A6D5A23277AAE30>I<143EA2147FAF007FB7FCA2 +B81280A36C1600A2C76CC8FCAF143EA229297DAF30>II<007FB612F0A2B712F8A36C15F0A225077B9E30>I<120FEA3F +C0EA7FE0A2EAFFF0A4EA7FE0A2EA3FC0EA0F000C0C6E8B30>I<16F01501ED03F8A21507 +A2ED0FF0A2ED1FE0A2ED3FC0A2ED7F80A2EDFF00A24A5AA25D1403A24A5AA24A5AA24A5A +A24A5AA24A5AA24AC7FCA2495AA25C1303A2495AA2495AA2495AA2495AA2495AA249C8FC +A2485AA25B1203A2485AA2485AA2485AA2485AA2485AA248C9FCA25AA2127CA225477BBE +30>I<14FE903807FFC0497F013F13F8497F90B57E48EB83FF4848C6138049137F4848EB +3FC04848EB1FE049130F001F15F0491307A24848EB03F8A290C712014815FCA400FEEC00 +FEAD6C14016C15FCA36D1303003F15F8A26D1307001F15F0A26D130F6C6CEB1FE0A26C6C +EB3FC06C6CEB7F806D13FF2601FF8313006CEBFFFE6D5B6D5B010F13E06D5BD900FEC7FC +273A7CB830>IIII< +EC03FC4A7E140F141FA2143F147F157E14FEA2EB01FCEB03F8A2EB07F0A2EB0FE0EB1FC0 +A2EB3F80A2EB7F0013FEA2485A485AA2485AA2485A485AA2485AA248C7FC12FEB8FC1780 +A46C1600C8007EC7FCAA91387FFFFE91B6FCA46E5B29397DB830>I<000FB612804815C0 +5AA316800180C8FCAEEB83FF019F13C090B512F015FC8181D9FE0313809039F0007FC049 +133F0180EB1FE06CC7120F000E15F0C81207A216F81503A31218127EA2B4FC150716F048 +140F6C15E06C141F6DEB3FC06D137F3A3FE001FF80261FFC0F13006CB55A6C5C6C5C6C14 +E06C6C1380D90FFCC7FC25397BB730>II<127CB712FC16FEA416FC48C7EA0FF8 +16F0ED1FE0007CEC3FC0C8EA7F80EDFF00A24A5A4A5A5D14075D140F5D4A5AA24A5AA24A +C7FCA25C5C13015CA213035CA213075CA4495AA6131F5CA96D5A6DC8FC273A7CB830>I< +49B4FC011F13F0017F13FC90B57E0003ECFF804815C048010113E03A1FF8003FF049131F +D83FC0EB07F8A24848EB03FC90C71201A56D1303003F15F86D13076C6CEB0FF06C6CEB1F +E0D807FCEB7FC03A03FF83FF806C90B512006C6C13FC011F13F0497F90B512FE48802607 +FE0013C0D80FF8EB3FE0D81FE0EB0FF04848EB07F8491303007F15FC90C712014815FE48 +1400A66C14016C15FC6D1303003F15F86D1307D81FF0EB1FF06D133F3A0FFF01FFE06C90 +B512C06C1580C6ECFE006D5B011F13F0010190C7FC273A7CB830>I<49B4FC010F13E001 +3F13F890B57E4880488048010113803A0FFC007FC0D81FF0EB3FE04848131F49EB0FF048 +481307A290C7EA03F85A4815FC1501A416FEA37E7E6D1303A26C6C13076C6C130F6D133F +D80FFC13FF6CB6FC7E6C14FE6C14F9013FEBE1FC010F138190380060011400ED03F8A215 +0716F0150F000F15E0486C131F486CEB3FC0157FEDFF804A1300EC07FE391FF01FFC90B5 +5A6C5C6C5C6C1480C649C7FCEB3FF0273A7CB830>I<120FEA3FC0EA7FE0A2EAFFF0A4EA +7FE0A2EA3FC0EA0F00C7FCAF120FEA3FC0EA7FE0A2EAFFF0A4EA7FE0A2EA3FC0EA0F000C +276EA630>I<007FB7FCA2B81280A36C16006C5DCBFCA7003FB612FE4881B81280A36C16 +00A229157DA530>61 D63 D<147F4A7EA2497FA4497F14F7A401077F14E3A3 +010F7FA314C1A2011F7FA490383F80FEA590387F007FA4498049133F90B6FCA34881A390 +38FC001F00038149130FA4000781491307A2D87FFFEB7FFFB56CB51280A46C496C130029 +397DB830>65 D<007FB512F0B612FE6F7E82826C813A03F8001FF815076F7E1501A26F7E +A615015EA24B5A1507ED1FF0ED7FE090B65A5E4BC7FC6F7E16E0829039F8000FF8ED03FC +6F7E1500167FA3EE3F80A6167F1700A25E4B5A1503ED1FFC007FB6FCB75A5E16C05E6C02 +FCC7FC29387EB730>I<91387F803C903903FFF03E49EBFC7E011F13FE49EBFFFE5B9038 +FFE07F48EB801F3903FE000F484813075B48481303A2484813015B123F491300A2127F90 +C8FC167C16005A5AAC7E7EA2167C6D14FE123FA27F121F6D13016C6C14FCA26C6CEB03F8 +6D13076C6CEB0FF03901FF801F6C9038E07FE06DB512C06D14806D1400010713FC6D13F0 +9038007FC0273A7CB830>I<003FB512E04814FCB67E6F7E6C816C813A03F8007FF0ED1F +F8150F6F7E6F7E15016F7EA2EE7F80A2163F17C0161FA4EE0FE0AC161F17C0A3163F1780 +A2167F17005E4B5A15034B5A150F4B5AED7FF0003FB65A485DB75A93C7FC6C14FC6C14E0 +2B387FB730>I<007FB7FCB81280A47ED803F8C7123FA8EE1F0093C7FCA4157C15FEA490 +B5FCA6EBF800A4157C92C8FCA5EE07C0EE0FE0A9007FB7FCB8FCA46C16C02B387EB730> +I<003FB712804816C0B8FCA27E7ED801FCC7121FA8EE0F8093C7FCA5153E157FA490B6FC +A69038FC007FA4153E92C8FCAE383FFFF8487FB5FCA27E6C5B2A387EB730>I<02FF13F0 +0103EBC0F8010F13F1013F13FD4913FF90B6FC4813C1EC007F4848133F4848131F49130F +485A491307121F5B123F491303A2127F90C7FC6F5A92C8FC5A5AA892B5FC4A14805CA26C +7F6C6D1400ED03F8A27F003F1407A27F121F6D130F120F7F6C6C131FA2D803FE133F6C6C +137FECC1FF6C90B5FC7F6D13FB010F13F30103EBC1F0010090C8FC293A7DB830>I<3B3F +FF800FFFE0486D4813F0B56C4813F8A26C496C13F06C496C13E0D803F8C7EAFE00B290B6 +FCA601F8C7FCB3A23B3FFF800FFFE0486D4813F0B56C4813F8A26C496C13F06C496C13E0 +2D387FB730>I<007FB6FCB71280A46C1500260007F0C7FCB3B3A8007FB6FCB71280A46C +1500213879B730>I<49B512F04914F85BA27F6D14F090C7EAFE00B3B3123C127EB4FCA2 +4A5A1403EB8007397FF01FF86CB55A5D6C5C00075C000149C7FC38003FF025397AB730> +II<383FFFF8487FB57EA26C5B6C5BD801FCC9FCB3B0EE0F80EE1FC0A9003FB7FC +5AB8FCA27E6C16802A387EB730>II< +D83FFC90381FFF80486C4913C0B54913E0A26C6D6C13C06C6E13800003913801F800EBF7 +C0A3EBF3E0A314F013F1A214F8A213F014FCA2147C147EA2143E143FA2141FA21581A214 +0F15C1A2140715E1A2140315F1A21401A215F91400A3157DA3153FEA3FFF481380B5EAC0 +1FA26CEB800F6C496C5A2B387EB730>I<90383FFFE048B512FC000714FF4815804815C0 +4815E0EBF80001E0133FD87F80EB0FF0A290C71207A44815F8481403B3A96C1407A26C15 +F0A36D130FA26D131F6C6CEB3FE001F813FF90B6FC6C15C06C15806C1500000114FCD800 +3F13E0253A7BB830>I<007FB512F0B612FE6F7E16E0826C813903F8003FED0FFCED03FE +15016F7EA2821780163FA6167F17005EA24B5A1503ED0FFCED3FF890B6FC5E5E16804BC7 +FC15F001F8C9FCB0387FFFC0B57EA46C5B29387EB730>I<90383FFFE048B512FC000714 +FF4815804815C04815E0EBF80001E0133F4848EB1FF049130F90C71207A44815F8481403 +B3A8147E14FE6CEBFF076C15F0EC7F87A2EC3FC7018013CF9038C01FFFD83FE014E0EBF8 +0F90B6FC6C15C06C15806C1500000114FCD8003F7FEB00016E7EA21680157F16C0153F16 +E0151F16F0150FED07E025467BB830>I<003FB57E4814F0B612FC15FF6C816C812603F8 +017F9138003FF0151F6F7E15071503821501A515035E1507150F4B5A153F4AB45A90B65A +5E93C7FC5D8182D9F8007FED3FE0151F150F821507A817F8EEF1FCA53A3FFF8003FB4801 +C0EBFFF8B56C7E17F06C496C13E06C49EB7FC0C9EA1F002E397FB730>I<90390FF803C0 +D97FFF13E048B512C74814F74814FF5A381FF80F383FE001497E4848137F90C7123F5A48 +141FA2150FA37EED07C06C91C7FC7F7FEA3FF0EA1FFEEBFFF06C13FF6C14E0000114F86C +80011F13FF01031480D9003F13C014019138007FE0151FED0FF0A2ED07F8A2007C140312 +FEA56C140716F07F6DEB0FE06D131F01F8EB3FC001FF13FF91B51280160000FD5CD8FC7F +13F8D8F81F5BD878011380253A7BB830>I<003FB712C04816E0B8FCA43AFE003F800FA8 +007CED07C0C791C7FCB3B1011FB5FC4980A46D91C7FC2B387EB730>I<3B7FFFC007FFFC +B56C4813FEA46C496C13FCD803F8C7EA3F80B3B16D147F00011600A36C6C14FE6D13016D +5CEC800390393FE00FF890391FF83FF06DB55A6D5C6D5C6D91C7FC9038007FFCEC1FF02F +3980B730>III<3A3FFF +01FFF84801837F02C77FA202835B6C01015B3A01FC007F806D91C7FC00005C6D5BEB7F01 +EC81FCEB3F8314C3011F5B14E7010F5B14FF6D5BA26D5BA26D5BA26D90C8FCA4497FA249 +7FA2815B81EB0FE781EB1FC381EB3F8181EB7F0081497F49800001143F49800003141F49 +800007140FD87FFEEB7FFFB590B5128080A25C6C486D130029387DB730>II<001F +B612FC4815FE5AA490C7EA03FCED07F816F0150FED1FE016C0153FED7F80003E1500C85A +4A5A5D14034A5A5D140F4A5A5D143F4A5A92C7FC5C495A5C1303495A5C130F495A5C133F +495A91C8FC5B4848147C4914FE1203485A5B120F485A5B123F485A90B6FCB7FCA46C15FC +27387CB730>I<007FB612F0A2B712F8A36C15F0A225077B7D30>95 +D<1338137CEA01FE12031207EA0FFC13F0EA1FE013C0EA3F8013005A127EA212FE5AA5EA +FFC013E013F0127FA2123FA2EA1FE0EA07C00F1D70BE30>II< +EA3FFC487E12FFA2127F123F1200AAEC03FE91381FFF80027F13E091B57E90B612FC82EC +FE079138F001FF4A6C13804A137F4AEB3FC091C7121F17E049140FA217F01607A8160FA2 +17E07F161F6EEB3FC0A26EEB7F806E13FFDAF00313009138FC0FFE91B55A5E495CD97E7F +13C0D93C1F90C7FC90380003FC2C3980B730>II<913801FFE04A7F5CA2 +8080EC0007AAEB03FE90381FFF874913E790B6FC5A5A481303380FFC00D81FF0133F4913 +1F485A150F4848130790C7FCA25AA25AA87E6C140FA27F003F141F6D133F6C7E6D137F39 +0FF801FF2607FE07EBFFC06CB712E06C16F06C14F76D01C713E0011F010313C0D907FCC8 +FC2C397DB730>I<49B4FC010713E0011F13F8017F7F90B57E488048018113803A07FC00 +7FC04848133FD81FE0EB1FE0150F484814F0491307127F90C7FCED03F85A5AB7FCA516F0 +48C9FC7E7EA27F003FEC01F06DEB03F86C7E6C7E6D1307D807FEEB1FF03A03FFC07FE06C +90B5FC6C15C0013F14806DEBFE00010713F8010013C0252A7CA830>IIII<14 +E0EB03F8A2497EA36D5AA2EB00E091C8FCA9381FFFF8487F5AA27E7EEA0001B3A9003FB6 +12C04815E0B7FCA27E6C15C023397AB830>III<387FFFF8B57EA47EEA0001B3B3A8007FB612F0B712F8A46C15F025387BB730> +I<02FC137E3B7FC3FF01FF80D8FFEF01877F90B500CF7F15DF92B57E6C010F13872607FE +07EB03F801FC13FE9039F803FC01A201F013F8A301E013F0B3A23C7FFE0FFF07FF80B548 +018F13C0A46C486C01071380322881A730>II<49B4 +FC010F13E0013F13F8497F90B57E0003ECFF8014013A07FC007FC04848EB3FE0D81FE0EB +0FF0A24848EB07F8491303007F15FC90C71201A300FEEC00FEA86C14016C15FCA26D1303 +003F15F86D13076D130F6C6CEB1FF06C6CEB3FE06D137F3A07FF01FFC06C90B512806C15 +006C6C13FC6D5B010F13E0010190C7FC272A7CA830>II<49B413F8010FEBC1FC013F13F14913FD48B6FC5A48138139 +0FFC007F49131F4848130F491307485A491303127F90C7FC15015A5AA77E7E15037FA26C +6C1307150F6C6C131F6C6C133F01FC137F3907FF01FF6C90B5FC6C14FD6C14F9013F13F1 +010F13C1903803FE0190C7FCAD92B512F84A14FCA46E14F82E3C7DA730>I +I<90381FFC1E48B5129F000714FF5A5A5A387FF007EB800100FEC7FC4880A46C143E007F +91C7FC13E06CB4FC6C13FC6CEBFF806C14E0000114F86C6C7F01037F9038000FFF020013 +80007C147F00FEEC1FC0A2150F7EA27F151F6DEB3F806D137F9039FC03FF0090B6FC5D5D +00FC14F0D8F83F13C026780FFEC7FC222A79A830>III<3B3FFFC0 +7FFF80486DB512C0B515E0A26C16C06C496C13803B01F80003F000A26D130700005DA26D +130F017E5CA2017F131F6D5CA2EC803F011F91C7FCA26E5A010F137EA2ECE0FE01075BA2 +14F101035BA3903801FBF0A314FF6D5BA36E5A6E5A2B277EA630>I<3B3FFFC01FFFE048 +6D4813F0B515F8A26C16F06C496C13E0D807E0C7EA3F00A26D5C0003157EA56D14FE0001 +5DEC0F80EC1FC0EC3FE0A33A00FC7FF1F8A2147DA2ECFDF9017C5C14F8A3017E13FBA290 +393FF07FE0A3ECE03FA2011F5C90390F800F802D277FA630>I<3A3FFF81FFFC4801C37F +B580A26C5D6C01815BC648C66CC7FC137FEC80FE90383F81FC90381FC3F8EB0FE3ECE7F0 +6DB45A6D5B7F6D5B92C8FC147E147F5C497F81903803F7E0EB07E790380FE3F0ECC1F890 +381F81FC90383F80FE90387F007E017E137F01FE6D7E48486D7E267FFF80B5FCB500C114 +8014E3A214C16C0180140029277DA630>I<3B3FFFC07FFF80486DB512C0B515E0A26C16 +C06C496C13803B01FC0003F000A2000014076D5C137E150F017F5C7F151FD91F805BA214 +C0010F49C7FCA214E00107137EA2EB03F0157C15FCEB01F85DA2EB00F9ECFDF0147D147F +A26E5AA36E5AA35DA2143F92C8FCA25C147EA2000F13FE486C5AEA3FC1EBC3F81387EB8F +F0EBFFE06C5B5C6C90C9FC6C5AEA01F02B3C7EA630>I<001FB612FC4815FE5AA316FC90 +C7EA0FF8ED1FF0ED3FE0ED7FC0EDFF80003E491300C7485A4A5A4A5A4A5A4A5A4A5A4A5A +4990C7FC495A495A495A495A495A495A4948133E4890C7127F485A485A485A485A485A48 +B7FCB8FCA46C15FE28277DA630>I E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fr cmr8 8 9 +/Fr 9 116 df48 D<130C133C137CEA03FC12FFEAFC7C1200 +B3B113FE387FFFFEA2172C7AAB23>III<140E +A2141E143EA2147E14FEA2EB01BE1303143E1306130E130C131813381330136013E013C0 +EA0180120313001206120E120C5A123812305A12E0B612FCA2C7EA3E00A9147F90381FFF +FCA21E2D7EAC23>I<000CEB0180380FC01F90B512005C5C14F014C0D80C7EC7FC90C8FC +A8EB1FC0EB7FF8380DE07C380F801F01001380000E130F000CEB07C0C713E0A2140315F0 +A4127812FCA448EB07E012E0006014C00070130F6C14806CEB1F006C133E380780F83801 +FFE038007F801C2D7DAB23>I104 +D<2607C07FEB07F03BFFC3FFC03FFC903AC783F0783F3C0FCE01F8E01F803B07DC00F9C0 +0F01F8D9FF8013C04990387F000749137EA249137CB2486C01FEEB0FE03CFFFE0FFFE0FF +FEA2371E7E9D3C>109 D<3801FE183807FFB8381E01F8EA3C00481378481338A21418A2 +7E7EB41300EA7FF06CB4FC6C13C06C13F0000113F838001FFC130138C0007E143EA26C13 +1EA27EA26C133CA26C137838FF01F038E3FFC000C0130017207E9E1C>115 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fs cmbx12 12 58 +/Fs 58 123 df11 D44 DIIIIIII<163F +A25E5E5D5DA25D5D5D5DA25D92B5FCEC01F7EC03E7140715C7EC0F87EC1F07143E147E14 +7C14F8EB01F0EB03E0130714C0EB0F80EB1F00133E5BA25B485A485A485A120F5B48C7FC +123E5A12FCB91280A5C8000F90C7FCAC027FB61280A531417DC038>I<0007150301E014 +3F01FFEB07FF91B6FC5E5E5E5E5E16804BC7FC5D15E092C8FC01C0C9FCAAEC3FF001C1B5 +FC01C714C001DF14F09039FFE03FFC9138000FFE01FC6D7E01F06D13804915C0497F6C48 +15E0C8FC6F13F0A317F8A4EA0F80EA3FE0487E12FF7FA317F05B5D6C4815E05B007EC748 +13C0123E003F4A1380D81FC0491300D80FF0495AD807FEEBFFFC6CB612F0C65D013F1480 +010F01FCC7FC010113C02D427BC038>I<4AB47E021F13F0027F13FC49B6FC0107903880 +7F8090390FFC001FD93FF014C04948137F4948EBFFE048495A5A1400485A120FA248486D +13C0EE7F80EE1E00003F92C7FCA25B127FA2EC07FC91381FFF8000FF017F13E091B512F8 +9039F9F01FFC9039FBC007FE9039FF8003FF17804A6C13C05B6F13E0A24915F0A317F85B +A4127FA5123FA217F07F121FA2000F4A13E0A26C6C15C06D4913806C018014006C6D485A +6C9038E01FFC6DB55A011F5C010714C0010191C7FC9038003FF02D427BC038>I<121E12 +1F13FC90B712FEA45A17FC17F817F017E017C0A2481680007EC8EA3F00007C157E5E0078 +5D15014B5A00F84A5A484A5A5E151FC848C7FC157E5DA24A5A14035D14074A5AA2141F5D +143FA2147F5D14FFA25BA35B92C8FCA35BA55BAA6D5A6D5A6D5A2F447AC238>III65 D67 DIIIIII75 DIII<923807FFC092B512FE0207ECFFC0021F15F091 +267FFE0013FC902601FFF0EB1FFF01070180010313C04990C76C7FD91FFC6E6C7E49486F +7E49486F7E01FF8348496F7E48496F1380A248496F13C0A24890C96C13E0A24819F04982 +003F19F8A3007F19FC49177FA400FF19FEAD007F19FC6D17FFA3003F19F8A26D5E6C19F0 +A26E5D6C19E0A26C6D4B13C06C19806E5D6C6D4B13006C6D4B5A6D6C4B5A6D6C4B5A6D6C +4A5B6D01C001075B6D01F0011F5B010101FE90B5C7FC6D90B65A023F15F8020715C00200 +4AC8FC030713C047467AC454>II82 DI<003FBA12E0A59026FE000FEB8003D87FE09338003FF0 +49171F90C71607A2007E1803007C1801A300781800A400F819F8481978A5C81700B3B3A2 +0107B8FCA545437CC24E>I86 D<903801FFE0011F13FE017F6D7E48B6 +12E03A03FE007FF84848EB1FFC6D6D7E486C6D7EA26F7FA36F7F6C5A6C5AEA00F090C7FC +A40203B5FC91B6FC1307013F13F19038FFFC01000313E0000F1380381FFE00485A5B127F +5B12FF5BA35DA26D5B6C6C5B4B13F0D83FFE013EEBFFC03A1FFF80FC7F0007EBFFF86CEC +E01FC66CEB8007D90FFCC9FC322F7DAD36>97 DIIIIIII<137C48B4FC4813804813C0A24813E0A56C13C0A2 +6C13806C1300EA007C90C7FCAAEB7FC0EA7FFFA512037EB3AFB6FCA518467CC520>IIII<90277F8007FEEC0FFCB590263FFFC090387FFF +8092B5D8F001B512E002816E4880913D87F01FFC0FE03FF8913D8FC00FFE1F801FFC0003 +D99F009026FF3E007F6C019E6D013C130F02BC5D02F86D496D7EA24A5D4A5DA34A5DB3A7 +B60081B60003B512FEA5572D7CAC5E>I<90397F8007FEB590383FFF8092B512E0028114 +F8913987F03FFC91388F801F000390399F000FFE6C139E14BC02F86D7E5CA25CA35CB3A7 +B60083B512FEA5372D7CAC3E>II<90397FC00FF8B590B57E02C314E002CF14F89139DFC03FFC9139FF001FFE000301 +FCEB07FF6C496D13804A15C04A6D13E05C7013F0A2EF7FF8A4EF3FFCACEF7FF8A318F017 +FFA24C13E06E15C06E5B6E4913806E4913006E495A9139DFC07FFC02CFB512F002C314C0 +02C091C7FCED1FF092C9FCADB67EA536407DAC3E>I<90387F807FB53881FFE0028313F0 +028F13F8ED8FFC91389F1FFE000313BE6C13BC14F8A214F0ED0FFC9138E007F8ED01E092 +C7FCA35CB3A5B612E0A5272D7DAC2E>114 D<90391FFC038090B51287000314FF120F38 +1FF003383FC00049133F48C7121F127E00FE140FA215077EA27F01E090C7FC13FE387FFF +F014FF6C14C015F06C14FC6C800003806C15806C7E010F14C0EB003F020313E0140000F0 +143FA26C141F150FA27EA26C15C06C141FA26DEB3F8001E0EB7F009038F803FE90B55A00 +FC5CD8F03F13E026E007FEC7FC232F7CAD2C>IIII< +B5D8FE1FB539801FFFF0A500019027C0003FE0C7EA7C007114786E17F86C6F6C5C6E1601 +017F6E6C5CA26E011F1403013F6F5C6E013F1407011F6F5CA26E0179140F010F048090C7 +FC6E01F95C6D02F0EBC01E15806D902681E07F5B18E003C3157C6D9139C03FF07815E76D +DA801F5B18F803FF14F96E9039000FFDE018FF6E486D5BA36E486D5BA26E486D90C8FCA2 +4B7F02075DA26E48147C4B143C4C2C7EAB51>III<001FB71280A4 +9026FC001F130001E0495A5B49495A90C7485A48495B123E4A5B4A5B003C495BA24A90C7 +FC4A5A4A5AC7FC4A5A495B495BA2495B499038800780491300A2495A4948130F49481400 +A2485B48495B485BA248495B4890C75A48485C15034848EB1FFEB7FCA4292C7DAB32>I +E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Ft cmsl10 10.95 9 +/Ft 9 86 df<121EEA3F80EA7FC012FFA41380EA7F00123C0A0A788919>46 +D<1703EF0780170FA2EF1F00A2173EA25FA25FA24C5AA24C5AA24C5AA24C5AA24CC7FCA2 +163E167E167C5EA24B5AA24B5AA24B5AA24B5AA24BC8FCA2153EA25DA25DA24A5AA24A5A +A24A5AA24A5AA24AC9FCA2143EA25CA25CA2495AA2495AA2495AA2495A131F91CAFC133E +A25BA25BA2485AA2485AA2485AA2485AA248CBFCA2123EA25AA25AA21270315B7FC32D> +I<161C163C167CA216FCED01F815031507150FA2151DED3BF0157315E315C31401EC0383 +91380707E0140E141CA2143814709138E00FC0EB01C014801303EB0700130E49EB1F805B +133013705B485A4848EB3F0090C7FC5A120E5A5A48147E1260B8FCA3C73801FE00A25DA4 +1403A25DA314074A7E0107B512F8A3283E7BBD2D>52 D<01061403D90780131F90390FF8 +01FE91B512FC16F816F016E0168049EBFE0015F890381C7FC091C8FCA3133C1338A51378 +1370A2EC1FE0ECFFF8903873E03E9038FF001F01FCEB0F804914C049EB07E04914F04913 +0390C7FC16F8A61507A21206EA3F80487EA2150F00FF15F0A24914E090C7121F00FC15C0 +00F0143F00701580ED7F0012786C14FE4A5A6C495A390F800FE03907E03FC06CB5C7FCC6 +13FCEB1FE0283F7ABC2D>III<90263FFFE0023FB5FC6F16 +FEA29026003FF8020313C0021F030013004A6C157C023B163C6F15381439810238167802 +787FDA707F157082153F82031F15F002F07FDAE00F5D8215078203031401010180DAC001 +5D82811780047F1303010315C04A013F5C17E0161F17F0040F1307010715F891C7000791 +C7FC17FC160317FE04015B4915FF010E6E130E188E177F18CEEF3FDE011E16FE011C6F5A +A2170FA21707133C01386F5A133C017C150113FE2607FF801400B512FC18705C483E7DBD +44>78 D<9238FF80070207EBE00F021FEBF81E91387F00FE02FCEB1F3ED903F0EB0FFE49 +481307494813034AEB01FC49C7FC491400133E137E177C491578A57F1770A26D15008080 +80EB7FFEECFFE06D13FEEDFFC06D14F06D14FC010380010080143F02031480DA003F13C0 +15031500EE7FE0163F161FA2160F121CA31607160F003C16C0A31780003E151F1700007E +5D007F153E6D5C16FC01E0495AD87DF0495AD8FCFCEB0FC03AF87F803F8027F01FFFFEC7 +FCD8E00713F839C0007FC030427BBF33>83 D85 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fu cmbx12 14.4 42 +/Fu 42 117 df<913803FFC0023F13FC91B6FC010315C0010F018113F0903A1FFC003FF8 +49486D7E49486D7E49486D7E48496D138048496D13C0A24817E04890C813F0A34817F8A2 +4817FC49157FA3007F17FEA600FF17FFB3A5007F17FEA6003F17FCA26D15FFA26C17F8A3 +6C17F0A26C6D4913E0A26C6D4913C06C17806E5B6C6D4913006D6C495AD91FFCEB3FF890 +3A0FFF81FFF06D90B55A01011580D9003F01FCC7FC020313C0384F7BCD43>48 +D<157815FC14031407141F14FF130F0007B5FCB6FCA2147F13F0EAF800C7FCB3B3B3A600 +7FB712FEA52F4E76CD43>II<91380FFFC091B512FC +0107ECFF80011F15E090263FF8077F9026FF800113FC4848C76C7ED803F86E7E491680D8 +07FC8048B416C080486D15E0A4805CA36C17C06C5B6C90C75AD801FC1680C9FC4C13005F +A24C5A4B5B4B5B4B13C04B5BDBFFFEC7FC91B512F816E016FCEEFF80DA000713E0030113 +F89238007FFE707E7013807013C018E07013F0A218F8A27013FCA218FEA2EA03E0EA0FF8 +487E487E487EB57EA318FCA25E18F891C7FC6C17F0495C6C4816E001F04A13C06C484A13 +80D80FF84A13006CB44A5A6CD9F0075BC690B612F06D5D011F1580010302FCC7FCD9001F +1380374F7ACD43>I<177C17FEA2160116031607160FA2161F163F167FA216FF5D5DA25D +5DED1FBFED3F3F153E157C15FCEC01F815F0EC03E01407EC0FC01580EC1F005C147E147C +5C1301495A495A5C495A131F49C7FC133E5B13FC485A5B485A1207485A485A90C8FC123E +127E5ABA12C0A5C96C48C7FCAF020FB712C0A53A4F7CCE43>III<171F4D7E4D7EA24D7EA34C7FA24C7FA34C7FA34C7FA24C7FA34C8083047F +80167E8304FE804C7E03018116F8830303814C7E03078116E083030F814C7E031F811680 +83033F8293C77E4B82157E8403FE824B800201835D840203834B800207835D844AB87EA2 +4A83A3DA3F80C88092C97E4A84A2027E8202FE844A82010185A24A820103854A82010785 +A24A82010F855C011F717FEBFFFCB600F8020FB712E0A55B547BD366>65 +DI<932601FFFCEC01C0047F +D9FFC013030307B600F81307033F03FE131F92B8EA803F0203DAE003EBC07F020F01FCC7 +383FF0FF023F01E0EC0FF94A01800203B5FC494848C9FC4901F882494982494982494982 +4949824990CA7E494883A2484983485B1B7F485B481A3FA24849181FA3485B1B0FA25AA2 +98C7FC5CA2B5FCAE7EA280A2F307C07EA36C7FA21B0F6C6D1980A26C1A1F6C7F1C006C6D +606C6D187EA26D6C606D6D4C5A6D6D16036D6D4C5A6D6D4C5A6D01FC4C5A6D6DEE7F806D +6C6C6C4BC7FC6E01E0EC07FE020F01FEEC1FF80203903AFFE001FFF0020091B612C0033F +93C8FC030715FCDB007F14E0040101FCC9FC525479D261>IIII<9326 +01FFFCEC01C0047FD9FFC013030307B600F81307033F03FE131F92B8EA803F0203DAE003 +EBC07F020F01FCC7383FF0FF023F01E0EC0FF94A01800203B5FC494848C9FC4901F88249 +49824949824949824949824990CA7E494883A2484983485B1B7F485B481A3FA24849181F +A3485B1B0FA25AA298C8FC5CA2B5FCAE6C057FB712E0A280A36C94C7003FEBC000A36C7F +A36C7FA27E6C7FA26C7F6C7FA26D7E6D7F6D7F6D6D5E6D7F6D01FC93B5FC6D13FF6D6C6D +5C6E01F0EC07FB020F01FEEC1FF10203903AFFF001FFE0020091B6EAC07F033FEE001F03 +0703FC1307DB007F02E01301040149CAFC5B5479D26A>III<027FB71280A591C76C90C7FCB3 +B3B3EA07F0EA1FFC487E487EA2B57EA44C5AA34A485B7E49495BD83FF8495BD81FE05DD8 +0FFC011F5B2707FF807F90C8FC000190B512FC6C6C14F0011F14C0010101F8C9FC39537D +D145>IIII< +B600FC93B7FC8181A282D800076E9239003FFC0070EE07E08282A28202EF7F02E77F02E3 +80A202E18002E0806F7F6F7F6F7FA26F7F6F7F6F806F80A26F80707F707F707F707FA270 +7F7080708070808583717F717F717F717FA27114807114C07114E07213F07213F8A27213 +FC7213FE7213FF721487A27214C77214E77313F77313FF85A285858585A28586868686A2 +86868686A2D93FFC187FB7173F1B1F1B0F1B07755A60527CD169>I<93380FFFC00303B6 +FC031F15E092B712FC0203D9FC0013FF020F01C0010F13C0023F90C7000313F0DA7FFC02 +007F494848ED7FFE4901E0ED1FFF49496F7F49496F7F4990C96C7F49854948707F494870 +7FA24849717E48864A83481B804A83481BC0A2481BE04A83A2481BF0A348497113F8A5B5 +1AFCAF6C1BF86E5FA46C1BF0A26E5F6C1BE0A36C6D4D13C0A26C6D4D1380A26C1B006C6D +4D5A6E5E6C626D6C4C5B6D6D4B5B6D6D4B5B6D6D4B5B6D6D4B5B6D6D4B90C7FC6D6D4B5A +6D01FF02035B023F01E0011F13F0020F01FC90B512C0020390B7C8FC020016FC031F15E0 +030392C9FCDB001F13E0565479D265>II<93380FFFC00303B6FC031F15E092B712FC0203D9FC +0013FF020F01C0010F13C0023F90C7000313F0DA7FFC02007F902601FFF0ED3FFE49496F +7E49496F7F49496F7F4990C96C7F4948707F4948707F01FF854A177F48864849717EA248 +49711380A2481BC04A83481BE0A24A83481BF0A3481BF8A291CB7EA3B51AFCAF6C1BF8A2 +6E5FA36C1BF0A36C6D4D13E0A36C1BC06E5F6C1B806E5F6CDB01FE16006C6D902607FF80 +495A4C13E06C6D013F6D495A017F91267F03F85C6D6C90277C00FC015B6D6C49D97E035B +6D01806E485B6D6D48D91F8F5B6D01E0039F90C7FC6D01F06EB45A6DD9FCF85DDA3FFF6E +13F0020F6D4913C0020301FF90B5C8FC020091B512FC031F180C0303181EDB001FEBE3FE +93C7EA01FF74133E74137E7413FEF2F8077290B5FC1CFCA285A21CF8A2851CF07314E0A2 +7314C0731480731400735B9638007FF8F21FE0576A79D265>II<91260FFF80130791B500F85B010702FF5B011FEDC0 +3F49EDF07F9026FFFC006D5A4801E0EB0FFD4801800101B5FC4848C87E48488149150F00 +1F824981123F4981007F82A28412FF84A27FA26D82A27F7F6D93C7FC14C06C13F014FF15 +F86CECFF8016FC6CEDFFC017F06C16FC6C16FF6C17C06C836C836D826D82010F82130301 +0082021F16801400030F15C0ED007F040714E01600173F050F13F08383A200788200F882 +A3187FA27EA219E07EA26CEFFFC0A27F6D4B13806D17006D5D01FC4B5A01FF4B5A02C04A +5A02F8EC7FF0903B1FFFC003FFE0486C90B65AD8FC0393C7FC48C66C14FC48010F14F048 +D9007F90C8FC3C5479D24B>I<003FBC1280A59126C0003F9038C0007F49C71607D87FF8 +060113C001E08449197F49193F90C8171FA2007E1A0FA3007C1A07A500FC1BE0481A03A6 +C994C7FCB3B3AC91B912F0A553517BD05E>IIII<003FB7D8 +8003B7FCA5D8000749C8000701F8C7FC6D6D9238007F806D6E93C8FC7015FE6D17016E6D +5D704A5A6E16076E6D4A5A6E6D5D4F5A6E6D143F6E6D4A5A7191C9FC6E16FE6EECC00171 +485A6F5D6F6D485A6FEBF80F71485A6F5D6F6D485AEFFF7F6F4ACAFC6F5C6F5CA2705B70 +5B8482707F707FA2707F7080855E4C80855E4C80DC3FCF7F058F7FEE7F074C6C7FDB01FE +814C7E4B486C8003076E7F4B48814C7F4B486D7F033F824C7F4BC76C7F4B6E7F4A5A4B6E +804A486E800207844A48814B6F7F4A4883023F824A486F7F92C96C7F02FE840101830103 +718090263FFFC084B76C0103B712F8A55D527CD166>II<001FBA12C0 +1AE0A40380C714C002F8C75A02C0178091C8481400495D495F494B5B495D495F48484B5B +5F495F94B55A5E90C85D4C91C7FC5E60003E4B5B5E604C5B5EC95C93B55A5D604B91C8FC +5D5F4B5B5D5F4B5B5D5F92B55A5C5F4A91C9FC5C5E4A5B5C4CEC03E04A5B5C5E91B55A5B +4C14074991C8FC4918C05D495B5B4B150F495B5B4B151F90B55A48183F5D4891C9127F48 +18FF4A5D48495D485F4A5D4849033F1380484CB5FC4A143FBBFCA47E435279D152>I97 +DI<913801FFF8021FEBFF8091B612F0010315FC010F9038C00FFE903A1FFE0001 +FFD97FFC491380D9FFF05B4817C048495B5C5A485BA2486F138091C7FC486F1300705A48 +92C8FC5BA312FFAD127F7FA27EA2EF03E06C7F17076C6D15C07E6E140F6CEE1F806C6DEC +3F006C6D147ED97FFE5C6D6CEB03F8010F9038E01FF0010390B55A01001580023F49C7FC +020113E033387CB63C>I<913803FFC0023F13FC49B6FC010715C04901817F903A3FFC00 +7FF849486D7E49486D7E4849130F48496D7E48178048497F18C0488191C7FC4817E0A248 +815B18F0A212FFA490B8FCA318E049CAFCA6127FA27F7EA218E06CEE01F06E14037E6C6D +EC07E0A26C6DEC0FC06C6D141F6C6DEC3F806D6CECFF00D91FFEEB03FE903A0FFFC03FF8 +010390B55A010015C0021F49C7FC020113F034387CB63D>101 D110 +D<913801FFE0021F13FE91B612C0010315F0010F9038807FFC903A1FFC000FFED97FF86D +6C7E49486D7F48496D7F48496D7F4A147F48834890C86C7EA24883A248486F7EA3007F18 +80A400FF18C0AC007F1880A3003F18006D5DA26C5FA26C5F6E147F6C5F6C6D4A5A6C6D49 +5B6C6D495B6D6C495BD93FFE011F90C7FC903A0FFF807FFC6D90B55A010015C0023F91C8 +FC020113E03A387CB643>I<90397FE003FEB590380FFF80033F13E04B13F09238FE1FF8 +9139E1F83FFC0003D9E3E013FEC6ECC07FECE78014EF150014EE02FEEB3FFC5CEE1FF8EE +0FF04A90C7FCA55CB3AAB612FCA52F367CB537>114 D<903903FFF00F013FEBFE1F90B7 +FC120348EB003FD80FF81307D81FE0130148487F4980127F90C87EA24881A27FA27F01F0 +91C7FC13FCEBFFC06C13FF15F86C14FF16C06C15F06C816C816C81C681013F1580010F15 +C01300020714E0EC003F030713F015010078EC007F00F8153F161F7E160FA27E17E07E6D +141F17C07F6DEC3F8001F8EC7F0001FEEB01FE9039FFC00FFC6DB55AD8FC1F14E0D8F807 +148048C601F8C7FC2C387CB635>I<143EA6147EA414FEA21301A313031307A2130F131F +133F13FF5A000F90B6FCB8FCA426003FFEC8FCB3A9EE07C0AB011FEC0F8080A26DEC1F00 +15806DEBC03E6DEBF0FC6DEBFFF86D6C5B021F5B020313802A4D7ECB34>I +E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fv cmbx12 17.28 5 +/Fv 5 53 df45 DI48 +D<913801FFF8021FEBFFC091B612F8010315FF010F16C0013F8290267FFC0114F89027FF +E0003F7F4890C7000F7F48486E7FD807F86E148048486E14C048486E14E048486F13F001 +FC17F8486C816D17FC6E80B56C16FE8380A219FFA283A36C5BA26C5B6C90C8FCD807FC5D +EA01F0CA14FEA34D13FCA219F85F19F04D13E0A294B512C019804C14004C5B604C5B4C5B +604C13804C90C7FC4C5A4C5A4B13F05F4B13804B90C8FC4B5AED1FF84B5A4B5A4B48143F +4A5B4A48C8FC4A5A4A48157E4A5A4A5AEC7F8092C9FC02FE16FE495A495A4948ED01FCD9 +0FC0150749B8FC5B5B90B9FC5A4818F85A5A5A5A5ABAFCA219F0A4405E78DD51>50 +D52 +D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fw cmbx12 24.88 23 +/Fw 23 125 df[33 70 111 270 65 39 D[158 145 120 272 175 65 D[ +143 142 120 269 165 I[74 +142 122 269 87 73 D[121 142 120 269 +140 76 D[203 142 120 269 220 I[137 +142 120 269 159 80 D[<93260FFFF8163E4BB600E0153F031F03FE5D037FDBFFC05C02 +03B800F05B020F05FC5B4A05FF5B027FF0C00F91B526FE000FECF01F010302C0D9007F6D +5A4991C800076D5A4901FC030090B6FC4901F0163F4949160F4901808290B5170192CBFC +4849844849181F87484984A2484984874886A248498588A24887A388A2B58680A36E85A2 +80A26E8580A2818103F0725A6C6E96C7FC15FE8116E06C15FEEEFFE017FF6C17F0F0FF80 +6C18F8F1FFC06C19FCF2FF806C1AE01BF86C1AFE6C747E6D1AE0886D866D866D1AFF6D87 +6D87010087806E86020F86020386020086153F030F851501DB001F19801601DC000F18C0 +EF007F060717E0F0003F070316F0F1003F1A0F080315F81A00871B1F877514FCA287007F +86486C85A288A388A36D86A31EF87FA37F1EF0A26D626D1CE0A27F6D5013C0A26E1B806E +96B5FC6E1B0002F8606E4E5B6E626E6C5F03E04D5B03F84D5B03FE057F5BDBFFC093B55A +04F803035C496CD9FF80021F91C7FCD9FC1F02FF49B55AD9F80792B75A496C19F049C661 +49011F18804901074DC8FC90C817F848031F16C048030003FCC9FC007C04011480>102 +146 115 271 129 83 D<93B512FC037FECFFF00207B8FC023F17E091B912F84918FE01 +07727E499126C0007F14E04901E0C7000F80496D020380496D020014FE6F6F7F90B57080 +6F6F8085486E6F807380A27380A28885886C5CA26D4982886D5B6D5B010713C0010190CA +FC90CCFCA90603B7FC050FB8FC0403B9FC167F0307BAFC153F4AB7EA807F020FEDE00002 +3F02FCC7FC91B612E0010392C8FC4914FC011F14F04914C0495C90B548C9FC485C485C48 +5C485C5A5D485CA24891CAFCA3B6FC5CA397B6FCA461806C60F107EF6C6E150F6F16CF6C +183F6FDB7F8F806C6EDBFF0F14E06C02FCDA03FE15FE6C6E91260FFC0791B5FC6C6E6CD9 +3FF817806C923AF803FFF003013F91B6487E010FEF8000010394C77E010004FC141F021F +03F0140702010380DA007F1400DA000701F8CDFC695F79DD71>97 +D[113 +144 121 270 129 I<94387FFFC0040FB6FC93B712E0030716FC031F16FF037F17C04AB9 +12F00207DAF80380021F912680003F13FE4A49C7000F7F4A01F802038049B5486E804902 +C06E6C7F494A6F7F4991C9FC49727F4949707F4B84498490B548707F5A4B198048855D48 +1CC086481CE05D5A871DF05AA25D5AA21DF887A2B6FCA392BBFCA51DF00380CDFCA77EA4 +817EA37EA2817EA26CF307F06FF00FF87E816C1B1F6F19F06C1B3F6D6DF07FE06D7FF4FF +C06D6E4C13806D6E5E6D02F04C13006D6EEE1FFE6D6E4C5A6D6C01FFEEFFF86E02E00203 +5B6E02FC021F5B02079126FFC003B55A6E92B7C7FC020060033F17F8030F17E003011780 +DB003F03FCC8FC040315C0DC000F01F8C9FC5D5F7ADD6A>101 D103 D[49 144 119 271 65 +105 D[50 +143 119 270 65 108 DII<94381FFFF00407B612C0047F +15FC0303B87E030F17E0037F17FC4ABAFC4A9126FC007F80020F02C0010714E04A49C880 +027F01F8033F13FC91B5486F7F4902C003077F494A6F804991C96C80494970804949717F +49874949717FA290B548717F48884B83481D80A2481DC04B83481DE0A2481DF0A3484A71 +14F8A4481DFCA5B61BFEAF6C1DFCA56C6E4D14F8A36C1DF0A36C1DE06F5F6C1DC0A26C6E +4D1480A26C1D006F5F6C646D6D4D5B6F94B5FC6D636D6D4C5C6D6E4B5C6D6E4B5C6D02F0 +031F5C6D6E4B91C7FC6D6C01FE92B512FC6ED9FFC001075C6E02FC017F5C020791B812C0 +020196C8FC6E6C17FC031F17F003031780DB007F03FCC9FC040715C0DC001F01F0CAFC67 +5F7ADD74>I114 D<92261FFFF814F80203B638C001FC023FEDFC07 +91B8121F010317FF130F013F9038F8001F4990C8FCD9FFF8153F4801E0150F4849150348 +49814890CAFC197F4848173F191F485AA2007F180FA31907487EA27FA28002E0705A6E93 +C8FC14FC14FF15F06CECFF8016FCEEFFF06CEEFF8018F06C17FE727E6C18E0856C18FC6C +846C727E6C856D84011F846D841303010084023F83140F020183EC001FDB007F16801603 +DC000F15C01700183F060F14E0007F1703486C82727E857F85857FA2857F1BC07FA27F1B +806D5F7F1B006E5E6E5F6E163F6E4C5A02FC4C5A6E03035B6E6C4A5B03F0023F5B03FF01 +07B55A01F991B7C7FCD9F07F16FCD9E01F16F0D9800716C0D9000193C8FC48D9003F14F8 +007C020349C9FC4B5F78DD5C>I[72 132 124 258 90 II<007F +B800C04AB71280A9D800034ACA000791C7FC6D080013F0775A6D6E4E5AA26E6E6064836E +4F90C8FC836E4F5A836E4F5AA26E6E4C5AA26E6E5F1C3F6E6E5F1C7F836E4F5A846F4D5B +846F4D90C9FCA26F6E4A5AA26F6E5D1B0F846F4D5A846F4D5A846F4D5AA26F6E4A5AA270 +6E5C627002C091CAFC6219E0704B5A19F0704B5AA2706E485AA2706E485AA27002FE5B1A +7F19FF704B5AA2715DA27192CBFCA2715CA2715CA3715CA2715CA2715CA2715CA2725BA2 +7290CCFCA3725AA2725AA24E5AA24E5AA261187FA24E5AA24D5B13FE2603FF804A90CDFC +000F13E0486D4A5A487F486D4A5AA260B56C141F4D5AA24D5A17FF604C5B4A4990CEFC6C +5D4C5A6C49EB3FFC4A495A6C4948485A9026FE80075B270FFFC03F5B6C90B6CFFC6C5D6C +15F86C6C5C011F14C0010749D0FC9038007FE071857CDB7B>121 +D124 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fx cmr12 12 29 +/Fx 29 122 df38 D<121EEA7F80A2EAFFC0A4EA7F80A2EA1E000A0A78891B>46 +D52 D<000615C0D807C0130701FCEB7F8090B612005D5D5D15E0158026063FFC +C7FC90C9FCAE14FF010713C090381F01F090383800FC01F0137ED807C07F49EB1F8016C0 +90C7120F000615E0C8EA07F0A316F81503A216FCA5123E127F487EA416F890C712075A00 +6015F0A20070140F003015E00038EC1FC07E001EEC3F806CEC7F006C6C13FE6C6C485A39 +01F807F039007FFFE0011F90C7FCEB07F826447BC131>II<121CA2EA1F8090B712C0A3481680A217005E0038C8120C0030151C00705D006015 +3016705E5E4814014B5A4BC7FCC81206150E5D151815385D156015E04A5AA24A5A140792 +C8FC5CA25C141E143EA2147E147CA214FCA21301A3495AA41307A6130FAA6D5AEB01C02A +457BC231>I<16C04B7EA34B7EA34B7EA34B7EA3ED19FEA3ED30FFA203707FED607FA203 +E07FEDC03FA2020180ED801FA2DA03007F160FA20206801607A24A6D7EA34A6D7EA34A6D +7EA20270810260147FA202E08191B7FCA249820280C7121FA249C87F170FA20106821707 +A2496F7EA3496F7EA3496F7EA201788313F8486C83D80FFF03037FB500E0027FEBFFC0A3 +42477DC649>65 D67 +D78 D80 D82 D<49B41303010FEBE007013F13F8 +9039FE00FE0FD801F8131FD807E0EB079F49EB03DF48486DB4FC48C8FC4881003E81127E +82127C00FC81A282A37E82A27EA26C6C91C7FC7F7FEA3FF813FE381FFFE06C13FE6CEBFF +E06C14FC6C14FF6C15C0013F14F0010F80010180D9001F7F14019138001FFF0303138081 +6F13C0167F163F161F17E000C0150FA31607A37EA36C16C0160F7E17806C151F6C16006C +5D6D147ED8FBC05CD8F9F0495AD8F07C495A90393FC00FE0D8E00FB51280010149C7FC39 +C0003FF02B487BC536>I85 D97 D99 D101 D104 DI<143C14FFA2491380A4 +6D1300A2143C91C7FCADEC7F80EB3FFFA31300147F143FB3B3AA123E127F39FF807F00A2 +147EA25C6C485A383C01F06C485A3807FF80D801FEC7FC195785C21E>IIII<3901FC01FE00FF903807FFC0 +91381E07F091383801F8000701707F0003EBE0002601FDC07F5C01FF147F91C7FCA25BA3 +5BB3A8486CECFF80B5D8F83F13FEA32F2C7DAB36>II<3903F803F000FFEB1FFCEC3C3EEC707F0007EBE0FF3803F9C000015B13FBEC +007E153C01FF13005BA45BB3A748B4FCB512FEA3202C7DAB26>114 +D<90383FE0183901FFFC383907E01F78390F0003F8001E1301481300007C1478127800F8 +1438A21518A27EA27E6C6C13006C7E13FC383FFFE06C13FC6C13FF6C14C06C14E0C614F0 +011F13F81300EC0FFC140300C0EB01FE1400157E7E153EA27EA36C143C6C147C15786C14 +F86CEB01F039F38003E039F1F00F8039E07FFE0038C00FF01F2E7DAC26>I<1306A5130E +A4131EA3133E137EA213FE12011207001FB512F0B6FCA2C648C7FCB3A4150CAA017E131C +017F1318A26D133890381F8030ECC070903807E0E0903801FFC09038007F001E3E7EBC26 +>II121 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fy cmbx10 10.95 65 +/Fy 65 122 df13 DI39 DI<127012F8127C7EEA3F806C7E6C7E12076C7E7F6C7E6C7EA2 +137F80133F806D7EA280130FA280130780A36D7EA4807FA51580B01500A55B5CA4495AA3 +5C130F5CA2131F5CA2495A5C137F91C7FC13FEA2485A485A5B485A120F485A485A003EC8 +FC5A5A1270195A7AC329>I<147C14FE497EA5260C00FE1360003FEC01F8D87F80EB03FC +01C0130701E0130F3AFFF87C3FFED87FFCEB7FFC01FE13FF263FFF7D13F8000F90B512E0 +00011500D8003F13F8010713C0A2013F13F848B6FC000F15E0003F017D13F8267FFE7C13 +FC01FC137FD8FFF8EB3FFE3A7FE0FE0FFC01C0130701801303D83F00EB01F8000CEC0060 +C6486C1300A56D5A147C27287AC334>I44 DII<161C163E167EA2 +16FE16FC150116F8A2150316F0A2150716E0150F16C0A2151F1680153F1600A25D157E15 +FE5DA214015DA214035D14075DA2140F5D141F5DA2143F92C7FC5C147EA214FE5CA21301 +5C13035CA213075C130F5CA2131F5C133F91C8FCA25B137EA213FE5B12015BA212035B12 +075BA2120F5B121F5BA2123F90C9FCA25A127E12FE5AA25A1278275B7AC334>II<140F143F5C495A130F48B5FCB6FCA313F7EAFE071200 +B3B3A8007FB612F0A5243C78BB34>I<903803FF80013F13F890B512FE00036E7E488126 +0FF80F7F261FC0037F4848C67F486C6D7E6D6D7E487E6D6D7EA26F1380A46C5A6C5A6C5A +0007C7FCC8FC4B1300A25E153F5E4B5AA24B5A5E4A5B4A5B4A48C7FC5D4A5AEC1FE04A5A +4A5A9139FF000F80EB01FC495A4948EB1F00495AEB1F8049C7FC017E5C5B48B7FC485D5A +5A5A5A5AB7FC5EA4293C7BBB34>I<903801FFE0010F13FE013F6D7E90B612E04801817F +3A03FC007FF8D807F06D7E82D80FFC131F6D80121F7FA56C5A5E6C48133FD801F05CC8FC +4B5A5E4B5A4A5B020F5B902607FFFEC7FC15F815FEEDFFC0D9000113F06E6C7E6F7E6F7E +6F7E1780A26F13C0A217E0EA0FC0487E487E487E487EA317C0A25D491580127F49491300 +D83FC0495A6C6C495A3A0FFE01FFF86CB65A6C5DC61580013F49C7FC010313E02B3D7CBB +34>II<00071538D80FE0 +EB01F801FE133F90B6FC5E5E5E5E93C7FC5D15F85D15C04AC8FC0180C9FCA9ECFFC00187 +13FC019F13FF90B67E020113E09039F8007FF0496D7E01C06D7E5B6CC77FC8120F82A317 +80A21207EA1FC0487E487E12FF7FA21700A25B4B5A6C5A01805C6CC7123F6D495AD81FE0 +495A260FFC075B6CB65A6C92C7FCC614FC013F13F0010790C8FC293D7BBB34>II<121F7F13F890B712F0A45A17E017C0 +178017005E5E5A007EC7EA01F84B5A007C4A5A4B5A4B5A93C7FC485C157E5DC7485A4A5A +A24A5A140F5D141F143F5D147FA214FF92C8FC5BA25BA3495AA3130FA5131FAA6D5A6D5A +6D5A2C3F7ABD34>II<903801FFE0010F13FC013F13FF90B6 +12C04801E07F489038003FF048486D7E000F6E7E485A6F7E123F48488081178012FFA217 +C0A517E0A4007F5CA4003F5C6C7E5D6C7E00075C3903FF80FB6C13FF6C6C13F36D13C301 +0F018313C090380008031400A24B1380EA03F0487E486C1500487E4B5AA25E151F4B5A49 +5C6C48EBFFE049485B2607FC0F5B6CB6C7FC6C14FC6C14F06D13C0D90FFEC8FC2B3D7CBB +34>II<16FCA2 +4B7EA24B7EA34B7FA24B7FA34B7FA24B7FA34B7F157C03FC7FEDF87FA2020180EDF03F02 +03804B7E02078115C082020F814B7E021F811500824A81023E7F027E81027C7FA202FC81 +4A147F49B77EA34982A2D907E0C7001F7F4A80010F835C83011F8391C87E4983133E8301 +7E83017C81B500FC91B612FCA5463F7CBE4F>65 DI<922607FFC0130E92B500FC131E020702FF13 +3E023FEDC07E91B7EAE1FE01039138803FFB499039F80003FF4901C01300013F90C8127F +4948151FD9FFF8150F48491507485B4A1503481701485B18004890CAFC197E5A5B193E12 +7FA349170012FFAC127F7F193EA2123FA27F6C187E197C6C7F19FC6C6D16F86C6D150119 +F06C6D15036C6DED07E0D97FFEED0FC06D6CED3F80010F01C0ECFF006D01F8EB03FE6D90 +39FF801FFC010091B55A023F15E002071580020002FCC7FC030713C03F407ABE4C>IIII<922607FFC0130E92B500FC131E020702FF133E023F +EDC07E91B7EAE1FE01039138803FFB499039F80003FF4901C01300013F90C8127F494815 +1FD9FFF8150F48491507485B4A1503481701485B18004890CAFC197E5A5B193E127FA349 +94C7FC12FFAB0407B612FC127F7FA3003F92C7383FFE00A27F7EA26C7FA26C7F6C7FA26C +7F6C7FD97FFE157F6D6C7E010F01E014FF6D01F813036D9038FF801F010091B512F3023F +15C00207ED803E02009138FE000E030701E090C7FC46407ABE52>I73 D75 DI< +B6051FB512C06F5EA26F5EA2D8003F97C7FC6F16F7A26E6CED01E7A26E6CED03C7A36E6C +ED0787A26E6CED0F07A26E6C151EA36E6D143CA26E6D1478A26E6D14F0A26F6CEB01E0A3 +6F6CEB03C0A26F6CEB0780A26F6CEB0F00A36F6C131EA26F6D5AA26F6D5AA26F6D5AA393 +387FF1E0A293383FFBC0A270B45AA37090C7FCA2705AA2705AB600C0031FB612C0A2705A +A2705A5A3E7CBD63>IIII82 +D<903A03FFC001C0011FEBF803017FEBFE0748B6128F4815DF48010013FFD80FF8130F48 +481303497F4848EB007F127F49143F161F12FF160FA27F1607A27F7F01FC91C7FCEBFF80 +6C13F8ECFFC06C14FCEDFF806C15E016F86C816C816C816C16806C6C15C07F010715E0EB +007F020714F0EC003F1503030013F8167F163F127800F8151FA2160FA27EA217F07E161F +6C16E06D143F01E015C001F8EC7F8001FEEB01FF9026FFE00713004890B55A486C14F8D8 +F81F5CD8F00314C027E0003FFEC7FC2D407ABE3A>I<003FB912FCA5903BFE003FFE003F +D87FF0EE0FFE01C0160349160190C71500197E127EA2007C183EA400FC183F48181FA5C8 +1600B3AF010FB712F8A5403D7CBC49>IIII<007FB6013FB512F0A5D8001F01C0D900 +3FC7FC6D6D147E18FE6D6D5C6D6D495A6D4B5A6F13076D6D5C6E6C495A4D5A6EEB803F6E +01C090C8FC6E147E705A6E13F16EEBF9F86EEBFBF0EEFFE0806F5B5F816F7F81836F7F81 +834B7F4B7F5D83DB3F3F7FED7E1F03FE804B6C7F4A486C7F4A487E0207814B6C7F4A487E +4A4880023F6E7E92C76C7F027E804A8201016F7F4A6E7F495A49486E7F010F6F7F4A80B6 +00C0017F90B5FCA5483E7DBD4F>II<903807FFC0013F13F848B6FC48 +812607FE037F260FF8007F6DEB3FF0486C806F7EA36F7EA26C5A6C5AEA01E0C8FC153F91 +B5FC130F137F3901FFFE0F4813E0000F1380381FFE00485A5B485A12FF5BA4151F7F007F +143F6D90387BFF806C6C01FB13FE391FFF07F36CEBFFE100031480C6EC003FD91FF890C7 +FC2F2B7DA933>97 D<13FFB5FCA512077EAFEDFFE0020713FC021FEBFF80027F80DAFF81 +13F09139FC003FF802F06D7E4A6D7E4A13074A80701380A218C082A318E0AA18C0A25E18 +80A218005E6E5C6E495A6E495A02FCEB7FF0903AFCFF01FFE0496CB55AD9F01F91C7FCD9 +E00713FCC7000113C033407DBE3A>IIII +I<903A03FF8007F0013F9038F83FF8499038FCFFFC48B712FE48018313F93A07FC007FC3 +4848EB3FE1001FEDF1FC4990381FF0F81700003F81A7001F5DA26D133F000F5D6C6C495A +3A03FF83FF8091B5C7FC4814FC01BF5BD80F03138090CAFCA2487EA27F13F06CB6FC16F0 +16FC6C15FF17806C16C06C16E01207001F16F0393FE000034848EB003F49EC1FF800FF15 +0F90C81207A56C6CEC0FF06D141F003F16E001F0147FD81FFC903801FFC02707FF800F13 +006C90B55AC615F8013F14E0010101FCC7FC2F3D7DA834>I<13FFB5FCA512077EAFED1F +F8EDFFFE02036D7E4A80DA0FE07F91381F007F023C805C4A6D7E5CA25CA35CB3A4B5D8FE +0FB512E0A5333F7CBE3A>II<13FFB5FCA512077EB3B3AFB512FC +A5163F7CBE1D>108 D<01FFD91FF8ECFFC0B590B5010713F80203DAC01F13FE4A6E487F +DA0FE09026F07F077F91261F003FEBF8010007013EDAF9F0806C0178ECFBC04A6DB4486C +7FA24A92C7FC4A5CA34A5CB3A4B5D8FE07B5D8F03FEBFF80A551297CA858>I<01FFEB1F +F8B5EBFFFE02036D7E4A80DA0FE07F91381F007F0007013C806C5B4A6D7E5CA25CA35CB3 +A4B5D8FE0FB512E0A533297CA83A>II<01FFEBFFE0B5000713FC021FEBFF80027F80DAFF8113F09139FC007FF8000701F06D +7E6C496D7E4A130F4A6D7E1880A27013C0A38218E0AA4C13C0A318805E18005E6E5C6E49 +5A6E495A02FCEBFFF0DAFF035B92B55A029F91C7FC028713FC028113C00280C9FCACB512 +FEA5333B7DA83A>I<3901FE01FE00FF903807FF804A13E04A13F0EC3F1F91387C3FF800 +0713F8000313F0EBFFE0A29138C01FF0ED0FE091388007C092C7FCA391C8FCB3A2B6FCA5 +25297DA82B>114 D<90383FFC1E48B512BE000714FE5A381FF00F383F800148C7FC007E +147EA200FE143EA27E7F6D90C7FC13F8EBFFE06C13FF15C06C14F06C806C806C806C80C6 +1580131F1300020713C014000078147F00F8143F151F7EA27E16806C143F6D140001E013 +FF9038F803FE90B55A15F0D8F87F13C026E00FFEC7FC222B7DA929>IIIIIII +E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: Fz cmcsc10 10.95 17 +/Fz 17 122 df65 D76 +D +82 D97 DI +100 DII104 +D108 D110 +DII114 D<007FB712F8A39039801FF0073A7E000FE00000781678A20070163800F0 +163CA348161CA5C71500B3A8EC3FF8011FB512F0A32E2E7CAD36>116 +DI121 D E +%EndDVIPSBitmapFont +%DVIPSBitmapFont: FA cmr10 10.95 91 +/FA 91 124 df<16E04B7EA24B7EA24B7EA24B7EA2ED1DFFA203387FA29238787FC01570 +9238F03FE015E002016D7E15C002036D7E158002076D7E15004A6D7E140E021E6D7E141C +023C6D7F143802786E7E147002F06E7E5C01016F7E5C01036F7E5C01076F7E91C8FC496F +7E130E011E6F7E131C013C6F7F13380178707E137001F0707E5B0001717E5B0003717E5B +0007717E90CAFC48717E120E001E717E001FBAFC481980A24819C0A2BB12E0A243417CC0 +4C>1 D<913801FFC0021F13FC9139FF007F80D903F8EB0FE0D90FF0EB07F8D91FC0EB01 +FCD97F806DB4FC49C86C7E48486F7E00038348486F7E000F8349150F001F83491507003F +83A348486F7EAA6C6C4B5AA3001F5FA26C6C4B5AA200075F6D151F00035FA26C6C4B5A00 +005FA2017F4BC7FC6D157EA26D6C5C010F5DA26D6C495A00E0EF0380010315E0D8700192 +38C007006E130301001580A36C0160EC000E003C017049131E263FFFF0ECFFFEA36C5FA3 +39407CBF42>10 D<4AB4EB0FE0021F9038E03FFC913A7F00F8FC1ED901FC90383FF03FD9 +07F090397FE07F80494801FF13FF4948485BD93F805C137F0200ED7F00EF003E01FE6D91 +C7FC82ADB97EA3C648C76CC8FCB3AE486C4A7E007FD9FC3FEBFF80A339407FBF35>IIII<133E133F137F13FFA2EA01FEEA03FCEA07F813 +F0EA0FE0EA1FC01380EA3E005A5A1270122010116EBE2D>19 D<121EEA7F80EAFFC0A9EA +7F80ACEA3F00AC121EAB120CC7FCA8121EEA7F80A2EAFFC0A4EA7F80A2EA1E000A4179C0 +19>33 D<001E130F397F803FC000FF137F01C013E0A201E013F0A3007F133F391E600F30 +00001300A401E01370491360A3000114E04913C00003130101001380481303000EEB0700 +48130E0018130C0038131C003013181C1C7DBE2D>I<013F1603D9FFC04B7E2601E0E015 +0F2607C070151F48486C4BC7FC023E157E48486C15FE48D90FC0EB03FC003ED90EF0EB0F +F8DA0F3F13FD007E903A070FFFF1F0007C0200EB03E0160000FC6D6C495A170F604DC8FC +5F173E5F17FC5F4C5A1603007CD907005B4C5A007E150F003E495C020E49C9FC003F5D6C +49133E260F803C5B023813FC6C6C485B3A01E0E001F03800FFC090273F0003E0133F90C7 +0007ECFFC09339C001E0E0923A0F8007C070031F49487E0400143C033E90381F001C037E +497F037C133E4B150F0201027E7F4B137C4A5A020702FCEB03805D4A5A141F92C7FC143E +147E147C5CA2495A0103037CEB07005C4948147E010F033E5B4A160E49C8123F496F5B01 +3E92380F803C49173801FC6F6C5A49923801E0E0496FB45A0160043FC7FC41497BC34C> +37 DI<121EEA7F8012FF13C0A213E0A3127FEA1E601200A413 +E013C0A312011380120313005A120E5A1218123812300B1C79BE19>I<1430147014E0EB +01C0EB03801307EB0F00131E133E133C5B13F85B12015B1203A2485AA2120F5BA2121F90 +C7FCA25AA3123E127EA6127C12FCB2127C127EA6123E123FA37EA27F120FA27F1207A26C +7EA212017F12007F13787F133E131E7FEB07801303EB01C0EB00E014701430145A77C323 +>I<12C07E12707E7E121E7E6C7E7F12036C7E7F12007F1378137CA27FA2133F7FA21480 +130FA214C0A3130714E0A6130314F0B214E01307A614C0130FA31480A2131F1400A25B13 +3EA25BA2137813F85B12015B485A12075B48C7FC121E121C5A5A5A5A145A7BC323>I<15 +06150FB3A9007FB912E0BA12F0A26C18E0C8000FC9FCB3A915063C3C7BB447>43 +D<121EEA7F8012FF13C0A213E0A3127FEA1E601200A413E013C0A312011380120313005A +120E5A1218123812300B1C798919>II<121EEA7F80A2EAFFC0A4 +EA7F80A2EA1E000A0A798919>IIII< +EB07FC90383FFF8090B512E03903F01FF83907C007FC390F0001FE001E6D7E001C158000 +3CEC7FC05AED3FE01270B4FC6DEB1FF07FA56C5A6CC7FC120CC813E0153FA216C0157F16 +8015FF16004A5A5D4A5A4A5A5D4A5A4A5A4AC7FC147E147C5C495A495A495A495A49C712 +70133E133C5B4914E0485A485A485A48C7120148B6FCA25A4815C0B7FCA3243D7CBC2D> +II<150E151E153EA215 +7EA215FE1401A21403EC077E1406140E141CA214381470A214E0EB01C0A2EB0380EB0700 +A2130E5BA25B5BA25B5B1201485A90C7FC5A120E120C121C5AA25A5AB8FCA3C8EAFE00AC +4A7E49B6FCA3283E7EBD2D>I<00061403D80780131F01F813FE90B5FC5D5D5D15C092C7 +FC14FCEB3FE090C9FCACEB01FE90380FFF8090383E03E090387001F8496C7E49137E497F +90C713800006141FC813C0A216E0150FA316F0A3120C127F7F12FFA416E090C7121F12FC +007015C012780038EC3F80123C6CEC7F00001F14FE6C6C485A6C6C485A3903F80FE0C6B5 +5A013F90C7FCEB07F8243F7CBC2D>II<1238123C123F90B612FCA316F85A16F016E00078C712010070EC03C0ED078016005D +48141E151C153C5DC8127015F04A5A5D14034A5A92C7FC5C141EA25CA2147C147814F8A2 +13015C1303A31307A3130F5CA2131FA6133FAA6D5A0107C8FC26407BBD2D>III<121EEA7F80A2EAFFC0A4EA7F80A2EA1E00C7FCB3121EEA7F80A2EA +FFC0A4EA7F80A2EA1E000A2779A619>I<121EEA7F80A2EAFFC0A4EA7F80A2EA1E00C7FC +B3121E127FEAFF80A213C0A4127F121E1200A412011380A3120313005A1206120E120C12 +1C5A1230A20A3979A619>I<007FB912E0BA12F0A26C18E0CDFCAE007FB912E0BA12F0A2 +6C18E03C167BA147>61 D63 D<15074B7EA34B7EA34B7EA34B7EA34B7E15E7A29138 +01C7FC15C3A291380381FEA34AC67EA3020E6D7EA34A6D7EA34A6D7EA34A6D7EA34A6D7E +A349486D7E91B6FCA249819138800001A249C87EA24982010E157FA2011E82011C153FA2 +013C820138151FA2017882170F13FC00034C7ED80FFF4B7EB500F0010FB512F8A33D417D +C044>65 DII< +B712FCEEFF8017E000019039C0001FF86C6C48EB03FEEE00FF717E717EEF0FE084717E71 +7E170184717EA21980187F19C0A3F03FE0A519F0AB19E0A5F07FC0A21980A218FF19004D +5AA24D5A6017074D5A4D5AEF7FC04DC7FCEE03FE48486CEB1FF8B85A178004FCC8FC3C3E +7DBD45>IIIIII<011FB512FCA3D9000713006E5A1401B3B3A6 +123FEA7F80EAFFC0A44A5A1380D87F005B007C130700385C003C495A6C495A6C495A2603 +E07EC7FC3800FFF8EB3FC026407CBD2F>II< +B612F8A3000101E0C9FC38007F80B3B0EF0380A517071800A45FA35FA25F5F5F4C5A1607 +48486C133FB8FCA3313E7DBD39>IIIIIIII<003FB91280A3903AF0007FE001018090393F +C0003F48C7ED1FC0007E1707127C00781703A300701701A548EF00E0A5C81600B3B14B7E +4B7E0107B612FEA33B3D7DBC42>IIII<007FB5D8C003B512E0A3C6 +49C7EBFC00D93FF8EC3FE06D48EC1F806D6C92C7FC171E6D6C141C6D6C143C5F6D6C1470 +6D6D13F04C5ADA7FC05B023F13036F485ADA1FF090C8FC020F5BEDF81E913807FC1C163C +6E6C5A913801FF7016F06E5B6F5AA26F7E6F7EA28282153FED3BFEED71FF15F103E07F91 +3801C07F0203804B6C7EEC07004A6D7E020E6D7E5C023C6D7E02386D7E14784A6D7E4A6D +7F130149486E7E4A6E7E130749C86C7E496F7E497ED9FFC04A7E00076DEC7FFFB500FC01 +03B512FEA33F3E7EBD44>II<003F +B712F8A391C7EA1FF013F801E0EC3FE00180EC7FC090C8FC003EEDFF80A2003C4A130000 +7C4A5A12784B5A4B5AA200704A5AA24B5A4B5AA2C8485A4A90C7FCA24A5A4A5AA24A5AA2 +4A5A4A5AA24A5A4A5AA24990C8FCA2495A4948141CA2495A495AA2495A495A173C495AA2 +4890C8FC485A1778485A484815F8A24848140116034848140F4848143FED01FFB8FCA32E +3E7BBD38>II<486C13C000031301 +01001380481303000EEB070048130E0018130C0038131C003013180070133800601330A3 +00E01370481360A400CFEB678039FFC07FE001E013F0A3007F133FA2003F131F01C013E0 +390F0007801C1C73BE2D>II<121E +EA7F80A2EAFFC0A4EA7F80A2EA1E000A0A79BD19>95 DII +I<49B4FC010F13E090383F00F8017C131E4848131F4848137F0007ECFF80485A5B121FA2 +4848EB7F00151C007F91C7FCA290C9FC5AAB6C7EA3003FEC01C07F001F140316806C6C13 +076C6C14000003140E6C6C131E6C6C137890383F01F090380FFFC0D901FEC7FC222A7DA8 +28>IIII<167C903903F801FF903A1FFF078F8090397E0FDE1F90 +38F803F83803F001A23B07E000FC0600000F6EC7FC49137E001F147FA8000F147E6D13FE +00075C6C6C485AA23901F803E03903FE0FC026071FFFC8FCEB03F80006CAFC120EA3120F +A27F7F6CB512E015FE6C6E7E6C15E06C810003813A0FC0001FFC48C7EA01FE003E140048 +157E825A82A46C5D007C153E007E157E6C5D6C6C495A6C6C495AD803F0EB0FC0D800FE01 +7FC7FC90383FFFFC010313C0293D7EA82D>III<1478EB01FEA2 +EB03FFA4EB01FEA2EB00781400AC147FEB7FFFA313017F147FB3B3A5123E127F38FF807E +14FEA214FCEB81F8EA7F01387C03F0381E07C0380FFF803801FC00185185BD1C>III<2701F801FE14FF00FF902707FF +C00313E0913B1E07E00F03F0913B7803F03C01F80007903BE001F87000FC2603F9C06D48 +7F000101805C01FBD900FF147F91C75B13FF4992C7FCA2495CB3A6486C496CECFF80B5D8 +F87FD9FC3F13FEA347287DA74C>I<3901F801FE00FF903807FFC091381E07E091387803 +F000079038E001F82603F9C07F0001138001FB6D7E91C7FC13FF5BA25BB3A6486C497EB5 +D8F87F13FCA32E287DA733>I<14FF010713E090381F81F890387E007E01F8131F4848EB +0F804848EB07C04848EB03E0000F15F04848EB01F8A2003F15FCA248C812FEA44815FFA9 +6C15FEA36C6CEB01FCA3001F15F86C6CEB03F0A26C6CEB07E06C6CEB0FC06C6CEB1F80D8 +007EEB7E0090383F81FC90380FFFF0010090C7FC282A7EA82D>I<3901FC03FC00FF9038 +1FFF8091387C0FE09039FDE003F03A07FFC001FC6C496C7E6C90C7127F49EC3F805BEE1F +C017E0A2EE0FF0A3EE07F8AAEE0FF0A4EE1FE0A2EE3FC06D1580EE7F007F6E13FE9138C0 +01F89039FDE007F09039FC780FC0DA3FFFC7FCEC07F891C9FCAD487EB512F8A32D3A7EA7 +33>I<02FF131C0107EBC03C90381F80F090397F00387C01FC131CD803F8130E4848EB0F +FC150748481303121F485A1501485AA448C7FCAA6C7EA36C7EA2001F14036C7E15076C6C +130F6C7E6C6C133DD8007E137990383F81F190380FFFC1903801FE0190C7FCAD4B7E92B5 +12F8A32D3A7DA730>I<3901F807E000FFEB1FF8EC787CECE1FE3807F9C100031381EA01 +FB1401EC00FC01FF1330491300A35BB3A5487EB512FEA31F287EA724>I<90383FC06039 +01FFF8E03807C03F381F000F003E1307003C1303127C0078130112F81400A27E7E7E6D13 +00EA7FF8EBFFC06C13F86C13FE6C7F6C1480000114C0D8003F13E0010313F0EB001FEC0F +F800E01303A214017E1400A27E15F07E14016C14E06CEB03C0903880078039F3E01F0038 +E0FFFC38C01FE01D2A7DA824>I<131CA6133CA4137CA213FCA2120112031207001FB512 +C0B6FCA2D801FCC7FCB3A215E0A912009038FE01C0A2EB7F03013F138090381F8700EB07 +FEEB01F81B397EB723>IIIIII<001FB612 +80A2EBE0000180140049485A001E495A121C4A5A003C495A141F00385C4A5A147F5D4AC7 +FCC6485AA2495A495A130F5C495A90393FC00380A2EB7F80EBFF005A5B48481307120749 +1400485A48485BA248485B4848137F00FF495A90B6FCA221277EA628>II E +%EndDVIPSBitmapFont +end +%%EndProlog +%%BeginSetup +%%Feature: *Resolution 600dpi +TeXDict begin +%%PaperSize: A4 + +%%EndSetup +%%Page: 1 1 +1 0 bop 0 351 a FA(CCLR)m(C)29 b(/)i Fz(R)m(utherf)n(ord)h(Appleton)h +(Labora)-6 b(tor)g(y)1228 b Fy(SUN/67.45)0 464 y Fx(P)m(article)32 +b(Ph)m(ysics)i(&)e(Astronom)m(y)h(Researc)m(h)h(Council)0 +577 y(Starlink)d(Pro)5 b(ject)0 690 y(Starlink)31 b(User)j(Note)e +(67.45)3271 927 y FA(P)-8 b(.)15 b(T.)g(W)-8 b(allace)3125 +1040 y(12)31 b(Octob)s(er)g(1999)p 0 1183 3780 12 v 177 +1788 a Fw(SLALIB)77 b(|)g(P)-6 b(ositional)76 b(Astronom)-6 +b(y)1510 2037 y(Library)1719 2449 y Fv(2.4-0)751 2856 +y Fw(Programmer's)75 b(Man)-6 b(ual)1633 3566 y Fu(Abstract)0 +3828 y FA(SLALIB)42 b(is)g(a)h(library)d(used)i(b)m(y)h(writers)e(of)i +(p)s(ositional-astronom)m(y)f(applications.)76 b(Most)43 +b(of)g(the)g(183)0 3941 y(routines)30 b(are)i(concerned)f(with)f +(astronomical)h(p)s(osition)e(and)i(time,)g(but)g(a)g(n)m(um)m(b)s(er)f +(ha)m(v)m(e)j(wider)c(trigono-)0 4054 y(metrical,)h(n)m(umerical)f(or)h +(general)h(applications.)p eop +%%Page: 2 2 +2 1 bop 0 52 a FA(ii)0 351 y Fu(Con)l(ten)l(ts)0 555 +y Fy(1)84 b(INTR)m(ODUCTION)2732 b(1)136 668 y FA(1.1)94 +b(Purp)s(ose)61 b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.) +h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h +(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)151 b(1)136 +781 y(1.2)94 b(Example)30 b(Application)38 b(.)45 b(.)h(.)g(.)g(.)f(.)h +(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.) +g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)151 b(1)136 894 +y(1.3)94 b(Scop)s(e)84 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g +(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.) +g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)151 +b(2)136 1007 y(1.4)94 b(Ob)5 b(jectiv)m(es)38 b(.)46 +b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h +(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.) +h(.)g(.)f(.)h(.)151 b(3)136 1120 y(1.5)94 b(F)-8 b(ortran)32 +b(V)-8 b(ersion)43 b(.)i(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.) +g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g +(.)g(.)f(.)h(.)g(.)f(.)h(.)151 b(4)136 1233 y(1.6)94 +b(C)30 b(V)-8 b(ersion)65 b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g +(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.) +f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)151 b(4)136 +1345 y(1.7)94 b(F)-8 b(uture)31 b(V)-8 b(ersions)43 b(.)i(.)h(.)g(.)f +(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.) +h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)151 +b(4)136 1458 y(1.8)94 b(New)31 b(F)-8 b(unctions)77 b(.)45 +b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f +(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.) +h(.)151 b(5)136 1571 y(1.9)94 b(Ac)m(kno)m(wledgemen)m(ts)60 +b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.) +h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h +(.)151 b(5)0 1775 y Fy(2)84 b(LINKING)3120 b(5)0 1979 +y(3)84 b(SUBPR)m(OGRAM)37 b(SPECIFICA)-9 b(TIONS)1881 +b(6)0 2183 y(4)84 b(EXPLANA)-9 b(TION)34 b(AND)h(EXAMPLES)1803 +b(164)136 2296 y FA(4.1)94 b(Spherical)29 b(T)-8 b(rigonometry)85 +b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.) +h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(164)136 2409 y(4.2)94 b(V)-8 b(ectors)32 b(and)e(Matrices)38 +b(.)45 b(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.) +g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(167)136 2521 y(4.3)94 b(Celestial)30 b(Co)s(ordinate)f(Systems)69 +b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.) +f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 b(169)136 +2634 y(4.4)94 b(Precession)30 b(and)g(Nutation)46 b(.)g(.)g(.)f(.)h(.)g +(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.) +f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 b(172)136 2747 +y(4.5)94 b(Mean)31 b(Places)c(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.) +f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f +(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 b(174)136 +2860 y(4.6)94 b(Ep)s(o)s(c)m(h)62 b(.)46 b(.)f(.)h(.)g(.)g(.)f(.)h(.)g +(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.) +f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(174)136 2973 y(4.7)94 b(Prop)s(er)30 b(Motion)80 b(.)45 +b(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f +(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.) +h(.)60 b(175)136 3086 y(4.8)94 b(P)m(arallax)31 b(and)e(Radial)g(V)-8 +b(elo)s(cit)m(y)87 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g +(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(175)136 3199 y(4.9)94 b(Ab)s(erration)c(.)46 b(.)g(.)f(.)h(.)g(.)f(.) +h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h +(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(176)136 3312 y(4.10)49 b(Di\013eren)m(t)31 b(Sorts)f(of)h(Mean)g +(Place)55 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h +(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(177)136 3425 y(4.11)49 b(Mean)31 b(Place)g(T)-8 b(ransformations)90 +b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.) +f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 b(178)136 +3538 y(4.12)49 b(Mean)31 b(Place)g(to)g(Apparen)m(t)g(Place)81 +b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.) +h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 b(180)136 +3651 y(4.13)49 b(Apparen)m(t)31 b(Place)f(to)i(Observ)m(ed)d(Place)73 +b(.)46 b(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.) +f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 b(181)136 3763 +y(4.14)49 b(The)30 b(Hipparcos)g(Catalogue)h(and)f(the)g(ICRS)63 +b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.) +g(.)f(.)h(.)g(.)f(.)h(.)60 b(184)136 3876 y(4.15)49 b(Timescales)24 +b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.) +f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g +(.)f(.)h(.)g(.)f(.)h(.)60 b(184)136 3989 y(4.16)49 b(Calendars)59 +b(.)46 b(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.) +f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g +(.)f(.)h(.)g(.)f(.)h(.)60 b(188)136 4102 y(4.17)49 b(Geo)s(cen)m(tric) +32 b(Co)s(ordinates)86 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g +(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.) +g(.)f(.)h(.)60 b(188)136 4215 y(4.18)49 b(Ephemerides)88 +b(.)46 b(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.) +g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h +(.)g(.)f(.)h(.)60 b(189)136 4328 y(4.19)49 b(Radial)30 +b(V)-8 b(elo)s(cit)m(y)31 b(and)e(Ligh)m(t-Time)h(Corrections)47 +b(.)f(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h +(.)g(.)f(.)h(.)60 b(197)136 4441 y(4.20)49 b(F)-8 b(o)s(cal-Plane)31 +b(Astrometry)71 b(.)46 b(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.) +f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f +(.)h(.)60 b(198)136 4554 y(4.21)49 b(Numerical)30 b(Metho)s(ds)d(.)46 +b(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g +(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)g(.)g(.)f(.)h(.)g(.)f(.)h(.)60 +b(199)0 4758 y Fy(5)84 b(SUMMAR)-9 b(Y)37 b(OF)d(CALLS)2369 +b(203)p eop +%%Page: 1 3 +1 2 bop 0 52 a Ft(SUN/67.45)3297 b FA(1)0 351 y Fu(1)135 +b(INTR)l(ODUCTION)0 606 y Fs(1.1)112 b(Purp)s(ose)0 826 +y FA(SLALIB)330 793 y Fr(1)404 826 y FA(is)34 b(a)h(library)d(of)j +(routines)f(in)m(tended)g(to)h(mak)m(e)h(accurate)g(and)f(reliable)d(p) +s(ositional-astronom)m(y)0 939 y(applications)i(easier)h(to)h(write.)56 +b(Most)36 b(SLALIB)f(routines)f(are)i(concerned)g(with)e(astronomical)h +(p)s(osition)0 1052 y(and)k(time,)k(but)c(a)h(n)m(um)m(b)s(er)f(ha)m(v) +m(e)i(wider)d(trigonometrical,)k(n)m(umerical)d(or)g(general)h +(applications.)68 b(The)0 1165 y(applications)20 b(ASTR)m(OM,)h(COCO,)f +(R)-10 b(V)22 b(and)e(TPOINT)h(all)f(mak)m(e)i(extensiv)m(e)g(use)f(of) +h(the)f(SLALIB)g(routines,)0 1278 y(as)31 b(do)f(a)h(n)m(um)m(b)s(er)e +(of)h(telescop)s(e)h(con)m(trol)g(systems)f(around)g(the)g(w)m(orld.)40 +b(The)30 b(SLALIB)g(v)m(ersions)f(curren)m(tly)0 1391 +y(in)i(service)h(are)g(written)f(in)g(F)-8 b(ortran)32 +b(77)h(and)f(run)e(on)i(V)-10 b(AX/VMS,)33 b(sev)m(eral)f(Unix)f +(platforms)g(and)h(PC.)f(A)0 1504 y(generic)26 b(ANSI)f(C)h(v)m(ersion) +f(is)g(also)h(a)m(v)-5 b(ailable)26 b(from)f(the)h(author;)i(it)d(is)g +(functionally)f(similar)f(to)k(the)f(F)-8 b(ortran)0 +1617 y(v)m(ersion)30 b(up)s(on)f(whic)m(h)g(the)h(presen)m(t)h(do)s +(cumen)m(t)f(concen)m(trates.)0 1908 y Fs(1.2)112 b(Example)37 +b(Application)0 2128 y FA(Here)31 b(is)e(a)i(simple)d(example)i(of)h +(an)f(application)f(program)h(written)g(using)e(SLALIB)i(calls:)430 +2386 y Fq(PROGRAM)45 b(FK4FK5)143 2499 y(*)143 2612 y(*)95 +b(Read)47 b(a)g(B1950)g(position)e(from)i(I/O)g(unit)g(5)g(and)g(reply) +f(on)h(I/O)g(unit)g(6)143 2725 y(*)95 b(with)47 b(the)g(J2000)f +(equivalent.)93 b(Enter)46 b(a)i(period)e(to)h(quit.)143 +2837 y(*)430 2950 y(IMPLICIT)e(NONE)430 3063 y(CHARACTER)g(C*80,S)430 +3176 y(INTEGER)g(I,J,IHMSF\(4\),IDMSF\(4\))430 3289 y(DOUBLE)h +(PRECISION)f(R4,D4,R5,D5)430 3402 y(LOGICAL)g(BAD)143 +3628 y(*)143 b(Loop)47 b(until)f(a)i(period)e(is)h(entered)430 +3741 y(C)g(=)g(')h(')430 3854 y(DO)f(WHILE)f(\(C\(:1\).NE.'.'\))143 +4079 y(*)239 b(Read)46 b(h)i(m)f(s)h(d)f(')g(")573 4192 +y(READ)f(\(5,'\(A\)'\))g(C)573 4305 y(IF)h(\(C\(:1\).NE.'.'\))d(THEN) +716 4418 y(BAD)j(=)g(.TRUE.)143 4644 y(*)382 b(Decode)46 +b(the)h(RA)716 4757 y(I)g(=)h(1)716 4870 y(CALL)f +(sla_DAFIN\(C,I,R4,J\))716 4983 y(IF)g(\(J.EQ.0\))f(THEN)859 +5096 y(R4)h(=)h(15D0*R4)143 5321 y(*)525 b(Decode)46 +b(the)h(Dec)859 5434 y(CALL)g(sla_DAFIN\(C,I,D4,J\))859 +5547 y(IF)g(\(J.EQ.0\))f(THEN)p 0 5607 1512 4 v 104 5661 +a Fp(1)138 5693 y Fo(The)26 b(name)f(isn't)h(an)g(acron)n(ym;)f(it)g +(just)h(stands)g(for)h(\\Subprogram)d(Library)i(A".)p +eop +%%Page: 2 4 +2 3 bop 0 52 a FA(2)143 464 y Fq(*)668 b(FK4)47 b(to)g(FK5)1002 +577 y(CALL)g(sla_FK45Z\(R4,D4,1950D0,R)o(5,D5)o(\))143 +803 y(*)668 b(Format)46 b(and)h(output)f(the)h(result)1002 +916 y(CALL)g(sla_DR2TF\(2,R5,S,IHMSF\))1002 1029 y(CALL)g +(sla_DR2AF\(1,D5,S,IDMSF\))1002 1142 y(WRITE)g(\(6,)382 +1255 y(:)334 b('\(1X,I2.2,2I3.2,''.'',I)o(2.2,)o(2X,)o(A,I2)o(.2,2)o +(I3.)o(2,'')o(.'',)o(I1\))o('\))382 1367 y(:)2529 b(IHMSF,S,IDMSF)1002 +1480 y(BAD)47 b(=)h(.FALSE.)859 1593 y(END)f(IF)716 1706 +y(END)g(IF)716 1819 y(IF)g(\(BAD\))f(WRITE)h(\(6,'\(1X,''?''\)'\))573 +1932 y(END)g(IF)430 2045 y(END)f(DO)430 2271 y(END)0 +2518 y FA(In)36 b(this)g(example,)i(SLALIB)f(not)g(only)f(pro)m(vides)g +(the)h(complicated)g(FK4)g(to)h(FK5)f(transformation)f(but)0 +2631 y(also)28 b(simpli\014es)d(the)j(tedious)g(and)g(error-prone)f +(tasks)i(of)f(deco)s(ding)g(and)f(formatting)h(angles)h(expressed)e(as) +0 2744 y(hours,)i(min)m(utes)g Fn(etc)p FA(.)40 b(The)30 +b(example)f(incorp)s(orates)h(range)g(c)m(hec)m(king,)h(and)e(a)m(v)m +(oids)h(the)g(notorious)g(\\min)m(us)0 2857 y(zero")24 +b(problem)d(\(an)i(often-p)s(erp)s(etrated)g(bug)f(where)h +(declinations)e(b)s(et)m(w)m(een)i(0)2754 2824 y Fm(\016)2817 +2857 y FA(and)f Fl(\000)p FA(1)3102 2824 y Fm(\016)3165 +2857 y FA(lose)g(their)g(min)m(us)0 2970 y(sign\).)37 +b(With)22 b(a)h(little)e(extra)i(elab)s(oration)f(and)g(a)g(few)g(more) +h(calls)e(to)j(SLALIB,)e(defaulting)e(can)j(b)s(e)f(pro)m(vided)0 +3083 y(\(enabling)31 b(un)m(used)g(\014elds)f(to)j(b)s(e)f(replaced)g +(with)f(commas)i(to)f(a)m(v)m(oid)h(ret)m(yping\),)g(prop)s(er)e +(motions)h(can)g(b)s(e)0 3196 y(handled,)37 b(di\013eren)m(t)f(ep)s(o)s +(c)m(hs)g(can)h(b)s(e)f(sp)s(eci\014ed,)h(and)f(so)h(on.)60 +b(See)37 b(the)g(program)g(COCO)e(\(SUN/56\))k(for)0 +3308 y(further)29 b(ideas.)0 3596 y Fs(1.3)112 b(Scop)s(e)0 +3814 y FA(SLALIB)30 b(con)m(tains)g(183)i(routines)d(co)m(v)m(ering)j +(the)e(follo)m(wing)f(topics:)136 4038 y Fl(\017)46 b +FA(String)29 b(Deco)s(ding,)i(Sexagesimal)f(Con)m(v)m(ersions)136 +4222 y Fl(\017)46 b FA(Angles,)30 b(V)-8 b(ectors)32 +b(&)e(Rotation)i(Matrices)136 4406 y Fl(\017)46 b FA(Calendars,)30 +b(Timescales)136 4590 y Fl(\017)46 b FA(Precession)30 +b(&)g(Nutation)136 4774 y Fl(\017)46 b FA(Prop)s(er)30 +b(Motion)136 4958 y Fl(\017)46 b FA(FK4/FK5/Hipparcos,)32 +b(Elliptic)27 b(Ab)s(erration)136 5141 y Fl(\017)46 b +FA(Geo)s(cen)m(tric)32 b(Co)s(ordinates)136 5325 y Fl(\017)46 +b FA(Apparen)m(t)31 b(&)f(Observ)m(ed)f(Place)136 5509 +y Fl(\017)46 b FA(Azim)m(uth)30 b(&)g(Elev)-5 b(ation)136 +5693 y Fl(\017)46 b FA(Refraction)31 b(&)f(Air)f(Mass)p +eop +%%Page: 3 5 +3 4 bop 0 52 a Ft(SUN/67.45)3297 b FA(3)136 351 y Fl(\017)46 +b FA(Ecliptic,)29 b(Galactic,)j(Sup)s(ergalactic)d(Co)s(ordinates)136 +547 y Fl(\017)46 b FA(Ephemerides)136 743 y Fl(\017)g +FA(Astrometry)136 938 y Fl(\017)g FA(Numerical)29 b(Metho)s(ds)0 +1245 y Fs(1.4)112 b(Ob)6 b(jectiv)m(es)0 1473 y FA(SLALIB)26 +b(w)m(as)h(designed)f(to)h(giv)m(e)g(application)e(programmers)h(a)h +(basic)f(set)h(of)g(p)s(ositional-astronom)m(y)f(to)s(ols)0 +1586 y(whic)m(h)j(w)m(ere)i(accurate)h(and)e(easy)h(to)g(use.)40 +b(T)-8 b(o)31 b(this)e(end,)h(the)h(library)d(is:)136 +1833 y Fl(\017)46 b FA(Readily)29 b(a)m(v)-5 b(ailable,)30 +b(including)d(source)k(co)s(de)f(and)g(do)s(cumen)m(tation.)136 +2029 y Fl(\017)46 b FA(Supp)s(orted)28 b(and)i(main)m(tained.)136 +2225 y Fl(\017)46 b FA(P)m(ortable)23 b({)h(co)s(ded)e(in)g(standard)g +(languages)h(and)f(a)m(v)-5 b(ailable)22 b(for)h(m)m(ultiple)d +(computers)j(and)f(op)s(erating)227 2337 y(systems.)136 +2533 y Fl(\017)46 b FA(Thoroughly)21 b(commen)m(ted,)k(b)s(oth)d(for)h +(main)m(tainabilit)m(y)d(and)h(to)j(assist)e(those)h(wishing)d(to)j +(cannibalize)227 2646 y(the)31 b(co)s(de.)136 2842 y +Fl(\017)46 b FA(Stable.)136 3038 y Fl(\017)g FA(T)-8 +b(rust)m(w)m(orth)m(y)22 b({)g(some)h(care)f(has)g(gone)g(in)m(to)g +(testing)g(SLALIB,)f(b)s(oth)g(b)m(y)h(comparison)f(with)f(published) +227 3150 y(data)31 b(and)f(b)m(y)g(c)m(hec)m(ks)i(for)e(in)m(ternal)f +(consistency)-8 b(.)136 3346 y Fl(\017)46 b FA(Rigorous)27 +b({)h(corners)f(are)h(not)g(cut,)g(ev)m(en)h(where)e(the)g(practical)g +(consequences)h(w)m(ould,)g(as)f(a)h(rule,)f(b)s(e)227 +3459 y(negligible.)136 3655 y Fl(\017)46 b FA(Comprehensiv)m(e,)28 +b(without)f(including)e(to)s(o)k(man)m(y)g(esoteric)g(features)f +(required)f(only)g(b)m(y)h(sp)s(ecialists.)136 3850 y +Fl(\017)46 b FA(Practical)40 b({)h(almost)f(all)f(the)h(routines)f(ha)m +(v)m(e)i(b)s(een)e(written)g(to)i(satisfy)f(real)f(needs)h(encoun)m +(tered)227 3963 y(during)28 b(the)j(dev)m(elopmen)m(t)g(of)f(real-life) +f(applications.)136 4159 y Fl(\017)46 b FA(En)m(vironmen)m(t-indep)s +(enden)m(t)28 b({)j(the)f(pac)m(k)-5 b(age)33 b(is)c(completely)h(free) +h(of)f(pauses,)g(stops,)h(I/O)f Fn(etc)p FA(.)136 4355 +y Fl(\017)46 b FA(Self-con)m(tained)30 b({)h(SLALIB)f(calls)f(no)i +(other)f(libraries.)0 4602 y(A)g(few)h Fn(c)-5 b(ave)g(ats)p +FA(:)136 4850 y Fl(\017)46 b FA(SLALIB)30 b(do)s(es)g(not)g(pretend)g +(to)h(b)s(e)e(canonical.)41 b(It)30 b(is)f(in)g(essence)i(an)f(an)m +(thology)-8 b(,)32 b(and)e(the)g(adopted)227 4963 y(algorithms)g(are)g +(liable)f(to)i(c)m(hange)g(as)g(more)f(up-to-date)i(ones)e(b)s(ecome)h +(a)m(v)-5 b(ailable.)136 5159 y Fl(\017)46 b FA(The)26 +b(functions)e(aren't)i(orthogonal)h({)f(there)g(are)g(sev)m(eral)g +(cases)h(of)f(di\013eren)m(t)f(routines)g(doing)g(similar)227 +5271 y(things,)30 b(and)f(man)m(y)h(examples)g(where)g(sequences)g(of)g +(SLALIB)g(calls)f(ha)m(v)m(e)j(simply)27 b(b)s(een)j(pac)m(k)-5 +b(aged,)227 5384 y(all)30 b(to)h(mak)m(e)g(applications)e(less)g +(trouble)h(to)h(write.)136 5580 y Fl(\017)46 b FA(There)20 +b(are)h(omissions)d({)j(for)f(example)g(there)g(are)h(no)f(routines)f +(for)h(calculating)g(ph)m(ysical)f(ephemerides)227 5693 +y(of)31 b(Solar-System)f(b)s(o)s(dies.)p eop +%%Page: 4 6 +4 5 bop 0 52 a FA(4)136 351 y Fl(\017)46 b FA(SLALIB)33 +b(is)f(not)h(homogeneous,)i(though)e(imp)s(ortan)m(t)f(subsets)g(\(for) +h(example)g(the)g(FK4/FK5)i(rou-)227 464 y(tines\))30 +b(are.)136 668 y Fl(\017)46 b FA(The)28 b(library)e(is)i(not)h(fo)s +(olpro)s(of.)38 b(Y)-8 b(ou)29 b(ha)m(v)m(e)h(to)f(kno)m(w)g(what)f(y)m +(ou)h(are)g(trying)e(to)i(do)g(\()p Fn(e.g.)f FA(b)m(y)g(reading)227 +780 y(textb)s(o)s(oks)j(on)f(p)s(ositional)e(astronom)m(y\),)k(and)d +(it)h(is)f(the)i(caller's)f(resp)s(onsibilit)m(y)c(to)31 +b(supply)c(sensible)227 893 y(argumen)m(ts)k(\(although)f(enough)g(in)m +(ternal)f(v)-5 b(alidation)29 b(is)g(done)i(to)g(a)m(v)m(oid)g +(arithmetic)e(errors\).)136 1097 y Fl(\017)46 b FA(Without)32 +b(b)s(eing)e(written)h(in)f(a)i(w)m(asteful)f(manner,)h(SLALIB)f(is)f +(nonetheless)h(optimized)g(for)g(main-)227 1210 y(tainabilit)m(y)e +(rather)h(than)g(sp)s(eed.)39 b(In)30 b(addition,)f(there)h(are)h(man)m +(y)f(places)g(where)g(considerable)e(sim-)227 1323 y(pli\014cation)c(w) +m(ould)h(b)s(e)h(p)s(ossible)e(if)h(some)i(sp)s(eci\014ed)d(amoun)m(t)j +(of)f(accuracy)i(could)d(b)s(e)h(sacri\014ced;)h(suc)m(h)227 +1435 y(compromises)g(are)h(left)f(to)h(the)g(individual)23 +b(programmer)k(and)g(are)g(not)h(allo)m(w)m(ed)f(to)i(limit)c(SLALIB's) +227 1548 y(v)-5 b(alue)30 b(as)h(a)f(source)h(of)g(comparison)e +(results.)0 1868 y Fs(1.5)112 b(F)-9 b(ortran)38 b(V)-9 +b(ersion)0 2101 y FA(The)26 b(F)-8 b(ortran)26 b(v)m(ersions)g(of)g +(SLALIB)f(use)h(ANSI)g(F)-8 b(ortran)26 b(77)h(with)e(a)h(few)g +(commonplace)g(extensions.)39 b(Just)0 2214 y(three)33 +b(out)g(of)g(the)h(183)g(routines)e(require)f(platform-sp)s(eci\014c)g +(tec)m(hniques)i(and)f(accordingly)g(are)i(supplied)0 +2327 y(in)42 b(di\013eren)m(t)g(forms.)78 b(SLALIB)43 +b(has)g(b)s(een)f(implemen)m(ted)g(on)h(the)g(follo)m(wing)e +(platforms:)65 b(V)-10 b(AX/VMS,)0 2440 y(PC)37 b(\(Microsoft)h(F)-8 +b(ortran,)40 b(Lin)m(ux\),)e(DECstation)g(\(Ultrix\),)h(DEC)e(Alpha)f +(\(DEC)i(Unix\),)g(Sun)e(\(SunOS,)0 2553 y(Solaris\),)29 +b(Hewlett)i(P)m(ac)m(k)-5 b(ard)32 b(\(HP-UX\),)g(CONVEX,)e(P)m +(erkin-Elmer)f(and)g(F)-8 b(ujitsu.)0 2872 y Fs(1.6)112 +b(C)38 b(V)-9 b(ersion)0 3105 y FA(An)41 b(ANSI)g(C)g(v)m(ersion)g(of)h +(SLALIB)f(is)g(a)m(v)-5 b(ailable)41 b(from)g(the)g(author)h(but)e(is)h +(not)h(part)f(of)h(the)g(Starlink)0 3218 y(release.)57 +b(The)36 b(functionalit)m(y)e(of)i(this)e(\(proprietary\))i(C)f(v)m +(ersion)g(closely)g(matc)m(hes)i(that)g(of)f(the)g(Starlink)0 +3331 y(F)-8 b(ortran)39 b(SLALIB,)e(partly)g(for)h(the)g(con)m(v)m +(enience)h(of)f(existing)f(users)g(of)h(the)g(F)-8 b(ortran)39 +b(v)m(ersion,)g(some)f(of)0 3444 y(whom)28 b(ha)m(v)m(e)j(in)c(the)j +(past)f(implemen)m(ted)e(C)i(\\wrapp)s(ers".)39 b(The)29 +b(function)e(names)i(cannot)h(b)s(e)f(the)g(same)g(as)0 +3557 y(the)34 b(F)-8 b(ortran)35 b(v)m(ersions)f(b)s(ecause)g(of)h(p)s +(oten)m(tial)e(linking)f(problems)g(when)h(b)s(oth)h(forms)f(of)i(the)f +(library)e(are)0 3670 y(presen)m(t;)40 b(the)d(C)g(routine)f(whic)m(h)f +(is)h(the)h(equiv)-5 b(alen)m(t)37 b(of)g(\(for)g(example\))g +Fq(SLA_REFRO)d FA(is)i Fq(slaRefro)p FA(.)58 b(The)0 +3783 y(t)m(yp)s(es)35 b(of)g(argumen)m(ts)g(follo)m(w)f(the)h(F)-8 +b(ortran)36 b(v)m(ersion,)f(except)h(that)g(in)m(tegers)f(are)g +Fq(int)f FA(rather)h(than)f Fq(long)p FA(.)0 3896 y(Argumen)m(t)c +(passing)e(is)h(b)m(y)h(v)-5 b(alue)29 b(\(except)i(for)f(arra)m(ys)g +(and)f(strings)g(of)g(course\))i(for)e(giv)m(en)h(argumen)m(ts)g(and)0 +4009 y(b)m(y)g(p)s(oin)m(ter)g(for)g(returned)f(argumen)m(ts.)41 +b(All)29 b(the)i(C)f(functions)e(are)j(re-en)m(tran)m(t.)0 +4179 y(The)f(F)-8 b(ortran)31 b(routines)e Fq(sla_GRESID)p +FA(,)f Fq(sla_RANDOM)g FA(and)h Fq(sla_WAIT)f FA(ha)m(v)m(e)k(no)e(C)g +(coun)m(terparts.)0 4350 y(F)-8 b(urther)31 b(details)f(of)i(the)f(C)g +(v)m(ersion)f(of)i(SLALIB)e(are)i(a)m(v)-5 b(ailable)31 +b(from)f(the)i(author.)43 b(The)31 b(de\014nitiv)m(e)e(guide)0 +4463 y(to)i(the)g(calling)e(sequences)h(is)g(the)g(\014le)g +Fq(slalib.h)p FA(.)0 4783 y Fs(1.7)112 b(F)-9 b(uture)38 +b(V)-9 b(ersions)0 5016 y FA(The)24 b(homogeneit)m(y)i(and)e(ease)i(of) +f(use)g(of)g(SLALIB)f(could)g(p)s(erhaps)g(b)s(e)g(impro)m(v)m(ed)g(in) +g(the)h(future)f(b)m(y)g(turning)0 5128 y(to)34 b(C++)f(and)f(ob)5 +b(ject-orien)m(ted)35 b(tec)m(hniques.)49 b(F)-8 b(or)34 +b(example)g(\\celestial)f(p)s(osition")f(could)g(b)s(e)h(a)h(class)f +(and)0 5241 y(man)m(y)25 b(of)f(the)h(transformations)f(could)g(happ)s +(en)f(automatically)-8 b(.)39 b(This)23 b(requires)g(further)g(study)h +(and)g(w)m(ould)0 5354 y(almost)k(certainly)f(result)g(in)g(a)h +(complete)h(redesign.)39 b(Similarly)-8 b(,)25 b(the)j(impact)g(of)g(F) +-8 b(ortran)29 b(90)f(has)g(y)m(et)h(to)g(b)s(e)0 5467 +y(assessed.)55 b(Once)35 b(compilers)e(b)s(ecome)i(widely)e(a)m(v)-5 +b(ailable,)36 b(some)f(in)m(ternal)f(reco)s(ding)g(ma)m(y)i(b)s(e)e(w)m +(orth)m(while)0 5580 y(in)j(order)g(to)i(simplify)34 +b(parts)k(of)g(the)g(co)s(de.)64 b(Ho)m(w)m(ev)m(er,)42 +b(as)c(with)f(C++,)i(a)f(redesign)f(of)h(the)g(application)0 +5693 y(in)m(terfaces)31 b(will)d(b)s(e)h(needed)h(if)g(the)g +(capabilities)e(of)j(the)g(new)e(language)i(are)g(to)g(b)s(e)f +(exploited)f(to)i(the)g(full.)p eop +%%Page: 5 7 +5 6 bop 0 52 a Ft(SUN/67.45)3297 b FA(5)0 351 y Fs(1.8)112 +b(New)37 b(F)-9 b(unctions)0 571 y FA(In)39 b(a)i(pac)m(k)-5 +b(age)41 b(lik)m(e)f(SLALIB)f(it)h(is)f(di\016cult)f(to)i(kno)m(w)g(ho) +m(w)g(far)g(to)h(go.)70 b(Is)39 b(it)h(enough)g(to)g(pro)m(vide)f(the)0 +684 y(primitiv)m(e)20 b(op)s(erations,)k(or)f(should)e(more)i +(complicated)f(functions)f(b)s(e)h(pac)m(k)-5 b(aged?)40 +b(Is)22 b(it)g(w)m(orth)h(encroac)m(hing)0 797 y(on)37 +b(sp)s(ecialist)e(areas,)k(where)d(individual)d(exp)s(erts)j(ha)m(v)m +(e)i(all)e(written)g(their)g(o)m(wn)g(soft)m(w)m(are)j(already?)59 +b(T)-8 b(o)0 910 y(what)44 b(exten)m(t)i(should)d(CPU)h(e\016ciency)h +(b)s(e)f(an)g(issue?)82 b(Ho)m(w)45 b(m)m(uc)m(h)f(supp)s(ort)f(of)i +(di\013eren)m(t)f(n)m(umerical)0 1023 y(precisions)28 +b(is)i(required?)38 b(And)30 b(so)h(on.)0 1184 y(In)38 +b(practice,)k(almost)d(all)f(the)h(routines)f(in)f(SLALIB)i(are)g +(there)g(b)s(ecause)g(they)g(w)m(ere)h(needed)e(for)h(some)0 +1297 y(sp)s(eci\014c)27 b(application,)g(and)g(this)g(is)h(lik)m(ely)e +(to)j(remain)e(the)h(pattern)g(for)g(an)m(y)h(enhancemen)m(ts)f(in)f +(the)h(future.)0 1410 y(Suggestions)i(for)g(additional)e(SLALIB)i +(routines)f(should)g(b)s(e)h(addressed)f(to)i(the)g(author.)0 +1700 y Fs(1.9)112 b(Ac)m(kno)m(wledgemen)m(ts)0 1920 +y FA(SLALIB)39 b(is)f(descended)h(from)g(a)h(pac)m(k)-5 +b(age)42 b(of)d(routines)g(written)f(for)i(the)f(AA)m(O)h(16-bit)g +(minicomputers)0 2033 y(in)33 b(the)h(mid-1970s.)51 b(The)33 +b(coming)h(of)g(the)g(V)-10 b(AX)34 b(allo)m(w)m(ed)g(a)g(m)m(uc)m(h)g +(more)g(comprehensiv)m(e)f(and)h(thorough)0 2146 y(pac)m(k)-5 +b(age)38 b(to)f(b)s(e)f(designed)f(for)h(Starlink,)g(esp)s(ecially)f +(imp)s(ortan)m(t)g(at)i(a)g(time)f(when)f(the)i(adoption)f(of)g(the)0 +2259 y(IA)m(U)f(1976)h(resolutions)d(mean)m(t)i(that)g(astronomers)g(w) +m(ould)e(ha)m(v)m(e)j(to)f(cop)s(e)f(with)f(a)i(mixture)e(of)i +(reference)0 2372 y(frames,)30 b(timescales)h(and)e(nomenclature.)0 +2533 y(Muc)m(h)40 b(of)f(the)h(preparatory)g(w)m(ork)f(on)h(SLALIB)f(w) +m(as)h(done)f(b)m(y)h(Althea)f(Wilkinson)e(of)j(Manc)m(hester)h(U-)0 +2646 y(niv)m(ersit)m(y)-8 b(.)78 b(During)41 b(its)h(dev)m(elopmen)m +(t,)47 b(Andrew)41 b(Murra)m(y)-8 b(,)47 b(Catherine)42 +b(Hohenk)m(erk,)k(Andrew)c(Sinclair,)0 2759 y(Bernard)25 +b(Y)-8 b(allop)25 b(and)g(Brian)f(Emerson)h(of)h(Her)f(Ma)5 +b(jest)m(y's)28 b(Nautical)d(Almanac)g(O\016ce)h(w)m(ere)g(consulted)f +(on)0 2871 y(man)m(y)f(o)s(ccasions;)i(their)d(advice)h(w)m(as)g +(indisp)s(ensable.)34 b(I)23 b(am)h(esp)s(ecially)e(grateful)i(to)g +(Catherine)f(Hohenk)m(erk)0 2984 y(for)34 b(supplying)c(preprin)m(ts)i +(of)i(pap)s(ers,)g(and)f(test)i(data.)52 b(A)34 b(n)m(um)m(b)s(er)f(of) +h(enhancemen)m(ts)g(to)h(SLALIB)e(w)m(ere)0 3097 y(at)39 +b(the)g(suggestion)g(of)g(Russell)d(Ow)m(en,)41 b(Univ)m(ersit)m(y)d +(of)g(W)-8 b(ashington,)41 b(the)e(late)g(Phil)e(Hill,)h(St)h(Andrews)0 +3210 y(Univ)m(ersit)m(y)-8 b(,)37 b(Bill)d(V)-8 b(acca,)40 +b(JILA,)c(Boulder)f(and)g(Ron)h(Maddalena,)i(NRA)m(O.)e(Mark)g +(Calabretta,)i(CSIR)m(O)0 3323 y(Radioph)m(ysics,)c(Sydney)e(supplied)f +(c)m(hanges)k(to)g(suit)e(Con)m(v)m(ex.)53 b(I)33 b(am)h(indebted)f(to) +i(Derek)f(Jones)g(\(R)m(GO\))0 3436 y(for)c(in)m(tro)s(ducing)e(me)j +(to)g(the)f(\\univ)m(ersal)f(v)-5 b(ariables")30 b(metho)s(d)g(of)g +(calculating)g(orbits.)0 3597 y(The)j(\014rst)g(C)g(v)m(ersion)f(of)i +(SLALIB)f(w)m(as)h(a)g(hand-co)s(ded)e(transcription)f(of)j(the)g +(Starlink)d(F)-8 b(ortran)34 b(v)m(ersion)0 3710 y(carried)j(out)i(b)m +(y)f(Stev)m(e)h(Eaton)f(\(Univ)m(ersit)m(y)g(of)g(Leeds\))h(in)e(the)h +(course)g(of)g(MSc)h(w)m(ork.)64 b(This)36 b(w)m(as)i(later)0 +3823 y(enhanced)29 b(b)m(y)g(John)f(Straede)h(\(AA)m(O\))h(and)f +(Martin)f(Shepherd)f(\(Caltec)m(h\).)41 b(The)29 b(curren)m(t)g(C)f +(SLALIB)h(is)f(a)0 3936 y(complete)21 b(rewrite)f(b)m(y)h(the)f(presen) +m(t)h(author)g(and)f(includes)e(a)j(comprehensiv)m(e)f(v)-5 +b(alidation)19 b(suite.)37 b(Additional)0 4049 y(commen)m(ts)31 +b(on)g(the)f(C)g(v)m(ersion)g(came)h(from)f(Bob)h(P)m(a)m(yne)g(\(NRA)m +(O\))h(and)d(Jerem)m(y)i(Bailey)f(\(AA)m(O\).)0 4383 +y Fu(2)135 b(LINKING)0 4634 y FA(On)30 b(Unix)f(systems)h(\(Sun,)g(DEC) +g(Alpha)f Fn(etc.)p FA(\):)227 4865 y Fq(\045)95 b(f77)47 +b(progname.o)e(-L/star/lib)g(`sla_link`)g(-o)i(progname)0 +5097 y FA(\(The)29 b(ab)s(o)m(v)m(e)i(assumes)e(that)h(all)e(Starlink)g +(directories)g(ha)m(v)m(e)j(b)s(een)d(added)h(to)h(the)g +Fq(LD_LIBRARY_PATH)25 b FA(and)0 5210 y Fq(PATH)k FA(en)m(vironmen)m(t) +h(v)-5 b(ariables)29 b(as)i(describ)s(ed)d(in)h(SUN/202.\))0 +5371 y(On)h(V)-10 b(AX/VMS:)227 5602 y Fq($)95 b(LINK)47 +b(progname,SLALIB_DIR:SLALI)o(B/L)o(IB)p eop +%%Page: 6 8 +6 7 bop 0 52 a FA(6)0 351 y Fu(3)135 b(SUBPR)l(OGRAM)44 +b(SPECIFICA)-11 b(TIONS)p 0 465 3780 8 v 0 578 a(SLA)p +Fk(_)p Fu(ADDET)383 b Fj(Add)39 b(E-terms)d(of)i(Ab)s(erration)382 +b Fu(SLA)p Fk(_)p Fu(ADDET)0 928 y Fy(A)m(CTION)44 b +FA(:)61 b(Add)40 b(the)h(E-terms)g(\(elliptic)e(comp)s(onen)m(t)i(of)g +(ann)m(ual)e(ab)s(erration\))i(to)g(a)g(pre)f(IA)m(U)i(1976)227 +1041 y(mean)31 b(place)f(to)h(conform)f(to)i(the)e(old)g(catalogue)i +(con)m(v)m(en)m(tion.)0 1228 y Fy(CALL)45 b FA(:)77 b +Fq(CALL)46 b(sla_ADDET)g(\(RM,)g(DM,)h(EQ,)g(RC,)g(DC\))0 +1629 y Fy(GIVEN)e FA(:)277 1775 y Fn(RM,DM)409 b Fy(D)565 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])31 b(without)e(E-terms)i +(\(radians\))277 1888 y Fn(EQ)604 b Fy(D)565 b FA(Besselian)30 +b(ep)s(o)s(c)m(h)g(of)g(mean)h(equator)g(and)f(equino)m(x)0 +2325 y Fy(RETURNED)46 b FA(:)277 2497 y Fn(R)n(C,DC)445 +b Fy(D)565 b FA([)15 b Fi(\013;)g(\016)20 b FA(])31 b(with)e(E-terms)i +(included)c(\(radians\))0 2943 y Fy(NOTE)44 b FA(:)39 +b(Most)28 b(star)g(p)s(ositions)d(from)i(pre-1984)h(optical)f +(catalogues)i(\(or)e(obtained)g(b)m(y)g(astrometry)h(with)227 +3056 y(resp)s(ect)d(to)h(suc)m(h)f(stars\))h(ha)m(v)m(e)g(the)f +(E-terms)g(built-in.)36 b(If)25 b(it)f(is)h(necessary)g(to)h(con)m(v)m +(ert)h(a)e(formal)f(mean)227 3169 y(place)31 b(\(for)f(example)g(a)h +(pulsar)e(timing)f(p)s(osition\))h(to)i(one)g(consisten)m(t)g(with)e +(suc)m(h)h(a)h(star)g(catalogue,)227 3282 y(then)f(the)h([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(should)d(b)s(e)i(adjusted)g(using)e +(this)i(routine.)0 3728 y Fy(REFERENCE)44 b FA(:)56 b +Fn(Explanatory)42 b(Supplement)f(to)f(the)g(Astr)-5 b(onomic)g(al)43 +b(Ephemeris)p FA(,)e(section)d(2D,)h(page)227 3841 y(48.)p +0 3990 V 0 4103 a Fu(SLA)p Fk(_)p Fu(AFIN)274 b Fj(Sexagesimal)36 +b(c)m(haracter)g(string)h(to)i(angle)275 b Fu(SLA)p Fk(_)p +Fu(AFIN)0 4453 y Fy(A)m(CTION)44 b FA(:)k(Deco)s(de)35 +b(a)g(free-format)g(sexagesimal)f(string)f(\(degrees,)j(arcmin)m(utes,) +f(arcseconds\))g(in)m(to)f(a)227 4566 y(single)29 b(precision)g +(\015oating)h(p)s(oin)m(t)g(n)m(um)m(b)s(er)f(\(radians\).)0 +4754 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_AFIN)g(\(STRING,)f +(NSTRT,)i(RESLT,)f(JF\))0 5154 y Fy(GIVEN)f FA(:)277 +5300 y Fn(STRING)381 b Fy(C*\(*\))i FA(string)29 b(con)m(taining)h +(deg,)h(arcmin,)f(arcsec)h(\014elds)277 5413 y Fn(NSTR)-7 +b(T)428 b Fy(I)605 b FA(p)s(oin)m(ter)36 b(to)h(start)g(of)f(deco)s(de) +h(\(b)s(eginning)d(of)j(STRING)1658 5526 y(=)30 b(1\))p +eop +%%Page: 7 9 +7 8 bop 0 52 a Ft(SUN/67.45)3297 b FA(7)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(adv)-5 +b(anced)31 b(past)f(the)h(deco)s(ded)f(angle)277 610 +y Fn(RESL)-7 b(T)442 b Fy(R)567 b FA(angle)31 b(in)e(radians)277 +723 y Fn(JF)629 b Fy(I)605 b FA(status:)1825 836 y(0)31 +b(=)f(OK)1752 949 y(+1)h(=)f(default,)f(RESL)-8 b(T)30 +b(unc)m(hanged)g(\(note)h(2\))1752 1062 y Fl(\000)p FA(1)g(=)f(bad)f +(degrees)i(\(note)h(3\))1752 1175 y Fl(\000)p FA(2)f(=)f(bad)f(arcmin)m +(utes)h(\(note)i(3\))1752 1288 y Fl(\000)p FA(3)f(=)f(bad)f(arcseconds) +i(\(note)g(3\))0 1685 y Fy(EXAMPLE)45 b FA(:)277 1831 +y Fn(ar)-5 b(gument)369 b(b)-5 b(efor)g(e)1235 b(after)277 +2057 y FA(STRING)1013 2024 y Fm(0)1036 2057 y Fq +(-57 17 44.806 12 34 56.7)2236 2024 y Fm(0)2476 2057 +y FA(unc)m(hanged)277 2170 y(NSTR)-8 b(T)426 b(1)1418 +b(16)32 b(\()p Fn(i.e.)e FA(p)s(oin)m(ting)e(to)j(12...\))277 +2283 y(RESL)-8 b(T)441 b(-)1433 b Fl(\000)p FA(1)p Fi(:)p +FA(00000)277 2396 y(JF)630 b(-)1433 b(0)45 2593 y(A)45 +b(further)d(call)h(to)i(sla)p Fq(_)p FA(AFIN,)f(without)f(adjustmen)m +(t)h(of)g(NSTR)-8 b(T,)44 b(will)d(deco)s(de)j(the)g(second)g(angle,) +227 2706 y(12)317 2673 y Fm(\016)373 2706 y FA(34)463 +2669 y Fh(0)505 2706 y FA(56)590 2669 y Fh(0)m(0)594 +2706 y Fi(:)p FA(7.)0 3112 y Fy(NOTES)g FA(:)311 3317 +y(1.)i(The)27 b(\014rst)f(three)h(\\\014elds")f(in)g(STRING)g(are)h +(degrees,)i(arcmin)m(utes,)e(arcseconds,)h(separated)g(b)m(y)427 +3430 y(spaces)d(or)e(commas.)40 b(The)23 b(degrees)h(\014eld)f(ma)m(y)h +(b)s(e)g(signed,)g(but)f(not)h(the)g(others.)39 b(The)24 +b(deco)s(ding)427 3543 y(is)30 b(carried)f(out)i(b)m(y)f(the)h(sla)p +Fq(_)p FA(DFL)-8 b(TIN)30 b(routine)f(and)h(is)g(free-format.)311 +3698 y(2.)46 b(Successiv)m(e)24 b(\014elds)e(ma)m(y)i(b)s(e)f(absen)m +(t,)j(defaulting)c(to)j(zero.)39 b(F)-8 b(or)25 b(zero)f(status,)i(the) +e(only)e(com)m(bina-)427 3811 y(tions)31 b(allo)m(w)m(ed)g(are)g +(degrees)h(alone,)f(degrees)h(and)f(arcmin)m(utes,)g(and)f(all)g(three) +i(\014elds)d(presen)m(t.)427 3923 y(If)34 b(all)f(three)i(\014elds)d +(are)j(omitted,)h(a)e(status)h(of)f(+1)h(is)e(returned)g(and)h(RESL)-8 +b(T)33 b(is)h(unc)m(hanged.)427 4036 y(In)c(all)f(other)i(cases)g(RESL) +-8 b(T)30 b(is)f(c)m(hanged.)311 4191 y(3.)46 b(Range)31 +b(c)m(hec)m(king:)506 4346 y Fl(\017)46 b FA(The)38 b(degrees)h +(\014eld)e(is)g(not)i(range)g(c)m(hec)m(k)m(ed.)66 b(Ho)m(w)m(ev)m(er,) +43 b(it)38 b(is)f(exp)s(ected)i(to)g(b)s(e)f(in)m(tegral)597 +4459 y(unless)29 b(the)i(other)f(t)m(w)m(o)i(\014elds)d(are)h(absen)m +(t.)506 4593 y Fl(\017)46 b FA(The)33 b(arcmin)m(utes)h(\014eld)e(is)g +(exp)s(ected)i(to)h(b)s(e)e(0-59,)j(and)d(in)m(tegral)g(if)g(the)h +(arcseconds)g(\014eld)597 4706 y(is)39 b(presen)m(t.)70 +b(If)40 b(the)g(arcseconds)g(\014eld)f(is)g(absen)m(t,)k(the)d(arcmin)m +(utes)g(is)f(exp)s(ected)h(to)h(b)s(e)597 4819 y(0-59.9999...)506 +4953 y Fl(\017)46 b FA(The)30 b(arcseconds)h(\014eld)e(is)g(exp)s +(ected)i(to)g(b)s(e)f(0-59.9999...)506 5086 y Fl(\017)46 +b FA(Deco)s(ding)40 b(con)m(tin)m(ues)g(ev)m(en)h(when)e(a)h(c)m(hec)m +(k)i(has)d(failed.)68 b(Under)39 b(these)i(circumstances)597 +5199 y(the)d(\014eld)e(tak)m(es)i(the)g(supplied)c(v)-5 +b(alue,)38 b(defaulting)e(to)i(zero,)i(and)c(the)i(result)e(RESL)-8 +b(T)36 b(is)597 5312 y(computed)30 b(and)g(returned.)311 +5467 y(4.)46 b(F)-8 b(urther)31 b(\014elds)f(after)h(the)g(three)h(exp) +s(ected)f(ones)g(are)h(not)f(treated)h(as)g(an)e(error.)43 +b(The)30 b(p)s(oin)m(ter)427 5580 y(NSTR)-8 b(T)35 b(is)g(left)g(in)f +(the)i(correct)h(state)f(for)g(further)e(deco)s(ding)g(with)h(the)g +(presen)m(t)h(routine)e(or)427 5693 y(with)29 b(sla)p +Fq(_)p FA(DFL)-8 b(TIN)31 b Fn(etc)p FA(.)40 b(See)31 +b(the)f(example,)h(ab)s(o)m(v)m(e.)p eop +%%Page: 8 10 +8 9 bop 0 52 a FA(8)311 351 y(5.)46 b(If)27 b(STRING)h(con)m(tains)f +(hours,)h(min)m(utes,)f(seconds)h(instead)f(of)h(degrees)g +Fn(etc)p FA(,)g(or)g(if)e(the)i(required)427 464 y(units)k(are)h(turns) +f(\(or)h(da)m(ys\))h(instead)e(of)i(radians,)e(the)h(result)f(RESL)-8 +b(T)33 b(should)e(b)s(e)h(m)m(ultiplied)427 577 y(as)f(follo)m(ws:)477 +723 y Fn(for)i(STRING)145 b(to)33 b(obtain)202 b(multiply)34 +b(RESL)-7 b(T)33 b(by)477 949 y Fl(\016)583 943 y Fm(0)65 +b(00)1122 949 y FA(radians)264 b(1)p Fi(:)p FA(0)477 +1062 y Fl(\016)583 1056 y Fm(0)65 b(00)1122 1062 y FA(turns)345 +b(1)p Fi(=)p FA(2)p Fi(\031)30 b FA(=)25 b(0)p Fi(:)p +FA(1591549430918)q(95)q(335)q(8)477 1175 y(h)30 b(m)g(s)422 +b(radians)264 b(15)p Fi(:)p FA(0)477 1288 y(h)30 b(m)g(s)422 +b(da)m(ys)377 b(15)p Fi(=)p FA(2)p Fi(\031)30 b FA(=)25 +b(2)p Fi(:)p FA(387324146378)q(43)q(003)q(65)p 0 1441 +3780 8 v 0 1554 a Fu(SLA)p Fk(_)p Fu(AIRMAS)781 b Fj(Air)38 +b(Mass)784 b Fu(SLA)p Fk(_)p Fu(AIRMAS)0 1904 y Fy(A)m(CTION)44 +b FA(:)c(Air)30 b(mass)g(at)h(giv)m(en)g(zenith)e(distance)h(\(double)g +(precision\).)0 2092 y Fy(CALL)45 b FA(:)77 b Fq(D)47 +b(=)h(sla_AIRMAS)d(\(ZD\))0 2444 y Fy(GIVEN)g FA(:)277 +2616 y Fn(ZD)611 b Fy(D)565 b FA(observ)m(ed)31 b(zenith)e(distance)h +(\(radians\))0 2989 y Fy(RETURNED)46 b FA(:)277 3161 +y Fn(sla)p Fq(_)p Fn(AIRMAS)212 b Fy(D)565 b FA(air)30 +b(mass)g(\(1)h(at)g(zenith\))0 3534 y Fy(NOTES)44 b FA(:)311 +3726 y(1.)i(The)30 b Fn(observe)-5 b(d)41 b FA(zenith)30 +b(distance)g(referred)f(to)i(ab)s(o)m(v)m(e)h(means)e(\\as)h +(a\013ected)h(b)m(y)e(refraction".)311 3875 y(2.)46 b(The)32 +b(routine)g(uses)g(Hardie's)f(\(1962\))k(p)s(olynomial)30 +b(\014t)i(to)h(Bemp)s(orad's)f(data)i(for)e(the)g(relativ)m(e)427 +3987 y(air)i(mass,)h Fi(X)7 b FA(,)36 b(in)d(units)g(of)h(thic)m(kness) +g(at)h(the)f(zenith)g(as)h(tabulated)f(b)m(y)g(Sc)m(ho)s(en)m(b)s(erg)g +(\(1929\).)427 4100 y(This)39 b(is)g(adequate)j(for)e(all)f(normal)g +(needs)h(as)h(it)e(is)h(accurate)i(to)f(b)s(etter)f(than)g(0.1\045)h +(up)f(to)427 4213 y Fi(X)33 b FA(=)25 b(6)p Fi(:)p FA(8)h(and)f(b)s +(etter)h(than)f(1\045)h(up)e(to)i Fi(X)33 b FA(=)25 b(10.)40 +b(Bemp)s(orad's)25 b(tabulated)g(v)-5 b(alues)25 b(are)h(unlik)m(ely) +427 4326 y(to)42 b(b)s(e)f(trust)m(w)m(orth)m(y)h(to)f(suc)m(h)g +(accuracy)i(b)s(ecause)e(of)g(v)-5 b(ariations)40 b(in)g(densit)m(y)-8 +b(,)44 b(pressure)c(and)427 4439 y(other)31 b(conditions)e(in)g(the)h +(atmosphere)h(from)f(those)h(assumed)e(in)g(his)g(w)m(ork.)311 +4587 y(3.)46 b(The)30 b(sign)g(of)g(the)h(ZD)f(is)f(ignored.)311 +4736 y(4.)46 b(A)m(t)29 b(zenith)d(distances)h(greater)i(than)e(ab)s +(out)g Fi(\020)k FA(=)25 b(87)2241 4703 y Fm(\016)2309 +4736 y FA(the)i(air)g(mass)g(is)f(held)g(constan)m(t)j(to)f(a)m(v)m +(oid)427 4849 y(arithmetic)i(o)m(v)m(er\015o)m(ws.)0 +5222 y Fy(REFERENCES)44 b FA(:)311 5414 y(1.)i(Hardie,)h(R.H.,)g(1962,) +i(in)42 b Fn(Astr)-5 b(onomic)g(al)47 b(T)-7 b(e)i(chniques)59 +b FA(ed.)80 b(W.A.)44 b(Hiltner,)i(Univ)m(ersit)m(y)c(of)427 +5527 y(Chicago)31 b(Press,)f(p180.)311 5675 y(2.)46 b(Sc)m(ho)s(en)m(b) +s(erg,)31 b(E.,)f(1929,)j(Hdb.)c(d.)h(Ap.,)h(Berlin,)e(Julius)e +(Springer,)i(2,)i(268.)p eop +%%Page: 9 11 +9 10 bop 0 52 a Ft(SUN/67.45)3297 b FA(9)p 0 267 3780 +8 v 0 380 a Fu(SLA)p Fk(_)p Fu(AL)-11 b(T)g(AZ)191 b +Fj(V)-10 b(elo)s(cities)37 b Fg(etc.)h Fj(for)g(Altazim)m(uth)d(Moun)m +(t)193 b Fu(SLA)p Fk(_)p Fu(AL)-11 b(T)g(AZ)0 730 y Fy(A)m(CTION)44 +b FA(:)e(P)m(ositions,)30 b(v)m(elo)s(cities)h(and)f(accelerations)i +(for)f(an)g(altazim)m(uth)g(telescop)s(e)g(moun)m(t)g(trac)m(king)227 +843 y(a)g(star)g(\(double)e(precision\).)0 1031 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_ALTAZ)g(\(HA,)g(DEC,)h(PHI,)1192 +1144 y(AZ,)f(AZD,)h(AZDD,)f(EL,)h(ELD,)g(ELDD,)f(PA,)h(PAD,)g(PADD\))0 +1490 y Fy(GIVEN)e FA(:)277 1636 y Fn(HA)600 b Fy(D)565 +b FA(hour)30 b(angle)277 1749 y Fn(DEC)540 b Fy(D)565 +b FA(declination)277 1862 y Fn(PHI)571 b Fy(D)565 b FA(observ)-5 +b(atory)31 b(latitude)0 2209 y Fy(RETURNED)46 b FA(:)277 +2355 y Fn(AZ)612 b Fy(D)565 b FA(azim)m(uth)277 2468 +y Fn(AZD)543 b Fy(D)565 b FA(azim)m(uth)30 b(v)m(elo)s(cit)m(y)277 +2581 y Fn(AZDD)474 b Fy(D)565 b FA(azim)m(uth)30 b(acceleration)277 +2694 y Fn(EL)617 b Fy(D)565 b FA(elev)-5 b(ation)277 +2807 y Fn(ELD)548 b Fy(D)565 b FA(elev)-5 b(ation)30 +b(v)m(elo)s(cit)m(y)277 2920 y Fn(ELDD)479 b Fy(D)565 +b FA(elev)-5 b(ation)30 b(acceleration)277 3033 y Fn(P)-7 +b(A)613 b Fy(D)565 b FA(parallactic)30 b(angle)277 3146 +y Fn(P)-7 b(AD)544 b Fy(D)565 b FA(parallactic)30 b(angle)g(v)m(elo)s +(cit)m(y)277 3259 y Fn(P)-7 b(ADD)475 b Fy(D)565 b FA(parallactic)30 +b(angle)g(acceleration)0 3606 y Fy(NOTES)44 b FA(:)311 +3793 y(1.)i(Natural)32 b(units)e(are)i(used)f(throughout.)45 +b(HA,)33 b(DEC,)f(PHI,)g(AZ,)f(EL)h(and)f(ZD)h(are)g(in)f(radians.)427 +3906 y(The)41 b(v)m(elo)s(cities)g(and)g(accelerations)h(assume)g +(constan)m(t)h(declination)c(and)i(constan)m(t)i(rate)f(of)427 +4019 y(c)m(hange)36 b(of)e(hour)f(angle)i(\(as)f(for)g(trac)m(king)h(a) +g(star\);)i(the)d(units)f(of)h(AZD,)h(ELD)f(and)g(P)-8 +b(AD)35 b(are)427 4132 y(radians)e(p)s(er)g(radian)g(of)i(HA,)g(while)d +(the)j(units)d(of)j(AZDD,)g(ELDD)g(and)f(P)-8 b(ADD)35 +b(are)g(radians)427 4245 y(p)s(er)29 b(radian)g(of)h(HA)g(squared.)40 +b(T)-8 b(o)30 b(con)m(v)m(ert)i(in)m(to)e(practical)f(degree-)i(and)f +(second-based)g(units:)1121 4460 y(angles)99 b Fl(\002)p +FA(360)p Fi(=)p FA(2)p Fi(\031)770 b Fl(!)100 b FA(degrees)1002 +4573 y(v)m(elo)s(cities)f Fl(\002)p FA(\(2)p Fi(\031)s(=)p +FA(86400\))24 b Fl(\002)c FA(\(360)p Fi(=)p FA(2)p Fi(\031)s +FA(\))142 b Fl(!)100 b FA(degree/sec)858 4686 y(accelerations)g +Fl(\002)p FA(\(2)p Fi(\031)s(=)p FA(86400\))1974 4653 +y Fr(2)2038 4686 y Fl(\002)20 b FA(\(360)p Fi(=)p FA(2)p +Fi(\031)s FA(\))102 b Fl(!)e FA(degree/sec/sec)427 4901 +y(Note)33 b(that)f(the)f(seconds)g(here)g(are)h(sidereal)e(rather)h +(than)g(SI.)g(One)f(sidereal)g(second)h(is)g(ab)s(out)427 +5014 y(0.99727)j(SI)29 b(seconds.)427 5176 y(The)c(v)m(elo)s(cit)m(y)i +(and)e(acceleration)h(factors)h(assume)e(the)h(sidereal)e(trac)m(king)i +(case.)41 b(Their)24 b(resp)s(ec-)427 5289 y(tiv)m(e)31 +b(n)m(umerical)e(v)-5 b(alues)30 b(are)g(\(exactly\))i(1/240)h(and)d +(\(appro)m(ximately\))g(1/3300236.9.)311 5467 y(2.)46 +b(Azim)m(uth)31 b(is)g(returned)f(in)g(the)i(range)f([)15 +b(0)p Fi(;)g FA(2)p Fi(\031)20 b FA(];)33 b(north)e(is)f(zero,)j(and)e +(east)h(is)f(+)p Fi(\031)s(=)p FA(2.)44 b(Elev)-5 b(ation)427 +5580 y(and)26 b(parallactic)g(angle)g(are)h(returned)f(in)f(the)h +(range)h Fl(\006)p Fi(\031)s(=)p FA(2.)40 b(P)m(osition)26 +b(angle)h(is)e(+v)m(e)i(for)f(a)h(star)427 5693 y(w)m(est)k(of)g(the)f +(meridian)e(and)i(is)g(the)g(angle)h(NP{star{zenith.)p +eop +%%Page: 10 12 +10 11 bop 0 52 a FA(10)311 351 y(3.)46 b(The)25 b(latitude)g(is)g(geo)s +(detic)h(as)g(opp)s(osed)e(to)j(geo)s(cen)m(tric.)40 +b(The)25 b(hour)g(angle)g(and)g(declination)f(are)427 +464 y(top)s(o)s(cen)m(tric.)47 b(Refraction)32 b(and)g(de\014ciencies)f +(in)f(the)j(telescop)s(e)g(moun)m(ting)e(are)i(ignored.)45 +b(The)427 577 y(purp)s(ose)30 b(of)i(the)g(routine)f(is)f(to)j(giv)m(e) +f(the)g(general)g(form)f(of)h(the)f(quan)m(tities.)44 +b(The)32 b(details)e(of)i(a)427 690 y(real)e(telescop)s(e)h(could)f +(profoundly)d(c)m(hange)32 b(the)f(results,)e(esp)s(ecially)f(close)j +(to)g(the)g(zenith.)311 886 y(4.)46 b(No)31 b(range)g(c)m(hec)m(king)g +(of)g(argumen)m(ts)f(is)g(carried)f(out.)311 1083 y(5.)46 +b(In)28 b(applications)e(whic)m(h)i(in)m(v)m(olv)m(e)g(man)m(y)h(suc)m +(h)f(calculations,)g(rather)g(than)g(calling)f(the)h(presen)m(t)427 +1196 y(routine)i(it)g(will)e(b)s(e)i(more)g(e\016cien)m(t)h(to)h(use)e +(inline)d(co)s(de,)k(ha)m(ving)g(previously)d(computed)i(\014xed)427 +1309 y(terms)g(suc)m(h)f(as)h(sine)f(and)g(cosine)g(of)h(latitude,)f +(and)g(\(for)h(trac)m(king)g(a)g(star\))g(sine)f(and)g(cosine)g(of)427 +1422 y(declination.)p 0 1559 3780 8 v 0 1672 a Fu(SLA)p +Fk(_)p Fu(AMP)775 b Fj(Apparen)m(t)37 b(to)h(Mean)777 +b Fu(SLA)p Fk(_)p Fu(AMP)0 2023 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m +(ert)32 b(star)e([)15 b Fi(\013;)g(\016)21 b FA(])30 +b(from)g(geo)s(cen)m(tric)i(apparen)m(t)e(to)h(mean)g(place)f(\(p)s +(ost)g(IA)m(U)h(1976\).)0 2210 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_AMP)g(\(RA,)h(DA,)g(DATE,)f(EQ,)h(RM,)g(DM\))0 +2594 y Fy(GIVEN)e FA(:)277 2740 y Fn(RA,D)n(A)439 b Fy(D)565 +b FA(apparen)m(t)31 b([)15 b Fi(\013;)g(\016)20 b FA(])31 +b(\(radians\))277 2853 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 +b FA(TDB)31 b(for)f(apparen)m(t)h(place)f(\(JD)p Fl(\000)p +FA(2400000.5\))277 2966 y Fn(EQ)604 b Fy(D)565 b FA(equino)m(x:)40 +b(Julian)28 b(ep)s(o)s(c)m(h)i(of)h(mean)f(place)0 3376 +y Fy(RETURNED)46 b FA(:)277 3548 y Fn(RM,DM)409 b Fy(D)565 +b FA(mean)31 b([)15 b Fi(\013;)g(\016)20 b FA(])30 b(\(radians\))0 +3967 y Fy(NOTES)44 b FA(:)311 4177 y(1.)i(The)35 b(distinction)e(b)s +(et)m(w)m(een)k(the)e(required)f(TDB)i(and)f(TT)g(is)f(alw)m(a)m(ys)i +(negligible.)54 b(Moreo)m(v)m(er,)427 4290 y(for)30 b(all)g(but)f(the)i +(most)g(critical)e(applications)f(UTC)i(is)g(adequate.)311 +4448 y(2.)46 b(The)32 b(accuracy)h(is)d(limited)g(b)m(y)i(the)g +(routine)f(sla)p Fq(_)p FA(EVP)-8 b(,)31 b(called)g(b)m(y)h(sla)p +Fq(_)p FA(MAPP)-8 b(A,)32 b(whic)m(h)f(com-)427 4561 +y(putes)g(the)g(Earth)g(p)s(osition)e(and)h(v)m(elo)s(cit)m(y)h(using)f +(the)h(metho)s(ds)f(of)h(Stump\013.)41 b(The)31 b(maxim)m(um)427 +4673 y(error)f(is)g(ab)s(out)g(0.3)h(milliarcsecond.)311 +4831 y(3.)46 b(Iterativ)m(e)41 b(tec)m(hniques)f(are)g(used)g(for)f +(the)i(ab)s(erration)e(and)g(ligh)m(t)g(de\015ection)h(corrections)g +(so)427 4944 y(that)i(the)g(routines)f(sla)p Fq(_)p FA(AMP)g(\(or)h +(sla)p Fq(_)p FA(AMPQK\))f(and)g(sla)p Fq(_)p FA(MAP)g(\(or)h(sla)p +Fq(_)p FA(MAPQK\))f(are)427 5057 y(accurate)d(in)m(v)m(erses;)i(ev)m +(en)d(at)g(the)g(edge)g(of)g(the)f(Sun's)f(disc)h(the)g(discrepancy)g +(is)f(only)h(ab)s(out)427 5170 y(1)31 b(nanoarcsecond.)311 +5327 y(4.)46 b(Where)31 b(m)m(ultiple)e(apparen)m(t)h(places)h(are)g +(to)g(b)s(e)f(con)m(v)m(erted)i(to)g(mean)f(places,)f(for)h(a)g +(\014xed)f(date)427 5440 y(and)35 b(equino)m(x,)h(it)e(is)h(more)g +(e\016cien)m(t)g(to)h(use)f(the)g(sla)p Fq(_)p FA(MAPP)-8 +b(A)36 b(routine)e(to)i(compute)f(the)g(re-)427 5553 +y(quired)29 b(parameters)i(once,)g(follo)m(w)m(ed)f(b)m(y)g(one)h(call) +e(to)j(sla)p Fq(_)p FA(AMPQK)d(p)s(er)g(star.)p eop +%%Page: 11 13 +11 12 bop 0 52 a Ft(SUN/67.45)3252 b FA(11)0 351 y Fy(REFERENCES)44 +b FA(:)311 578 y(1.)i(1984)32 b Fn(Astr)-5 b(onomic)g(al)36 +b(A)n(lmanac)p FA(,)31 b(pp)e(B39-B41.)311 744 y(2.)46 +b(Lederle)30 b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h Fn(Astr.Astr)-5 +b(ophys.)33 b Fy(134)p FA(,)e(1-6.)p 0 915 3780 8 v 0 +1028 a Fu(SLA)p Fk(_)p Fu(AMPQK)400 b Fj(Quic)m(k)38 +b(Apparen)m(t)f(to)h(Mean)402 b Fu(SLA)p Fk(_)p Fu(AMPQK)0 +1379 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)30 b(star)g([)15 +b Fi(\013;)g(\016)20 b FA(])30 b(from)f(geo)s(cen)m(tric)i(apparen)m(t) +f(to)g(mean)f(place)h(\(p)s(ost)f(IA)m(U)i(1976\).)42 +b(Use)227 1491 y(of)31 b(this)f(routine)g(is)f(appropriate)h(when)g +(e\016ciency)h(is)e(imp)s(ortan)m(t)h(and)g(where)h(man)m(y)g(star)g(p) +s(ositions)227 1604 y(are)38 b(all)d(to)j(b)s(e)e(transformed)h(for)f +(one)h(ep)s(o)s(c)m(h)g(and)f(equino)m(x.)60 b(The)37 +b(star-indep)s(enden)m(t)e(parameters)227 1717 y(can)c(b)s(e)f +(obtained)f(b)m(y)i(calling)e(the)h(sla)p Fq(_)p FA(MAPP)-8 +b(A)31 b(routine.)0 1905 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_AMPQK)g(\(RA,)g(DA,)h(AMPRMS,)f(RM,)h(DM\))0 2313 +y Fy(GIVEN)e FA(:)277 2459 y Fn(RA,D)n(A)439 b Fy(D)565 +b FA(apparen)m(t)31 b([)15 b Fi(\013;)g(\016)20 b FA(])31 +b(\(radians\))277 2572 y Fn(AMPRMS)325 b Fy(D\(21\))379 +b FA(star-indep)s(enden)m(t)29 b(mean-to-apparen)m(t)j(parameters:)537 +2685 y(\(1\))1006 b(time)30 b(in)m(terv)-5 b(al)30 b(for)g(prop)s(er)f +(motion)h(\(Julian)e(y)m(ears\))499 2798 y(\(2-4\))969 +b(barycen)m(tric)30 b(p)s(osition)f(of)h(the)h(Earth)f(\(A)m(U\))499 +2911 y(\(5-7\))969 b(helio)s(cen)m(tric)29 b(direction)g(of)i(the)f +(Earth)g(\(unit)g(v)m(ector\))537 3024 y(\(8\))1006 b(\(gra)m +(vitational)52 b(radius)e(of)i(Sun\))p Fl(\002)p FA(2)p +Fi(=)p FA(\(Sun-Earth)e(dis-)1658 3137 y(tance\))477 +3250 y(\(9-11\))946 b Fy(v)p FA(:)41 b(barycen)m(tric)30 +b(Earth)g(v)m(elo)s(cit)m(y)h(in)e(units)g(of)i(c)514 +3396 y(\(12\))1658 3290 y Ff(q)p 1741 3290 302 4 v 106 +x FA(1)21 b Fl(\000)f(j)p Fy(v)p Fl(j)2003 3354 y Fr(2)454 +3515 y FA(\(13-21\))924 b(precession/n)m(utation)30 b(3)21 +b Fl(\002)f FA(3)30 b(matrix)0 3966 y Fy(RETURNED)46 +b FA(:)277 4138 y Fn(RM,DM)409 b Fy(D)565 b FA(mean)31 +b([)15 b Fi(\013;)g(\016)20 b FA(])30 b(\(radians\))0 +4598 y Fy(NOTES)44 b FA(:)311 4824 y(1.)i(The)32 b(accuracy)h(is)d +(limited)g(b)m(y)i(the)g(routine)f(sla)p Fq(_)p FA(EVP)-8 +b(,)31 b(called)g(b)m(y)h(sla)p Fq(_)p FA(MAPP)-8 b(A,)32 +b(whic)m(h)f(com-)427 4937 y(putes)g(the)g(Earth)g(p)s(osition)e(and)h +(v)m(elo)s(cit)m(y)h(using)f(the)h(metho)s(ds)f(of)h(Stump\013.)41 +b(The)31 b(maxim)m(um)427 5050 y(error)f(is)g(ab)s(out)g(0.3)h +(milliarcsecond.)311 5216 y(2.)46 b(Iterativ)m(e)41 b(tec)m(hniques)f +(are)g(used)g(for)f(the)i(ab)s(erration)e(and)g(ligh)m(t)g +(de\015ection)h(corrections)g(so)427 5329 y(that)i(the)g(routines)f +(sla)p Fq(_)p FA(AMP)g(\(or)h(sla)p Fq(_)p FA(AMPQK\))f(and)g(sla)p +Fq(_)p FA(MAP)g(\(or)h(sla)p Fq(_)p FA(MAPQK\))f(are)427 +5441 y(accurate)d(in)m(v)m(erses;)i(ev)m(en)d(at)g(the)g(edge)g(of)g +(the)f(Sun's)f(disc)h(the)g(discrepancy)g(is)f(only)h(ab)s(out)427 +5554 y(1)31 b(nanoarcsecond.)p eop +%%Page: 12 14 +12 13 bop 0 52 a FA(12)0 351 y Fy(REFERENCES)44 b FA(:)311 +537 y(1.)i(1984)32 b Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)p +FA(,)31 b(pp)e(B39-B41.)311 681 y(2.)46 b(Lederle)30 +b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h Fn(Astr.Astr)-5 b(ophys.)33 +b Fy(134)p FA(,)e(1-6.)p 0 807 3780 8 v 0 920 a Fu(SLA)p +Fk(_)p Fu(A)l(OP)709 b Fj(Apparen)m(t)38 b(to)g(Observ)m(ed)710 +b Fu(SLA)p Fk(_)p Fu(A)l(OP)0 1270 y Fy(A)m(CTION)44 +b FA(:)c(Apparen)m(t)31 b(to)g(observ)m(ed)f(place,)h(for)f(optical)g +(sources)g(distan)m(t)h(from)e(the)i(solar)f(system.)0 +1458 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_AOP)g(\(RAP,)h(DAP,)f +(DATE,)h(DUT,)f(ELONGM,)g(PHIM,)g(HM,)h(XP,)g(YP,)1096 +1570 y(TDK,)g(PMB,)f(RH,)h(WL,)g(TLR,)g(AOB,)f(ZOB,)h(HOB,)g(DOB,)f +(ROB\))0 1911 y Fy(GIVEN)f FA(:)277 2057 y Fn(RAP,D)n(AP)315 +b Fy(D)565 b FA(geo)s(cen)m(tric)32 b(apparen)m(t)e([)15 +b Fi(\013;)g(\016)21 b FA(])30 b(\(radians\))277 2170 +y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(UTC)140 b(date/time)i(\(Mo)s +(di\014ed)e(Julian)e(Date,)1658 2283 y(JD)p Fl(\000)p +FA(2400000.5\))277 2396 y Fn(DUT)534 b Fy(D)565 b FA(\001UT:)30 +b(UT1)p Fl(\000)p FA(UTC)g(\(UTC)g(seconds\))277 2509 +y Fn(ELONGM)327 b Fy(D)565 b FA(observ)m(er's)31 b(mean)f(longitude)f +(\(radians,)h(east)h(+v)m(e\))277 2622 y Fn(PHIM)489 +b Fy(D)565 b FA(observ)m(er's)31 b(mean)f(geo)s(detic)h(latitude)f +(\(radians\))277 2735 y Fn(HM)586 b Fy(D)565 b FA(observ)m(er's)31 +b(heigh)m(t)f(ab)s(o)m(v)m(e)i(sea)f(lev)m(el)f(\(metres\))277 +2848 y Fn(XP,YP)448 b Fy(D)565 b FA(p)s(olar)29 b(motion)h([)15 +b Fi(x;)g(y)k FA(])31 b(co)s(ordinates)f(\(radians\))277 +2961 y Fn(TDK)532 b Fy(D)565 b FA(lo)s(cal)147 b(am)m(bien)m(t)h(temp)s +(erature)f(\(degrees)h(K;)1658 3074 y(std=273.155D0\))277 +3186 y Fn(PMB)528 b Fy(D)565 b FA(lo)s(cal)30 b(atmospheric)g(pressure) +f(\(mB;)i(std=1013.25D0\))277 3299 y Fn(RH)602 b Fy(D)565 +b FA(lo)s(cal)30 b(relativ)m(e)g(h)m(umidit)m(y)f(\(in)g(the)i(range)f +(0D0)17 b({)e(1D0\))277 3412 y Fn(WL)588 b Fy(D)565 b +FA(e\013ectiv)m(e)32 b(w)m(a)m(v)m(elength)g(\()p Fi(\026)p +FA(m,)e Fn(e.g.)g FA(0.55D0\))277 3525 y Fn(TLR)548 b +Fy(D)565 b FA(trop)s(ospheric)32 b(lapse)h(rate)i(\(degrees)f(K)g(p)s +(er)f(metre,)i Fn(e.g.)1658 3638 y FA(0.0065D0\))0 3976 +y Fy(RETURNED)46 b FA(:)277 4122 y Fn(A)n(OB)536 b Fy(D)565 +b FA(observ)m(ed)31 b(azim)m(uth)f(\(radians:)39 b(N=0,)31 +b(E=90)3236 4089 y Fm(\016)3276 4122 y FA(\))277 4235 +y Fn(ZOB)546 b Fy(D)565 b FA(observ)m(ed)31 b(zenith)e(distance)h +(\(radians\))277 4348 y Fn(HOB)534 b Fy(D)565 b FA(observ)m(ed)31 +b(Hour)f(Angle)g(\(radians\))277 4461 y Fn(DOB)533 b +Fy(D)565 b FA(observ)m(ed)31 b Fi(\016)j FA(\(radians\))277 +4574 y Fn(R)n(OB)538 b Fy(D)565 b FA(observ)m(ed)31 b +Fi(\013)f FA(\(radians\))0 4912 y Fy(NOTES)44 b FA(:)311 +5097 y(1.)i(This)28 b(routine)h(returns)f(zenith)h(distance)g(rather)h +(than)f(elev)-5 b(ation)30 b(in)e(order)h(to)i(re\015ect)f(the)g(fact) +427 5210 y(that)h(no)g(allo)m(w)m(ance)g(is)e(made)h(for)h(depression)d +(of)j(the)f(horizon.)311 5354 y(2.)46 b(The)30 b(accuracy)i(of)f(the)g +(result)e(is)h(limited)e(b)m(y)j(the)g(corrections)g(for)f(refraction.) +41 b(Pro)m(viding)29 b(the)427 5467 y(meteorological)j(parameters)f +(are)g(kno)m(wn)f(accurately)h(and)f(there)h(are)g(no)f(gross)h(lo)s +(cal)f(e\013ects,)427 5580 y(the)f(predicted)e(azim)m(uth)h(and)g(elev) +-5 b(ation)28 b(should)e(b)s(e)i(within)e(ab)s(out)i(0)2869 +5543 y Fh(0)l(0)2873 5580 y Fi(:)p FA(1)h(for)f Fi(\020)k(<)25 +b FA(70)3367 5547 y Fm(\016)3407 5580 y FA(.)40 b(Ev)m(en)29 +b(at)427 5693 y(a)i(top)s(o)s(cen)m(tric)f(zenith)g(distance)g(of)g(90) +1800 5660 y Fm(\016)1840 5693 y FA(,)h(the)f(accuracy)i(in)c(elev)-5 +b(ation)31 b(should)d(b)s(e)h(b)s(etter)i(than)p eop +%%Page: 13 15 +13 14 bop 0 52 a Ft(SUN/67.45)3252 b FA(13)427 351 y(1)21 +b(arcmin)m(ute;)j(useful)19 b(results)g(are)i(a)m(v)-5 +b(ailable)20 b(for)g(a)h(further)f(3)2512 318 y Fm(\016)2551 +351 y FA(,)j(b)s(ey)m(ond)d(whic)m(h)f(the)i(sla)p Fq(_)p +FA(REFR)m(O)427 464 y(routine)26 b(returns)f(a)i(\014xed)f(v)-5 +b(alue)27 b(of)f(the)h(refraction.)39 b(The)27 b(complemen)m(tary)f +(routines)g(sla)p Fq(_)p FA(A)m(OP)427 577 y(\(or)39 +b(sla)p Fq(_)p FA(A)m(OPQK\))f(and)g(sla)p Fq(_)p FA(O)m(AP)g(\(or)h +(sla)p Fq(_)p FA(O)m(APQK\))f(are)h(self-consisten)m(t)g(to)g(b)s +(etter)g(than)427 690 y(1)31 b(microarcsecond)f(all)g(o)m(v)m(er)h(the) +g(celestial)f(sphere.)311 836 y(3.)46 b(It)c(is)e(advisable)h(to)h(tak) +m(e)h(great)g(care)f(with)e(units,)j(as)f(ev)m(en)g(unlik)m(ely)d(v)-5 +b(alues)41 b(of)h(the)f(input)427 948 y(parameters)31 +b(are)g(accepted)g(and)f(pro)s(cessed)g(in)f(accordance)j(with)d(the)i +(mo)s(dels)e(used.)311 1094 y(4.)46 b Fn(App)-5 b(ar)g(ent)35 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])25 b(means)e(the)i(geo)s(cen)m +(tric)g(apparen)m(t)f(righ)m(t)g(ascension)f(and)h(declination,)g(whic) +m(h)427 1207 y(is)44 b(obtained)g(from)g(a)h(catalogue)h(mean)f(place)f +(b)m(y)h(allo)m(wing)e(for)h(space)h(motion,)j(parallax,)427 +1320 y(precession,)34 b(n)m(utation,)g(ann)m(ual)f(ab)s(erration,)g +(and)g(the)h(Sun's)e(gra)m(vitational)i(lens)e(e\013ect.)52 +b(F)-8 b(or)427 1433 y(star)32 b(p)s(ositions)d(in)h(the)i(FK5)g +(system)g(\()p Fn(i.e.)f FA(J2000\),)j(these)e(e\013ects)g(can)g(b)s(e) +f(applied)e(b)m(y)j(means)427 1546 y(of)38 b(the)g(sla)p +Fq(_)p FA(MAP)f Fn(etc.)g FA(routines.)61 b(Starting)37 +b(from)g(other)h(mean)f(place)h(systems,)i(additional)427 +1658 y(transformations)22 b(will)e(b)s(e)i(needed;)j(for)d(example,)i +(FK4)f(\()p Fn(i.e.)g FA(B1950\))i(mean)d(places)h(w)m(ould)e(\014rst) +427 1771 y(ha)m(v)m(e)32 b(to)f(b)s(e)f(con)m(v)m(erted)i(to)f(FK5,)g +(whic)m(h)e(can)i(b)s(e)e(done)h(with)g(the)g(sla)p Fq(_)p +FA(FK425)h Fn(etc.)f FA(routines.)311 1917 y(5.)46 b +Fn(Observe)-5 b(d)49 b FA([)15 b Fi(Az)t(;)g(E)5 b(l)42 +b FA(])d(means)g(the)g(p)s(osition)d(that)k(w)m(ould)d(b)s(e)i(seen)f +(b)m(y)h(a)g(p)s(erfect)g(theo)s(dolite)427 2030 y(lo)s(cated)33 +b(at)h(the)f(observ)m(er.)49 b(This)31 b(is)h(obtained)g(from)g(the)h +(geo)s(cen)m(tric)h(apparen)m(t)f([)15 b Fi(\013;)g(\016)21 +b FA(])33 b(b)m(y)g(al-)427 2143 y(lo)m(wing)25 b(for)g(Earth)h(orien)m +(tation)g(and)f(diurnal)d(ab)s(erration,)k(rotating)g(from)g(equator)g +(to)g(horizon)427 2256 y(co)s(ordinates,)f(and)d(then)h(adjusting)f +(for)h(refraction.)38 b(The)23 b([)15 b Fi(h;)g(\016)20 +b FA(])j(is)g(obtained)f(b)m(y)h(rotating)h(bac)m(k)427 +2369 y(in)m(to)38 b(equatorial)f(co)s(ordinates,)i(using)d(the)h(geo)s +(detic)h(latitude)f(corrected)h(for)f(p)s(olar)f(motion,)427 +2481 y(and)27 b(is)f(the)i(p)s(osition)d(that)j(w)m(ould)e(b)s(e)g +(seen)i(b)m(y)f(a)g(p)s(erfect)g(equatorial)g(lo)s(cated)h(at)g(the)f +(observ)m(er)427 2594 y(and)c(with)f(its)h(p)s(olar)f(axis)h(aligned)f +(to)i(the)g(Earth's)f(axis)g(of)h(rotation)f(\()p Fn(n.b.)h +FA(not)f(to)h(the)g(refracted)427 2707 y(p)s(ole\).)40 +b(Finally)-8 b(,)29 b(the)i Fi(\013)g FA(is)e(obtained)h(b)m(y)g +(subtracting)g(the)g Fn(h)38 b FA(from)30 b(the)h(lo)s(cal)e(apparen)m +(t)i(ST.)311 2853 y(6.)46 b(T)-8 b(o)37 b(predict)e(the)h(required)e +(setting)i(of)g(a)g(real)g(telescop)s(e,)i(the)e(observ)m(ed)g(place)g +(pro)s(duced)f(b)m(y)427 2966 y(this)28 b(routine)f(w)m(ould)g(ha)m(v)m +(e)j(to)f(b)s(e)e(adjusted)h(for)g(the)h(tilt)e(of)i(the)f(azim)m(uth)g +(or)h(p)s(olar)e(axis)h(of)g(the)427 3079 y(moun)m(ting)e(\(with)f +(appropriate)g(corrections)i(for)f(moun)m(t)g(\015exures\),)h(for)f +(non-p)s(erp)s(endicularit)m(y)427 3191 y(b)s(et)m(w)m(een)j(the)g +(moun)m(ting)e(axes,)j(for)e(the)g(p)s(osition)e(of)j(the)f(rotator)i +(axis)d(and)h(the)h(p)s(oin)m(ting)d(axis)427 3304 y(relativ)m(e)38 +b(to)g(it,)g(for)f(tub)s(e)g(\015exure,)h(for)f(gear)i(and)d(enco)s +(der)h(errors,)i(and)e(\014nally)e(for)i(enco)s(der)427 +3417 y(zero)c(p)s(oin)m(ts.)45 b(Some)32 b(telescop)s(es)g(w)m(ould,)g +(of)g(course,)h(exhibit)d(other)i(prop)s(erties)f(whic)m(h)g(w)m(ould) +427 3530 y(need)f(to)i(b)s(e)d(accoun)m(ted)j(for)e(at)h(the)g +(appropriate)e(p)s(oin)m(t)h(in)f(the)h(sequence.)311 +3676 y(7.)46 b(This)36 b(routine)g(tak)m(es)i(time)f(to)h(execute,)i +(due)d(mainly)e(to)j(the)f(rigorous)f(in)m(tegration)h(used)g(to)427 +3789 y(ev)-5 b(aluate)33 b(the)f(refraction.)44 b(F)-8 +b(or)33 b(pro)s(cessing)d(m)m(ultiple)f(stars)j(for)g(one)g(lo)s +(cation)f(and)g(time,)h(call)427 3902 y(sla)p Fq(_)p +FA(A)m(OPP)-8 b(A)41 b(once)h(follo)m(w)m(ed)f(b)m(y)g(one)g(call)g(p)s +(er)f(star)h(to)h(sla)p Fq(_)p FA(A)m(OPQK.)e(Where)h(a)h(range)f(of) +427 4014 y(times)31 b(within)d(a)j(limited)e(p)s(erio)s(d)f(of)j(a)h +(few)e(hours)g(is)g(in)m(v)m(olv)m(ed,)h(and)f(the)h(highest)f +(precision)f(is)427 4127 y(not)g(required,)e(call)g(sla)p +Fq(_)p FA(A)m(OPP)-8 b(A)28 b(once,)i(follo)m(w)m(ed)e(b)m(y)g(a)g +(call)g(to)h(sla)p Fq(_)p FA(A)m(OPP)-8 b(A)g(T)28 b(eac)m(h)h(time)f +(the)427 4240 y(time)i(c)m(hanges,)i(follo)m(w)m(ed)e(b)m(y)g(one)h +(call)f(p)s(er)f(star)h(to)i(sla)p Fq(_)p FA(A)m(OPQK.)311 +4386 y(8.)46 b(The)26 b(D)m(A)-8 b(TE)27 b(argumen)m(t)g(is)e(UTC)h +(expressed)g(as)g(an)g(MJD.)h(This)e(is,)h(strictly)f(sp)s(eaking,)i +(wrong,)427 4499 y(b)s(ecause)33 b(of)g(leap)g(seconds.)48 +b(Ho)m(w)m(ev)m(er,)35 b(as)e(long)g(as)g(the)g(\001UT)f(and)h(the)g +(UTC)f(are)h(consisten)m(t)427 4612 y(there)j(are)h(no)f +(di\016culties,)f(except)i(during)d(a)i(leap)g(second.)57 +b(In)36 b(this)f(case,)j(the)f(start)f(of)g(the)427 4725 +y(61st)i(second)f(of)g(the)g(\014nal)f(min)m(ute)g(should)f(b)s(egin)g +(a)j(new)e(MJD)h(da)m(y)h(and)e(the)h(old)f(pre-leap)427 +4837 y(\001UT)i(should)e(con)m(tin)m(ue)i(to)h(b)s(e)e(used.)63 +b(As)38 b(the)g(61st)h(second)f(completes,)j(the)d(MJD)g(should)427 +4950 y(rev)m(ert)31 b(to)h(the)e(start)h(of)g(the)f(da)m(y)h(as,)g(sim) +m(ultaneously)-8 b(,)29 b(the)h(\001UT)g(c)m(hanges)h(b)m(y)g(one)f +(second)h(to)427 5063 y(its)f(p)s(ost-leap)g(new)g(v)-5 +b(alue.)311 5209 y(9.)46 b(The)27 b(\001UT)h(\(UT1)p +Fl(\000)p FA(UTC\))g(is)e(tabulated)i(in)e(IERS)h(circulars)f(and)h +(elsewhere.)39 b(It)28 b(increases)g(b)m(y)427 5322 y(exactly)k(one)f +(second)f(at)i(the)f(end)f(of)h(eac)m(h)g(UTC)f(leap)h(second,)g(in)m +(tro)s(duced)e(in)g(order)h(to)i(k)m(eep)427 5435 y(\001UT)e(within)e +Fl(\006)p FA(0)1066 5402 y Fr(s)1071 5435 y Fi(:)p FA(9.)266 +5580 y(10.)46 b(IMPOR)-8 b(T)g(ANT)39 b({)g(T)-8 b(AKE)38 +b(CARE)g(WITH)h(THE)f(LONGITUDE)h(SIGN)f(CONVENTION.)427 +5693 y(The)33 b(longitude)f(required)g(b)m(y)h(the)g(presen)m(t)h +(routine)e(is)h Fy(east-p)s(ositiv)m(e)p FA(,)h(in)e(accordance)j(with) +p eop +%%Page: 14 16 +14 15 bop 0 52 a FA(14)427 351 y(geographical)34 b(con)m(v)m(en)m(tion) +g(\(and)f(righ)m(t-handed\).)49 b(In)32 b(particular,)h(note)h(that)g +(the)f(longitudes)427 464 y(returned)d(b)m(y)i(the)f(sla)p +Fq(_)p FA(OBS)f(routine)h(are)h(w)m(est-p)s(ositiv)m(e)f(\(as)h(in)e +(the)i Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)427 577 +y FA(b)s(efore)30 b(1984\))j(and)c(m)m(ust)i(b)s(e)e(rev)m(ersed)i(in)e +(sign)g(b)s(efore)h(use)h(in)e(the)h(presen)m(t)h(routine.)266 +715 y(11.)46 b(The)37 b(p)s(olar)f(co)s(ordinates)h(XP)-8 +b(,YP)38 b(can)f(b)s(e)g(obtained)f(from)h(IERS)f(circulars)f(and)i +(equiv)-5 b(alen)m(t)427 828 y(publications.)36 b(The)24 +b(maxim)m(um)f(amplitude)g(is)g(ab)s(out)h(0)2373 791 +y Fh(0)m(0)2377 828 y Fi(:)p FA(3.)40 b(If)24 b(XP)-8 +b(,YP)25 b(v)-5 b(alues)24 b(are)h(una)m(v)-5 b(ailable,)427 +941 y(use)31 b(XP=YP=0D0.)43 b(See)32 b(page)g(B60)g(of)f(the)g(1988)i +Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)h FA(for)30 +b(a)i(de\014nition)427 1054 y(of)f(the)f(t)m(w)m(o)i(angles.)266 +1191 y(12.)46 b(The)35 b(heigh)m(t)g(ab)s(o)m(v)m(e)h(sea)f(lev)m(el)g +(of)g(the)g(observing)f(station,)i(HM,)g(can)f(b)s(e)g(obtained)f(from) +g(the)427 1304 y Fn(Astr)-5 b(onomic)g(al)39 b(A)n(lmanac)h +FA(\(Section)35 b(J)f(in)f(the)i(1988)h(edition\),)f(or)f(via)g(the)h +(routine)e(sla)p Fq(_)p FA(OBS.)427 1417 y(If)h(P)-8 +b(,)34 b(the)g(pressure)e(in)h(mB,)h(is)f(a)m(v)-5 b(ailable,)34 +b(an)f(adequate)i(estimate)g(of)f(HM)g(can)g(b)s(e)f(obtained)427 +1530 y(from)d(the)h(follo)m(wing)e(expression:)597 1668 +y Fq(HM=-29.3D0*TSL*LOG\(P/1013)o(.25D)o(0\))427 1805 +y FA(where)c(TSL)g(is)f(the)i(appro)m(ximate)f(sea-lev)m(el)h(air)f +(temp)s(erature)g(in)f(degrees)i(K)f(\(see)i Fn(Astr)-5 +b(ophysi-)427 1918 y(c)g(al)27 b(Quantities)p FA(,)f(C.W.Allen,)e(3rd)f +(edition,)h Fl(x)p FA(52\).)40 b(Similarly)-8 b(,)22 +b(if)g(the)i(pressure)e(P)h(is)g(not)h(kno)m(wn,)427 +2031 y(it)30 b(can)h(b)s(e)f(estimated)g(from)g(the)h(heigh)m(t)f(of)g +(the)h(observing)e(station,)i(HM)g(as)g(follo)m(ws:)597 +2169 y Fq(P=1013.25D0*EXP\(-HM/\(29.3)o(D0*T)o(SL\)\))427 +2307 y FA(Note,)26 b(ho)m(w)m(ev)m(er,)f(that)e(the)f(refraction)g(is)f +(prop)s(ortional)f(to)j(the)g(pressure)e(and)g(that)i(an)f(accurate)427 +2420 y(P)30 b(v)-5 b(alue)30 b(is)g(imp)s(ortan)m(t)f(for)h(precise)g +(w)m(ork.)266 2557 y(13.)46 b(The)31 b(azim)m(uths)g +Fn(etc.)g FA(used)g(b)m(y)g(the)h(presen)m(t)f(routine)g(are)h(with)e +(resp)s(ect)h(to)h(the)g(celestial)f(p)s(ole.)427 2670 +y(Corrections)f(to)h(the)g(terrestrial)e(p)s(ole)h(can)g(b)s(e)g +(computed)g(using)f(sla)p Fq(_)p FA(POLMO.)p 0 2778 3780 +8 v 0 2891 a Fu(SLA)p Fk(_)p Fu(A)l(OPP)-11 b(A)464 b +Fj(Appt-to-Obs)37 b(P)m(arameters)462 b Fu(SLA)p Fk(_)p +Fu(A)l(OPP)-11 b(A)0 3241 y Fy(A)m(CTION)44 b FA(:)60 +b(Pre-compute)40 b(the)h(set)f(of)g(apparen)m(t)h(to)g(observ)m(ed)f +(place)g(parameters)g(required)e(b)m(y)i(the)227 3354 +y(\\quic)m(k")31 b(routines)e(sla)p Fq(_)p FA(A)m(OPQK)h(and)f(sla)p +Fq(_)p FA(O)m(APQK.)0 3542 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_AOPPA)g(\(DATE,)g(DUT,)g(ELONGM,)g(PHIM,)h(HM,)f(XP,)h(YP,)1192 +3655 y(TDK,)f(PMB,)h(RH,)g(WL,)f(TLR,)h(AOPRMS\))0 3971 +y Fy(GIVEN)e FA(:)277 4117 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 +b FA(UTC)140 b(date/time)i(\(Mo)s(di\014ed)e(Julian)e(Date,)1658 +4230 y(JD)p Fl(\000)p FA(2400000.5\))277 4343 y Fn(DUT)534 +b Fy(D)565 b FA(\001UT:)30 b(UT1)p Fl(\000)p FA(UTC)g(\(UTC)g +(seconds\))277 4456 y Fn(ELONGM)327 b Fy(D)565 b FA(observ)m(er's)31 +b(mean)f(longitude)f(\(radians,)h(east)h(+v)m(e\))277 +4568 y Fn(PHIM)489 b Fy(D)565 b FA(observ)m(er's)31 b(mean)f(geo)s +(detic)h(latitude)f(\(radians\))277 4681 y Fn(HM)586 +b Fy(D)565 b FA(observ)m(er's)31 b(heigh)m(t)f(ab)s(o)m(v)m(e)i(sea)f +(lev)m(el)f(\(metres\))277 4794 y Fn(XP,YP)448 b Fy(D)565 +b FA(p)s(olar)29 b(motion)h([)15 b Fi(x;)g(y)k FA(])31 +b(co)s(ordinates)f(\(radians\))277 4907 y Fn(TDK)532 +b Fy(D)565 b FA(lo)s(cal)147 b(am)m(bien)m(t)h(temp)s(erature)f +(\(degrees)h(K;)1658 5020 y(std=273.155D0\))277 5133 +y Fn(PMB)528 b Fy(D)565 b FA(lo)s(cal)30 b(atmospheric)g(pressure)f +(\(mB;)i(std=1013.25D0\))277 5246 y Fn(RH)602 b Fy(D)565 +b FA(lo)s(cal)30 b(relativ)m(e)g(h)m(umidit)m(y)f(\(in)g(the)i(range)f +(0D0)17 b({)e(1D0\))277 5359 y Fn(WL)588 b Fy(D)565 b +FA(e\013ectiv)m(e)32 b(w)m(a)m(v)m(elength)g(\()p Fi(\026)p +FA(m,)e Fn(e.g.)g FA(0.55D0\))277 5472 y Fn(TLR)548 b +Fy(D)565 b FA(trop)s(ospheric)32 b(lapse)h(rate)i(\(degrees)f(K)g(p)s +(er)f(metre,)i Fn(e.g.)1658 5585 y FA(0.0065D0\))p eop +%%Page: 15 17 +15 16 bop 0 52 a Ft(SUN/67.45)3252 b FA(15)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(A)n(OPRMS)339 b Fy(D\(14\))379 b +FA(star-indep)s(enden)m(t)29 b(apparen)m(t-to-observ)m(ed)j(parameter-) +1658 610 y(s:)537 723 y(\(1\))1006 b(geo)s(detic)31 b(latitude)f +(\(radians\))502 836 y(\(2,3\))971 b(sine)29 b(and)h(cosine)g(of)h(geo) +s(detic)g(latitude)537 949 y(\(4\))1006 b(magnitude)30 +b(of)g(diurnal)e(ab)s(erration)h(v)m(ector)537 1062 y(\(5\))1006 +b(heigh)m(t)30 b(\(HM\))537 1175 y(\(6\))1006 b(am)m(bien)m(t)31 +b(temp)s(erature)f(\(TDK\))537 1288 y(\(7\))1006 b(pressure)29 +b(\(PMB\))537 1401 y(\(8\))1006 b(relativ)m(e)31 b(h)m(umidit)m(y)d +(\(RH\))537 1514 y(\(9\))1006 b(w)m(a)m(v)m(elength)32 +b(\(WL\))514 1626 y(\(10\))984 b(lapse)30 b(rate)h(\(TLR\))456 +1739 y(\(11,12\))927 b(refraction)30 b(constan)m(ts)i(A)e(and)g(B)h +(\(radians\))514 1852 y(\(13\))984 b(longitude)41 b(+)h(eqn)h(of)f +(equino)m(xes)g(+)h(\\sidereal)e(\001UT")1658 1965 y(\(radians\))514 +2078 y(\(14\))984 b(lo)s(cal)30 b(apparen)m(t)g(sidereal)f(time)h +(\(radians\))0 2401 y Fy(NOTES)44 b FA(:)311 2584 y(1.)i(It)c(is)e +(advisable)h(to)h(tak)m(e)h(great)g(care)f(with)e(units,)j(as)f(ev)m +(en)g(unlik)m(ely)d(v)-5 b(alues)41 b(of)h(the)f(input)427 +2697 y(parameters)31 b(are)g(accepted)g(and)f(pro)s(cessed)g(in)f +(accordance)j(with)d(the)i(mo)s(dels)e(used.)311 2839 +y(2.)46 b(The)26 b(D)m(A)-8 b(TE)27 b(argumen)m(t)g(is)e(UTC)h +(expressed)g(as)g(an)g(MJD.)h(This)e(is,)h(strictly)f(sp)s(eaking,)i +(wrong,)427 2952 y(b)s(ecause)33 b(of)g(leap)g(seconds.)48 +b(Ho)m(w)m(ev)m(er,)35 b(as)e(long)g(as)g(the)g(\001UT)f(and)h(the)g +(UTC)f(are)h(consisten)m(t)427 3065 y(there)j(are)h(no)f +(di\016culties,)f(except)i(during)d(a)i(leap)g(second.)57 +b(In)36 b(this)f(case,)j(the)f(start)f(of)g(the)427 3178 +y(61st)i(second)f(of)g(the)g(\014nal)f(min)m(ute)g(should)f(b)s(egin)g +(a)j(new)e(MJD)h(da)m(y)h(and)e(the)h(old)f(pre-leap)427 +3291 y(\001UT)i(should)e(con)m(tin)m(ue)i(to)h(b)s(e)e(used.)63 +b(As)38 b(the)g(61st)h(second)f(completes,)j(the)d(MJD)g(should)427 +3404 y(rev)m(ert)31 b(to)h(the)e(start)h(of)g(the)f(da)m(y)h(as,)g(sim) +m(ultaneously)-8 b(,)29 b(the)h(\001UT)g(c)m(hanges)h(b)m(y)g(one)f +(second)h(to)427 3516 y(its)f(p)s(ost-leap)g(new)g(v)-5 +b(alue.)311 3658 y(3.)46 b(The)27 b(\001UT)h(\(UT1)p +Fl(\000)p FA(UTC\))g(is)e(tabulated)i(in)e(IERS)h(circulars)f(and)h +(elsewhere.)39 b(It)28 b(increases)g(b)m(y)427 3771 y(exactly)k(one)f +(second)f(at)i(the)f(end)f(of)h(eac)m(h)g(UTC)f(leap)h(second,)g(in)m +(tro)s(duced)e(in)g(order)h(to)i(k)m(eep)427 3884 y(\001UT)38 +b(within)d Fl(\006)p FA(0)1081 3851 y Fr(s)1086 3884 +y Fi(:)p FA(9.)64 b(The)37 b(\\sidereal)g(\001UT")h(whic)m(h)f(forms)g +(part)h(of)g(A)m(OPRMS\(13\))h(is)e(the)427 3997 y(same)27 +b(quan)m(tit)m(y)-8 b(,)29 b(but)d(con)m(v)m(erted)i(from)f(solar)f(to) +i(sidereal)d(seconds)i(and)f(expressed)g(in)g(radians.)311 +4139 y(4.)46 b(IMPOR)-8 b(T)g(ANT)39 b({)g(T)-8 b(AKE)38 +b(CARE)g(WITH)h(THE)f(LONGITUDE)h(SIGN)f(CONVENTION.)427 +4252 y(The)33 b(longitude)f(required)g(b)m(y)h(the)g(presen)m(t)h +(routine)e(is)h Fy(east-p)s(ositiv)m(e)p FA(,)h(in)e(accordance)j(with) +427 4364 y(geographical)f(con)m(v)m(en)m(tion)g(\(and)f(righ)m +(t-handed\).)49 b(In)32 b(particular,)h(note)h(that)g(the)f(longitudes) +427 4477 y(returned)d(b)m(y)i(the)f(sla)p Fq(_)p FA(OBS)f(routine)h +(are)h(w)m(est-p)s(ositiv)m(e)f(\(as)h(in)e(the)i Fn(Astr)-5 +b(onomic)g(al)36 b(A)n(lmanac)427 4590 y FA(b)s(efore)30 +b(1984\))j(and)c(m)m(ust)i(b)s(e)e(rev)m(ersed)i(in)e(sign)g(b)s(efore) +h(use)h(in)e(the)h(presen)m(t)h(routine.)311 4732 y(5.)46 +b(The)37 b(p)s(olar)f(co)s(ordinates)h(XP)-8 b(,YP)38 +b(can)f(b)s(e)g(obtained)f(from)h(IERS)f(circulars)f(and)i(equiv)-5 +b(alen)m(t)427 4845 y(publications.)36 b(The)24 b(maxim)m(um)f +(amplitude)g(is)g(ab)s(out)h(0)2373 4808 y Fh(0)m(0)2377 +4845 y Fi(:)p FA(3.)40 b(If)24 b(XP)-8 b(,YP)25 b(v)-5 +b(alues)24 b(are)h(una)m(v)-5 b(ailable,)427 4958 y(use)31 +b(XP=YP=0D0.)43 b(See)32 b(page)g(B60)g(of)f(the)g(1988)i +Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)h FA(for)30 +b(a)i(de\014nition)427 5071 y(of)f(the)f(t)m(w)m(o)i(angles.)311 +5213 y(6.)46 b(The)35 b(heigh)m(t)g(ab)s(o)m(v)m(e)h(sea)f(lev)m(el)g +(of)g(the)g(observing)f(station,)i(HM,)g(can)f(b)s(e)g(obtained)f(from) +g(the)427 5325 y Fn(Astr)-5 b(onomic)g(al)39 b(A)n(lmanac)h +FA(\(Section)35 b(J)f(in)f(the)i(1988)h(edition\),)f(or)f(via)g(the)h +(routine)e(sla)p Fq(_)p FA(OBS.)427 5438 y(If)h(P)-8 +b(,)34 b(the)g(pressure)e(in)h(mB,)h(is)f(a)m(v)-5 b(ailable,)34 +b(an)f(adequate)i(estimate)g(of)f(HM)g(can)g(b)s(e)f(obtained)427 +5551 y(from)d(the)h(follo)m(wing)e(expression:)597 5693 +y Fq(HM=-29.3D0*TSL*LOG\(P/1013)o(.25D)o(0\))p eop +%%Page: 16 18 +16 17 bop 0 52 a FA(16)427 351 y(where)25 b(TSL)g(is)f(the)i(appro)m +(ximate)f(sea-lev)m(el)h(air)f(temp)s(erature)g(in)f(degrees)i(K)f +(\(see)i Fn(Astr)-5 b(ophysi-)427 464 y(c)g(al)27 b(Quantities)p +FA(,)f(C.W.Allen,)e(3rd)f(edition,)h Fl(x)p FA(52\).)40 +b(Similarly)-8 b(,)22 b(if)g(the)i(pressure)e(P)h(is)g(not)h(kno)m(wn,) +427 577 y(it)30 b(can)h(b)s(e)f(estimated)g(from)g(the)h(heigh)m(t)f +(of)g(the)h(observing)e(station,)i(HM)g(as)g(follo)m(ws:)597 +748 y Fq(P=1013.25D0*EXP\(-HM/\(29.3)o(D0*T)o(SL\)\))427 +918 y FA(Note,)26 b(ho)m(w)m(ev)m(er,)f(that)e(the)f(refraction)g(is)f +(prop)s(ortional)f(to)j(the)g(pressure)e(and)g(that)i(an)f(accurate)427 +1031 y(P)30 b(v)-5 b(alue)30 b(is)g(imp)s(ortan)m(t)f(for)h(precise)g +(w)m(ork.)p 0 1213 3780 8 v 0 1326 a Fu(SLA)p Fk(_)p +Fu(A)l(OPP)-11 b(A)g(T)172 b Fj(Up)s(date)39 b(Appt-to-Obs)e(P)m +(arameters)172 b Fu(SLA)p Fk(_)p Fu(A)l(OPP)-11 b(A)g(T)0 +1676 y Fy(A)m(CTION)44 b FA(:)k(Recompute)35 b(the)f(sidereal)f(time)h +(in)f(the)h(apparen)m(t)h(to)g(observ)m(ed)f(place)g(star-indep)s +(enden)m(t)227 1789 y(parameter)d(blo)s(c)m(k.)0 1977 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_AOPPAT)f(\(DATE,)h(AOPRMS\))0 +2400 y Fy(GIVEN)f FA(:)277 2546 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(UTC)140 b(date/time)i(\(Mo)s(di\014ed)e(Julian)e(Date,) +1658 2659 y(JD)p Fl(\000)p FA(2400000.5\))277 2771 y +Fn(A)n(OPRMS)339 b Fy(D\(14\))379 b FA(star-indep)s(enden)m(t)29 +b(apparen)m(t-to-observ)m(ed)j(parameter-)1658 2884 y(s:)477 +2997 y(\(1-12\))946 b(not)31 b(required)514 3110 y(\(13\))984 +b(longitude)41 b(+)h(eqn)h(of)f(equino)m(xes)g(+)h(\\sidereal)e +(\001UT")1658 3223 y(\(radians\))514 3336 y(\(14\))984 +b(not)31 b(required)0 3812 y Fy(RETURNED)46 b FA(:)277 +3958 y Fn(A)n(OPRMS)339 b Fy(D\(14\))379 b FA(star-indep)s(enden)m(t)29 +b(apparen)m(t-to-observ)m(ed)j(parameter-)1658 4071 y(s:)477 +4184 y(\(1-13\))946 b(not)31 b(c)m(hanged)514 4297 y(\(14\))984 +b(lo)s(cal)30 b(apparen)m(t)g(sidereal)f(time)h(\(radians\))0 +4773 y Fy(NOTE)44 b FA(:)d(F)-8 b(or)31 b(more)g(information,)d(see)j +(sla)p Fq(_)p FA(A)m(OPP)-8 b(A.)p 0 4955 V 0 5068 a +Fu(SLA)p Fk(_)p Fu(A)l(OPQK)443 b Fj(Quic)m(k)38 b(Appt-to-Observ)m(ed) +443 b Fu(SLA)p Fk(_)p Fu(A)l(OPQK)0 5418 y Fy(A)m(CTION)44 +b FA(:)c(Quic)m(k)30 b(apparen)m(t)h(to)g(observ)m(ed)f(place)h(\(but)f +(see)h(Note)g(8,)g(b)s(elo)m(w\).)0 5606 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_AOPQK)g(\(RAP,)g(DAP,)h(AOPRMS,)e(AOB,)i +(ZOB,)g(HOB,)f(DOB,)h(ROB\))p eop +%%Page: 17 19 +17 18 bop 0 52 a Ft(SUN/67.45)3252 b FA(17)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(RAP,D)n(AP)315 b Fy(D)565 b FA(geo)s(cen)m(tric)32 +b(apparen)m(t)e([)15 b Fi(\013;)g(\016)21 b FA(])30 b(\(radians\))277 +610 y Fn(A)n(OPRMS)339 b Fy(D\(14\))379 b FA(star-indep)s(enden)m(t)29 +b(apparen)m(t-to-observ)m(ed)j(parameter-)1658 723 y(s:)537 +836 y(\(1\))1006 b(geo)s(detic)31 b(latitude)f(\(radians\))502 +949 y(\(2,3\))971 b(sine)29 b(and)h(cosine)g(of)h(geo)s(detic)g +(latitude)537 1062 y(\(4\))1006 b(magnitude)30 b(of)g(diurnal)e(ab)s +(erration)h(v)m(ector)537 1175 y(\(5\))1006 b(heigh)m(t)30 +b(\(metres\))537 1288 y(\(6\))1006 b(am)m(bien)m(t)31 +b(temp)s(erature)f(\(degrees)h(K\))537 1401 y(\(7\))1006 +b(pressure)29 b(\(mB\))537 1514 y(\(8\))1006 b(relativ)m(e)31 +b(h)m(umidit)m(y)d(\(0)16 b({)g(1\))537 1626 y(\(9\))1006 +b(w)m(a)m(v)m(elength)32 b(\()p Fi(\026)p FA(m\))514 +1739 y(\(10\))984 b(lapse)30 b(rate)h(\(degrees)g(K)f(p)s(er)g(metre\)) +456 1852 y(\(11,12\))927 b(refraction)30 b(constan)m(ts)i(A)e(and)g(B)h +(\(radians\))514 1965 y(\(13\))984 b(longitude)41 b(+)h(eqn)h(of)f +(equino)m(xes)g(+)h(\\sidereal)e(\001UT")1658 2078 y(\(radians\))514 +2191 y(\(14\))984 b(lo)s(cal)30 b(apparen)m(t)g(sidereal)f(time)h +(\(radians\))0 2497 y Fy(RETURNED)46 b FA(:)277 2643 +y Fn(A)n(OB)536 b Fy(D)565 b FA(observ)m(ed)31 b(azim)m(uth)f +(\(radians:)39 b(N=0,)31 b(E=90)3236 2610 y Fm(\016)3276 +2643 y FA(\))277 2756 y Fn(ZOB)546 b Fy(D)565 b FA(observ)m(ed)31 +b(zenith)e(distance)h(\(radians\))277 2869 y Fn(HOB)534 +b Fy(D)565 b FA(observ)m(ed)31 b(Hour)f(Angle)g(\(radians\))277 +2982 y Fn(DOB)533 b Fy(D)565 b FA(observ)m(ed)31 b(Declination)e +(\(radians\))277 3095 y Fn(R)n(OB)538 b Fy(D)565 b FA(observ)m(ed)31 +b(Righ)m(t)f(Ascension)g(\(radians\))0 3401 y Fy(NOTES)44 +b FA(:)311 3581 y(1.)i(This)28 b(routine)h(returns)f(zenith)h(distance) +g(rather)h(than)f(elev)-5 b(ation)30 b(in)e(order)h(to)i(re\015ect)f +(the)g(fact)427 3694 y(that)h(no)g(allo)m(w)m(ance)g(is)e(made)h(for)h +(depression)d(of)j(the)f(horizon.)311 3834 y(2.)46 b(The)30 +b(accuracy)i(of)f(the)g(result)e(is)h(limited)e(b)m(y)j(the)g +(corrections)g(for)f(refraction.)41 b(Pro)m(viding)29 +b(the)427 3947 y(meteorological)j(parameters)f(are)g(kno)m(wn)f +(accurately)h(and)f(there)h(are)g(no)f(gross)h(lo)s(cal)f(e\013ects,) +427 4059 y(the)f(predicted)e(azim)m(uth)h(and)g(elev)-5 +b(ation)28 b(should)e(b)s(e)i(within)e(ab)s(out)i(0)2869 +4023 y Fh(0)l(0)2873 4059 y Fi(:)p FA(1)h(for)f Fi(\020)k(<)25 +b FA(70)3367 4026 y Fm(\016)3407 4059 y FA(.)40 b(Ev)m(en)29 +b(at)427 4172 y(a)i(top)s(o)s(cen)m(tric)f(zenith)g(distance)g(of)g(90) +1800 4139 y Fm(\016)1840 4172 y FA(,)h(the)f(accuracy)i(in)c(elev)-5 +b(ation)31 b(should)d(b)s(e)h(b)s(etter)i(than)427 4285 +y(1)21 b(arcmin)m(ute;)j(useful)19 b(results)g(are)i(a)m(v)-5 +b(ailable)20 b(for)g(a)h(further)f(3)2512 4252 y Fm(\016)2551 +4285 y FA(,)j(b)s(ey)m(ond)d(whic)m(h)f(the)i(sla)p Fq(_)p +FA(REFR)m(O)427 4398 y(routine)26 b(returns)f(a)i(\014xed)f(v)-5 +b(alue)27 b(of)f(the)h(refraction.)39 b(The)27 b(complemen)m(tary)f +(routines)g(sla)p Fq(_)p FA(A)m(OP)427 4511 y(\(or)39 +b(sla)p Fq(_)p FA(A)m(OPQK\))f(and)g(sla)p Fq(_)p FA(O)m(AP)g(\(or)h +(sla)p Fq(_)p FA(O)m(APQK\))f(are)h(self-consisten)m(t)g(to)g(b)s +(etter)g(than)427 4624 y(1)31 b(microarcsecond)f(all)g(o)m(v)m(er)h +(the)g(celestial)f(sphere.)311 4763 y(3.)46 b(It)c(is)e(advisable)h(to) +h(tak)m(e)h(great)g(care)f(with)e(units,)j(as)f(ev)m(en)g(unlik)m(ely)d +(v)-5 b(alues)41 b(of)h(the)f(input)427 4876 y(parameters)31 +b(are)g(accepted)g(and)f(pro)s(cessed)g(in)f(accordance)j(with)d(the)i +(mo)s(dels)e(used.)311 5016 y(4.)46 b Fn(App)-5 b(ar)g(ent)35 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])25 b(means)e(the)i(geo)s(cen)m +(tric)g(apparen)m(t)f(righ)m(t)g(ascension)f(and)h(declination,)g(whic) +m(h)427 5128 y(is)44 b(obtained)g(from)g(a)h(catalogue)h(mean)f(place)f +(b)m(y)h(allo)m(wing)e(for)h(space)h(motion,)j(parallax,)427 +5241 y(precession,)34 b(n)m(utation,)g(ann)m(ual)f(ab)s(erration,)g +(and)g(the)h(Sun's)e(gra)m(vitational)i(lens)e(e\013ect.)52 +b(F)-8 b(or)427 5354 y(star)32 b(p)s(ositions)d(in)h(the)i(FK5)g +(system)g(\()p Fn(i.e.)f FA(J2000\),)j(these)e(e\013ects)g(can)g(b)s(e) +f(applied)e(b)m(y)j(means)427 5467 y(of)38 b(the)g(sla)p +Fq(_)p FA(MAP)f Fn(etc.)g FA(routines.)61 b(Starting)37 +b(from)g(other)h(mean)f(place)h(systems,)i(additional)427 +5580 y(transformations)22 b(will)e(b)s(e)i(needed;)j(for)d(example,)i +(FK4)f(\()p Fn(i.e.)g FA(B1950\))i(mean)d(places)h(w)m(ould)e(\014rst) +427 5693 y(ha)m(v)m(e)32 b(to)f(b)s(e)f(con)m(v)m(erted)i(to)f(FK5,)g +(whic)m(h)e(can)i(b)s(e)e(done)h(with)g(the)g(sla)p Fq(_)p +FA(FK425)h Fn(etc.)f FA(routines.)p eop +%%Page: 18 20 +18 19 bop 0 52 a FA(18)311 351 y(5.)46 b Fn(Observe)-5 +b(d)49 b FA([)15 b Fi(Az)t(;)g(E)5 b(l)42 b FA(])d(means)g(the)g(p)s +(osition)d(that)k(w)m(ould)d(b)s(e)i(seen)f(b)m(y)h(a)g(p)s(erfect)g +(theo)s(dolite)427 464 y(lo)s(cated)33 b(at)h(the)f(observ)m(er.)49 +b(This)31 b(is)h(obtained)g(from)g(the)h(geo)s(cen)m(tric)h(apparen)m +(t)f([)15 b Fi(\013;)g(\016)21 b FA(])33 b(b)m(y)g(al-)427 +577 y(lo)m(wing)25 b(for)g(Earth)h(orien)m(tation)g(and)f(diurnal)d(ab) +s(erration,)k(rotating)g(from)g(equator)g(to)g(horizon)427 +690 y(co)s(ordinates,)f(and)d(then)h(adjusting)f(for)h(refraction.)38 +b(The)23 b([)15 b Fi(h;)g(\016)20 b FA(])j(is)g(obtained)f(b)m(y)h +(rotating)h(bac)m(k)427 803 y(in)m(to)38 b(equatorial)f(co)s +(ordinates,)i(using)d(the)h(geo)s(detic)h(latitude)f(corrected)h(for)f +(p)s(olar)f(motion,)427 916 y(and)27 b(is)f(the)i(p)s(osition)d(that)j +(w)m(ould)e(b)s(e)g(seen)i(b)m(y)f(a)g(p)s(erfect)g(equatorial)g(lo)s +(cated)h(at)g(the)f(observ)m(er)427 1029 y(and)c(with)f(its)h(p)s(olar) +f(axis)h(aligned)f(to)i(the)g(Earth's)f(axis)g(of)h(rotation)f(\()p +Fn(n.b.)h FA(not)f(to)h(the)g(refracted)427 1142 y(p)s(ole\).)40 +b(Finally)-8 b(,)29 b(the)i Fi(\013)g FA(is)e(obtained)h(b)m(y)g +(subtracting)g(the)g Fn(h)38 b FA(from)30 b(the)h(lo)s(cal)e(apparen)m +(t)i(ST.)311 1314 y(6.)46 b(T)-8 b(o)37 b(predict)e(the)h(required)e +(setting)i(of)g(a)g(real)g(telescop)s(e,)i(the)e(observ)m(ed)g(place)g +(pro)s(duced)f(b)m(y)427 1426 y(this)28 b(routine)f(w)m(ould)g(ha)m(v)m +(e)j(to)f(b)s(e)e(adjusted)h(for)g(the)h(tilt)e(of)i(the)f(azim)m(uth)g +(or)h(p)s(olar)e(axis)h(of)g(the)427 1539 y(moun)m(ting)e(\(with)f +(appropriate)g(corrections)i(for)f(moun)m(t)g(\015exures\),)h(for)f +(non-p)s(erp)s(endicularit)m(y)427 1652 y(b)s(et)m(w)m(een)j(the)g +(moun)m(ting)e(axes,)j(for)e(the)g(p)s(osition)e(of)j(the)f(rotator)i +(axis)d(and)h(the)h(p)s(oin)m(ting)d(axis)427 1765 y(relativ)m(e)38 +b(to)g(it,)g(for)f(tub)s(e)g(\015exure,)h(for)f(gear)i(and)d(enco)s +(der)h(errors,)i(and)e(\014nally)e(for)i(enco)s(der)427 +1878 y(zero)c(p)s(oin)m(ts.)45 b(Some)32 b(telescop)s(es)g(w)m(ould,)g +(of)g(course,)h(exhibit)d(other)i(prop)s(erties)f(whic)m(h)g(w)m(ould) +427 1991 y(need)f(to)i(b)s(e)d(accoun)m(ted)j(for)e(at)h(the)g +(appropriate)e(p)s(oin)m(t)h(in)f(the)h(sequence.)311 +2163 y(7.)46 b(The)40 b(star-indep)s(enden)m(t)f(apparen)m(t-to-observ) +m(ed-place)k(parameters)e(in)e(A)m(OPRMS)i(ma)m(y)g(b)s(e)427 +2276 y(computed)31 b(b)m(y)f(means)g(of)h(the)g(sla)p +Fq(_)p FA(A)m(OPP)-8 b(A)30 b(routine.)40 b(If)30 b(nothing)g(has)g(c)m +(hanged)h(signi\014can)m(tly)427 2389 y(except)45 b(the)g(time,)i(the)d +(sla)p Fq(_)p FA(A)m(OPP)-8 b(A)g(T)45 b(routine)e(ma)m(y)h(b)s(e)g +(used)f(to)i(p)s(erform)e(the)h(requisite)427 2502 y(partial)29 +b(recomputation)i(of)f(A)m(OPRMS.)311 2673 y(8.)46 b(The)24 +b(\\sidereal)g(\001UT")g(whic)m(h)g(forms)f(part)i(of)f(A)m +(OPRMS\(13\))i(is)e(UT1)p Fl(\000)p FA(UTC)g(con)m(v)m(erted)i(from)427 +2786 y(solar)k(to)h(sidereal)e(seconds)i(and)e(expressed)h(in)f +(radians.)311 2958 y(9.)46 b(A)m(t)32 b(zenith)e(distances)h(b)s(ey)m +(ond)f(ab)s(out)h(76)1890 2925 y Fm(\016)1930 2958 y +FA(,)g(the)g(need)g(for)f(sp)s(ecial)g(care)i(with)d(the)i(corrections) +427 3071 y(for)j(refraction)f(causes)h(a)g(mark)m(ed)g(increase)f(in)f +(execution)i(time.)50 b(Moreo)m(v)m(er,)37 b(the)c(e\013ect)i(gets)427 +3184 y(w)m(orse)k(with)d(increasing)h(zenith)g(distance.)64 +b(Adroit)37 b(programming)g(in)g(the)h(calling)e(applica-)427 +3297 y(tion)d(ma)m(y)h(allo)m(w)e(the)i(problem)d(to)j(b)s(e)e +(reduced.)49 b(Prepare)33 b(an)g(alternativ)m(e)g(A)m(OPRMS)g(arra)m(y) +-8 b(,)427 3410 y(computed)32 b(for)f(zero)h(air-pressure;)f(this)f +(will)f(disable)h(the)i(refraction)f(corrections)h(and)f(cause)427 +3523 y(rapid)25 b(execution.)40 b(Using)25 b(this)h(A)m(OPRMS)g(arra)m +(y)-8 b(,)29 b(a)e(preliminary)c(call)j(to)h(the)g(presen)m(t)f +(routine)427 3636 y(will,)e(dep)s(ending)f(on)j(the)g(application,)f +(pro)s(duce)f(a)i(rough)f(p)s(osition)f(whic)m(h)g(ma)m(y)i(b)s(e)f +(enough)h(to)427 3749 y(establish)g(whether)h(the)h(full,)e(slo)m(w)h +(calculation)g(\(using)g(the)g(real)h(A)m(OPRMS)f(arra)m(y\))i(is)d(w)m +(orth-)427 3862 y(while.)38 b(F)-8 b(or)28 b(example,)g(there)g(w)m +(ould)f(b)s(e)g(no)g(need)g(for)h(the)g(full)d(calculation)i(if)f(the)i +(preliminary)427 3974 y(call)i(had)f(already)h(established)f(that)i +(the)f(source)g(w)m(as)h(w)m(ell)e(b)s(elo)m(w)h(the)g(elev)-5 +b(ation)30 b(limits)e(for)i(a)427 4087 y(particular)f(telescop)s(e.)266 +4259 y(10.)46 b(The)31 b(azim)m(uths)g Fn(etc.)g FA(used)g(b)m(y)g(the) +h(presen)m(t)f(routine)g(are)h(with)e(resp)s(ect)h(to)h(the)g +(celestial)f(p)s(ole.)427 4372 y(Corrections)f(to)h(the)g(terrestrial)e +(p)s(ole)h(can)g(b)s(e)g(computed)g(using)f(sla)p Fq(_)p +FA(POLMO.)p 0 4556 3780 8 v 0 4669 a Fu(SLA)p Fk(_)p +Fu(A)-11 b(TMDSP)377 b Fj(A)m(tmospheric)35 b(Disp)s(ersion)380 +b Fu(SLA)p Fk(_)p Fu(A)-11 b(TMDSP)0 5020 y Fy(A)m(CTION)44 +b FA(:)c(Apply)29 b(atmospheric-disp)s(ersion)e(adjustmen)m(ts)j(to)h +(refraction)f(co)s(e\016cien)m(ts.)0 5207 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_ATMDSP)f(\(TDK,)i(PMB,)f(RH,)h(WL1,)g(A1,) +g(B1,)g(WL2,)f(A2,)h(B2\))0 5634 y Fy(GIVEN)e FA(:)p +eop +%%Page: 19 21 +19 20 bop 0 52 a Ft(SUN/67.45)3252 b FA(19)277 339 y +Fn(TDK)532 b Fy(D)565 b FA(am)m(bien)m(t)31 b(temp)s(erature)f(at)h +(the)g(observ)m(er)f(\(degrees)h(K\))277 452 y Fn(PMB)528 +b Fy(D)565 b FA(pressure)29 b(at)i(the)g(observ)m(er)f(\(mB\))277 +565 y Fn(RH)602 b Fy(D)565 b FA(relativ)m(e)31 b(h)m(umidit)m(y)d(at)j +(the)g(observ)m(er)f(\(range)h(0)16 b({)g(1\))277 678 +y Fn(WL1)542 b Fy(D)565 b FA(base)31 b(w)m(a)m(v)m(elength)g(\()p +Fi(\026)p FA(m\))277 791 y Fn(A1)622 b Fy(D)565 b FA(refraction)32 +b(co)s(e\016cien)m(t)g(A)g(for)f(w)m(a)m(v)m(elength)i(WL1)g(\(radi-) +1658 904 y(ans\))277 1016 y Fn(B1)626 b Fy(D)565 b FA(refraction)32 +b(co)s(e\016cien)m(t)h(B)g(for)f(w)m(a)m(v)m(elength)i(WL1)f(\(radi-) +1658 1129 y(ans\))277 1242 y Fn(WL2)542 b Fy(D)565 b +FA(w)m(a)m(v)m(elength)35 b(for)e(whic)m(h)f(adjusted)h(A,B)h(required) +e(\()p Fi(\026)p FA(m\))0 1723 y Fy(RETURNED)46 b FA(:)277 +1869 y Fn(A2)622 b Fy(D)565 b FA(refraction)32 b(co)s(e\016cien)m(t)g +(A)g(for)f(w)m(a)m(v)m(elength)i(WL2)g(\(radi-)1658 1982 +y(ans\))277 2095 y Fn(B2)626 b Fy(D)565 b FA(refraction)32 +b(co)s(e\016cien)m(t)h(B)g(for)f(w)m(a)m(v)m(elength)i(WL2)f(\(radi-) +1658 2208 y(ans\))0 2575 y Fy(NOTES)44 b FA(:)311 2768 +y(1.)i(T)-8 b(o)37 b(use)f(this)g(routine,)h(\014rst)e(call)h(sla)p +Fq(_)p FA(REF)m(CO)g(sp)s(ecifying)e(WL1)j(as)g(the)f(w)m(a)m(v)m +(elength.)60 b(This)427 2881 y(yields)29 b(refraction)h(co)s(e\016cien) +m(ts)h(A1,)h(B1,)f(correct)h(for)e(that)h(w)m(a)m(v)m(elength.)43 +b(Subsequen)m(tly)-8 b(,)29 b(calls)427 2994 y(to)i(sla)p +Fq(_)p FA(A)-8 b(TMDSP)29 b(sp)s(ecifying)e(di\013eren)m(t)i(w)m(a)m(v) +m(elengths)i(will)c(pro)s(duce)i(new,)g(sligh)m(tly)f(adjusted)427 +3107 y(refraction)i(co)s(e\016cien)m(ts)h(A2,)h(B2,)f(whic)m(h)e(apply) +g(to)i(the)g(sp)s(eci\014ed)e(w)m(a)m(v)m(elength.)311 +3256 y(2.)46 b(Most)26 b(of)g(the)f(atmospheric)g(disp)s(ersion)d(happ) +s(ens)h(b)s(et)m(w)m(een)j(0)p Fi(:)p FA(7)15 b Fi(\026)p +FA(m)26 b(and)e(the)i(UV)f(atmospheric)427 3369 y(cuto\013,)34 +b(and)e(the)g(e\013ect)i(increases)e(strongly)g(to)m(w)m(ards)h(the)f +(UV)h(end.)45 b(F)-8 b(or)34 b(this)d(reason)h(a)h(blue)427 +3482 y(reference)e(w)m(a)m(v)m(elength)h(is)d(recommended,)h(for)h +(example)f(0)p Fi(:)p FA(4)15 b Fi(\026)p FA(m.)311 3631 +y(3.)46 b(The)30 b(accuracy)-8 b(,)32 b(for)e(this)g(set)h(of)f +(conditions:)703 3835 y(heigh)m(t)g(ab)s(o)m(v)m(e)i(sea)f(lev)m(el)229 +b(2000)17 b(m)1257 3948 y(latitude)228 b(29)1884 3915 +y Fm(\016)1240 4061 y FA(pressure)g(793)17 b(mB)1077 +4174 y(temp)s(erature)229 b(290)1929 4141 y Fm(\016)1985 +4174 y FA(K)1209 4287 y(h)m(umidit)m(y)e(0.5)32 b(\(50\045\))1180 +4400 y(lapse)e(rate)230 b(0)p Fi(:)p FA(0065)2044 4367 +y Fm(\016)2086 4400 y Fi(m)2166 4367 y Fm(\000)p Fr(1)744 +4513 y FA(reference)30 b(w)m(a)m(v)m(elength)231 b(0)p +Fi(:)p FA(4)15 b Fi(\026)p FA(m)1031 4626 y(star)31 b(elev)-5 +b(ation)229 b(15)1884 4593 y Fm(\016)427 4831 y FA(is)30 +b(ab)s(out)g(2.5)16 b(mas)31 b(RMS)f(b)s(et)m(w)m(een)h(0.3)g(and)f(1)p +Fi(:)p FA(0)15 b Fi(\026)p FA(m,)31 b(and)f(sta)m(ys)i(within)27 +b(4)16 b(mas)30 b(for)h(the)f(whole)427 4944 y(range)41 +b(longw)m(ard)e(of)h(0)p Fi(:)p FA(3)15 b Fi(\026)p FA(m)41 +b(\(compared)g(with)e(a)h(total)h(disp)s(ersion)c(from)j(0.3)h(to)g(20) +15 b Fi(\026)p FA(m)40 b(of)427 5056 y(ab)s(out)c(11)778 +5020 y Fh(0)l(0)819 5056 y FA(\).)56 b(These)36 b(errors)f(are)h(t)m +(ypical)f(for)g(ordinary)f(conditions;)j(in)e(extreme)h(conditions)427 +5169 y(v)-5 b(alues)30 b(a)h(few)f(times)g(this)f(size)h(ma)m(y)h(o)s +(ccur.)311 5318 y(4.)46 b(If)d(either)g(w)m(a)m(v)m(elength)i(exceeds)f +(100)15 b Fi(\026)p FA(m,)48 b(the)c(radio)e(case)j(is)d(assumed)h(and) +g(the)h(returned)427 5431 y(refraction)30 b(co)s(e\016cien)m(ts)h(are)g +(the)g(same)g(as)f(the)h(giv)m(en)f(ones.)311 5580 y(5.)46 +b(The)29 b(algorithm)g(consists)g(of)h(calculation)f(of)h(the)g +(refractivit)m(y)f(of)h(the)g(air)f(at)h(the)g(observ)m(er)g(for)427 +5693 y(the)f(t)m(w)m(o)g(w)m(a)m(v)m(elengths,)h(using)d(the)h(metho)s +(ds)f(of)h(the)h(sla)p Fq(_)p FA(REFR)m(O)e(routine,)h(and)g(then)f +(scaling)p eop +%%Page: 20 22 +20 21 bop 0 52 a FA(20)427 351 y(of)22 b(the)g(t)m(w)m(o)h(refraction)e +(co)s(e\016cien)m(ts)h(according)g(to)g(classical)f(refraction)g +(theory)-8 b(.)38 b(This)20 b(amoun)m(ts)427 464 y(to)35 +b(scaling)f(the)g(A)h(co)s(e\016cien)m(t)g(in)e(prop)s(ortion)f(to)j +(\()p Fi(\026)23 b Fl(\000)g FA(1\))35 b(and)e(the)i(B)f(co)s +(e\016cien)m(t)h(almost)g(in)427 577 y(the)i(same)g(ratio)f(\(see)i +(R.M.Green,)h Fn(Spheric)-5 b(al)40 b(Astr)-5 b(onomy,)40 +b FA(Cam)m(bridge)c(Univ)m(ersit)m(y)g(Press,)427 690 +y(1985\).)p 0 806 3780 8 v 0 919 a Fu(SLA)p Fk(_)p Fu(A)-15 +b(V2M)286 b Fj(Rotation)36 b(Matrix)h(from)g(Axial)g(V)-10 +b(ector)287 b Fu(SLA)p Fk(_)p Fu(A)-15 b(V2M)0 1269 y +Fy(A)m(CTION)44 b FA(:)c(F)-8 b(orm)31 b(the)g(rotation)g(matrix)e +(corresp)s(onding)g(to)i(a)g(giv)m(en)f(axial)g(v)m(ector)i(\(single)d +(precision\).)0 1457 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_AV2M)g(\(AXVEC,)g(RMAT\))0 1777 y Fy(GIVEN)f FA(:)277 +1949 y Fn(AXVEC)405 b Fy(R\(3\))433 b FA(axial)30 b(v)m(ector)i +(\(radians\))0 2260 y Fy(RETURNED)46 b FA(:)277 2432 +y Fn(RMA)-7 b(T)462 b Fy(R\(3,3\))352 b FA(rotation)31 +b(matrix)0 2743 y Fy(NOTES)44 b FA(:)311 2923 y(1.)i(A)32 +b(rotation)f(matrix)g(describ)s(es)e(a)i(rotation)h(ab)s(out)f(some)g +(arbitrary)f(axis.)43 b(The)30 b(axis)h(is)f(called)427 +3036 y(the)g Fn(Euler)i(axis)p FA(,)f(and)e(the)h(angle)g(through)f +(whic)m(h)g(the)h(reference)g(frame)g(rotates)h(is)e(called)g(the)427 +3149 y(Euler)i(angle.)47 b(The)32 b(axial)f(v)m(ector)j(supplied)29 +b(to)34 b(this)d(routine)g(has)h(the)h(same)g(direction)e(as)h(the)427 +3262 y(Euler)d(axis,)h(and)g(its)g(magnitude)f(is)h(the)g(Euler)f +(angle)i(in)e(radians.)311 3401 y(2.)46 b(If)30 b(AXVEC)h(is)e(n)m +(ull,)g(the)h(unit)f(matrix)h(is)f(returned.)311 3540 +y(3.)46 b(The)28 b(reference)g(frame)g(rotates)h(clo)s(c)m(kwise)e(as)i +(seen)f(lo)s(oking)e(along)i(the)g(axial)f(v)m(ector)j(from)d(the)427 +3653 y(origin.)p 0 3764 V 0 3877 a Fu(SLA)p Fk(_)p Fu(BEAR)212 +b Fj(Direction)37 b(Bet)m(w)m(een)h(P)m(oin)m(ts)f(on)h(a)h(Sphere)213 +b Fu(SLA)p Fk(_)p Fu(BEAR)0 4227 y Fy(A)m(CTION)44 b +FA(:)j(Returns)33 b(the)i(b)s(earing)d(\(p)s(osition)g(angle\))j(of)f +(one)g(p)s(oin)m(t)f(on)g(a)i(sphere)e(seen)h(from)f(another)227 +4340 y(\(single)d(precision\).)0 4527 y Fy(CALL)45 b +FA(:)77 b Fq(R)47 b(=)h(sla_BEAR)d(\(A1,)i(B1,)g(A2,)g(B2\))0 +4848 y Fy(GIVEN)e FA(:)277 4994 y Fn(A1,B1)484 b Fy(R)567 +b FA(spherical)29 b(co)s(ordinates)h(of)g(one)h(p)s(oin)m(t)277 +5107 y Fn(A2,B2)484 b Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h(of) +g(the)h(other)g(p)s(oin)m(t)0 5410 y Fy(RETURNED)46 b +FA(:)277 5581 y Fn(sla)p Fq(_)p Fn(BEAR)322 b Fy(R)567 +b FA(b)s(earing)29 b(from)h(\014rst)g(p)s(oin)m(t)f(to)i(second)p +eop +%%Page: 21 23 +21 22 bop 0 52 a Ft(SUN/67.45)3252 b FA(21)0 351 y Fy(NOTES)44 +b FA(:)311 550 y(1.)i(The)30 b(spherical)f(co)s(ordinates)h(are)h([)15 +b Fi(\013;)g(\016)20 b FA(],)31 b([)p Fi(\025;)15 b(\036)p +FA(])31 b Fn(etc.)p FA(,)f(in)f(radians.)311 701 y(2.)46 +b(The)33 b(result)f(is)h(the)h(b)s(earing)e(\(p)s(osition)f(angle\),)k +(in)d(radians,)h(of)h(p)s(oin)m(t)e([A2,B2])k(as)d(seen)h(from)427 +814 y(p)s(oin)m(t)j([A1,B1].)65 b(It)38 b(is)f(in)g(the)h(range)g +Fl(\006)p Fi(\031)s FA(.)63 b(The)37 b(sense)h(is)f(suc)m(h)h(that)g +(if)f([A2,B2])j(is)d(a)h(small)427 927 y(distance)f(due)f(east)i(of)g +([A1,B1])h(the)e(result)f(is)g(ab)s(out)h(+)p Fi(\031)s(=)p +FA(2.)61 b(Zero)37 b(is)f(returned)g(if)g(the)h(t)m(w)m(o)427 +1040 y(p)s(oin)m(ts)30 b(are)g(coinciden)m(t.)311 1192 +y(3.)46 b(If)32 b(either)g(B-co)s(ordinate)h(is)f(outside)f(the)i +(range)g Fl(\006)p Fi(\031)s(=)p FA(2,)g(the)g(result)e(ma)m(y)i +(corresp)s(ond)f(to)h(\\the)427 1305 y(long)d(w)m(a)m(y)i(round".)311 +1456 y(4.)46 b(The)f(routine)e(sla)p Fq(_)p FA(P)-8 b(A)e(V)45 +b(p)s(erforms)e(an)i(equiv)-5 b(alen)m(t)44 b(function)g(except)i(that) +f(the)g(p)s(oin)m(ts)f(are)427 1569 y(sp)s(eci\014ed)29 +b(in)g(the)i(form)e(of)i(Cartesian)f(unit)f(v)m(ectors.)p +0 1713 3780 8 v 0 1826 a Fu(SLA)p Fk(_)p Fu(CAF2R)331 +b Fj(Deg,Arcmin,Arcsec)35 b(to)j(Radians)332 b Fu(SLA)p +Fk(_)p Fu(CAF2R)0 2176 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 +b(degrees,)f(arcmin)m(utes,)f(arcseconds)h(to)g(radians)e(\(single)g +(precision\).)0 2364 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_CAF2R)g(\(IDEG,)g(IAMIN,)g(ASEC,)g(RAD,)h(J\))0 +2730 y Fy(GIVEN)e FA(:)277 2876 y Fn(IDEG)500 b Fy(I)605 +b FA(degrees)277 2989 y Fn(IAMIN)448 b Fy(I)605 b FA(arcmin)m(utes)277 +3102 y Fn(ASEC)490 b Fy(R)567 b FA(arcseconds)0 3482 +y Fy(RETURNED)46 b FA(:)277 3628 y Fn(RAD)533 b Fy(R)567 +b FA(angle)31 b(in)e(radians)277 3741 y Fn(J)688 b Fy(I)605 +b FA(status:)1825 3854 y(1)31 b(=)f(IDEG)g(outside)g(range)h(0)p +Fl(\000)p FA(359)1825 3967 y(2)g(=)f(IAMIN)g(outside)g(range)h(0)p +Fl(\000)p FA(59)1825 4080 y(3)g(=)f(ASEC)f(outside)h(range)g(0)p +Fl(\000)p FA(59.999)p Fl(\001)15 b(\001)g(\001)0 4461 +y Fy(NOTES)44 b FA(:)311 4660 y(1.)i(The)30 b(result)f(is)h(computed)g +(ev)m(en)h(if)e(an)m(y)i(of)g(the)f(range)h(c)m(hec)m(ks)h(fail.)311 +4811 y(2.)46 b(The)30 b(sign)g(m)m(ust)g(b)s(e)g(dealt)g(with)f +(outside)g(this)h(routine.)p 0 4955 V 0 5068 a Fu(SLA)p +Fk(_)p Fu(CALDJ)525 b Fj(Calendar)37 b(Date)h(to)h(MJD)527 +b Fu(SLA)p Fk(_)p Fu(CALDJ)0 5418 y Fy(A)m(CTION)44 b +FA(:)c(Gregorian)31 b(Calendar)e(to)i(Mo)s(di\014ed)e(Julian)f(Date,)k +(with)d(cen)m(tury)i(default.)0 5606 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_CALDJ)g(\(IY,)g(IM,)h(ID,)g(DJM,)g(J\))p +eop +%%Page: 22 24 +22 23 bop 0 52 a FA(22)0 351 y Fy(GIVEN)45 b FA(:)277 +523 y Fn(IY,IM,ID)356 b Fy(I)605 b FA(y)m(ear,)32 b(mon)m(th,)e(da)m(y) +h(in)e(Gregorian)h(calendar)0 843 y Fy(RETURNED)46 b +FA(:)277 989 y Fn(DJM)537 b Fy(D)565 b FA(mo)s(di\014ed)28 +b(Julian)g(Date)k(\(JD)p Fl(\000)p FA(2400000.5\))j(for)30 +b(0)3385 956 y Fr(h)277 1102 y Fn(J)688 b Fy(I)605 b +FA(status:)1825 1215 y(0)31 b(=)f(OK)1825 1328 y(1)h(=)f(bad)f(y)m(ear) +j(\(MJD)f(not)f(computed\))1825 1441 y(2)h(=)f(bad)f(mon)m(th)i(\(MJD)g +(not)f(computed\))1825 1554 y(3)h(=)f(bad)f(da)m(y)i(\(MJD)g +(computed\))0 1866 y Fy(NOTES)44 b FA(:)311 2047 y(1.)i(This)29 +b(routine)g(supp)s(orts)g(the)h Fn(c)-5 b(entury)33 b(default)40 +b FA(feature.)h(Acceptable)31 b(y)m(ears)h(are:)506 2187 +y Fl(\017)46 b FA(00-49,)33 b(in)m(terpreted)d(as)g(2000)17 +b({)f(2049,)506 2314 y Fl(\017)46 b FA(50-99,)33 b(in)m(terpreted)d(as) +g(1950)17 b({)f(1999,)32 b(and)506 2440 y Fl(\017)46 +b FA(100)32 b(up)m(w)m(ards,)e(in)m(terpreted)f(literally)-8 +b(.)427 2581 y(F)g(or)31 b(1-100AD)i(use)e(the)f(routine)f(sla)p +Fq(_)p FA(CLDJ)h(instead.)311 2721 y(2.)46 b(F)-8 b(or)31 +b(y)m(ear)h Fi(n)p FA(BC)e(use)g(IY)g(=)g Fl(\000)p FA(\()p +Fi(n)20 b Fl(\000)g FA(1\).)311 2861 y(3.)46 b(When)d(an)g(in)m(v)-5 +b(alid)40 b(y)m(ear)k(or)f(mon)m(th)g(is)f(supplied)e(\(status)k(J)e(=) +h(1)g(or)g(2\))h(the)f(MJD)g(is)g Fy(not)427 2974 y FA(computed.)e +(When)30 b(an)g(in)m(v)-5 b(alid)28 b(da)m(y)j(is)e(supplied)e +(\(status)k(J)f(=)g(3\))i(the)e(MJD)h Fy(is)g FA(computed.)p +0 3094 3780 8 v 0 3206 a Fu(SLA)p Fk(_)p Fu(CAL)-11 b(YD)518 +b Fj(Calendar)37 b(to)h(Y)-10 b(ear,)37 b(Da)m(y)520 +b Fu(SLA)p Fk(_)p Fu(CAL)-11 b(YD)0 3557 y Fy(A)m(CTION)44 +b FA(:)j(Gregorian)34 b(calendar)f(date)h(to)h(y)m(ear)f(and)f(da)m(y)h +(in)f(y)m(ear,)i(in)e(a)h(Julian)d(calendar)i(aligned)g(to)227 +3670 y(the)e(20th/21st)h(cen)m(tury)f(Gregorian)f(calendar,)h(with)e +(cen)m(tury)h(default.)0 3857 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_CALYD)g(\(IY,)g(IM,)h(ID,)g(NY,)g(ND,)g(J\))0 +4183 y Fy(GIVEN)e FA(:)277 4329 y Fn(IY,IM,ID)356 b Fy(I)605 +b FA(y)m(ear,)32 b(mon)m(th,)e(da)m(y)h(in)e(Gregorian)i(calendar:)40 +b(y)m(ear)31 b(ma)m(y)1658 4442 y(optionally)e(omit)h(the)h(cen)m(tury) +0 4754 y Fy(RETURNED)46 b FA(:)277 4900 y Fn(NY)600 b +Fy(I)605 b FA(y)m(ear)31 b(\(re-aligned)f(Julian)e(calendar\))277 +5013 y Fn(ND)599 b Fy(I)605 b FA(da)m(y)31 b(in)e(y)m(ear)i(\(1)g(=)f +(Jan)m(uary)g(1st\))277 5126 y Fn(J)688 b Fy(I)605 b +FA(status:)1825 5239 y(0)31 b(=)f(OK)1825 5352 y(1)h(=)f(bad)f(y)m(ear) +j(\(b)s(efore)e Fl(\000)p FA(4711\))1825 5465 y(2)h(=)f(bad)f(mon)m(th) +1825 5577 y(3)i(=)f(bad)f(da)m(y)p eop +%%Page: 23 25 +23 24 bop 0 52 a Ft(SUN/67.45)3252 b FA(23)0 351 y Fy(NOTES)44 +b FA(:)311 534 y(1.)i(This)29 b(routine)g(supp)s(orts)g(the)h +Fn(c)-5 b(entury)33 b(default)40 b FA(feature.)h(Acceptable)31 +b(y)m(ears)h(are:)506 674 y Fl(\017)46 b FA(00-49,)33 +b(in)m(terpreted)d(as)g(2000)17 b({)f(2049,)506 801 y +Fl(\017)46 b FA(50-99,)33 b(in)m(terpreted)d(as)g(1950)17 +b({)f(1999,)32 b(and)506 928 y Fl(\017)46 b FA(other)31 +b(y)m(ears)g(after)g(-4712)h(,)f(in)m(terpreted)f(literally)-8 +b(.)427 1069 y(Use)31 b(sla)p Fq(_)p FA(CL)-8 b(YD)30 +b(for)g(y)m(ears)h(b)s(efore)f(100AD.)311 1209 y(2.)46 +b(The)30 b(purp)s(ose)f(of)h(sla)p Fq(_)p FA(CALDJ)g(is)f(to)i(supp)s +(ort)e(sla)p Fq(_)p FA(EAR)-8 b(TH,)30 b(sla)p Fq(_)p +FA(MOON)g(and)f(sla)p Fq(_)p FA(ECOR.)311 1350 y(3.)46 +b(Bet)m(w)m(een)31 b(1900)f(Marc)m(h)f(1)g(and)e(2100)k(F)-8 +b(ebruary)28 b(28)h(it)f(returns)f(answ)m(ers)h(whic)m(h)f(are)i +(consisten)m(t)427 1463 y(with)d(the)i(ordinary)e(Gregorian)h +(calendar.)39 b(Outside)26 b(this)h(range)h(there)f(will)e(b)s(e)i(a)h +(discrepancy)427 1576 y(whic)m(h)h(increases)h(b)m(y)h(one)f(da)m(y)h +(for)f(ev)m(ery)h(non-leap)f(cen)m(tury)h(y)m(ear.)311 +1717 y(4.)46 b(When)26 b(an)g(in)m(v)-5 b(alid)23 b(y)m(ear)k(or)f(mon) +m(th)g(is)f(supplied)e(\(status)k(J)e(=)h(1)g(or)g(J)g(=)f(2\))i(the)f +(results)f(are)i Fy(not)427 1830 y FA(computed.)55 b(When)35 +b(a)g(da)m(y)h(is)e(supplied)e(whic)m(h)i(is)g(outside)g(the)h(con)m(v) +m(en)m(tional)h(range)g(\(status)427 1943 y(J)30 b(=)g(3\))h(the)g +(results)e Fy(are)h FA(computed.)p 0 2064 3780 8 v 0 +2177 a Fu(SLA)p Fk(_)p Fu(CC2S)664 b Fj(Cartesian)37 +b(to)h(Spherical)664 b Fu(SLA)p Fk(_)p Fu(CC2S)0 2528 +y Fy(A)m(CTION)44 b FA(:)c(Cartesian)30 b(co)s(ordinates)g(to)i +(spherical)c(co)s(ordinates)i(\(single)g(precision\).)0 +2715 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_CC2S)g(\(V,)h(A,)g(B\))0 +3043 y Fy(GIVEN)e FA(:)277 3215 y Fn(V)668 b Fy(R\(3\))433 +b FA([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(])30 b(v)m(ector)0 +3540 y Fy(RETURNED)46 b FA(:)277 3711 y Fn(A,B)576 b +Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h(in)f(radians)0 +4036 y Fy(NOTES)44 b FA(:)311 4218 y(1.)i(The)d(spherical)f(co)s +(ordinates)i(are)g(longitude)e(\(+v)m(e)i(an)m(ticlo)s(c)m(kwise)g(lo)s +(oking)e(from)h(the)h(+v)m(e)427 4331 y(latitude)38 b(p)s(ole\))f(and)h +(latitude.)64 b(The)37 b(Cartesian)h(co)s(ordinates)g(are)h(righ)m(t)f +(handed,)h(with)e(the)427 4444 y Fn(x)p FA(-axis)31 b(at)g(zero)g +(longitude)e(and)h(latitude,)f(and)h(the)h Fn(z)p FA(-axis)f(at)h(the)g +(+v)m(e)f(latitude)g(p)s(ole.)311 4584 y(2.)46 b(If)30 +b(V)h(is)e(n)m(ull,)g(zero)i(A)f(and)g(B)h(are)g(returned.)311 +4725 y(3.)46 b(A)m(t)32 b(either)d(p)s(ole,)h(zero)h(A)g(is)e +(returned.)p 0 4842 V 0 4955 a Fu(SLA)p Fk(_)p Fu(CC62S)363 +b Fj(Cartesian)37 b(6-V)-10 b(ector)37 b(to)h(Spherical)362 +b Fu(SLA)p Fk(_)p Fu(CC62S)0 5305 y Fy(A)m(CTION)44 b +FA(:)38 b(Con)m(v)m(ersion)25 b(of)g(p)s(osition)f(&)h(v)m(elo)s(cit)m +(y)g(in)f(Cartesian)h(co)s(ordinates)g(to)h(spherical)e(co)s(ordinates) +227 5418 y(\(single)30 b(precision\).)0 5606 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_CC62S)g(\(V,)h(A,)g(B,)g(R,)g(AD,)g(BD,)g +(RD\))p eop +%%Page: 24 26 +24 25 bop 0 52 a FA(24)0 351 y Fy(GIVEN)45 b FA(:)277 +523 y Fn(V)668 b Fy(R\(6\))433 b FA([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 +b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(])0 821 y Fy(RETURNED)46 b FA(:)277 967 +y Fn(A)668 b Fy(R)567 b FA(longitude)29 b(\(radians\))h({)h(for)f +(example)g Fi(\013)277 1080 y Fn(B)672 b Fy(R)567 b FA(latitude)30 +b(\(radians\))f({)i(for)f(example)g Fi(\016)277 1193 +y Fn(R)670 b Fy(R)567 b FA(radial)29 b(co)s(ordinate)277 +1306 y Fn(AD)599 b Fy(R)567 b FA(longitude)29 b(deriv)-5 +b(ativ)m(e)30 b(\(radians)f(p)s(er)h(unit)f(time\))277 +1419 y Fn(BD)603 b Fy(R)567 b FA(latitude)30 b(deriv)-5 +b(ativ)m(e)29 b(\(radians)h(p)s(er)f(unit)g(time\))277 +1532 y Fn(RD)601 b Fy(R)567 b FA(radial)29 b(deriv)-5 +b(ativ)m(e)p 0 1653 3780 8 v 0 1766 a Fu(SLA)p Fk(_)p +Fu(CD2TF)559 b Fj(Da)m(ys)38 b(to)g(Hour,Min,Sec)558 +b Fu(SLA)p Fk(_)p Fu(CD2TF)0 2116 y Fy(A)m(CTION)44 b +FA(:)c(Con)m(v)m(ert)32 b(an)e(in)m(terv)-5 b(al)29 b(in)h(da)m(ys)g +(to)h(hours,)f(min)m(utes,)f(seconds)i(\(single)e(precision\).)0 +2304 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_CD2TF)g(\(NDP,)g(DAYS,)g +(SIGN,)h(IHMSF\))0 2617 y Fy(GIVEN)e FA(:)277 2763 y +Fn(NDP)537 b Fy(I)605 b FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e(places)h +(of)h(seconds)277 2876 y Fn(D)n(A)-7 b(YS)489 b Fy(R)567 +b FA(in)m(terv)-5 b(al)30 b(in)f(da)m(ys)0 3166 y Fy(RETURNED)46 +b FA(:)277 3312 y Fn(SIGN)512 b Fy(C)569 b FA(`+')31 +b(or)f(`)p Fl(\000)p FA(')277 3425 y Fn(IHMSF)441 b Fy(I\(4\))471 +b FA(hours,)30 b(min)m(utes,)f(seconds,)i(fraction)0 +3714 y Fy(NOTES)44 b FA(:)311 3893 y(1.)i(NDP)31 b(less)f(than)g(zero)h +(is)e(in)m(terpreted)h(as)h(zero.)311 4030 y(2.)46 b(The)41 +b(largest)h(useful)e(v)-5 b(alue)42 b(for)f(NDP)h(is)f(determined)f(b)m +(y)i(the)g(size)f(of)h(D)m(A)-8 b(YS,)43 b(the)f(format)427 +4143 y(of)34 b(REAL)g(\015oating-p)s(oin)m(t)f(n)m(um)m(b)s(ers)g(on)g +(the)i(target)g(mac)m(hine,)g(and)e(the)h(risk)f(of)h(o)m(v)m(er\015o)m +(wing)427 4256 y(IHMSF\(4\).)70 b(F)-8 b(or)40 b(example,)i(on)e(a)g(V) +-10 b(AX)40 b(computer,)i(for)d(D)m(A)-8 b(YS)41 b(up)e(to)h(1.0,)j +(the)d(a)m(v)-5 b(ailable)427 4369 y(\015oating-p)s(oin)m(t)32 +b(precision)e(corresp)s(onds)g(roughly)h(to)h(NDP=3.)47 +b(This)30 b(is)h(w)m(ell)g(b)s(elo)m(w)g(the)h(ulti-)427 +4482 y(mate)g(limit)c(of)i(NDP=9)h(set)g(b)m(y)f(the)h(capacit)m(y)h +(of)e(the)h(32-bit)f(in)m(teger)h(IHMSF\(4\).)311 4619 +y(3.)46 b(The)32 b(absolute)g(v)-5 b(alue)32 b(of)h(D)m(A)-8 +b(YS)34 b(ma)m(y)f(exceed)g(1.0.)48 b(In)32 b(cases)h(where)f(it)g(do)s +(es)g(not,)i(it)e(is)f(up)h(to)427 4732 y(the)f(caller)g(to)g(test)h +(for)f(and)f(handle)g(the)h(case)h(where)e(D)m(A)-8 b(YS)32 +b(is)e(v)m(ery)i(nearly)e(1.0)i(and)e(rounds)427 4844 +y(up)g(to)h(24)g(hours,)e(b)m(y)i(testing)f(for)g(IHMSF\(1\)=24)j(and)c +(setting)i(IHMSF\(1-4\))h(to)f(zero.)p 0 4955 V 0 5068 +a Fu(SLA)p Fk(_)p Fu(CLDJ)769 b Fj(Calendar)37 b(to)h(MJD)771 +b Fu(SLA)p Fk(_)p Fu(CLDJ)0 5418 y Fy(A)m(CTION)44 b +FA(:)c(Gregorian)31 b(Calendar)e(to)i(Mo)s(di\014ed)e(Julian)f(Date.)0 +5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_CLDJ)g(\(IY,)h(IM,)f +(ID,)h(DJM,)g(J\))p eop +%%Page: 25 27 +25 26 bop 0 52 a Ft(SUN/67.45)3252 b FA(25)0 351 y Fy(GIVEN)45 +b FA(:)277 523 y Fn(IY,IM,ID)356 b Fy(I)605 b FA(y)m(ear,)32 +b(mon)m(th,)e(da)m(y)h(in)e(Gregorian)h(calendar)0 858 +y Fy(RETURNED)46 b FA(:)277 1004 y Fn(DJM)537 b Fy(D)565 +b FA(mo)s(di\014ed)28 b(Julian)g(Date)k(\(JD)p Fl(\000)p +FA(2400000.5\))j(for)30 b(0)3385 971 y Fr(h)277 1117 +y Fn(J)688 b Fy(I)605 b FA(status:)1825 1230 y(0)31 b(=)f(OK)1825 +1343 y(1)h(=)f(bad)f(y)m(ear)1825 1456 y(2)i(=)f(bad)f(mon)m(th)1825 +1569 y(3)i(=)f(bad)f(da)m(y)0 1896 y Fy(NOTES)44 b FA(:)311 +2080 y(1.)i(When)d(an)g(in)m(v)-5 b(alid)40 b(y)m(ear)k(or)f(mon)m(th)g +(is)f(supplied)e(\(status)k(J)e(=)h(1)g(or)g(2\))h(the)f(MJD)g(is)g +Fy(not)427 2193 y FA(computed.)e(When)30 b(an)g(in)m(v)-5 +b(alid)28 b(da)m(y)j(is)e(supplied)e(\(status)k(J)f(=)g(3\))i(the)e +(MJD)h Fy(is)g FA(computed.)311 2335 y(2.)46 b(The)30 +b(y)m(ear)h(m)m(ust)g(b)s(e)e Fl(\000)p FA(4699)j(\()p +Fn(i.e.)e FA(4700BC\))j(or)d(later.)41 b(F)-8 b(or)31 +b(y)m(ear)g Fi(n)p FA(BC)f(use)g(IY)h(=)f Fl(\000)p FA(\()p +Fi(n)19 b Fl(\000)h FA(1\).)311 2477 y(3.)46 b(An)35 +b(alternativ)m(e)g(to)h(the)f(presen)m(t)f(routine)g(is)g(sla)p +Fq(_)p FA(CALDJ,)g(whic)m(h)g(accepts)i(a)f(y)m(ear)h(with)d(the)427 +2590 y(cen)m(tury)e(missing.)0 2926 y Fy(REFERENCE)44 +b FA(:)c(The)28 b(algorithm)f(is)h(deriv)m(ed)f(from)h(that)h(of)g +(Hatc)m(her,)h Fn(Q.)15 b(Jl.)h(R.)f(astr.)i(So)-5 b(c.)29 +b FA(\(1984\))i Fy(25)p FA(,)227 3039 y(53-55.)p 0 3142 +3780 8 v 0 3255 a Fu(SLA)p Fk(_)p Fu(CL)-11 b(YD)620 +b Fj(Calendar)37 b(to)h(Y)-10 b(ear,)37 b(Da)m(y)622 +b Fu(SLA)p Fk(_)p Fu(CL)-11 b(YD)0 3605 y Fy(A)m(CTION)44 +b FA(:)j(Gregorian)34 b(calendar)f(date)h(to)h(y)m(ear)f(and)f(da)m(y)h +(in)f(y)m(ear,)i(in)e(a)h(Julian)d(calendar)i(aligned)g(to)227 +3718 y(the)e(20th/21st)h(cen)m(tury)f(Gregorian)f(calendar.)0 +3906 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_CLYD)g(\(IY,)h(IM,)f +(ID,)h(NY,)g(ND,)g(J\))0 4240 y Fy(GIVEN)e FA(:)277 4412 +y Fn(IY,IM,ID)356 b Fy(I)605 b FA(y)m(ear,)32 b(mon)m(th,)e(da)m(y)h +(in)e(Gregorian)h(calendar)0 4747 y Fy(RETURNED)46 b +FA(:)277 4893 y Fn(NY)600 b Fy(I)605 b FA(y)m(ear)31 +b(\(re-aligned)f(Julian)e(calendar\))277 5006 y Fn(ND)599 +b Fy(I)605 b FA(da)m(y)31 b(in)e(y)m(ear)i(\(1)g(=)f(Jan)m(uary)g +(1st\))277 5119 y Fn(J)688 b Fy(I)605 b FA(status:)1825 +5232 y(0)31 b(=)f(OK)1825 5345 y(1)h(=)f(bad)f(y)m(ear)j(\(b)s(efore)e +Fl(\000)p FA(4711\))1825 5458 y(2)h(=)f(bad)f(mon)m(th)1825 +5571 y(3)i(=)f(bad)f(da)m(y)p eop +%%Page: 26 28 +26 27 bop 0 52 a FA(26)0 351 y Fy(NOTES)44 b FA(:)311 +546 y(1.)i(The)30 b(purp)s(ose)f(of)h(sla)p Fq(_)p FA(CL)-8 +b(YD)30 b(is)g(to)h(supp)s(ort)e(sla)p Fq(_)p FA(EAR)-8 +b(TH,)30 b(sla)p Fq(_)p FA(MOON)f(and)h(sla)p Fq(_)p +FA(ECOR.)311 695 y(2.)46 b(Bet)m(w)m(een)31 b(1900)f(Marc)m(h)f(1)g +(and)e(2100)k(F)-8 b(ebruary)28 b(28)h(it)f(returns)f(answ)m(ers)h +(whic)m(h)f(are)i(consisten)m(t)427 808 y(with)d(the)i(ordinary)e +(Gregorian)h(calendar.)39 b(Outside)26 b(this)h(range)h(there)f(will)e +(b)s(e)i(a)h(discrepancy)427 921 y(whic)m(h)h(increases)h(b)m(y)h(one)f +(da)m(y)h(for)f(ev)m(ery)h(non-leap)f(cen)m(tury)h(y)m(ear.)311 +1070 y(3.)46 b(When)26 b(an)g(in)m(v)-5 b(alid)23 b(y)m(ear)k(or)f(mon) +m(th)g(is)f(supplied)e(\(status)k(J)e(=)h(1)g(or)g(J)g(=)f(2\))i(the)f +(results)f(are)i Fy(not)427 1183 y FA(computed.)55 b(When)35 +b(a)g(da)m(y)h(is)e(supplied)e(whic)m(h)i(is)g(outside)g(the)h(con)m(v) +m(en)m(tional)h(range)g(\(status)427 1296 y(J)30 b(=)g(3\))h(the)g +(results)e Fy(are)h FA(computed.)p 0 1440 3780 8 v 0 +1553 a Fu(SLA)p Fk(_)p Fu(COMBN)570 b Fj(Next)38 b(Com)m(bination)566 +b Fu(SLA)p Fk(_)p Fu(COMBN)0 1904 y Fy(A)m(CTION)44 b +FA(:)39 b(Generate)29 b(the)e(next)h(com)m(bination,)f(a)h(subset)f(of) +g(a)h(sp)s(eci\014ed)e(size)h(c)m(hosen)h(from)e(a)i(sp)s(eci\014ed)227 +2017 y(n)m(um)m(b)s(er)h(of)i(items.)0 2204 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_COMBN)g(\(NSEL,)g(NCAND,)g(LIST,)g(J\))0 +2564 y Fy(GIVEN)f FA(:)277 2710 y Fn(NSEL)498 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(items)f(\(subset)g(size\))277 +2823 y Fn(NCAND)398 b Fy(I)605 b FA(n)m(um)m(b)s(er)29 +b(of)i(candidates)f(\(set)h(size\))0 3194 y Fy(GIVEN)j(and)h(RETURNED) +46 b FA(:)277 3365 y Fn(LIST)528 b Fy(I\(NSEL\))251 b +FA(latest)31 b(com)m(bination,)f(LIST\(1\)=0)h(to)g(initialize)0 +3744 y Fy(RETURNED)46 b FA(:)277 3890 y Fn(J)688 b Fy(I)605 +b FA(status:)1825 4003 y Fl(\000)p FA(1)30 b(=)g(illegal)f(NSEL)h(or)g +(NCAND)1898 4116 y(0)g(=)g(OK)1825 4229 y(+1)g(=)g(no)h(more)f(com)m +(binations)g(a)m(v)-5 b(ailable)0 4599 y Fy(NOTES)44 +b FA(:)311 4793 y(1.)i(NSEL)33 b(and)h(NCAND)g(m)m(ust)g(b)s(oth)f(b)s +(e)g(at)h(least)g(1,)i(and)d(NSEL)g(m)m(ust)g(b)s(e)h(less)f(than)g(or) +h(equal)427 4906 y(to)d(NCAND.)311 5055 y(2.)46 b(This)32 +b(routine)g(returns,)h(in)f(the)i(LIST)e(arra)m(y)-8 +b(,)35 b(a)f(subset)f(of)g(NSEL)g(in)m(tegers)h(c)m(hosen)f(from)g(the) +427 5168 y(range)h(1)h(to)f(NCAND)g(inclusiv)m(e,)f(in)g(ascending)g +(order.)50 b(Before)35 b(calling)d(the)i(routine)f(for)g(the)427 +5281 y(\014rst)f(time,)h(the)g(caller)f(m)m(ust)h(set)g(the)g(\014rst)f +(elemen)m(t)h(of)f(the)h(LIST)f(arra)m(y)h(to)g(zero)h(\(an)m(y)f(v)-5 +b(alue)427 5394 y(less)30 b(than)g(1)h(will)d(do\))i(to)h(cause)g +(initialization.)311 5544 y(3.)46 b(The)30 b(\014rst)g(com)m(bination)f +(to)j(b)s(e)d(generated)j(is:)597 5693 y(LIST\(1\)=1,)f(LIST\(2\)=2,)g +(.)15 b(.)g(.)h(,)30 b(LIST\(NSEL\)=NSEL)p eop +%%Page: 27 29 +27 28 bop 0 52 a Ft(SUN/67.45)3252 b FA(27)427 351 y(This)33 +b(is)h(also)h(the)g(com)m(bination)f(returned)g(for)h(the)g +(\\\014nished")e(\(J=1\))i(case.)55 b(The)35 b(\014nal)e(p)s(er-)427 +464 y(m)m(utation)e(to)g(b)s(e)f(generated)h(is:)597 +617 y(LIST\(1\)=NCAND,)g(LIST\(2\)=NCAND)p Fl(\000)p +FA(1,)g(.)16 b(.)f(.)g(,)1537 730 y(LIST\(NSEL\)=NCAND)p +Fl(\000)p FA(NSEL+1)311 883 y(4.)46 b(If)20 b(the)h(\\\014nished")e +(\(J=1\))i(status)g(is)f(ignored,)i(the)f(routine)e(con)m(tin)m(ues)i +(to)h(deliv)m(er)d(com)m(binations,)427 996 y(the)31 +b(pattern)f(rep)s(eating)g(ev)m(ery)h(NCAND!/\(NSEL!\(NCAND)p +Fl(\000)p FA(NSEL\)!\))i(calls.)311 1149 y(5.)46 b(The)30 +b(algorithm)g(is)f(b)m(y)h(R.)16 b(F.)f(W)-8 b(arren-Smith)30 +b(\(priv)-5 b(ate)30 b(comm)m(unication\).)p 0 1301 3780 +8 v 0 1414 a Fu(SLA)p Fk(_)p Fu(CR2AF)331 b Fj(Radians)38 +b(to)g(Deg,Arcmin,Arcsec)329 b Fu(SLA)p Fk(_)p Fu(CR2AF)0 +1764 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 b(an)e(angle)g(in)f +(radians)g(to)i(degrees,)h(arcmin)m(utes,)e(arcseconds)h(\(single)e +(precision\).)0 1952 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_CR2AF)g(\(NDP,)g(ANGLE,)g(SIGN,)g(IDMSF\))0 2323 +y Fy(GIVEN)f FA(:)277 2469 y Fn(NDP)537 b Fy(I)605 b +FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e(places)h(of)h(arcseconds)277 +2582 y Fn(ANGLE)411 b Fy(R)567 b FA(angle)31 b(in)e(radians)0 +2970 y Fy(RETURNED)46 b FA(:)277 3116 y Fn(SIGN)512 b +Fy(C)569 b FA(`+')31 b(or)f(`)p Fl(\000)p FA(')277 3229 +y Fn(IDMSF)440 b Fy(I\(4\))471 b FA(degrees,)31 b(arcmin)m(utes,)f +(arcseconds,)h(fraction)0 3618 y Fy(NOTES)44 b FA(:)311 +3819 y(1.)i(NDP)31 b(less)f(than)g(zero)h(is)e(in)m(terpreted)h(as)h +(zero.)311 3972 y(2.)46 b(The)36 b(largest)g(useful)e(v)-5 +b(alue)36 b(for)f(NDP)i(is)e(determined)f(b)m(y)i(the)g(size)g(of)g +(ANGLE,)h(the)f(format)427 4085 y(of)e(REAL)g(\015oating-p)s(oin)m(t)f +(n)m(um)m(b)s(ers)g(on)g(the)i(target)g(mac)m(hine,)g(and)e(the)h(risk) +f(of)h(o)m(v)m(er\015o)m(wing)427 4198 y(IDMSF\(4\).)58 +b(F)-8 b(or)36 b(example,)h(on)e(a)h(V)-10 b(AX)36 b(computer,)g(for)g +(ANGLE)f(up)g(to)h(2)p Fi(\031)s FA(,)h(the)f(a)m(v)-5 +b(ailable)427 4311 y(\015oating-p)s(oin)m(t)32 b(precision)e(corresp)s +(onds)g(roughly)h(to)h(NDP=3.)47 b(This)30 b(is)h(w)m(ell)g(b)s(elo)m +(w)g(the)h(ulti-)427 4424 y(mate)g(limit)c(of)i(NDP=9)h(set)g(b)m(y)f +(the)h(capacit)m(y)h(of)e(the)h(32-bit)f(in)m(teger)h(IHMSF\(4\).)311 +4577 y(3.)46 b(The)29 b(absolute)f(v)-5 b(alue)29 b(of)g(ANGLE)g(ma)m +(y)g(exceed)h(2)p Fi(\031)s FA(.)41 b(In)28 b(cases)i(where)e(it)g(do)s +(es)h(not,)h(it)e(is)g(up)g(to)427 4690 y(the)f(caller)g(to)g(test)h +(for)f(and)f(handle)f(the)j(case)g(where)e(ANGLE)h(is)f(v)m(ery)h +(nearly)f(2)p Fi(\031)31 b FA(and)26 b(rounds)427 4803 +y(up)k(to)h(360)805 4770 y Fm(\016)845 4803 y FA(,)g(b)m(y)f(testing)h +(for)f(IDMSF\(1\)=360)j(and)d(setting)g(IDMSF\(1-4\))j(to)e(zero.)p +0 4955 V 0 5068 a Fu(SLA)p Fk(_)p Fu(CR2TF)482 b Fj(Radians)38 +b(to)g(Hour,Min,Sec)481 b Fu(SLA)p Fk(_)p Fu(CR2TF)0 +5418 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 b(an)e(angle)g(in)f +(radians)g(to)i(hours,)f(min)m(utes,)g(seconds)g(\(single)f +(precision\).)0 5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_CR2TF)g(\(NDP,)g(ANGLE,)g(SIGN,)g(IHMSF\))p eop +%%Page: 28 30 +28 29 bop 0 52 a FA(28)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(NDP)537 b Fy(I)605 b FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e +(places)h(of)h(seconds)277 610 y Fn(ANGLE)411 b Fy(R)567 +b FA(angle)31 b(in)e(radians)0 886 y Fy(RETURNED)46 b +FA(:)277 1032 y Fn(SIGN)512 b Fy(C)569 b FA(`+')31 b(or)f(`)p +Fl(\000)p FA(')277 1145 y Fn(IHMSF)441 b Fy(I\(4\))471 +b FA(hours,)30 b(min)m(utes,)f(seconds,)i(fraction)0 +1421 y Fy(NOTES)44 b FA(:)311 1597 y(1.)i(NDP)31 b(less)f(than)g(zero)h +(is)e(in)m(terpreted)h(as)h(zero.)311 1732 y(2.)46 b(The)36 +b(largest)g(useful)e(v)-5 b(alue)36 b(for)f(NDP)i(is)e(determined)f(b)m +(y)i(the)g(size)g(of)g(ANGLE,)h(the)f(format)427 1845 +y(of)e(REAL)g(\015oating-p)s(oin)m(t)f(n)m(um)m(b)s(ers)g(on)g(the)i +(target)g(mac)m(hine,)g(and)e(the)h(risk)f(of)h(o)m(v)m(er\015o)m(wing) +427 1958 y(IHMSF\(4\).)58 b(F)-8 b(or)36 b(example,)h(on)e(a)h(V)-10 +b(AX)36 b(computer,)h(for)e(ANGLE)h(up)f(to)h(2)p Fi(\031)s +FA(,)h(the)f(a)m(v)-5 b(ailable)427 2071 y(\015oating-p)s(oin)m(t)32 +b(precision)e(corresp)s(onds)g(roughly)h(to)h(NDP=3.)47 +b(This)30 b(is)h(w)m(ell)g(b)s(elo)m(w)g(the)h(ulti-)427 +2184 y(mate)g(limit)c(of)i(NDP=9)h(set)g(b)m(y)f(the)h(capacit)m(y)h +(of)e(the)h(32-bit)f(in)m(teger)h(IHMSF\(4\).)311 2319 +y(3.)46 b(The)29 b(absolute)f(v)-5 b(alue)29 b(of)g(ANGLE)g(ma)m(y)g +(exceed)h(2)p Fi(\031)s FA(.)41 b(In)28 b(cases)i(where)e(it)g(do)s(es) +h(not,)h(it)e(is)g(up)g(to)427 2432 y(the)f(caller)g(to)g(test)h(for)f +(and)f(handle)f(the)j(case)g(where)e(ANGLE)h(is)f(v)m(ery)h(nearly)f(2) +p Fi(\031)31 b FA(and)26 b(rounds)427 2545 y(up)k(to)h(24)g(hours,)e(b) +m(y)i(testing)f(for)g(IHMSF\(1\)=24)j(and)c(setting)i(IHMSF\(1-4\))h +(to)f(zero.)p 0 2649 3780 8 v 0 2762 a Fu(SLA)p Fk(_)p +Fu(CS2C)664 b Fj(Spherical)38 b(to)g(Cartesian)663 b +Fu(SLA)p Fk(_)p Fu(CS2C)0 3112 y Fy(A)m(CTION)44 b FA(:)c(Spherical)29 +b(co)s(ordinates)h(to)h(Cartesian)f(co)s(ordinates)g(\(single)f +(precision\).)0 3300 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_CS2C)g(\(A,)h(B,)g(V\))0 3605 y Fy(GIVEN)e FA(:)277 +3777 y Fn(A,B)576 b Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h(in)f +(radians:)39 b([)15 b Fi(\013;)g(\016)20 b FA(])31 b +Fn(etc.)0 4061 y Fy(RETURNED)46 b FA(:)277 4233 y Fn(V)668 +b Fy(R\(3\))433 b FA([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(])30 +b(unit)f(v)m(ector)0 4517 y Fy(NOTE)44 b FA(:)65 b(The)42 +b(spherical)f(co)s(ordinates)i(are)g(longitude)e(\(+v)m(e)i(an)m(ticlo) +s(c)m(kwise)g(lo)s(oking)e(from)h(the)h(+v)m(e)227 4630 +y(latitude)33 b(p)s(ole\))g(and)g(latitude.)50 b(The)33 +b(Cartesian)h(co)s(ordinates)f(are)h(righ)m(t)f(handed,)h(with)f(the)h +Fn(x)p FA(-axis)227 4743 y(at)d(zero)h(longitude)d(and)g(latitude,)h +(and)g(the)g Fn(z)p FA(-axis)h(at)g(the)f(+v)m(e)h(latitude)f(p)s(ole.) +p 0 4842 V 0 4955 a Fu(SLA)p Fk(_)p Fu(CS2C6)377 b Fj(Spherical)37 +b(P)m(os/V)-10 b(el)37 b(to)h(Cartesian)375 b Fu(SLA)p +Fk(_)p Fu(CS2C6)0 5305 y Fy(A)m(CTION)44 b FA(:)38 b(Con)m(v)m(ersion) +25 b(of)g(p)s(osition)f(&)h(v)m(elo)s(cit)m(y)g(in)f(spherical)g(co)s +(ordinates)h(to)h(Cartesian)f(co)s(ordinates)227 5418 +y(\(single)30 b(precision\).)0 5606 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_CS2C6)g(\(A,)h(B,)g(R,)g(AD,)g(BD,)g(RD,)g(V\))p +eop +%%Page: 29 31 +29 30 bop 0 52 a Ft(SUN/67.45)3252 b FA(29)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(A)668 b Fy(R)567 b FA(longitude)29 +b(\(radians\))h({)h(for)f(example)g Fi(\013)277 610 y +Fn(B)672 b Fy(R)567 b FA(latitude)30 b(\(radians\))f({)i(for)f(example) +g Fi(\016)277 723 y Fn(R)670 b Fy(R)567 b FA(radial)29 +b(co)s(ordinate)277 836 y Fn(AD)599 b Fy(R)567 b FA(longitude)29 +b(deriv)-5 b(ativ)m(e)30 b(\(radians)f(p)s(er)h(unit)f(time\))277 +949 y Fn(BD)603 b Fy(R)567 b FA(latitude)30 b(deriv)-5 +b(ativ)m(e)29 b(\(radians)h(p)s(er)f(unit)g(time\))277 +1062 y Fn(RD)601 b Fy(R)567 b FA(radial)29 b(deriv)-5 +b(ativ)m(e)0 1407 y Fy(RETURNED)46 b FA(:)277 1579 y +Fn(V)668 b Fy(R\(6\))433 b FA([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 +b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(])p 0 1724 3780 8 v 0 1837 a Fu(SLA)p +Fk(_)p Fu(CTF2D)559 b Fj(Hour,Min,Sec)36 b(to)i(Da)m(ys)560 +b Fu(SLA)p Fk(_)p Fu(CTF2D)0 2188 y Fy(A)m(CTION)44 b +FA(:)c(Con)m(v)m(ert)32 b(hours,)d(min)m(utes,)h(seconds)g(to)h(da)m +(ys)g(\(single)e(precision\).)0 2375 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_CTF2D)g(\(IHOUR,)f(IMIN,)i(SEC,)f(DAYS,)h(J\))0 +2720 y Fy(GIVEN)e FA(:)277 2866 y Fn(IHOUR)429 b Fy(I)605 +b FA(hours)277 2979 y Fn(IMIN)516 b Fy(I)605 b FA(min)m(utes)277 +3092 y Fn(SEC)558 b Fy(R)567 b FA(seconds)0 3438 y Fy(RETURNED)46 +b FA(:)277 3584 y Fn(D)n(A)-7 b(YS)489 b Fy(R)567 b FA(in)m(terv)-5 +b(al)30 b(in)f(da)m(ys)277 3697 y Fn(J)688 b Fy(I)605 +b FA(status:)1825 3810 y(0)31 b(=)f(OK)1825 3923 y(1)h(=)f(IHOUR)g +(outside)f(range)i(0-23)1825 4036 y(2)g(=)f(IMIN)g(outside)g(range)g +(0-59)1825 4148 y(3)h(=)f(SEC)f(outside)h(range)g(0-59.999)p +Fl(\001)15 b(\001)g(\001)0 4494 y Fy(NOTES)44 b FA(:)311 +4681 y(1.)i(The)30 b(result)f(is)h(computed)g(ev)m(en)h(if)e(an)m(y)i +(of)g(the)f(range)h(c)m(hec)m(ks)h(fail.)311 4826 y(2.)46 +b(The)30 b(sign)g(m)m(ust)g(b)s(e)g(dealt)g(with)f(outside)g(this)h +(routine.)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p Fu(CTF2R)482 +b Fj(Hour,Min,Sec)37 b(to)h(Radians)482 b Fu(SLA)p Fk(_)p +Fu(CTF2R)0 5418 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 +b(hours,)d(min)m(utes,)h(seconds)g(to)h(radians)e(\(single)h +(precision\).)0 5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_CTF2R)g(\(IHOUR,)f(IMIN,)i(SEC,)f(RAD,)h(J\))p +eop +%%Page: 30 32 +30 31 bop 0 52 a FA(30)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(IHOUR)429 b Fy(I)605 b FA(hours)277 610 y Fn(IMIN)516 +b Fy(I)605 b FA(min)m(utes)277 723 y Fn(SEC)558 b Fy(R)567 +b FA(seconds)0 1202 y Fy(RETURNED)46 b FA(:)277 1348 +y Fn(RAD)533 b Fy(R)567 b FA(angle)31 b(in)e(radians)277 +1461 y Fn(J)688 b Fy(I)605 b FA(status:)1825 1574 y(0)31 +b(=)f(OK)1825 1687 y(1)h(=)f(IHOUR)g(outside)f(range)i(0-23)1825 +1800 y(2)g(=)f(IMIN)g(outside)g(range)g(0-59)1825 1913 +y(3)h(=)f(SEC)f(outside)h(range)g(0-59.999)p Fl(\001)15 +b(\001)g(\001)0 2392 y Fy(NOTES)44 b FA(:)311 2630 y(1.)i(The)30 +b(result)f(is)h(computed)g(ev)m(en)h(if)e(an)m(y)i(of)g(the)f(range)h +(c)m(hec)m(ks)h(fail.)311 2801 y(2.)46 b(The)30 b(sign)g(m)m(ust)g(b)s +(e)g(dealt)g(with)f(outside)g(this)h(routine.)p 0 2984 +3780 8 v 0 3097 a Fu(SLA)p Fk(_)p Fu(D)l(AF2R)329 b Fj +(Deg,Arcmin,Arcsec)35 b(to)j(Radians)330 b Fu(SLA)p Fk(_)p +Fu(D)l(AF2R)0 3448 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 +b(degrees,)f(arcmin)m(utes,)f(arcseconds)h(to)g(radians)e(\(double)g +(precision\).)0 3635 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DAF2R)g(\(IDEG,)g(IAMIN,)g(ASEC,)g(RAD,)h(J\))0 +4060 y Fy(GIVEN)e FA(:)277 4206 y Fn(IDEG)500 b Fy(I)605 +b FA(degrees)277 4319 y Fn(IAMIN)448 b Fy(I)605 b FA(arcmin)m(utes)277 +4432 y Fn(ASEC)490 b Fy(D)565 b FA(arcseconds)0 4912 +y Fy(RETURNED)46 b FA(:)277 5058 y Fn(RAD)533 b Fy(D)565 +b FA(angle)31 b(in)e(radians)277 5171 y Fn(J)688 b Fy(I)605 +b FA(status:)1825 5283 y(1)31 b(=)f(IDEG)g(outside)g(range)h(0)p +Fl(\000)p FA(359)1825 5396 y(2)g(=)f(IAMIN)g(outside)g(range)h(0)p +Fl(\000)p FA(59)1825 5509 y(3)g(=)f(ASEC)f(outside)h(range)g(0)p +Fl(\000)p FA(59.999)p Fl(\001)15 b(\001)g(\001)p eop +%%Page: 31 33 +31 32 bop 0 52 a Ft(SUN/67.45)3252 b FA(31)0 351 y Fy(NOTES)44 +b FA(:)311 538 y(1.)i(The)30 b(result)f(is)h(computed)g(ev)m(en)h(if)e +(an)m(y)i(of)g(the)f(range)h(c)m(hec)m(ks)h(fail.)311 +683 y(2.)46 b(The)30 b(sign)g(m)m(ust)g(b)s(e)g(dealt)g(with)f(outside) +g(this)h(routine.)p 0 813 3780 8 v 0 926 a Fu(SLA)p Fk(_)p +Fu(D)l(AFIN)175 b Fj(Sexagesimal)36 b(c)m(haracter)g(string)h(to)i +(angle)175 b Fu(SLA)p Fk(_)p Fu(D)l(AFIN)0 1276 y Fy(A)m(CTION)44 +b FA(:)k(Deco)s(de)35 b(a)g(free-format)g(sexagesimal)f(string)f +(\(degrees,)j(arcmin)m(utes,)f(arcseconds\))g(in)m(to)f(a)227 +1389 y(double)29 b(precision)g(\015oating)h(p)s(oin)m(t)f(n)m(um)m(b)s +(er)g(\(radians\).)0 1576 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DAFIN)g(\(STRING,)f(NSTRT,)h(DRESLT,)g(JF\))0 1922 +y Fy(GIVEN)f FA(:)277 2068 y Fn(STRING)381 b Fy(C*\(*\))i +FA(string)29 b(con)m(taining)h(deg,)h(arcmin,)f(arcsec)h(\014elds)277 +2181 y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(p)s(oin)m(ter)36 +b(to)h(start)g(of)f(deco)s(de)h(\(b)s(eginning)d(of)j(STRING)1658 +2294 y(=)30 b(1\))0 2640 y Fy(RETURNED)46 b FA(:)277 +2786 y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(adv)-5 b(anced)31 +b(past)f(the)h(deco)s(ded)f(angle)277 2899 y Fn(DRESL)-7 +b(T)373 b Fy(D)565 b FA(angle)31 b(in)e(radians)277 3012 +y Fn(JF)629 b Fy(I)605 b FA(status:)1825 3125 y(0)31 +b(=)f(OK)1752 3238 y(+1)h(=)f(default,)f(DRESL)-8 b(T)30 +b(unc)m(hanged)g(\(note)i(2\))1752 3351 y Fl(\000)p FA(1)f(=)f(bad)f +(degrees)i(\(note)h(3\))1752 3464 y Fl(\000)p FA(2)f(=)f(bad)f(arcmin)m +(utes)h(\(note)i(3\))1752 3577 y Fl(\000)p FA(3)f(=)f(bad)f(arcseconds) +i(\(note)g(3\))0 3923 y Fy(EXAMPLE)45 b FA(:)277 4069 +y Fn(ar)-5 b(gument)369 b(b)-5 b(efor)g(e)1235 b(after)277 +4295 y FA(STRING)1013 4262 y Fm(0)1036 4295 y Fq +(-57 17 44.806 12 34 56.7)2236 4262 y Fm(0)2476 4295 +y FA(unc)m(hanged)277 4408 y(NSTR)-8 b(T)426 b(1)1418 +b(16)32 b(\()p Fn(i.e.)e FA(p)s(oin)m(ting)e(to)j(12...\))277 +4521 y(RESL)-8 b(T)441 b(-)1433 b Fl(\000)p FA(1)p Fi(:)p +FA(00000)p Fq(D0)277 4634 y FA(JF)630 b(-)1433 b(0)45 +4813 y(A)39 b(further)f(call)g(to)i(sla)p Fq(_)p FA(D)m(AFIN,)f +(without)f(adjustmen)m(t)h(of)g(NSTR)-8 b(T,)38 b(will)e(deco)s(de)j +(the)g(second)g(angle,)227 4926 y(12)317 4893 y Fm(\016)373 +4926 y FA(34)463 4889 y Fh(0)505 4926 y FA(56)590 4889 +y Fh(0)m(0)594 4926 y Fi(:)p FA(7.)0 5281 y Fy(NOTES)44 +b FA(:)311 5467 y(1.)i(The)27 b(\014rst)f(three)h(\\\014elds")f(in)g +(STRING)g(are)h(degrees,)i(arcmin)m(utes,)e(arcseconds,)h(separated)g +(b)m(y)427 5580 y(spaces)d(or)e(commas.)40 b(The)23 b(degrees)h +(\014eld)f(ma)m(y)h(b)s(e)g(signed,)g(but)f(not)h(the)g(others.)39 +b(The)24 b(deco)s(ding)427 5693 y(is)30 b(carried)f(out)i(b)m(y)f(the)h +(sla)p Fq(_)p FA(DFL)-8 b(TIN)30 b(routine)f(and)h(is)g(free-format.)p +eop +%%Page: 32 34 +32 33 bop 0 52 a FA(32)311 351 y(2.)46 b(Successiv)m(e)24 +b(\014elds)e(ma)m(y)i(b)s(e)f(absen)m(t,)j(defaulting)c(to)j(zero.)39 +b(F)-8 b(or)25 b(zero)f(status,)i(the)e(only)e(com)m(bina-)427 +464 y(tions)31 b(allo)m(w)m(ed)g(are)g(degrees)h(alone,)f(degrees)h +(and)f(arcmin)m(utes,)g(and)f(all)g(three)i(\014elds)d(presen)m(t.)427 +577 y(If)h(all)e(three)i(\014elds)e(are)i(omitted,)g(a)g(status)g(of)g +(+1)g(is)f(returned)f(and)i(DRESL)-8 b(T)29 b(is)g(unc)m(hanged.)427 +690 y(In)h(all)f(other)i(cases)g(DRESL)-8 b(T)30 b(is)f(c)m(hanged.)311 +848 y(3.)46 b(Range)31 b(c)m(hec)m(king:)506 1006 y Fl(\017)46 +b FA(The)38 b(degrees)h(\014eld)e(is)g(not)i(range)g(c)m(hec)m(k)m(ed.) +66 b(Ho)m(w)m(ev)m(er,)43 b(it)38 b(is)f(exp)s(ected)i(to)g(b)s(e)f(in) +m(tegral)597 1119 y(unless)29 b(the)i(other)f(t)m(w)m(o)i(\014elds)d +(are)h(absen)m(t.)506 1254 y Fl(\017)46 b FA(The)33 b(arcmin)m(utes)h +(\014eld)e(is)g(exp)s(ected)i(to)h(b)s(e)e(0-59,)j(and)d(in)m(tegral)g +(if)g(the)h(arcseconds)g(\014eld)597 1367 y(is)39 b(presen)m(t.)70 +b(If)40 b(the)g(arcseconds)g(\014eld)f(is)g(absen)m(t,)k(the)d(arcmin)m +(utes)g(is)f(exp)s(ected)h(to)h(b)s(e)597 1480 y(0-59.9999...)506 +1615 y Fl(\017)46 b FA(The)30 b(arcseconds)h(\014eld)e(is)g(exp)s +(ected)i(to)g(b)s(e)f(0-59.9999...)506 1751 y Fl(\017)46 +b FA(Deco)s(ding)40 b(con)m(tin)m(ues)g(ev)m(en)h(when)e(a)h(c)m(hec)m +(k)i(has)d(failed.)68 b(Under)39 b(these)i(circumstances)597 +1864 y(the)33 b(\014eld)d(tak)m(es)k(the)e(supplied)d(v)-5 +b(alue,)32 b(defaulting)f(to)h(zero,)i(and)d(the)i(result)e(DRESL)-8 +b(T)31 b(is)597 1977 y(computed)f(and)g(returned.)311 +2134 y(4.)46 b(F)-8 b(urther)31 b(\014elds)f(after)h(the)g(three)h(exp) +s(ected)f(ones)g(are)h(not)f(treated)h(as)g(an)e(error.)43 +b(The)30 b(p)s(oin)m(ter)427 2247 y(NSTR)-8 b(T)35 b(is)g(left)g(in)f +(the)i(correct)h(state)f(for)g(further)e(deco)s(ding)g(with)h(the)g +(presen)m(t)h(routine)e(or)427 2360 y(with)29 b(sla)p +Fq(_)p FA(DFL)-8 b(TIN)31 b Fn(etc)p FA(.)40 b(See)31 +b(the)f(example,)h(ab)s(o)m(v)m(e.)311 2518 y(5.)46 b(If)27 +b(STRING)h(con)m(tains)f(hours,)h(min)m(utes,)f(seconds)h(instead)f(of) +h(degrees)g Fn(etc)p FA(,)g(or)g(if)e(the)i(required)427 +2631 y(units)e(are)j(turns)d(\(or)i(da)m(ys\))g(instead)f(of)h +(radians,)f(the)h(result)f(DRESL)-8 b(T)27 b(should)f(b)s(e)h(m)m +(ultiplied)427 2744 y(as)k(follo)m(ws:)477 2890 y Fn(for)i(STRING)145 +b(to)33 b(obtain)202 b(multiply)34 b(DRESL)-7 b(T)32 +b(by)477 3116 y Fl(\016)583 3110 y Fm(0)65 b(00)1122 +3116 y FA(radians)264 b(1)p Fi(:)p FA(0)p Fq(D0)477 3229 +y Fl(\016)583 3223 y Fm(0)65 b(00)1122 3229 y FA(turns)345 +b(1)p Fi(=)p FA(2)p Fi(\031)30 b FA(=)25 b(0)p Fi(:)p +FA(1591549430918)q(95)q(335)q(8)p Fq(D0)477 3342 y FA(h)30 +b(m)g(s)422 b(radians)264 b(15)p Fi(:)p FA(0)p Fq(D0)477 +3455 y FA(h)30 b(m)g(s)422 b(da)m(ys)377 b(15)p Fi(=)p +FA(2)p Fi(\031)30 b FA(=)25 b(2)p Fi(:)p FA(387324146378)q(43)q(003)q +(65)q Fq(D0)p 0 3627 3780 8 v 0 3740 a Fu(SLA)p Fk(_)p +Fu(D)l(A)-11 b(T)1008 b Fj(T)-10 b(AI)p Fe(\000)p Fj(UTC)1010 +b Fu(SLA)p Fk(_)p Fu(D)l(A)-11 b(T)0 4090 y Fy(A)m(CTION)44 +b FA(:)38 b(Incremen)m(t)26 b(to)g(b)s(e)f(applied)e(to)k(Co)s +(ordinated)d(Univ)m(ersal)g(Time)h(UTC)g(to)h(giv)m(e)g(In)m +(ternational)227 4203 y(A)m(tomic)31 b(Time)f(T)-8 b(AI.)0 +4391 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_DAT)d(\(UTC\))0 +4772 y Fy(GIVEN)g FA(:)277 4944 y Fn(UTC)538 b Fy(D)565 +b FA(UTC)30 b(date)h(as)g(a)f(mo)s(di\014ed)f(JD)h(\(JD)p +Fl(\000)p FA(2400000.5\))0 5364 y Fy(RETURNED)46 b FA(:)277 +5536 y Fn(sla)p Fq(_)p Fn(D)n(A)-7 b(T)389 b Fy(D)565 +b FA(T)-8 b(AI)p Fl(\000)p FA(UTC)30 b(in)f(seconds)p +eop +%%Page: 33 35 +33 34 bop 0 52 a Ft(SUN/67.45)3252 b FA(33)0 351 y Fy(NOTES)44 +b FA(:)311 544 y(1.)i(The)32 b(UTC)f(is)g(sp)s(eci\014ed)f(to)i(b)s(e)f +(a)i(date)f(rather)g(than)f(a)h(time)g(to)g(indicate)f(that)i(care)f +(needs)g(to)427 657 y(b)s(e)g(tak)m(en)i(not)f(to)h(sp)s(ecify)d(an)i +(instan)m(t)g(whic)m(h)e(lies)h(within)e(a)j(leap)g(second.)48 +b(Though)32 b(in)f(most)427 770 y(cases)39 b(UTC)e(can)i(include)c(the) +j(fractional)g(part,)i(correct)f(b)s(eha)m(viour)d(on)i(the)g(da)m(y)h +(of)f(a)g(leap)427 883 y(second)31 b(can)f(b)s(e)g(guaran)m(teed)i +(only)d(up)g(to)i(the)g(end)f(of)g(the)h(second)f(23)2892 +850 y Fr(h)2952 883 y FA(59)3042 850 y Fr(m)3121 883 +y FA(59)3211 850 y Fr(s)3244 883 y FA(.)311 1032 y(2.)46 +b(UTC)29 b(b)s(egan)h(at)g(1960)h(Jan)m(uary)f(1.)40 +b(T)-8 b(o)30 b(sp)s(ecify)f(a)h(UTC)f(prior)f(to)i(this)f(date)h(w)m +(ould)e(b)s(e)h(mean-)427 1145 y(ingless;)g(in)g(suc)m(h)i(cases)g(the) +f(parameters)h(for)f(the)h(y)m(ear)g(1960)h(are)f(used)e(b)m(y)i +(default.)311 1294 y(3.)46 b(This)35 b(routine)h(has)g(to)h(b)s(e)f(up) +s(dated)f(on)i(eac)m(h)h(o)s(ccasion)f(that)g(a)g(leap)f(second)g(is)g +(announced,)427 1407 y(and)28 b(programs)h(using)e(it)h(relink)m(ed.)38 +b(Refer)29 b(to)g(the)g(program)g(source)f(co)s(de)h(for)g(information) +e(on)427 1520 y(when)j(the)g(most)h(recen)m(t)g(leap)f(second)h(w)m(as) +f(added.)p 0 1658 3780 8 v 0 1771 a Fu(SLA)p Fk(_)p Fu(D)l(A)-15 +b(V2M)187 b Fj(Rotation)36 b(Matrix)h(from)g(Axial)g(V)-10 +b(ector)188 b Fu(SLA)p Fk(_)p Fu(D)l(A)-15 b(V2M)0 2121 +y Fy(A)m(CTION)44 b FA(:)39 b(F)-8 b(orm)28 b(the)f(rotation)h(matrix)f +(corresp)s(onding)e(to)j(a)g(giv)m(en)f(axial)g(v)m(ector)h(\(double)f +(precision\).)0 2309 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DAV2M)g(\(AXVEC,)f(RMAT\))0 2667 y Fy(GIVEN)g FA(:)277 +2838 y Fn(AXVEC)405 b Fy(D\(3\))431 b FA(axial)30 b(v)m(ector)i +(\(radians\))0 3214 y Fy(RETURNED)46 b FA(:)277 3386 +y Fn(RMA)-7 b(T)462 b Fy(D\(3,3\))350 b FA(rotation)31 +b(matrix)0 3761 y Fy(NOTES)44 b FA(:)311 3954 y(1.)i(A)32 +b(rotation)f(matrix)g(describ)s(es)e(a)i(rotation)h(ab)s(out)f(some)g +(arbitrary)f(axis.)43 b(The)30 b(axis)h(is)f(called)427 +4067 y(the)g Fn(Euler)i(axis)p FA(,)f(and)e(the)h(angle)g(through)f +(whic)m(h)g(the)h(reference)g(frame)g(rotates)h(is)e(called)g(the)427 +4180 y Fn(Euler)34 b(angle)p FA(.)48 b(The)31 b(axial)h(v)m(ector)i +(supplied)29 b(to)k(this)f(routine)f(has)h(the)h(same)g(direction)e(as) +h(the)427 4293 y(Euler)d(axis,)h(and)g(its)g(magnitude)f(is)h(the)g +(Euler)f(angle)i(in)e(radians.)311 4442 y(2.)46 b(If)30 +b(AXVEC)h(is)e(n)m(ull,)g(the)h(unit)f(matrix)h(is)f(returned.)311 +4591 y(3.)46 b(The)28 b(reference)g(frame)g(rotates)h(clo)s(c)m(kwise)e +(as)i(seen)f(lo)s(oking)e(along)i(the)g(axial)f(v)m(ector)j(from)d(the) +427 4704 y(origin.)p 0 4842 V 0 4955 a Fu(SLA)p Fk(_)p +Fu(DBEAR)109 b Fj(Direction)37 b(Bet)m(w)m(een)h(P)m(oin)m(ts)f(on)h(a) +h(Sphere)110 b Fu(SLA)p Fk(_)p Fu(DBEAR)0 5305 y Fy(A)m(CTION)44 +b FA(:)h(Returns)31 b(the)i(b)s(earing)e(\(p)s(osition)f(angle\))j(of)g +(one)g(p)s(oin)m(t)e(on)h(a)h(sphere)f(relativ)m(e)g(to)h(another)227 +5418 y(\(double)d(precision\).)0 5606 y Fy(CALL)45 b +FA(:)77 b Fq(D)47 b(=)h(sla_DBEAR)d(\(A1,)i(B1,)f(A2,)h(B2\))p +eop +%%Page: 34 36 +34 35 bop 0 52 a FA(34)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(A1,B1)484 b Fy(D)565 b FA(spherical)29 b(co)s(ordinates)h(of)g +(one)h(p)s(oin)m(t)277 610 y Fn(A2,B2)484 b Fy(D)565 +b FA(spherical)29 b(co)s(ordinates)h(of)g(the)h(other)g(p)s(oin)m(t)0 +889 y Fy(RETURNED)46 b FA(:)277 1060 y Fn(sla)p Fq(_)p +Fn(DBEAR)253 b Fy(D)565 b FA(b)s(earing)29 b(from)h(\014rst)g(p)s(oin)m +(t)f(to)i(second)0 1347 y Fy(NOTES)44 b FA(:)311 1524 +y(1.)i(The)30 b(spherical)f(co)s(ordinates)h(are)h([)15 +b Fi(\013;)g(\016)20 b FA(],)31 b([)p Fi(\025;)15 b(\036)p +FA(])31 b Fn(etc.)p FA(,)f(in)f(radians.)311 1660 y(2.)46 +b(The)33 b(result)f(is)h(the)h(b)s(earing)e(\(p)s(osition)f(angle\),)k +(in)d(radians,)h(of)h(p)s(oin)m(t)e([A2,B2])k(as)d(seen)h(from)427 +1773 y(p)s(oin)m(t)j([A1,B1].)65 b(It)38 b(is)f(in)g(the)h(range)g +Fl(\006)p Fi(\031)s FA(.)63 b(The)37 b(sense)h(is)f(suc)m(h)h(that)g +(if)f([A2,B2])j(is)d(a)h(small)427 1885 y(distance)f(due)f(east)i(of)g +([A1,B1])h(the)e(result)f(is)g(ab)s(out)h(+)p Fi(\031)s(=)p +FA(2.)61 b(Zero)37 b(is)f(returned)g(if)g(the)h(t)m(w)m(o)427 +1998 y(p)s(oin)m(ts)30 b(are)g(coinciden)m(t.)311 2134 +y(3.)46 b(If)32 b(either)g(B-co)s(ordinate)h(is)f(outside)f(the)i +(range)g Fl(\006)p Fi(\031)s(=)p FA(2,)g(the)g(result)e(ma)m(y)i +(corresp)s(ond)f(to)h(\\the)427 2247 y(long)d(w)m(a)m(y)i(round".)311 +2382 y(4.)46 b(The)38 b(routine)g(sla)p Fq(_)p FA(DP)-8 +b(A)e(V)39 b(p)s(erforms)e(an)h(equiv)-5 b(alen)m(t)38 +b(function)f(except)j(that)f(the)g(p)s(oin)m(ts)e(are)427 +2495 y(sp)s(eci\014ed)29 b(in)g(the)i(form)e(of)i(Cartesian)f(unit)f(v) +m(ectors.)p 0 2595 3780 8 v 0 2708 a Fu(SLA)p Fk(_)p +Fu(DBJIN)262 b Fj(Deco)s(de)40 b(String)d(to)h(B/J)h(Ep)s(o)s(c)m(h)f +(\(DP\))263 b Fu(SLA)p Fk(_)p Fu(DBJIN)0 3059 y Fy(A)m(CTION)44 +b FA(:)64 b(Deco)s(de)42 b(a)h(c)m(haracter)g(string)e(in)m(to)h(a)g +(DOUBLE)g(PRECISION)f(n)m(um)m(b)s(er,)i(with)e(sp)s(ecial)227 +3172 y(pro)m(vision)21 b(for)h(Besselian)f(and)h(Julian)e(ep)s(o)s(c)m +(hs.)37 b(The)22 b(string)f(syn)m(tax)i(is)e(as)h(for)g(sla)p +Fq(_)p FA(DFL)-8 b(TIN,)23 b(pre\014xed)227 3285 y(b)m(y)31 +b(an)f(optional)f(`B')j(or)e(`J'.)0 3472 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DBJIN)g(\(STRING,)f(NSTRT,)h(DRESLT,)g +(J1,)h(J2\))0 3779 y Fy(GIVEN)e FA(:)277 3925 y Fn(STRING)381 +b Fy(C)569 b FA(string)29 b(con)m(taining)h(\014eld)f(to)i(b)s(e)f +(deco)s(ded)277 4038 y Fn(NSTR)-7 b(T)428 b Fy(I)605 +b FA(p)s(oin)m(ter)30 b(to)h(\014rst)e(c)m(haracter)j(of)f(\014eld)e +(in)g(string)0 4317 y Fy(RETURNED)46 b FA(:)277 4463 +y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(incremen)m(ted)30 +b(past)h(the)f(deco)s(ded)g(\014eld)277 4575 y Fn(DRESL)-7 +b(T)373 b Fy(D)565 b FA(result)277 4688 y Fn(J1)642 b +Fy(I)605 b FA(DFL)-8 b(TIN)31 b(status:)1752 4801 y Fl(\000)p +FA(1)g(=)f Fl(\000)p FA(OK)1825 4914 y(0)h(=)f(+OK)1825 +5027 y(1)h(=)f(n)m(ull)e(\014eld)1825 5140 y(2)j(=)f(error)277 +5253 y Fn(J2)642 b Fy(I)605 b FA(syn)m(tax)31 b(\015ag:)1825 +5366 y(0)g(=)f(normal)f(DFL)-8 b(TIN)31 b(syn)m(tax)1825 +5479 y(1)g(=)f(`B')h(or)f(`b')1825 5592 y(2)h(=)f(`J')g(or)g(`j')p +eop +%%Page: 35 37 +35 36 bop 0 52 a Ft(SUN/67.45)3252 b FA(35)0 351 y Fy(NOTES)44 +b FA(:)311 532 y(1.)i(The)27 b(purp)s(ose)f(of)i(the)g(syn)m(tax)g +(extensions)f(is)g(to)h(help)e(cop)s(e)i(with)e(mixed)h(FK4)h(and)e +(FK5)j(data,)427 645 y(allo)m(wing)g(\014elds)g(suc)m(h)h(as)h(`B1950') +i(or)d(`J2000')j(to)e(b)s(e)e(deco)s(ded.)311 785 y(2.)46 +b(In)30 b(addition)e(to)i(the)h(syn)m(tax)f(accepted)i(b)m(y)d(sla)p +Fq(_)p FA(DFL)-8 b(TIN,)31 b(the)f(follo)m(wing)e(t)m(w)m(o)k +(extensions)d(are)427 898 y(recognized)i(b)m(y)f(sla)p +Fq(_)p FA(DBJIN:)436 1037 y(\(a\))46 b(A)31 b(v)-5 b(alid)28 +b(non-n)m(ull)h(\014eld)f(preceded)j(b)m(y)f(the)g(c)m(haracter)i(`B')g +(\(or)e(`b'\))h(is)e(accepted.)431 1164 y(\(b\))45 b(A)31 +b(v)-5 b(alid)28 b(non-n)m(ull)h(\014eld)f(preceded)j(b)m(y)f(the)g(c)m +(haracter)i(`J')f(\(or)g(`j'\))g(is)e(accepted.)311 1303 +y(3.)46 b(The)33 b(calling)e(program)h(is)g(told)g(of)h(the)g(`B')h(or) +e(`J')h(through)f(an)h(supplemen)m(tary)e(status)i(argu-)427 +1416 y(men)m(t.)41 b(The)30 b(rest)h(of)f(the)h(argumen)m(ts)g(are)f +(as)h(for)f(sla)p Fq(_)p FA(DFL)-8 b(TIN.)p 0 1529 3780 +8 v 0 1642 a Fu(SLA)p Fk(_)p Fu(DC62S)357 b Fj(Cartesian)37 +b(6-V)-10 b(ector)37 b(to)h(Spherical)356 b Fu(SLA)p +Fk(_)p Fu(DC62S)0 1993 y Fy(A)m(CTION)44 b FA(:)38 b(Con)m(v)m(ersion) +25 b(of)g(p)s(osition)f(&)h(v)m(elo)s(cit)m(y)g(in)f(Cartesian)h(co)s +(ordinates)g(to)h(spherical)e(co)s(ordinates)227 2106 +y(\(double)30 b(precision\).)0 2293 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_DC62S)g(\(V,)h(A,)g(B,)g(R,)g(AD,)g(BD,)g(RD\))0 +2617 y Fy(GIVEN)e FA(:)277 2788 y Fn(V)668 b Fy(D\(6\))431 +b FA([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 b Fi(x)r(;)32 +b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 b FA(])0 +3105 y Fy(RETURNED)46 b FA(:)277 3251 y Fn(A)668 b Fy(D)565 +b FA(longitude)29 b(\(radians\))277 3364 y Fn(B)672 b +Fy(D)565 b FA(latitude)30 b(\(radians\))277 3477 y Fn(R)670 +b Fy(D)565 b FA(radial)29 b(co)s(ordinate)277 3590 y +Fn(AD)599 b Fy(D)565 b FA(longitude)29 b(deriv)-5 b(ativ)m(e)30 +b(\(radians)f(p)s(er)h(unit)f(time\))277 3703 y Fn(BD)603 +b Fy(D)565 b FA(latitude)30 b(deriv)-5 b(ativ)m(e)29 +b(\(radians)h(p)s(er)f(unit)g(time\))277 3816 y Fn(RD)601 +b Fy(D)565 b FA(radial)29 b(deriv)-5 b(ativ)m(e)p 0 3945 +V 0 4058 a Fu(SLA)p Fk(_)p Fu(DCC2S)561 b Fj(Cartesian)37 +b(to)h(Spherical)561 b Fu(SLA)p Fk(_)p Fu(DCC2S)0 4408 +y Fy(A)m(CTION)44 b FA(:)c(Cartesian)30 b(co)s(ordinates)g(to)i +(spherical)c(co)s(ordinates)i(\(double)f(precision\).)0 +4596 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DCC2S)g(\(V,)h(A,)g(B\)) +0 4919 y Fy(GIVEN)e FA(:)277 5091 y Fn(V)668 b Fy(D\(3\))431 +b FA([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(])30 b(v)m(ector)0 +5408 y Fy(RETURNED)46 b FA(:)277 5579 y Fn(A,B)576 b +Fy(D)565 b FA(spherical)29 b(co)s(ordinates)h(in)f(radians)p +eop +%%Page: 36 38 +36 37 bop 0 52 a FA(36)0 351 y Fy(NOTES)44 b FA(:)311 +545 y(1.)i(The)d(spherical)f(co)s(ordinates)i(are)g(longitude)e(\(+v)m +(e)i(an)m(ticlo)s(c)m(kwise)g(lo)s(oking)e(from)h(the)h(+v)m(e)427 +658 y(latitude)38 b(p)s(ole\))f(and)h(latitude.)64 b(The)37 +b(Cartesian)h(co)s(ordinates)g(are)h(righ)m(t)f(handed,)h(with)e(the) +427 771 y Fn(x)p FA(-axis)31 b(at)g(zero)g(longitude)e(and)h(latitude,) +f(and)h(the)h Fn(z)p FA(-axis)f(at)h(the)g(+v)m(e)f(latitude)g(p)s +(ole.)311 920 y(2.)46 b(If)30 b(V)h(is)e(n)m(ull,)g(zero)i(A)f(and)g(B) +h(are)g(returned.)311 1070 y(3.)46 b(A)m(t)32 b(either)d(p)s(ole,)h +(zero)h(A)g(is)e(returned.)p 0 1209 3780 8 v 0 1322 a +Fu(SLA)p Fk(_)p Fu(DCMPF)558 b Fj(In)m(terpret)37 b(Linear)h(Fit)559 +b Fu(SLA)p Fk(_)p Fu(DCMPF)0 1672 y Fy(A)m(CTION)44 b +FA(:)c(Decomp)s(ose)31 b(an)e([)15 b Fi(x;)g(y)k FA(])30 +b(linear)e(\014t)h(in)m(to)h(its)f(constituen)m(t)h(parameters:)41 +b(zero)30 b(p)s(oin)m(ts,)f(scales,)227 1785 y(nonp)s(erp)s +(endicularit)m(y)d(and)k(orien)m(tation.)0 1973 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DCMPF)g(\(COEFFS,XZ,YZ,XS,YS,PER)o(P,OR)o +(IEN)o(T\))0 2332 y Fy(GIVEN)f FA(:)277 2504 y Fn(COEFFS)370 +b Fy(D\(6\))431 b FA(transformation)30 b(co)s(e\016cien)m(ts)h(\(see)g +(note\))0 2882 y Fy(RETURNED)46 b FA(:)277 3028 y Fn(XZ)612 +b Fy(D)565 b Fn(x)31 b FA(zero)g(p)s(oin)m(t)277 3141 +y Fn(YZ)612 b Fy(D)565 b Fn(y)31 b FA(zero)g(p)s(oin)m(t)277 +3254 y Fn(XS)617 b Fy(D)565 b Fn(x)31 b FA(scale)277 +3366 y Fn(YS)617 b Fy(D)565 b Fn(y)31 b FA(scale)277 +3479 y Fn(PERP)484 b Fy(D)565 b FA(nonp)s(erp)s(endicularit)m(y)26 +b(\(radians\))277 3592 y Fn(ORIENT)370 b Fy(D)565 b FA(orien)m(tation) +31 b(\(radians\))0 3962 y Fy(NOTES)44 b FA(:)311 4156 +y(1.)i(The)30 b(mo)s(del)f(relates)h(t)m(w)m(o)h(sets)g(of)f([)15 +b Fi(x;)g(y)k FA(])30 b(co)s(ordinates)f(as)i(follo)m(ws.)39 +b(Naming)30 b(the)g(six)f(elemen)m(ts)427 4269 y(of)23 +b(COEFFS)g Fi(a;)15 b(b;)g(c;)g(d;)g(e)25 b FA(&)e Fi(f)10 +b FA(,)24 b(the)f(mo)s(del)f(transforms)g(co)s(ordinates)g([)p +Fi(x)2922 4283 y Fr(1)2962 4269 y Fi(;)15 b(y)3047 4283 +y Fr(1)3102 4269 y FA(])23 b(in)m(to)g(co)s(ordinates)427 +4382 y([)p Fi(x)504 4396 y Fr(2)544 4382 y Fi(;)15 b(y)629 +4396 y Fr(2)683 4382 y FA(])31 b(as)g(follo)m(ws:)597 +4531 y Fi(x)649 4545 y Fr(2)714 4531 y FA(=)25 b Fi(a)20 +b FA(+)g Fi(bx)1060 4545 y Fr(1)1120 4531 y FA(+)g Fi(cy)1295 +4545 y Fr(1)597 4644 y Fi(y)642 4658 y Fr(2)707 4644 +y FA(=)k Fi(d)d FA(+)f Fi(ex)1055 4658 y Fr(1)1115 4644 +y FA(+)g Fi(f)10 b(y)1306 4658 y Fr(1)427 4793 y FA(The)30 +b(sla)p Fq(_)p FA(DCMPF)g(routine)g(decomp)s(oses)g(this)f +(transformation)h(in)m(to)h(four)e(steps:)436 4943 y(\(a\))46 +b(Zero)31 b(p)s(oin)m(ts:)752 5074 y Fi(x)804 5041 y +Fm(0)852 5074 y FA(=)25 b Fi(x)1000 5088 y Fr(1)1060 +5074 y FA(+)20 b(XZ)752 5187 y Fi(y)800 5154 y Fm(0)848 +5187 y FA(=)25 b Fi(y)989 5201 y Fr(1)1048 5187 y FA(+)20 +b(YZ)431 5318 y(\(b\))45 b(Scales:)752 5449 y Fi(x)804 +5416 y Fm(00)871 5449 y FA(=)25 b Fi(x)1019 5416 y Fm(0)1043 +5449 y FA(XS)752 5562 y Fi(y)800 5529 y Fm(00)867 5562 +y FA(=)g Fi(y)1011 5529 y Fm(0)1034 5562 y FA(YS)441 +5693 y(\(c\))46 b(Nonp)s(erp)s(endicularit)m(y:)p eop +%%Page: 37 39 +37 38 bop 0 52 a Ft(SUN/67.45)3252 b FA(37)752 351 y +Fi(x)804 318 y Fm(000)891 351 y FA(=)25 b(+)p Fi(x)1110 +318 y Fm(00)1167 351 y FA(cos)16 b(PERP)o Fi(=)p FA(2)21 +b(+)f Fi(y)1806 318 y Fm(00)1864 351 y FA(sin)13 b(PERP)p +Fi(=)p FA(2)752 464 y Fi(y)800 431 y Fm(000)886 464 y +FA(=)25 b(+)p Fi(x)1105 431 y Fm(00)1163 464 y FA(sin)13 +b(PERP)p Fi(=)p FA(2)21 b(+)f Fi(y)1792 431 y Fm(00)1849 +464 y FA(cos)c(PERP)p Fi(=)p FA(2)431 596 y(\(d\))45 +b(Orien)m(tation:)752 728 y Fi(x)804 742 y Fr(2)868 728 +y FA(=)25 b(+)p Fi(x)1087 695 y Fm(000)1164 728 y FA(cos)16 +b(ORIENT)j(+)h Fi(y)1826 695 y Fm(000)1903 728 y FA(sin)13 +b(ORIENT)752 841 y Fi(y)797 855 y Fr(2)861 841 y FA(=)25 +b Fl(\000)p Fi(x)1080 808 y Fm(000)1156 841 y FA(sin)14 +b(ORIENT)20 b(+)f Fi(y)1808 808 y Fm(000)1885 841 y FA(cos)d(ORIENT)311 +992 y(2.)46 b(See)31 b(also)f(sla)p Fq(_)p FA(FITXY,)g(sla)p +Fq(_)p FA(PXY,)g(sla)p Fq(_)p FA(INVF,)h(sla)p Fq(_)p +FA(XY2XY.)p 0 1135 3780 8 v 0 1248 a Fu(SLA)p Fk(_)p +Fu(DCS2C)561 b Fj(Spherical)38 b(to)g(Cartesian)560 b +Fu(SLA)p Fk(_)p Fu(DCS2C)0 1598 y Fy(A)m(CTION)44 b FA(:)c(Spherical)29 +b(co)s(ordinates)h(to)h(Cartesian)f(co)s(ordinates)g(\(double)f +(precision\).)0 1786 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DCS2C)g(\(A,)h(B,)g(V\))0 2151 y Fy(GIVEN)e FA(:)277 +2322 y Fn(A,B)576 b Fy(D)565 b FA(spherical)29 b(co)s(ordinates)h(in)f +(radians:)39 b([)15 b Fi(\013;)g(\016)20 b FA(])31 b +Fn(etc.)0 2710 y Fy(RETURNED)46 b FA(:)277 2881 y Fn(V)668 +b Fy(D\(3\))431 b FA([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(])30 +b(unit)f(v)m(ector)0 3268 y Fy(NOTE)44 b FA(:)65 b(The)42 +b(spherical)f(co)s(ordinates)i(are)g(longitude)e(\(+v)m(e)i(an)m(ticlo) +s(c)m(kwise)g(lo)s(oking)e(from)h(the)h(+v)m(e)227 3381 +y(latitude)33 b(p)s(ole\))g(and)g(latitude.)50 b(The)33 +b(Cartesian)h(co)s(ordinates)f(are)h(righ)m(t)f(handed,)h(with)f(the)h +Fn(x)p FA(-axis)227 3494 y(at)d(zero)h(longitude)d(and)g(latitude,)h +(and)g(the)g Fn(z)p FA(-axis)h(at)g(the)f(+v)m(e)h(latitude)f(p)s(ole.) +p 0 3637 V 0 3750 a Fu(SLA)p Fk(_)p Fu(DD2TF)553 b Fj(Da)m(ys)38 +b(to)g(Hour,Min,Sec)552 b Fu(SLA)p Fk(_)p Fu(DD2TF)0 +4100 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 b(an)e(in)m(terv)-5 +b(al)29 b(in)h(da)m(ys)g(in)m(to)g(hours,)g(min)m(utes,)g(seconds)g +(\(double)f(precision\).)0 4288 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_DD2TF)g(\(NDP,)g(DAYS,)g(SIGN,)h(IHMSF\))0 +4653 y Fy(GIVEN)e FA(:)277 4799 y Fn(NDP)537 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e(places)h(of)h(seconds)277 +4912 y Fn(D)n(A)-7 b(YS)489 b Fy(D)565 b FA(in)m(terv)-5 +b(al)30 b(in)f(da)m(ys)0 5290 y Fy(RETURNED)46 b FA(:)277 +5437 y Fn(SIGN)512 b Fy(C)569 b FA(`+')31 b(or)f(`)p +Fl(\000)p FA(')277 5549 y Fn(IHMSF)441 b Fy(I\(4\))471 +b FA(hours,)30 b(min)m(utes,)f(seconds,)i(fraction)p +eop +%%Page: 38 40 +38 39 bop 0 52 a FA(38)0 351 y Fy(NOTES)44 b FA(:)311 +532 y(1.)i(NDP)31 b(less)f(than)g(zero)h(is)e(in)m(terpreted)h(as)h +(zero.)311 672 y(2.)46 b(The)34 b(largest)g(useful)e(v)-5 +b(alue)34 b(for)g(NDP)g(is)f(determined)g(b)m(y)h(the)g(size)g(of)g(D)m +(A)-8 b(YS,)36 b(the)e(format)g(of)427 785 y(DOUBLE)h(PRECISION)f +(\015oating-p)s(oin)m(t)g(n)m(um)m(b)s(ers)f(on)i(the)g(target)i(mac)m +(hine,)e(and)g(the)g(risk)427 898 y(of)f(o)m(v)m(er\015o)m(wing)h +(IHMSF\(4\).)52 b(F)-8 b(or)35 b(example,)f(on)g(a)g(V)-10 +b(AX)34 b(computer,)h(for)f(D)m(A)-8 b(YS)35 b(up)d(to)j(1D0,)427 +1010 y(the)30 b(a)m(v)-5 b(ailable)28 b(\015oating-p)s(oin)m(t)h +(precision)e(corresp)s(onds)h(roughly)g(to)i(NDP=12.)41 +b(Ho)m(w)m(ev)m(er,)32 b(the)427 1123 y(practical)e(limit)e(is)i +(NDP=9,)h(set)g(b)m(y)f(the)h(capacit)m(y)g(of)g(the)f(32-bit)h(in)m +(teger)g(IHMSF\(4\).)311 1263 y(3.)46 b(The)30 b(absolute)g(v)-5 +b(alue)29 b(of)i(D)m(A)-8 b(YS)31 b(ma)m(y)g(exceed)g(1D0.)42 +b(In)29 b(cases)i(where)f(it)f(do)s(es)h(not,)h(it)e(is)h(up)f(to)427 +1376 y(the)g(caller)e(to)i(test)g(for)f(and)g(handle)e(the)j(case)g +(where)f(D)m(A)-8 b(YS)29 b(is)e(v)m(ery)i(nearly)e(1D0)j(and)d(rounds) +427 1489 y(up)j(to)h(24)g(hours,)e(b)m(y)i(testing)f(for)g +(IHMSF\(1\)=24)j(and)c(setting)i(IHMSF\(1-4\))h(to)f(zero.)p +0 1606 3780 8 v 0 1719 a Fu(SLA)p Fk(_)p Fu(DE2H)885 +b Fd(h;)20 b(\016)44 b Fj(to)38 b(Az,El)884 b Fu(SLA)p +Fk(_)p Fu(DE2H)0 2070 y Fy(A)m(CTION)44 b FA(:)c(Equatorial)30 +b(to)h(horizon)f(co)s(ordinates)g(\(double)f(precision\).)0 +2257 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DE2H)g(\(HA,)h(DEC,)f +(PHI,)h(AZ,)g(EL\))0 2580 y Fy(GIVEN)e FA(:)277 2726 +y Fn(HA)600 b Fy(D)565 b FA(hour)30 b(angle)g(\(radians\))277 +2839 y Fn(DEC)540 b Fy(D)565 b FA(declination)29 b(\(radians\))277 +2952 y Fn(PHI)571 b Fy(D)565 b FA(latitude)30 b(\(radians\))0 +3259 y Fy(RETURNED)46 b FA(:)277 3405 y Fn(AZ)612 b Fy(D)565 +b FA(azim)m(uth)30 b(\(radians\))277 3518 y Fn(EL)617 +b Fy(D)565 b FA(elev)-5 b(ation)30 b(\(radians\))0 3825 +y Fy(NOTES)44 b FA(:)311 4006 y(1.)i(Azim)m(uth)28 b(is)g(returned)f +(in)g(the)i(range)g(0)q Fl(\000)q FA(2)p Fi(\031)s FA(;)h(north)e(is)g +(zero,)i(and)e(east)h(is)f(+)p Fi(\031)s(=)p FA(2.)41 +b(Elev)-5 b(ation)27 b(is)427 4119 y(returned)i(in)h(the)g(range)h +Fl(\006)p Fi(\031)s FA(.)311 4258 y(2.)46 b(The)32 b(latitude)f(m)m +(ust)i(b)s(e)e(geo)s(detic.)48 b(In)31 b(critical)h(applications,)f +(corrections)i(for)f(p)s(olar)f(motion)427 4371 y(should)e(b)s(e)g +(applied.)311 4511 y(3.)46 b(In)36 b(some)h(applications)e(it)i(will)d +(b)s(e)i(imp)s(ortan)m(t)g(to)h(sp)s(ecify)f(the)h(correct)h(t)m(yp)s +(e)f(of)g(hour)e(angle)427 4624 y(and)f(declination)f(in)g(order)h(to)h +(pro)s(duce)e(the)i(required)d(t)m(yp)s(e)j(of)g(azim)m(uth)f(and)f +(elev)-5 b(ation.)53 b(In)427 4737 y(particular,)25 b(it)f(ma)m(y)h(b)s +(e)f(imp)s(ortan)m(t)g(to)h(distinguish)c(b)s(et)m(w)m(een)26 +b(elev)-5 b(ation)24 b(as)h(a\013ected)h(b)m(y)f(refrac-)427 +4850 y(tion,)g(whic)m(h)d(w)m(ould)h(require)f(the)i +Fn(observe)-5 b(d)24 b FA([)15 b Fi(h;)g(\016)20 b FA(],)26 +b(and)d(the)g(elev)-5 b(ation)24 b Fn(in)i(vacuo)p FA(,)f(whic)m(h)e(w) +m(ould)427 4962 y(require)35 b(the)h Fn(top)-5 b(o)g(c)g(entric)39 +b FA([)15 b Fi(h;)g(\016)20 b FA(].)59 b(If)35 b(the)i(e\013ects)g(of)f +(diurnal)d(ab)s(erration)j(can)g(b)s(e)g(neglected,)427 +5075 y(the)31 b Fn(app)-5 b(ar)g(ent)33 b FA([)15 b Fi(h;)g(\016)20 +b FA(])31 b(ma)m(y)g(b)s(e)f(used)f(instead)h(of)g(the)h(top)s(o)s(cen) +m(tric)f([)15 b Fi(h;)g(\016)21 b FA(].)311 5215 y(4.)46 +b(No)31 b(range)g(c)m(hec)m(king)g(of)g(argumen)m(ts)f(is)g(carried)f +(out.)311 5354 y(5.)46 b(In)28 b(applications)e(whic)m(h)i(in)m(v)m +(olv)m(e)g(man)m(y)h(suc)m(h)f(calculations,)g(rather)g(than)g(calling) +f(the)h(presen)m(t)427 5467 y(routine)i(it)g(will)e(b)s(e)i(more)g +(e\016cien)m(t)h(to)h(use)e(inline)d(co)s(de,)k(ha)m(ving)g(previously) +d(computed)i(\014xed)427 5580 y(terms)g(suc)m(h)f(as)h(sine)f(and)g +(cosine)g(of)h(latitude,)f(and)g(\(for)h(trac)m(king)g(a)g(star\))g +(sine)f(and)g(cosine)g(of)427 5693 y(declination.)p eop +%%Page: 39 41 +39 40 bop 0 52 a Ft(SUN/67.45)3252 b FA(39)p 0 267 3780 +8 v 0 380 a Fu(SLA)p Fk(_)p Fu(DEULER)168 b Fj(Euler)37 +b(Angles)h(to)g(Rotation)f(Matrix)166 b Fu(SLA)p Fk(_)p +Fu(DEULER)0 730 y Fy(A)m(CTION)44 b FA(:)k(F)-8 b(orm)35 +b(a)f(rotation)h(matrix)e(from)h(the)g(Euler)f(angles)h({)h(three)f +(successiv)m(e)g(rotations)h(ab)s(out)227 843 y(sp)s(eci\014ed)29 +b(Cartesian)h(axes)h(\(double)e(precision\).)0 1031 y +Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DEULER)f(\(ORDER,)h(PHI,)h +(THETA,)f(PSI,)h(RMAT\))0 1341 y Fy(GIVEN)e FA(:)277 +1487 y Fn(ORDER)403 b Fy(C)569 b FA(sp)s(eci\014es)29 +b(ab)s(out)h(whic)m(h)f(axes)i(the)g(rotations)g(o)s(ccur)277 +1600 y Fn(PHI)571 b Fy(D)565 b FA(1st)31 b(rotation)g(\(radians\))277 +1713 y Fn(THET)-7 b(A)415 b Fy(D)565 b FA(2nd)30 b(rotation)h +(\(radians\))277 1826 y Fn(PSI)588 b Fy(D)565 b FA(3rd)30 +b(rotation)h(\(radians\))0 2110 y Fy(RETURNED)46 b FA(:)277 +2282 y Fn(RMA)-7 b(T)462 b Fy(D\(3,3\))350 b FA(rotation)31 +b(matrix)0 2574 y Fy(NOTES)44 b FA(:)311 2752 y(1.)i(A)30 +b(rotation)h(is)e(p)s(ositiv)m(e)f(when)h(the)h(reference)h(frame)f +(rotates)h(an)m(ticlo)s(c)m(kwise)e(as)i(seen)f(lo)s(oking)427 +2865 y(to)m(w)m(ards)h(the)g(origin)e(from)h(the)g(p)s(ositiv)m(e)g +(region)g(of)g(the)h(sp)s(eci\014ed)d(axis.)311 3001 +y(2.)46 b(The)25 b(c)m(haracters)i(of)e(ORDER)g(de\014ne)g(whic)m(h)f +(axes)i(the)f(three)h(successiv)m(e)f(rotations)h(are)f(ab)s(out.)427 +3114 y(A)40 b(t)m(ypical)e(v)-5 b(alue)39 b(is)f(`ZXZ',)h(indicating)e +(that)j(RMA)-8 b(T)40 b(is)e(to)i(b)s(ecome)f(the)h(direction)e(cosine) +427 3227 y(matrix)29 b(corresp)s(onding)f(to)j(rotations)f(of)g(the)g +(reference)g(frame)g(through)f(PHI)g(radians)g(ab)s(out)427 +3340 y(the)21 b(old)e Fn(z)p FA(-axis,)k(follo)m(w)m(ed)d(b)m(y)g(THET) +-8 b(A)20 b(radians)f(ab)s(out)h(the)h(resulting)d Fn(x)p +FA(-axis,)k(then)e(PSI)g(radians)427 3453 y(ab)s(out)30 +b(the)h(resulting)d Fn(z)p FA(-axis.)311 3589 y(3.)46 +b(The)34 b(axis)f(names)h(can)g(b)s(e)g(an)m(y)g(of)g(the)h(follo)m +(wing,)e(in)g(an)m(y)h(order)g(or)g(com)m(bination:)47 +b(X,)34 b(Y,)h(Z,)427 3702 y(upp)s(ercase)30 b(or)g(lo)m(w)m(ercase,)i +(1,)f(2,)g(3.)42 b(Normal)30 b(axis)g(lab)s(elling/n)m(um)m(b)s(ering) +25 b(con)m(v)m(en)m(tions)32 b(apply;)427 3815 y(the)c +Fn(xyz)f FA(\()p Fl(\021)f FA(123\))j(triad)d(is)g(righ)m(t-handed.)39 +b(Th)m(us,)27 b(the)g(`ZXZ')g(example)g(giv)m(en)g(ab)s(o)m(v)m(e)i +(could)d(b)s(e)427 3928 y(written)h(`zxz')j(or)e(`313')i(\(or)e(ev)m +(en)h(`ZxZ')f(or)g(`3xZ'\).)h(ORDER)f(is)f(terminated)h(b)m(y)g(length) +f(or)i(b)m(y)427 4041 y(the)g(\014rst)f(unrecognized)g(c)m(haracter.)42 +b(F)-8 b(ew)m(er)29 b(than)g(three)f(rotations)h(are)g(acceptable,)h +(in)e(whic)m(h)427 4153 y(case)k(the)e(later)h(angle)f(argumen)m(ts)h +(are)f(ignored.)40 b(Zero)31 b(rotations)f(pro)s(duces)f(a)i(unit)e +(RMA)-8 b(T.)p 0 4256 V 0 4369 a Fu(SLA)p Fk(_)p Fu(DFL)d(TIN)150 +b Fj(Deco)s(de)39 b(a)f(Double)h(Precision)e(Num)m(b)s(er)150 +b Fu(SLA)p Fk(_)p Fu(DFL)-11 b(TIN)0 4720 y Fy(A)m(CTION)44 +b FA(:)c(Con)m(v)m(ert)32 b(free-format)f(input)d(in)m(to)j(double)e +(precision)f(\015oating)i(p)s(oin)m(t.)0 4907 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DFLTIN)f(\(STRING,)h(NSTRT,)g(DRESLT,)g +(JFLAG\))0 5217 y Fy(GIVEN)f FA(:)277 5363 y Fn(STRING)381 +b Fy(C)569 b FA(string)29 b(con)m(taining)h(n)m(um)m(b)s(er)f(to)j(b)s +(e)d(deco)s(ded)277 5476 y Fn(NSTR)-7 b(T)428 b Fy(I)605 +b FA(p)s(oin)m(ter)30 b(to)h(where)f(deco)s(ding)f(is)g(to)i(commence) +277 5589 y Fn(DRESL)-7 b(T)373 b Fy(D)565 b FA(curren)m(t)30 +b(v)-5 b(alue)30 b(of)h(result)p eop +%%Page: 40 42 +40 41 bop 0 52 a FA(40)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(adv)-5 b(anced)31 +b(to)g(next)f(n)m(um)m(b)s(er)277 610 y Fn(DRESL)-7 b(T)373 +b Fy(D)565 b FA(result)277 723 y Fn(JFLA)n(G)436 b Fy(I)605 +b FA(status:)65 b Fl(\000)p FA(1)43 b(=)f Fl(\000)p FA(OK,)f(0)i(=)f +(+OK,)g(1)h(=)f(n)m(ull)e(result,)1658 836 y(2)31 b(=)f(error)0 +1174 y Fy(NOTES)44 b FA(:)311 1359 y(1.)i(The)37 b(reason)h(sla)p +Fq(_)p FA(DFL)-8 b(TIN)37 b(has)g(separate)h(`OK')f(status)h(v)-5 +b(alues)36 b(for)h(+)g(and)g Fl(\000)g FA(is)f(to)i(enable)427 +1472 y(min)m(us)28 b(zero)j(to)g(b)s(e)e(detected.)42 +b(This)28 b(is)g(of)i(crucial)f(imp)s(ortance)g(when)g(deco)s(ding)g +(mixed-radix)427 1585 y(n)m(um)m(b)s(ers.)68 b(F)-8 b(or)40 +b(example,)j(an)c(angle)h(expressed)f(as)i(degrees,)i(arcmin)m(utes)c +(and)g(arcseconds)427 1698 y(ma)m(y)31 b(ha)m(v)m(e)h(a)f(leading)e +(min)m(us)f(sign)i(but)f(a)i(zero)g(degrees)g(\014eld.)311 +1842 y(2.)46 b(A)32 b(T)-8 b(AB)32 b(is)f(in)m(terpreted)g(as)h(a)g +(space,)h(and)e(lo)m(w)m(ercase)i(c)m(haracters)g(are)f(in)m(terpreted) +f(as)h(upp)s(er-)427 1955 y(case.)42 b Fn(n.b.)30 b FA(The)g(test)h +(for)f(T)-8 b(AB)31 b(is)f(ASCI)s(I-sp)s(eci\014c.)311 +2098 y(3.)46 b(The)38 b(basic)f(format)h(is)f(the)h(sequence)h(of)f +(\014elds)e Fl(\006)p Fi(n:nx)24 b Fl(\006)h Fi(n)p FA(,)40 +b(where)d Fl(\006)h FA(is)f(a)h(sign)f(c)m(haracter)427 +2211 y(`+')f(or)g(`)p Fl(\000)p FA(',)i Fi(n)e FA(means)f(a)i(string)e +(of)h(decimal)f(digits,)h(`.')58 b(is)35 b(a)h(decimal)f(p)s(oin)m(t,)i +(and)e Fi(x)p FA(,)j(whic)m(h)427 2324 y(indicates)30 +b(an)h(exp)s(onen)m(t,)h(means)f(`D')h(or)f(`E'.)h(V)-8 +b(arious)31 b(com)m(binations)f(of)h(these)h(\014elds)e(can)h(b)s(e)427 +2437 y(omitted,)g(and)f(em)m(b)s(edded)f(blanks)g(are)i(p)s(ermissible) +26 b(in)j(certain)h(places.)311 2581 y(4.)46 b(Spaces:)506 +2725 y Fl(\017)g FA(Leading)30 b(spaces)h(are)g(ignored.)506 +2853 y Fl(\017)46 b FA(Em)m(b)s(edded)38 b(spaces)i(are)g(allo)m(w)m +(ed)f(only)f(after)i(+,)i Fl(\000)p FA(,)g(D)d(or)h(E,)f(and)g(after)h +(the)f(decimal)597 2966 y(p)s(oin)m(t)30 b(if)f(the)i(\014rst)e +(sequence)i(of)f(digits)f(is)h(absen)m(t.)506 3095 y +Fl(\017)46 b FA(T)-8 b(railing)38 b(spaces)i(are)h(ignored;)j(the)c +(\014rst)f(signi\014es)f(end)h(of)h(deco)s(ding)f(and)g(subsequen)m(t) +597 3207 y(ones)31 b(are)g(skipp)s(ed.)311 3351 y(5.)46 +b(Delimiters:)506 3495 y Fl(\017)g FA(An)m(y)32 b(c)m(haracter)h(other) +f(than)f(+,)p Fl(\000)p FA(,0-9,.,D,E)j(or)e(space)g(ma)m(y)g(b)s(e)f +(used)g(to)h(signal)e(the)i(end)597 3608 y(of)f(the)f(n)m(um)m(b)s(er)f +(and)h(terminate)h(deco)s(ding.)506 3736 y Fl(\017)46 +b FA(Comma)29 b(is)e(recognized)i(b)m(y)f(sla)p Fq(_)p +FA(DFL)-8 b(TIN)28 b(as)h(a)g(sp)s(ecial)e(case;)j(it)e(is)g(skipp)s +(ed,)e(lea)m(ving)i(the)597 3849 y(p)s(oin)m(ter)i(on)g(the)g(next)h(c) +m(haracter.)42 b(See)31 b(13,)g(b)s(elo)m(w.)506 3978 +y Fl(\017)46 b FA(Deco)s(ding)31 b(will)c(in)i(all)h(cases)h(terminate) +f(if)g(end)f(of)i(string)e(is)h(reac)m(hed.)311 4122 +y(6.)46 b(Both)31 b(signs)f(are)g(optional.)40 b(The)30 +b(default)g(is)f(+.)311 4265 y(7.)46 b(The)30 b(man)m(tissa)g +Fi(n:n)g FA(defaults)g(to)h(unit)m(y)-8 b(.)311 4409 +y(8.)46 b(The)30 b(exp)s(onen)m(t)h Fi(x)5 b Fl(\006)g +Fi(n)29 b FA(defaults)h(to)h(`D0'.)311 4553 y(9.)46 b(The)30 +b(strings)f(of)i(decimal)e(digits)g(ma)m(y)i(b)s(e)f(of)g(an)m(y)h +(length.)266 4697 y(10.)46 b(The)30 b(decimal)f(p)s(oin)m(t)h(is)f +(optional)h(for)g(whole)g(n)m(um)m(b)s(ers.)266 4841 +y(11.)46 b(A)28 b Fn(nul)5 b(l)30 b(r)-5 b(esult)37 b +FA(o)s(ccurs)28 b(when)e(the)i(string)f(of)h(c)m(haracters)h(b)s(eing)d +(deco)s(ded)h(do)s(es)h(not)g(b)s(egin)e(with)427 4954 +y(+,)p Fl(\000)p FA(,0-9,.,D)44 b(or)d(E,)g(or)g(consists)g(en)m +(tirely)f(of)h(spaces.)74 b(When)41 b(this)f(condition)g(is)g +(detected,)427 5067 y(JFLA)m(G)31 b(is)f(set)h(to)g(1)g(and)e(DRESL)-8 +b(T)30 b(is)g(left)g(un)m(touc)m(hed.)266 5210 y(12.)46 +b(NSTR)-8 b(T)30 b(=)g(1)h(for)f(the)g(\014rst)g(c)m(haracter)i(in)d +(the)i(string.)266 5354 y(13.)46 b(On)21 b(return)f(from)h(sla)p +Fq(_)p FA(DFL)-8 b(TIN,)21 b(NSTR)-8 b(T)21 b(is)f(set)i(ready)f(for)g +(the)g(next)h(deco)s(de)f({)h(follo)m(wing)d(trail-)427 +5467 y(ing)31 b(blanks)g(and)g(an)m(y)h(comma.)47 b(If)31 +b(a)i(delimiter)c(other)j(than)g(comma)h(is)e(b)s(eing)f(used,)i(NSTR) +-8 b(T)427 5580 y(m)m(ust)36 b(b)s(e)f(incremen)m(ted)g(b)s(efore)g +(the)h(next)g(call)f(to)h(sla)p Fq(_)p FA(DFL)-8 b(TIN,)36 +b(otherwise)f(all)f(subsequen)m(t)427 5693 y(calls)c(will)e(return)h(a) +i(n)m(ull)d(result.)p eop +%%Page: 41 43 +41 42 bop 0 52 a Ft(SUN/67.45)3252 b FA(41)266 351 y(14.)46 +b(Errors)30 b(\(JFLA)m(G=2\))i(o)s(ccur)e(when:)506 491 +y Fl(\017)46 b FA(a)31 b(+,)f Fl(\000)p FA(,)h(D)f(or)h(E)f(is)f(left)h +(unsatis\014ed;)f(or)506 617 y Fl(\017)46 b FA(the)30 +b(decimal)e(p)s(oin)m(t)h(is)f(presen)m(t)i(without)f(at)h(least)g(one) +f(decimal)g(digit)f(b)s(efore)h(or)h(after)g(it;)597 +730 y(or)506 856 y Fl(\017)46 b FA(an)31 b(exp)s(onen)m(t)f(more)g +(than)h(100)g(has)f(b)s(een)g(presen)m(ted.)266 996 y(15.)46 +b(When)31 b(an)f(error)h(has)f(b)s(een)g(detected,)j(NSTR)-8 +b(T)30 b(is)g(left)g(p)s(oin)m(ting)f(to)j(the)f(c)m(haracter)h(follo)m +(wing)427 1109 y(the)41 b(last)g(one)g(used)g(b)s(efore)f(the)h(error)g +(came)h(to)f(ligh)m(t.)72 b(This)39 b(ma)m(y)j(b)s(e)e(after)i(the)f(p) +s(oin)m(t)f(at)427 1222 y(whic)m(h)g(a)h(more)f(sophisticated)g +(program)h(could)e(ha)m(v)m(e)j(detected)g(the)f(error.)71 +b(F)-8 b(or)42 b(example,)427 1334 y(sla)p Fq(_)p FA(DFL)-8 +b(TIN)28 b(do)s(es)f(not)h(detect)h(that)f(`1D999')i(is)d(unacceptable) +g(\(on)h(a)g(computer)f(where)h(this)427 1447 y(is)i(so\))h(un)m(til)d +(the)j(en)m(tire)f(n)m(um)m(b)s(er)f(has)h(b)s(een)g(deco)s(ded.)266 +1587 y(16.)46 b(Certain)28 b(highly)f(unlik)m(ely)g(com)m(binations)h +(of)h(man)m(tissa)g(and)f(exp)s(onen)m(t)h(can)h(cause)f(arithmetic)427 +1700 y(faults)j(during)e(the)i(deco)s(de,)i(in)d(some)i(cases)g +(despite)e(the)i(fact)g(that)g(they)g(together)h(could)d(b)s(e)427 +1813 y(construed)f(as)h(a)g(v)-5 b(alid)28 b(n)m(um)m(b)s(er.)266 +1952 y(17.)46 b(Deco)s(ding)31 b(is)e(left)h(to)h(righ)m(t,)f(one)h +(pass.)266 2092 y(18.)46 b(See)31 b(also)f(sla)p Fq(_)p +FA(FLOTIN)f(and)h(sla)p Fq(_)p FA(INTIN.)p 0 2196 3780 +8 v 0 2309 a Fu(SLA)p Fk(_)p Fu(DH2E)885 b Fj(Az,El)38 +b(to)g Fd(h;)20 b(\016)890 b Fu(SLA)p Fk(_)p Fu(DH2E)0 +2659 y Fy(A)m(CTION)44 b FA(:)c(Horizon)31 b(to)g(equatorial)f(co)s +(ordinates)g(\(double)f(precision\).)0 2847 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DH2E)g(\(AZ,)h(EL,)f(PHI,)h(HA,)g(DEC\))0 +3170 y Fy(GIVEN)e FA(:)277 3316 y Fn(AZ)612 b Fy(D)565 +b FA(azim)m(uth)30 b(\(radians\))277 3429 y Fn(EL)617 +b Fy(D)565 b FA(elev)-5 b(ation)30 b(\(radians\))277 +3542 y Fn(PHI)571 b Fy(D)565 b FA(latitude)30 b(\(radians\))0 +3849 y Fy(RETURNED)46 b FA(:)277 3995 y Fn(HA)600 b Fy(D)565 +b FA(hour)30 b(angle)g(\(radians\))277 4108 y Fn(DEC)540 +b Fy(D)565 b FA(declination)29 b(\(radians\))0 4416 y +Fy(NOTES)44 b FA(:)311 4597 y(1.)i(The)30 b(sign)g(con)m(v)m(en)m(tion) +h(for)f(azim)m(uth)g(is)g(north)f(zero,)j(east)f(+)p +Fi(\031)s(=)p FA(2.)311 4736 y(2.)46 b(HA)31 b(is)e(returned)h(in)f +(the)h(range)h Fl(\006)p Fi(\031)s FA(.)40 b(Declination)30 +b(is)f(returned)h(in)f(the)h(range)h Fl(\006)p Fi(\031)s +FA(.)311 4876 y(3.)46 b(The)33 b(latitude)g(is)f(\(in)h(principle\))d +(geo)s(detic.)51 b(In)33 b(critical)f(applications,)h(corrections)g +(for)h(p)s(olar)427 4989 y(motion)c(should)f(b)s(e)g(applied)g(\(see)i +(sla)p Fq(_)p FA(POLMO\).)311 5128 y(4.)46 b(In)34 b(some)g +(applications)e(it)i(will)d(b)s(e)j(imp)s(ortan)m(t)f(to)i(sp)s(ecify)e +(the)h(correct)h(t)m(yp)s(e)f(of)h(elev)-5 b(ation)34 +b(in)427 5241 y(order)42 b(to)h(pro)s(duce)f(the)g(required)f(t)m(yp)s +(e)h(of)h([)15 b Fi(h;)g(\016)20 b FA(].)77 b(In)42 b(particular,)i(it) +e(ma)m(y)h(b)s(e)e(imp)s(ortan)m(t)427 5354 y(to)f(distinguish)35 +b(b)s(et)m(w)m(een)k(the)g(elev)-5 b(ation)39 b(as)g(a\013ected)h(b)m +(y)f(refraction,)i(whic)m(h)c(will)f(yield)h(the)427 +5467 y Fn(observe)-5 b(d)32 b FA([)15 b Fi(h;)g(\016)20 +b FA(],)31 b(and)e(the)i(elev)-5 b(ation)30 b Fn(in)j(vacuo)p +FA(,)e(whic)m(h)e(will)f(yield)g(the)j Fn(top)-5 b(o)g(c)g(entric)33 +b FA([)15 b Fi(h;)g(\016)20 b FA(].)41 b(If)427 5580 +y(the)28 b(e\013ects)h(of)f(diurnal)d(ab)s(erration)i(can)h(b)s(e)f +(neglected,)i(the)f(top)s(o)s(cen)m(tric)g([)15 b Fi(h;)g(\016)20 +b FA(])28 b(ma)m(y)g(b)s(e)f(used)427 5693 y(as)k(an)f(appro)m +(ximation)f(to)j(the)e Fn(app)-5 b(ar)g(ent)33 b FA([)15 +b Fi(h;)g(\016)21 b FA(].)p eop +%%Page: 42 44 +42 43 bop 0 52 a FA(42)311 351 y(5.)46 b(No)31 b(range)g(c)m(hec)m +(king)g(of)g(argumen)m(ts)f(is)g(carried)f(out.)311 490 +y(6.)46 b(In)28 b(applications)e(whic)m(h)i(in)m(v)m(olv)m(e)g(man)m(y) +h(suc)m(h)f(calculations,)g(rather)g(than)g(calling)f(the)h(presen)m(t) +427 603 y(routine)i(it)g(will)e(b)s(e)i(more)g(e\016cien)m(t)h(to)h +(use)e(inline)d(co)s(de,)k(ha)m(ving)g(previously)d(computed)i(\014xed) +427 716 y(terms)h(suc)m(h)f(as)g(sine)g(and)f(cosine)h(of)h(latitude.)p +0 809 3780 8 v 0 922 a Fu(SLA)p Fk(_)p Fu(DIMXV)375 b +Fj(Apply)38 b(3D)h(Rev)m(erse)f(Rotation)375 b Fu(SLA)p +Fk(_)p Fu(DIMXV)0 1273 y Fy(A)m(CTION)44 b FA(:)c(Multiply)28 +b(a)j(3-v)m(ector)i(b)m(y)d(the)h(in)m(v)m(erse)f(of)g(a)h(rotation)g +(matrix)f(\(double)f(precision\).)0 1460 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DIMXV)g(\(DM,)g(VA,)h(VB\))0 +1781 y Fy(GIVEN)e FA(:)277 1927 y Fn(DM)585 b Fy(D\(3,3\))350 +b FA(rotation)31 b(matrix)277 2040 y Fn(V)-9 b(A)609 +b Fy(D\(3\))431 b FA(v)m(ector)32 b(to)f(b)s(e)f(rotated)0 +2343 y Fy(RETURNED)46 b FA(:)277 2515 y Fn(VB)604 b Fy(D\(3\))431 +b FA(result)29 b(v)m(ector)0 2826 y Fy(NOTES)44 b FA(:)311 +3006 y(1.)i(This)29 b(routine)g(p)s(erforms)g(the)i(op)s(eration:)597 +3145 y Fy(b)g FA(=)f Fy(M)886 3112 y Fc(T)941 3145 y +Fl(\001)p Fy(a)427 3284 y FA(where)g Fy(a)f FA(and)g +Fy(b)h FA(are)g(the)g(3-v)m(ectors)i(V)-10 b(A)30 b(and)f(VB)i(resp)s +(ectiv)m(ely)-8 b(,)30 b(and)f Fy(M)h FA(is)f(the)h(3)19 +b Fl(\002)g FA(3)30 b(matrix)427 3397 y(DM.)311 3536 +y(2.)46 b(The)34 b(main)g(function)f(of)i(this)e(routine)h(is)f(apply)g +(an)i(in)m(v)m(erse)f(rotation;)j(under)c(these)i(circum-)427 +3649 y(stances,)d(M)e(is)g Fn(ortho)-5 b(gonal)p FA(,)34 +b(with)29 b(its)g(in)m(v)m(erse)i(the)f(same)h(as)g(its)e(transp)s +(ose.)311 3788 y(3.)46 b(T)-8 b(o)25 b(comply)f(with)g(the)h(ANSI)f(F) +-8 b(ortran)26 b(77)f(standard,)g(V)-10 b(A)25 b(and)f(VB)i(m)m(ust)e +Fy(not)h FA(b)s(e)f(the)h(same)g(ar-)427 3901 y(ra)m(y)-8 +b(.)40 b(The)25 b(routine)f(is,)i(in)e(fact,)k(co)s(ded)d(so)g(as)h(to) +g(w)m(ork)f(prop)s(erly)f(on)h(the)g(V)-10 b(AX)26 b(and)f(man)m(y)g +(other)427 4014 y(systems)31 b(ev)m(en)g(if)e(this)g(rule)g(is)h +(violated,)g(something)g(that)h(is)e Fy(not)p FA(,)i(ho)m(w)m(ev)m(er,) +h(recommended.)p 0 4125 V 0 4238 a Fu(SLA)p Fk(_)p Fu(DJCAL)347 +b Fj(MJD)40 b(to)e(Gregorian)e(for)i(Output)347 b Fu(SLA)p +Fk(_)p Fu(DJCAL)0 4588 y Fy(A)m(CTION)44 b FA(:)39 b(Mo)s(di\014ed)27 +b(Julian)f(Date)j(to)g(Gregorian)f(Calendar)f(Date,)k(expressed)c(in)g +(a)i(form)e(con)m(v)m(enien)m(t)227 4701 y(for)22 b(formatting)g +(messages)i(\(namely)e(rounded)e(to)j(a)g(sp)s(eci\014ed)d(precision,)j +(and)e(with)g(the)i(\014elds)d(stored)227 4814 y(in)29 +b(a)i(single)e(arra)m(y\).)0 5001 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_DJCAL)g(\(NDP,)g(DJM,)h(IYMDF,)f(J\))0 +5322 y Fy(GIVEN)f FA(:)277 5468 y Fn(NDP)537 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e(places)h(of)h(da)m(ys)f(in)f +(fraction)277 5581 y Fn(DJM)537 b Fy(D)565 b FA(mo)s(di\014ed)28 +b(Julian)g(Date)k(\(JD)p Fl(\000)p FA(2400000.5\))p eop +%%Page: 43 45 +43 44 bop 0 52 a Ft(SUN/67.45)3252 b FA(43)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(IYMDF)423 b Fy(I\(4\))471 b FA(y)m(ear,)32 +b(mon)m(th,)e(da)m(y)-8 b(,)32 b(fraction)e(in)f(Gregorian)h(calendar) +277 610 y Fn(J)688 b Fy(I)605 b FA(status:)41 b(nonzero)31 +b(=)f(out)g(of)h(range)0 946 y Fy(NOTES)44 b FA(:)311 +1131 y(1.)i(An)m(y)31 b(date)g(after)g(4701BC)h(Marc)m(h)f(1)g(is)e +(accepted.)311 1274 y(2.)46 b(NDP)31 b(should)d(b)s(e)i(4)h(or)f(less)g +(to)h(a)m(v)m(oid)g(o)m(v)m(er\015o)m(w)h(on)e(mac)m(hines)g(whic)m(h)f +(use)h(32-bit)h(in)m(tegers.)0 1618 y Fy(REFERENCE)44 +b FA(:)c(The)28 b(algorithm)f(is)h(deriv)m(ed)f(from)h(that)h(of)g +(Hatc)m(her,)h Fn(Q.)15 b(Jl.)h(R.)f(astr.)i(So)-5 b(c.)29 +b FA(\(1984\))i Fy(25)p FA(,)227 1731 y(53-55.)p 0 1838 +3780 8 v 0 1951 a Fu(SLA)p Fk(_)p Fu(DJCL)456 b Fj(MJD)40 +b(to)e(Y)-10 b(ear,Mon)m(th,Da)m(y)g(,F)g(rac)452 b Fu(SLA)p +Fk(_)p Fu(DJCL)0 2302 y Fy(A)m(CTION)44 b FA(:)c(Mo)s(di\014ed)29 +b(Julian)f(Date)k(to)f(Gregorian)g(y)m(ear,)g(mon)m(th,)g(da)m(y)-8 +b(,)31 b(and)f(fraction)g(of)h(a)f(da)m(y)-8 b(.)0 2489 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DJCL)g(\(DJM,)g(IY,)h(IM,)g +(ID,)g(FD,)g(J\))0 2829 y Fy(GIVEN)e FA(:)277 3000 y +Fn(DJM)537 b Fy(D)565 b FA(mo)s(di\014ed)28 b(Julian)g(Date)k(\(JD)p +Fl(\000)p FA(2400000.5\))0 3344 y Fy(RETURNED)46 b FA(:)277 +3490 y Fn(IY)633 b Fy(I)605 b FA(y)m(ear)277 3603 y Fn(IM)619 +b Fy(I)605 b FA(mon)m(th)277 3716 y Fn(ID)632 b Fy(I)605 +b FA(da)m(y)277 3829 y Fn(FD)j Fy(D)565 b FA(fraction)30 +b(of)h(da)m(y)277 3942 y Fn(J)688 b Fy(I)605 b FA(status:)1825 +4055 y(0)31 b(=)f(OK)1753 4167 y Fl(\000)p FA(1)i(=)f(unacceptable)h +(date)g(\(b)s(efore)f(4701BC)i(Marc)m(h)1658 4280 y(1\))0 +4622 y Fy(REFERENCE)44 b FA(:)c(The)28 b(algorithm)f(is)h(deriv)m(ed)f +(from)h(that)h(of)g(Hatc)m(her,)h Fn(Q.)15 b(Jl.)h(R.)f(astr.)i(So)-5 +b(c.)29 b FA(\(1984\))i Fy(25)p FA(,)227 4735 y(53-55.)p +0 4842 V 0 4955 a Fu(SLA)p Fk(_)p Fu(DM2A)-15 b(V)250 +b Fj(Rotation)36 b(Matrix)h(to)h(Axial)f(V)-10 b(ector)251 +b Fu(SLA)p Fk(_)p Fu(DM2A)-15 b(V)0 5305 y Fy(A)m(CTION)44 +b FA(:)49 b(F)-8 b(rom)35 b(a)g(rotation)g(matrix,)g(determine)e(the)i +(corresp)s(onding)e(axial)g(v)m(ector)k(\(double)c(preci-)227 +5418 y(sion\).)0 5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DM2AV)g(\(RMAT,)g(AXVEC\))p eop +%%Page: 44 46 +44 45 bop 0 52 a FA(44)0 351 y Fy(GIVEN)45 b FA(:)277 +523 y Fn(RMA)-7 b(T)462 b Fy(D\(3,3\))350 b FA(rotation)31 +b(matrix)0 976 y Fy(RETURNED)46 b FA(:)277 1148 y Fn(AXVEC)405 +b Fy(D\(3\))431 b FA(axial)30 b(v)m(ector)i(\(radians\))0 +1601 y Fy(NOTES)44 b FA(:)311 1826 y(1.)i(A)32 b(rotation)f(matrix)g +(describ)s(es)e(a)i(rotation)h(ab)s(out)f(some)g(arbitrary)f(axis.)43 +b(The)30 b(axis)h(is)f(called)427 1939 y(the)g Fn(Euler)i(axis)p +FA(,)f(and)e(the)h(angle)g(through)f(whic)m(h)g(the)h(reference)g +(frame)g(rotates)h(is)e(called)g(the)427 2051 y Fn(Euler)k(angle)p +FA(.)42 b(The)30 b Fn(axial)k(ve)-5 b(ctor)41 b FA(returned)30 +b(b)m(y)g(this)g(routine)g(has)g(the)h(same)g(direction)e(as)i(the)427 +2164 y(Euler)e(axis,)h(and)g(its)g(magnitude)f(is)h(the)g(Euler)f +(angle)i(in)e(radians.)311 2329 y(2.)46 b(The)35 b(magnitude)g(and)g +(direction)f(of)i(the)g(axial)f(v)m(ector)i(can)f(b)s(e)f(separated)h +(b)m(y)f(means)h(of)f(the)427 2442 y(routine)30 b(sla)p +Fq(_)p FA(D)m(VN.)311 2606 y(3.)46 b(The)28 b(reference)g(frame)g +(rotates)h(clo)s(c)m(kwise)e(as)i(seen)f(lo)s(oking)e(along)i(the)g +(axial)f(v)m(ector)j(from)d(the)427 2719 y(origin.)311 +2883 y(4.)46 b(If)30 b(RMA)-8 b(T)31 b(is)e(n)m(ull,)g(so)i(is)e(the)i +(result.)p 0 3053 3780 8 v 0 3166 a Fu(SLA)p Fk(_)p Fu(DMA)-11 +b(T)385 b Fj(Solv)m(e)38 b(Sim)m(ultaneous)d(Equations)385 +b Fu(SLA)p Fk(_)p Fu(DMA)-11 b(T)0 3516 y Fy(A)m(CTION)44 +b FA(:)c(Matrix)31 b(in)m(v)m(ersion)e(and)h(solution)f(of)h(sim)m +(ultaneous)f(equations)h(\(double)f(precision\).)0 3704 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DMAT)g(\(N,)h(A,)g(Y,)g(D,)g +(JF,)g(IW\))0 4108 y Fy(GIVEN)e FA(:)277 4254 y Fn(N)668 +b Fy(I)605 b FA(n)m(um)m(b)s(er)29 b(of)i(unkno)m(wns)277 +4367 y Fn(A)668 b Fy(D\(N,N\))290 b FA(matrix)277 4480 +y Fn(Y)668 b Fy(D\(N\))401 b FA(v)m(ector)0 4925 y Fy(RETURNED)46 +b FA(:)277 5071 y Fn(A)668 b Fy(D\(N,N\))290 b FA(matrix)30 +b(in)m(v)m(erse)277 5184 y Fn(Y)668 b Fy(D\(N\))401 b +FA(solution)277 5297 y Fn(D)667 b Fy(D)565 b FA(determinan)m(t)277 +5410 y Fn(JF)629 b Fy(I)605 b FA(singularit)m(y)28 b(\015ag:)41 +b(0=OK)277 5523 y Fn(IW)610 b Fy(I\(N\))441 b FA(w)m(orkspace)p +eop +%%Page: 45 47 +45 46 bop 0 52 a Ft(SUN/67.45)3252 b FA(45)0 351 y Fy(NOTES)44 +b FA(:)311 579 y(1.)i(F)-8 b(or)31 b(the)g(set)g(of)f +Fi(n)g FA(sim)m(ultaneous)f(linear)g(equations)h(in)f +Fi(n)h FA(unkno)m(wns:)597 746 y Fy(A)p Fl(\001)p Fy(y)h +FA(=)f Fy(x)427 912 y FA(where:)506 1078 y Fl(\017)46 +b Fy(A)31 b FA(is)e(a)i(non-singular)d Fi(n)20 b Fl(\002)f +Fi(n)30 b FA(matrix,)506 1218 y Fl(\017)46 b Fy(y)31 +b FA(is)e(the)i(v)m(ector)h(of)e Fi(n)g FA(unkno)m(wns,)f(and)506 +1358 y Fl(\017)46 b Fy(x)31 b FA(is)e(the)i(kno)m(wn)f(v)m(ector,)427 +1524 y(sla)p Fq(_)p FA(DMA)-8 b(T)31 b(computes:)506 +1690 y Fl(\017)46 b FA(the)31 b(in)m(v)m(erse)f(of)h(matrix)e +Fy(A)p FA(,)506 1830 y Fl(\017)46 b FA(the)31 b(determinan)m(t)f(of)g +(matrix)g Fy(A)p FA(,)h(and)506 1969 y Fl(\017)46 b FA(the)31 +b(v)m(ector)h(of)e Fi(n)g FA(unkno)m(wns)f Fy(y)p FA(.)427 +2136 y(Argumen)m(t)h(N)f(is)g(the)h(order)f Fi(n)p FA(,)g(A)h(\(giv)m +(en\))g(is)e(the)i(matrix)f Fy(A)p FA(,)g(Y)h(\(giv)m(en\))g(is)f(the)g +(v)m(ector)i Fy(x)f FA(and)427 2249 y(Y)g(\(returned\))g(is)f(the)i(v)m +(ector)g Fy(y)p FA(.)41 b(The)30 b(argumen)m(t)g(A)g(\(returned\))g(is) +f(the)h(in)m(v)m(erse)g(matrix)g Fy(A)3660 2216 y Fm(\000)p +Fr(1)3754 2249 y FA(,)427 2362 y(and)g(D)h(is)e Fn(det)9 +b FA(\()p Fy(A)p FA(\).)311 2528 y(2.)46 b(JF)40 b(is)e(the)i +(singularit)m(y)d(\015ag.)68 b(If)39 b(the)g(matrix)g(is)f +(non-singular,)i(JF=0)f(is)g(returned.)66 b(If)39 b(the)427 +2641 y(matrix)29 b(is)f(singular,)g(JF=)p Fl(\000)p FA(1)h(and)g(D=0D0) +i(are)e(returned.)40 b(In)28 b(the)i(latter)f(case,)i(the)f(con)m(ten)m +(ts)427 2754 y(of)h(arra)m(y)g(A)f(on)g(return)g(are)g(unde\014ned.)311 +2920 y(3.)46 b(The)38 b(algorithm)g(is)f(Gaussian)h(elimination)e(with) +h(partial)h(piv)m(oting.)64 b(This)37 b(metho)s(d)h(is)f(v)m(ery)427 +3033 y(fast;)49 b(some)43 b(m)m(uc)m(h)f(slo)m(w)m(er)h(algorithms)e +(can)i(giv)m(e)f(b)s(etter)h(accuracy)-8 b(,)47 b(but)42 +b(only)f(b)m(y)h(a)h(small)427 3146 y(factor.)311 3312 +y(4.)j(This)29 b(routine)g(replaces)h(the)h(obsolete)g(sla)p +Fq(_)p FA(DMA)-8 b(TRX.)p 0 3485 3780 8 v 0 3598 a Fu(SLA)p +Fk(_)p Fu(DMOON)455 b Fj(Appro)m(x)38 b(Mo)s(on)g(P)m(os/V)-10 +b(el)455 b Fu(SLA)p Fk(_)p Fu(DMOON)0 3949 y Fy(A)m(CTION)44 +b FA(:)c(Appro)m(ximate)31 b(geo)s(cen)m(tric)g(p)s(osition)e(and)g(v)m +(elo)s(cit)m(y)i(of)g(the)f(Mo)s(on)h(\(double)e(precision\).)0 +4136 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DMOON)g(\(DATE,)g(PV\))0 +4547 y Fy(GIVEN)f FA(:)277 4693 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(TDB)61 b(\(lo)s(osely)f(ET\))h(as)g(a)g(Mo)s(di\014ed)e +(Julian)g(Date)1658 4805 y(\(JD)p Fl(\000)p FA(2400000.5\))0 +5260 y Fy(RETURNED)46 b FA(:)277 5406 y Fn(PV)606 b Fy(D\(6\))431 +b FA(Mo)s(on)41 b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 +b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 +b FA(],)44 b(mean)d(equator)h(and)f(equino)m(x)1658 5519 +y(of)31 b(date)g(\(A)m(U,)g(A)m(U)h(s)2389 5486 y Fm(\000)p +Fr(1)2483 5519 y FA(\))p eop +%%Page: 46 48 +46 47 bop 0 52 a FA(46)0 351 y Fy(NOTES)44 b FA(:)311 +531 y(1.)i(This)27 b(routine)g(is)g(a)i(full)d(implemen)m(tation)h(of)h +(the)h(algorithm)e(published)d(b)m(y)29 b(Meeus)f(\(see)h(refer-)427 +644 y(ence\).)311 781 y(2.)46 b(Meeus)e(quotes)g(accuracies)g(of)f(10) +1664 745 y Fh(0)m(0)1748 781 y FA(in)f(longitude,)j(3)2347 +745 y Fh(0)m(0)2431 781 y FA(in)d(latitude)g(and)h(0)3131 +745 y Fh(0)l(0)3135 781 y Fi(:)p FA(2)h(arcsec)h(in)c(HP)427 +894 y(\(equiv)-5 b(alen)m(t)43 b(to)h(ab)s(out)f(20)h(km)f(in)f +(distance\).)80 b(Comparison)41 b(with)h(JPL)h(DE200)i(o)m(v)m(er)f +(the)427 1007 y(in)m(terv)-5 b(al)31 b(1960-2025)k(giv)m(es)c(RMS)g +(errors)g(of)g(3)2041 970 y Fh(0)m(0)2045 1007 y Fi(:)p +FA(7)i(and)d(83)i(mas/hour)f(in)f(longitude,)g(2)3435 +970 y Fh(0)l(0)3439 1007 y Fi(:)p FA(3)i(arcsec)427 1120 +y(and)e(48)h(mas/hour)f(in)f(latitude,)g(11)i(km)f(and)g(81)h(mm/s)f +(in)f(distance.)40 b(The)30 b(maxim)m(um)f(errors)427 +1233 y(o)m(v)m(er)46 b(the)e(same)h(in)m(terv)-5 b(al)43 +b(are)i(18)1641 1196 y Fh(0)m(0)1726 1233 y FA(and)f(0)1957 +1196 y Fh(0)l(0)1961 1233 y Fi(:)p FA(50/hour)h(in)e(longitude,)k(11) +2996 1196 y Fh(0)l(0)3081 1233 y FA(and)d(0)3312 1196 +y Fh(0)l(0)3316 1233 y Fi(:)p FA(24/hour)h(in)427 1346 +y(latitude,)30 b(40)h(km)f(and)g(0.29)i(m/s)e(in)f(distance.)311 +1484 y(3.)46 b(The)d(original)f(algorithm)g(is)h(expressed)g(in)f +(terms)i(of)f(the)h(obsolete)g(timescale)g Fn(Ephemeris)427 +1597 y(Time)p FA(.)71 b(Either)39 b(TDB)h(or)g(TT)g(can)g(b)s(e)g +(used,)i(but)e(not)g(UT)g(without)f(incurring)f(signi\014can)m(t)427 +1710 y(errors)30 b(\(30)806 1673 y Fh(0)m(0)878 1710 +y FA(at)h(the)g(presen)m(t)f(time\))g(due)g(to)h(the)g(Mo)s(on's)g(0) +2503 1673 y Fh(0)l(0)2507 1710 y Fi(:)p FA(5/s)g(mo)m(v)m(emen)m(t.)311 +1847 y(4.)46 b(The)38 b(algorithm)f(is)g(based)g(on)h(pre)g(IA)m(U)g +(1976)i(standards.)62 b(Ho)m(w)m(ev)m(er,)42 b(the)d(result)d(has)i(b)s +(een)427 1960 y(mo)m(v)m(ed)27 b(on)m(to)f(the)g(new)f(\(FK5\))i +(equino)m(x,)f(an)f(adjustmen)m(t)g(whic)m(h)g(is)f(in)g(an)m(y)i(case) +g(m)m(uc)m(h)g(smaller)427 2073 y(than)k(the)h(in)m(trinsic)d(accuracy) +j(of)g(the)f(pro)s(cedure.)311 2211 y(5.)46 b(V)-8 b(elo)s(cit)m(y)31 +b(is)f(obtained)f(b)m(y)i(a)f(complete)h(analytical)f(di\013eren)m +(tiation)f(of)i(the)f(Meeus)h(mo)s(del.)0 2515 y Fy(REFERENCE)44 +b FA(:)d(Meeus,)31 b Fn(l'Astr)-5 b(onomie)p FA(,)32 +b(June)e(1984,)i(p348.)p 0 2623 3780 8 v 0 2736 a Fu(SLA)p +Fk(_)p Fu(DMXM)497 b Fj(Multiply)37 b(3)27 b Fe(\002)f +Fj(3)39 b(Matrices)498 b Fu(SLA)p Fk(_)p Fu(DMXM)0 3086 +y Fy(A)m(CTION)44 b FA(:)c(Pro)s(duct)30 b(of)h(t)m(w)m(o)g(3)21 +b Fl(\002)f FA(3)31 b(matrices)f(\(double)f(precision\).)0 +3274 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DMXM)g(\(A,)h(B,)g(C\))0 +3591 y Fy(GIVEN)e FA(:)277 3737 y Fn(A)668 b Fy(D\(3,3\))350 +b FA(matrix)30 b Fy(A)277 3850 y Fn(B)672 b Fy(D\(3,3\))350 +b FA(matrix)30 b Fy(B)0 4145 y(RETURNED)46 b FA(:)277 +4317 y Fn(C)671 b Fy(D\(3,3\))350 b FA(matrix)30 b(result:)40 +b Fy(A)p Fl(\002)p Fy(B)0 4621 y(NOTE)k FA(:)c(T)-8 b(o)30 +b(comply)e(with)g(the)h(ANSI)g(F)-8 b(ortran)29 b(77)h(standard,)f(A,)h +(B)f(and)f(C)h(m)m(ust)g(b)s(e)f(di\013eren)m(t)h(arra)m(ys.)227 +4734 y(The)f(routine)g(is,)g(in)f(fact,)j(co)s(ded)e(so)g(as)h(to)g(w)m +(ork)g(prop)s(erly)d(on)i(the)h(V)-10 b(AX)29 b(and)e(man)m(y)i(other)f +(systems)227 4847 y(ev)m(en)j(if)f(this)f(rule)g(is)g(violated,)i +(something)e(that)i(is)f Fy(not)p FA(,)g(ho)m(w)m(ev)m(er,)i +(recommended.)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p Fu(DMXV)641 +b Fj(Apply)38 b(3D)h(Rotation)640 b Fu(SLA)p Fk(_)p Fu(DMXV)0 +5418 y Fy(A)m(CTION)44 b FA(:)c(Multiply)28 b(a)j(3-v)m(ector)i(b)m(y)d +(a)h(rotation)f(matrix)g(\(double)f(precision\).)0 5606 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DMXV)g(\(DM,)h(VA,)f(VB\))p +eop +%%Page: 47 49 +47 48 bop 0 52 a Ft(SUN/67.45)3252 b FA(47)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(DM)585 b Fy(D\(3,3\))350 b FA(rotation)31 +b(matrix)277 610 y Fn(V)-9 b(A)609 b Fy(D\(3\))431 b +FA(v)m(ector)32 b(to)f(b)s(e)f(rotated)0 967 y Fy(RETURNED)46 +b FA(:)277 1138 y Fn(VB)604 b Fy(D\(3\))431 b FA(result)29 +b(v)m(ector)0 1503 y Fy(NOTES)44 b FA(:)311 1692 y(1.)i(This)29 +b(routine)g(p)s(erforms)g(the)i(op)s(eration:)597 1839 +y Fy(b)g FA(=)f Fy(M)p Fl(\001)p Fy(a)427 1985 y FA(where)g +Fy(a)f FA(and)g Fy(b)h FA(are)g(the)g(3-v)m(ectors)i(V)-10 +b(A)30 b(and)f(VB)i(resp)s(ectiv)m(ely)-8 b(,)30 b(and)f +Fy(M)h FA(is)f(the)h(3)19 b Fl(\002)g FA(3)30 b(matrix)427 +2098 y(DM.)311 2245 y(2.)46 b(The)30 b(main)f(function)g(of)i(this)e +(routine)g(is)h(apply)f(a)h(rotation;)h(under)e(these)i(circumstances,) +f Fy(M)427 2358 y FA(is)g(a)g Fn(pr)-5 b(op)g(er)36 b(r)-5 +b(e)g(al)34 b(ortho)-5 b(gonal)43 b FA(matrix.)311 2505 +y(3.)j(T)-8 b(o)25 b(comply)f(with)g(the)h(ANSI)f(F)-8 +b(ortran)26 b(77)f(standard,)g(V)-10 b(A)25 b(and)f(VB)i(m)m(ust)e +Fy(not)h FA(b)s(e)f(the)h(same)g(ar-)427 2618 y(ra)m(y)-8 +b(.)40 b(The)25 b(routine)f(is,)i(in)e(fact,)k(co)s(ded)d(so)g(as)h(to) +g(w)m(ork)f(prop)s(erly)f(on)h(the)g(V)-10 b(AX)26 b(and)f(man)m(y)g +(other)427 2731 y(systems)31 b(ev)m(en)g(if)e(this)g(rule)g(is)h +(violated,)g(something)g(that)h(is)e Fy(not)p FA(,)i(ho)m(w)m(ev)m(er,) +h(recommended.)p 0 2864 3780 8 v 0 2977 a Fu(SLA)p Fk(_)p +Fu(DP)-11 b(A)c(V)178 b Fj(P)m(osition-Angle)35 b(Bet)m(w)m(een)i(Tw)m +(o)h(Directions)178 b Fu(SLA)p Fk(_)p Fu(DP)-11 b(A)c(V)0 +3328 y Fy(A)m(CTION)44 b FA(:)66 b(Returns)43 b(the)h(b)s(earing)e(\(p) +s(osition)f(angle\))j(of)g(one)f(celestial)g(direction)f(with)g(resp)s +(ect)i(to)227 3441 y(another)31 b(\(double)e(precision\).)0 +3628 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_DPAV)d(\(V1,)i(V2\))0 +3980 y Fy(GIVEN)e FA(:)277 4126 y Fn(V1)622 b Fy(D\(3\))431 +b FA(direction)29 b(cosines)h(of)h(one)f(p)s(oin)m(t)277 +4239 y Fn(V2)622 b Fy(D\(3\))431 b FA(directions)29 b(cosines)h(of)h +(the)f(other)h(p)s(oin)m(t)0 4595 y Fy(RETURNED)46 b +FA(:)277 4767 y Fn(sla)p Fq(_)p Fn(DP)-7 b(A)e(V)331 +b Fy(D)565 b FA(p)s(osition-angle)29 b(of)i(2nd)e(p)s(oin)m(t)h(with)f +(resp)s(ect)h(to)h(1st)0 5132 y Fy(NOTES)44 b FA(:)311 +5320 y(1.)i(The)30 b(co)s(ordinate)g(frames)h(corresp)s(ond)e(to)i([)15 +b Fi(\013;)g(\016)20 b FA(],)31 b([)p Fi(\025;)15 b(\036)p +FA(])31 b Fn(etc.)p FA(.)311 5467 y(2.)46 b(The)30 b(result)e(is)h(the) +h(b)s(earing)f(\(p)s(osition)f(angle\),)j(in)d(radians,)h(of)h(p)s(oin) +m(t)f(V2)h(as)g(seen)g(from)f(p)s(oin)m(t)427 5580 y(V1.)48 +b(It)33 b(is)f(in)f(the)i(range)g Fl(\006)p Fi(\031)s +FA(.)47 b(The)33 b(sense)f(is)g(suc)m(h)g(that)h(if)f(V2)h(is)f(a)h +(small)e(distance)h(due)g(east)427 5693 y(of)f(V1)g(the)f(result)g(is)f +(ab)s(out)h(+)p Fi(\031)s(=)p FA(2.)41 b(Zero)31 b(is)e(returned)g(if)h +(the)g(t)m(w)m(o)i(p)s(oin)m(ts)d(are)i(coinciden)m(t.)p +eop +%%Page: 48 50 +48 49 bop 0 52 a FA(48)311 351 y(3.)46 b(The)31 b(routine)f(sla)p +Fq(_)p FA(DBEAR)h(p)s(erforms)f(an)h(equiv)-5 b(alen)m(t)31 +b(function)f(except)i(that)g(the)f(p)s(oin)m(ts)f(are)427 +464 y(sp)s(eci\014ed)f(in)g(the)i(form)e(of)i(spherical)e(co)s +(ordinates.)p 0 602 3780 8 v 0 715 a Fu(SLA)p Fk(_)p +Fu(DR2AF)369 b Fj(Radians)38 b(to)g(Deg,Min,Sec,F)-10 +b(rac)368 b Fu(SLA)p Fk(_)p Fu(DR2AF)0 1065 y Fy(A)m(CTION)44 +b FA(:)49 b(Con)m(v)m(ert)36 b(an)e(angle)h(in)f(radians)f(to)i +(degrees,)i(arcmin)m(utes,)f(arcseconds,)g(fraction)f(\(double)227 +1178 y(precision\).)0 1366 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DR2AF)g(\(NDP,)g(ANGLE,)g(SIGN,)g(IDMSF\))0 1724 +y Fy(GIVEN)f FA(:)277 1870 y Fn(NDP)537 b Fy(I)605 b +FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e(places)h(of)h(arcseconds)277 +1983 y Fn(ANGLE)411 b Fy(D)565 b FA(angle)31 b(in)e(radians)0 +2350 y Fy(RETURNED)46 b FA(:)277 2496 y Fn(SIGN)512 b +Fy(C)569 b FA(`+')31 b(or)f(`)p Fl(\000)p FA(')277 2609 +y Fn(IDMSF)440 b Fy(I\(4\))471 b FA(degrees,)31 b(arcmin)m(utes,)f +(arcseconds,)h(fraction)0 2976 y Fy(NOTES)44 b FA(:)311 +3169 y(1.)i(NDP)31 b(less)f(than)g(zero)h(is)e(in)m(terpreted)h(as)h +(zero.)311 3317 y(2.)46 b(The)28 b(largest)h(useful)e(v)-5 +b(alue)29 b(for)f(NDP)h(is)f(determined)f(b)m(y)i(the)g(size)f(of)h +(ANGLE,)g(the)g(format)g(of)427 3430 y(DOUBLE)35 b(PRECISION)f +(\015oating-p)s(oin)m(t)g(n)m(um)m(b)s(ers)f(on)i(the)g(target)i(mac)m +(hine,)e(and)g(the)g(risk)427 3543 y(of)e(o)m(v)m(er\015o)m(wing)g +(IDMSF\(4\).)48 b(F)-8 b(or)33 b(example,)g(on)g(a)f(V)-10 +b(AX)33 b(computer,)g(for)f(ANGLE)h(up)f(to)h(2)p Fi(\031)s +FA(,)427 3656 y(the)d(a)m(v)-5 b(ailable)28 b(\015oating-p)s(oin)m(t)h +(precision)e(corresp)s(onds)h(roughly)g(to)i(NDP=12.)41 +b(Ho)m(w)m(ev)m(er,)32 b(the)427 3769 y(practical)e(limit)e(is)i +(NDP=9,)h(set)g(b)m(y)f(the)h(capacit)m(y)g(of)g(the)f(32-bit)h(in)m +(teger)g(IDMSF\(4\).)311 3918 y(3.)46 b(The)29 b(absolute)f(v)-5 +b(alue)29 b(of)g(ANGLE)g(ma)m(y)g(exceed)h(2)p Fi(\031)s +FA(.)41 b(In)28 b(cases)i(where)e(it)g(do)s(es)h(not,)h(it)e(is)g(up)g +(to)427 4031 y(the)f(caller)g(to)g(test)h(for)f(and)f(handle)f(the)j +(case)g(where)e(ANGLE)h(is)f(v)m(ery)h(nearly)f(2)p Fi(\031)31 +b FA(and)26 b(rounds)427 4144 y(up)k(to)h(360)805 4111 +y Fm(\016)845 4144 y FA(,)g(b)m(y)f(testing)h(for)f(IDMSF\(1\)=360)j +(and)d(setting)g(IDMSF\(1-4\))j(to)e(zero.)p 0 4287 V +0 4400 a Fu(SLA)p Fk(_)p Fu(DR2TF)348 b Fj(Radians)38 +b(to)g(Hour,Min,Sec,F)-10 b(rac)347 b Fu(SLA)p Fk(_)p +Fu(DR2TF)0 4750 y Fy(A)m(CTION)44 b FA(:)37 b(Con)m(v)m(ert)25 +b(an)f(angle)g(in)e(radians)h(to)h(hours,)g(min)m(utes,)h(seconds,)g +(fraction)f(\(double)f(precision\).)0 4938 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DR2TF)g(\(NDP,)g(ANGLE,)g(SIGN,)g(IHMSF\)) +0 5295 y Fy(GIVEN)f FA(:)277 5441 y Fn(NDP)537 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(decimal)e(places)h(of)h(seconds)277 +5554 y Fn(ANGLE)411 b Fy(D)565 b FA(angle)31 b(in)e(radians)p +eop +%%Page: 49 51 +49 50 bop 0 52 a Ft(SUN/67.45)3252 b FA(49)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(SIGN)512 b Fy(C)569 b FA(`+')31 b(or)f(`)p +Fl(\000)p FA(')277 610 y Fn(IHMSF)441 b Fy(I\(4\))471 +b FA(hours,)30 b(min)m(utes,)f(seconds,)i(fraction)0 +1018 y Fy(NOTES)44 b FA(:)311 1227 y(1.)i(NDP)31 b(less)f(than)g(zero)h +(is)e(in)m(terpreted)h(as)h(zero.)311 1384 y(2.)46 b(The)28 +b(largest)h(useful)e(v)-5 b(alue)29 b(for)f(NDP)h(is)f(determined)f(b)m +(y)i(the)g(size)f(of)h(ANGLE,)g(the)g(format)g(of)427 +1497 y(DOUBLE)35 b(PRECISION)f(\015oating-p)s(oin)m(t)g(n)m(um)m(b)s +(ers)f(on)i(the)g(target)i(mac)m(hine,)e(and)g(the)g(risk)427 +1610 y(of)e(o)m(v)m(er\015o)m(wing)g(IHMSF\(4\).)48 b(F)-8 +b(or)34 b(example,)f(on)f(a)h(V)-10 b(AX)33 b(computer,)g(for)f(ANGLE)h +(up)f(to)h(2)p Fi(\031)s FA(,)427 1723 y(the)d(a)m(v)-5 +b(ailable)28 b(\015oating-p)s(oin)m(t)h(precision)e(corresp)s(onds)h +(roughly)g(to)i(NDP=12.)41 b(Ho)m(w)m(ev)m(er,)32 b(the)427 +1836 y(practical)e(limit)e(is)i(NDP=9,)h(set)g(b)m(y)f(the)h(capacit)m +(y)g(of)g(the)f(32-bit)h(in)m(teger)g(IHMSF\(4\).)311 +1993 y(3.)46 b(The)29 b(absolute)f(v)-5 b(alue)29 b(of)g(ANGLE)g(ma)m +(y)g(exceed)h(2)p Fi(\031)s FA(.)41 b(In)28 b(cases)i(where)e(it)g(do)s +(es)h(not,)h(it)e(is)g(up)g(to)427 2106 y(the)f(caller)g(to)g(test)h +(for)f(and)f(handle)f(the)j(case)g(where)e(ANGLE)h(is)f(v)m(ery)h +(nearly)f(2)p Fi(\031)31 b FA(and)26 b(rounds)427 2219 +y(up)k(to)h(24)g(hours,)e(b)m(y)i(testing)f(for)g(IHMSF\(1\)=24)j(and)c +(setting)i(IHMSF\(1-4\))h(to)f(zero.)p 0 2378 3780 8 +v 0 2491 a Fu(SLA)p Fk(_)p Fu(DRANGE)304 b Fj(Put)38 +b(Angle)g(in)m(to)f(Range)h Fe(\006)p Fd(\031)310 b Fu(SLA)p +Fk(_)p Fu(DRANGE)0 2841 y Fy(A)m(CTION)44 b FA(:)c(Normalize)31 +b(an)f(angle)g(in)m(to)h(the)f(range)h Fl(\006)p Fi(\031)i +FA(\(double)c(precision\).)0 3029 y Fy(CALL)45 b FA(:)77 +b Fq(D)47 b(=)h(sla_DRANGE)d(\(ANGLE\))0 3407 y Fy(GIVEN)g +FA(:)277 3579 y Fn(ANGLE)411 b Fy(D)565 b FA(angle)31 +b(in)e(radians)0 3995 y Fy(RETURNED)46 b FA(:)277 4167 +y Fn(sla)p Fq(_)p Fn(DRANGE)179 b Fy(D)565 b FA(ANGLE)31 +b(expressed)f(in)f(the)h(range)h Fl(\006)p Fi(\031)s +FA(.)p 0 4337 V 0 4450 a Fu(SLA)p Fk(_)p Fu(DRANRM)204 +b Fj(Put)39 b(Angle)e(in)m(to)h(Range)g(0)7 b Fe(\000)g +Fj(2)p Fd(\031)209 b Fu(SLA)p Fk(_)p Fu(DRANRM)0 4800 +y Fy(A)m(CTION)44 b FA(:)c(Normalize)31 b(an)f(angle)g(in)m(to)h(the)f +(range)h(0)5 b Fl(\000)g FA(2)p Fi(\031)34 b FA(\(double)29 +b(precision\).)0 4988 y Fy(CALL)45 b FA(:)77 b Fq(D)47 +b(=)h(sla_DRANRM)d(\(ANGLE\))0 5366 y Fy(GIVEN)g FA(:)277 +5538 y Fn(ANGLE)411 b Fy(D)565 b FA(angle)31 b(in)e(radians)p +eop +%%Page: 50 52 +50 51 bop 0 52 a FA(50)0 351 y Fy(RETURNED)46 b FA(:)277 +523 y Fn(sla)p Fq(_)p Fn(DRANRM)163 b Fy(D)565 b FA(ANGLE)31 +b(expressed)f(in)f(the)h(range)h(0)5 b Fl(\000)g FA(2)p +Fi(\031)p 0 678 3780 8 v 0 791 a Fu(SLA)p Fk(_)p Fu(DS2C6)371 +b Fj(Spherical)37 b(P)m(os/V)-10 b(el)37 b(to)h(Cartesian)369 +b Fu(SLA)p Fk(_)p Fu(DS2C6)0 1141 y Fy(A)m(CTION)44 b +FA(:)38 b(Con)m(v)m(ersion)25 b(of)g(p)s(osition)f(&)h(v)m(elo)s(cit)m +(y)g(in)f(spherical)g(co)s(ordinates)h(to)h(Cartesian)f(co)s(ordinates) +227 1254 y(\(double)30 b(precision\).)0 1441 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DS2C6)g(\(A,)h(B,)g(R,)g(AD,)g(BD,)g(RD,)g +(V\))0 1800 y Fy(GIVEN)e FA(:)277 1946 y Fn(A)668 b Fy(D)565 +b FA(longitude)29 b(\(radians\))h({)h(for)f(example)g +Fi(\013)277 2059 y Fn(B)672 b Fy(D)565 b FA(latitude)30 +b(\(radians\))f({)i(for)f(example)g Fi(\016)277 2172 +y Fn(R)670 b Fy(D)565 b FA(radial)29 b(co)s(ordinate)277 +2285 y Fn(AD)599 b Fy(D)565 b FA(longitude)29 b(deriv)-5 +b(ativ)m(e)30 b(\(radians)f(p)s(er)h(unit)f(time\))277 +2398 y Fn(BD)603 b Fy(D)565 b FA(latitude)30 b(deriv)-5 +b(ativ)m(e)29 b(\(radians)h(p)s(er)f(unit)g(time\))277 +2511 y Fn(RD)601 b Fy(D)565 b FA(radial)29 b(deriv)-5 +b(ativ)m(e)0 2879 y Fy(RETURNED)46 b FA(:)277 3051 y +Fn(V)668 b Fy(D\(6\))431 b FA([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 +b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(])p 0 3206 V 0 3319 a Fu(SLA)p Fk(_)p +Fu(DS2TP)442 b Fj(Spherical)37 b(to)h(T)-10 b(angen)m(t)38 +b(Plane)442 b Fu(SLA)p Fk(_)p Fu(DS2TP)0 3669 y Fy(A)m(CTION)44 +b FA(:)c(Pro)5 b(jection)31 b(of)f(spherical)f(co)s(ordinates)h(on)m +(to)i(the)e(tangen)m(t)i(plane)d(\(double)h(precision\).)0 +3857 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DS2TP)g(\(RA,)g(DEC,)h +(RAZ,)g(DECZ,)f(XI,)h(ETA,)f(J\))0 4215 y Fy(GIVEN)f +FA(:)277 4361 y Fn(RA,DEC)378 b Fy(D)565 b FA(spherical)29 +b(co)s(ordinates)h(of)g(star)h(\(radians\))277 4474 y +Fn(RAZ,DECZ)266 b Fy(D)565 b FA(spherical)29 b(co)s(ordinates)h(of)g +(tangen)m(t)i(p)s(oin)m(t)e(\(radians\))0 4843 y Fy(RETURNED)46 +b FA(:)277 4989 y Fn(XI,ET)-7 b(A)417 b Fy(D)565 b FA(tangen)m(t)32 +b(plane)d(co)s(ordinates)h(\(radians\))277 5102 y Fn(J)688 +b Fy(I)605 b FA(status:)1825 5215 y(0)31 b(=)f(OK,)g(star)g(on)g +(tangen)m(t)i(plane)1825 5328 y(1)f(=)f(error,)g(star)g(to)s(o)h(far)g +(from)f(axis)1825 5441 y(2)h(=)f(error,)g(an)m(tistar)g(on)h(tangen)m +(t)h(plane)1825 5554 y(3)f(=)f(error,)g(an)m(tistar)g(to)s(o)i(far)e +(from)g(axis)p eop +%%Page: 51 53 +51 52 bop 0 52 a Ft(SUN/67.45)3252 b FA(51)0 351 y Fy(NOTES)44 +b FA(:)311 534 y(1.)i(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +647 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 760 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 901 y(2.)46 b(When)26 b(w)m(orking)g(in)e([)15 +b Fi(x;)g(y)s(;)g(z)21 b FA(])26 b(rather)g(than)g(spherical)e(co)s +(ordinates,)j(the)f(equiv)-5 b(alen)m(t)26 b(Cartesian)427 +1013 y(routine)k(sla)p Fq(_)p FA(D)m(V2TP)g(is)g(a)m(v)-5 +b(ailable.)p 0 1122 3780 8 v 0 1235 a Fu(SLA)p Fk(_)p +Fu(DSEP)329 b Fj(Angle)38 b(Bet)m(w)m(een)f(2)i(P)m(oin)m(ts)e(on)h +(Sphere)330 b Fu(SLA)p Fk(_)p Fu(DSEP)0 1585 y Fy(A)m(CTION)44 +b FA(:)c(Angle)31 b(b)s(et)m(w)m(een)g(t)m(w)m(o)g(p)s(oin)m(ts)f(on)g +(a)h(sphere)e(\(double)g(precision\).)0 1773 y Fy(CALL)45 +b FA(:)77 b Fq(D)47 b(=)h(sla_DSEP)d(\(A1,)i(B1,)g(A2,)g(B2\))0 +2102 y Fy(GIVEN)e FA(:)277 2248 y Fn(A1,B1)484 b Fy(D)565 +b FA(spherical)29 b(co)s(ordinates)h(of)g(one)h(p)s(oin)m(t)e +(\(radians\))277 2361 y Fn(A2,B2)484 b Fy(D)565 b FA(spherical)26 +b(co)s(ordinates)i(of)h(the)f(other)g(p)s(oin)m(t)g(\(radians\))0 +2678 y Fy(RETURNED)46 b FA(:)277 2850 y Fn(sla)p Fq(_)p +Fn(DSEP)338 b Fy(D)565 b FA(angle)31 b(b)s(et)m(w)m(een)g([A1,B1])h +(and)e([A2,B2])i(in)d(radians)0 3176 y Fy(NOTES)44 b +FA(:)311 3358 y(1.)i(The)26 b(spherical)e(co)s(ordinates)h(are)h(righ)m +(t)g(ascension)f(and)g(declination,)h(longitude)e(and)h(latitude,)427 +3471 y Fn(etc.)p FA(,)31 b(in)e(radians.)311 3612 y(2.)46 +b(The)30 b(result)f(is)h(alw)m(a)m(ys)h(p)s(ositiv)m(e.)p +0 3729 V 0 3842 a Fu(SLA)p Fk(_)p Fu(DT)661 b Fj(Appro)m(ximate)35 +b(ET)j(min)m(us)f(UT)662 b Fu(SLA)p Fk(_)p Fu(DT)0 4193 +y Fy(A)m(CTION)44 b FA(:)d(Estimate)31 b(\001T,)g(the)g(o\013set)h(b)s +(et)m(w)m(een)f(dynamical)e(time)i(and)f(Univ)m(ersal)g(Time,)g(for)g +(a)h(giv)m(en)227 4306 y(historical)e(ep)s(o)s(c)m(h.)0 +4493 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_DT)e(\(EPOCH\))0 +4818 y Fy(GIVEN)f FA(:)277 4990 y Fn(EPOCH)409 b Fy(D)565 +b FA(\(Julian\))29 b(ep)s(o)s(c)m(h)h(\()p Fn(e.g.)g +FA(1850D0\))0 5316 y Fy(RETURNED)46 b FA(:)277 5462 y +Fn(sla)p Fq(_)p Fn(DT)448 b Fy(D)565 b FA(appro)m(ximate)50 +b(ET)p Fl(\000)p FA(UT)f(\(after)h(1984,)57 b(TT)p Fl(\000)p +FA(UT1\))49 b(in)1658 5575 y(seconds)p eop +%%Page: 52 54 +52 53 bop 0 52 a FA(52)0 351 y Fy(NOTES)44 b FA(:)311 +572 y(1.)i(Dep)s(ending)29 b(on)h(the)h(ep)s(o)s(c)m(h,)f(one)h(of)f +(three)h(parab)s(olic)e(appro)m(ximations)g(is)g(used:)554 +764 y(b)s(efore)h(AD)g(979)318 b(Stephenson)30 b(&)g(Morrison's)f(390)j +(BC)e(to)h(AD)g(948)h(mo)s(del)554 877 y(AD)e(979)i(to)f(AD)g(1708)100 +b(Stephenson)30 b(&)g(Morrison's)f(AD)i(948)h(to)f(AD)g(1600)h(mo)s +(del)554 990 y(after)e(AD)h(1708)331 b(McCarth)m(y)32 +b(&)e(Bab)s(co)s(c)m(k's)h(p)s(ost-1650)h(mo)s(del)427 +1181 y(The)42 b(breakp)s(oin)m(ts)f(are)h(c)m(hosen)h(to)g(ensure)e +(con)m(tin)m(uit)m(y:)64 b(they)42 b(o)s(ccur)g(at)h(places)f(where)f +(the)427 1294 y(adjacen)m(t)32 b(mo)s(dels)d(giv)m(e)i(the)f(same)h +(answ)m(er)f(as)h(eac)m(h)h(other.)311 1457 y(2.)46 b(The)d(accuracy)i +(is)e(mo)s(dest,)k(with)42 b(errors)h(of)h(up)e(to)i(20)2447 +1424 y Fr(s)2524 1457 y FA(during)d(the)j(in)m(terv)-5 +b(al)43 b(since)f(1650,)427 1570 y(rising)27 b(to)i(p)s(erhaps)e(30) +1213 1537 y Fr(m)1306 1570 y FA(b)m(y)h(1000)j(BC.)e(Comparativ)m(ely)f +(accurate)i(v)-5 b(alues)28 b(from)g(AD)i(1600)g(are)427 +1683 y(tabulated)g(in)f(the)i Fn(Astr)-5 b(onomic)g(al)35 +b(A)n(lmanac)h FA(\(see)c(section)e(K8)h(of)f(the)h(1995)h(edition\).) +311 1845 y(3.)46 b(The)34 b(use)h(of)f Fq(DOUBLE)46 b(PRECISION)32 +b FA(for)j(b)s(oth)f(argumen)m(t)h(and)f(result)f(is)h(simply)e(for)i +(compati-)427 1958 y(bilit)m(y)29 b(with)g(other)h(SLALIB)g(time)g +(routines.)311 2121 y(4.)46 b(The)28 b(mo)s(dels)g(used)f(are)i(based)f +(on)h(a)g(lunar)e(tidal)g(acceleration)i(v)-5 b(alue)28 +b(of)h Fl(\000)p FA(26)3157 2084 y Fh(0)l(0)3161 2121 +y Fi(:)p FA(00)h(p)s(er)e(cen)m(tury)-8 b(.)0 2566 y +Fy(REFERENCE)44 b FA(:)50 b(Seidelmann,)33 b(P)-8 b(.K.)36 +b(\(ed\),)g(1992.)56 b Fn(Explanatory)39 b(Supplement)f(to)g(the)f +(Astr)-5 b(onomic)g(al)227 2679 y(A)n(lmanac,)38 b FA(ISBN)d +(0-935702-68-7.)62 b(This)34 b(con)m(tains)i(references)g(to)g(the)g +(pap)s(ers)f(b)m(y)g(Stephenson)g(&)227 2791 y(Morrison)30 +b(and)f(b)m(y)i(McCarth)m(y)g(&)f(Bab)s(co)s(c)m(k)h(whic)m(h)e +(describ)s(e)g(the)i(mo)s(dels)e(used)g(here.)p 0 2957 +3780 8 v 0 3070 a Fu(SLA)p Fk(_)p Fu(DTF2D)553 b Fj(Hour,Min,Sec)36 +b(to)i(Da)m(ys)554 b Fu(SLA)p Fk(_)p Fu(DTF2D)0 3421 +y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 b(hours,)d(min)m(utes,)h +(seconds)g(to)h(da)m(ys)g(\(double)e(precision\).)0 3608 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DTF2D)g(\(IHOUR,)f(IMIN,)i +(SEC,)f(DAYS,)h(J\))0 4008 y Fy(GIVEN)e FA(:)277 4154 +y Fn(IHOUR)429 b Fy(I)605 b FA(hours)277 4266 y Fn(IMIN)516 +b Fy(I)605 b FA(min)m(utes)277 4379 y Fn(SEC)558 b Fy(D)565 +b FA(seconds)0 4816 y Fy(RETURNED)46 b FA(:)277 4962 +y Fn(D)n(A)-7 b(YS)489 b Fy(D)565 b FA(in)m(terv)-5 b(al)30 +b(in)f(da)m(ys)277 5075 y Fn(J)688 b Fy(I)605 b FA(status:)1825 +5188 y(0)31 b(=)f(OK)1825 5301 y(1)h(=)f(IHOUR)g(outside)f(range)i +(0-23)1825 5413 y(2)g(=)f(IMIN)g(outside)g(range)g(0-59)1825 +5526 y(3)h(=)f(SEC)f(outside)h(range)g(0-59.999)p Fl(\001)15 +b(\001)g(\001)p eop +%%Page: 53 55 +53 54 bop 0 52 a Ft(SUN/67.45)3252 b FA(53)0 351 y Fy(NOTES)44 +b FA(:)311 532 y(1.)i(The)30 b(result)f(is)h(computed)g(ev)m(en)h(if)e +(an)m(y)i(of)g(the)f(range)h(c)m(hec)m(ks)h(fail.)311 +671 y(2.)46 b(The)30 b(sign)g(m)m(ust)g(b)s(e)g(dealt)g(with)f(outside) +g(this)h(routine.)p 0 782 3780 8 v 0 895 a Fu(SLA)p Fk(_)p +Fu(DTF2R)476 b Fj(Hour,Min,Sec)37 b(to)h(Radians)476 +b Fu(SLA)p Fk(_)p Fu(DTF2R)0 1245 y Fy(A)m(CTION)44 b +FA(:)c(Con)m(v)m(ert)32 b(hours,)d(min)m(utes,)h(seconds)g(to)h +(radians)e(\(double)g(precision\).)0 1433 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DTF2R)g(\(IHOUR,)f(IMIN,)i(SEC,)f(RAD,)h +(J\))0 1754 y Fy(GIVEN)e FA(:)277 1900 y Fn(IHOUR)429 +b Fy(I)605 b FA(hours)277 2013 y Fn(IMIN)516 b Fy(I)605 +b FA(min)m(utes)277 2126 y Fn(SEC)558 b Fy(D)565 b FA(seconds)0 +2430 y Fy(RETURNED)46 b FA(:)277 2576 y Fn(RAD)533 b +Fy(D)565 b FA(angle)31 b(in)e(radians)277 2689 y Fn(J)688 +b Fy(I)605 b FA(status:)1825 2802 y(0)31 b(=)f(OK)1825 +2914 y(1)h(=)f(IHOUR)g(outside)f(range)i(0-23)1825 3027 +y(2)g(=)f(IMIN)g(outside)g(range)g(0-59)1825 3140 y(3)h(=)f(SEC)f +(outside)h(range)g(0-59.999)p Fl(\001)15 b(\001)g(\001)0 +3444 y Fy(NOTES)44 b FA(:)311 3624 y(1.)i(The)30 b(result)f(is)h +(computed)g(ev)m(en)h(if)e(an)m(y)i(of)g(the)f(range)h(c)m(hec)m(ks)h +(fail.)311 3763 y(2.)46 b(The)30 b(sign)g(m)m(ust)g(b)s(e)g(dealt)g +(with)f(outside)g(this)h(routine.)p 0 3875 V 0 3988 a +Fu(SLA)p Fk(_)p Fu(DTP2S)442 b Fj(T)-10 b(angen)m(t)37 +b(Plane)h(to)g(Spherical)442 b Fu(SLA)p Fk(_)p Fu(DTP2S)0 +4338 y Fy(A)m(CTION)44 b FA(:)c(T)-8 b(ransform)28 b(tangen)m(t)i +(plane)e(co)s(ordinates)h(in)m(to)f(spherical)g(co)s(ordinates)g +(\(double)g(precision\))0 4526 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_DTP2S)g(\(XI,)g(ETA,)h(RAZ,)g(DECZ,)f(RA,)h(DEC\))0 +4847 y Fy(GIVEN)e FA(:)277 4993 y Fn(XI,ET)-7 b(A)417 +b Fy(D)565 b FA(tangen)m(t)32 b(plane)d(rectangular)i(co)s(ordinates)f +(\(radians\))277 5106 y Fn(RAZ,DECZ)266 b Fy(D)565 b +FA(spherical)29 b(co)s(ordinates)h(of)g(tangen)m(t)i(p)s(oin)m(t)e +(\(radians\))0 5409 y Fy(RETURNED)46 b FA(:)277 5581 +y Fn(RA,DEC)378 b Fy(D)565 b FA(spherical)29 b(co)s(ordinates)h +(\(radians\))p eop +%%Page: 54 56 +54 55 bop 0 52 a FA(54)0 351 y Fy(NOTES)44 b FA(:)311 +530 y(1.)i(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +643 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 756 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 894 y(2.)46 b(When)26 b(w)m(orking)g(in)e([)15 +b Fi(x;)g(y)s(;)g(z)21 b FA(])26 b(rather)g(than)g(spherical)e(co)s +(ordinates,)j(the)f(equiv)-5 b(alen)m(t)26 b(Cartesian)427 +1007 y(routine)k(sla)p Fq(_)p FA(DTP2V)g(is)f(a)m(v)-5 +b(ailable.)p 0 1105 3780 8 v 0 1217 a Fu(SLA)p Fk(_)p +Fu(DTP2V)201 b Fj(T)-10 b(angen)m(t)37 b(Plane)h(to)g(Direction)f +(Cosines)202 b Fu(SLA)p Fk(_)p Fu(DTP2V)0 1568 y Fy(A)m(CTION)44 +b FA(:)63 b(Giv)m(en)42 b(the)g(tangen)m(t-plane)h(co)s(ordinates)e(of) +h(a)g(star)g(and)f(the)h(direction)f(cosines)g(of)h(the)227 +1681 y(tangen)m(t)32 b(p)s(oin)m(t,)e(determine)f(the)i(direction)e +(cosines)h(of)g(the)h(star)g(\(double)e(precision\).)0 +1868 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DTP2V)g(\(XI,)g(ETA,)h +(V0,)g(V\))0 2184 y Fy(GIVEN)e FA(:)277 2330 y Fn(XI,ET)-7 +b(A)417 b Fy(D)565 b FA(tangen)m(t)32 b(plane)d(co)s(ordinates)h(of)h +(star)g(\(radians\))277 2443 y Fn(V0)622 b Fy(D\(3\))431 +b FA(direction)29 b(cosines)h(of)h(tangen)m(t)h(p)s(oin)m(t)0 +2736 y Fy(RETURNED)46 b FA(:)277 2908 y Fn(V)668 b Fy(D\(3\))431 +b FA(direction)29 b(cosines)h(of)h(star)0 3210 y Fy(NOTES)44 +b FA(:)311 3389 y(1.)i(If)30 b(v)m(ector)i(V0)f(is)f(not)g(of)h(unit)e +(length,)h(the)g(returned)f(v)m(ector)j(V)f(will)d(b)s(e)h(wrong.)311 +3526 y(2.)46 b(If)35 b(v)m(ector)i(V0)f(p)s(oin)m(ts)e(at)i(a)f(p)s +(ole,)h(the)g(returned)e(v)m(ector)j(V)e(will)e(b)s(e)h(based)h(on)g +(the)h(arbitrary)427 3639 y(assumption)29 b(that)i Fi(\013)26 +b FA(=)f(0)31 b(at)g(the)f(tangen)m(t)i(p)s(oin)m(t.)311 +3777 y(3.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +3890 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 4003 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 4140 y(4.)46 b(This)29 b(routine)g(is)h(the)g(Cartesian)g +(equiv)-5 b(alen)m(t)30 b(of)g(the)h(routine)e(sla)p +Fq(_)p FA(DTP2S.)p 0 4247 V 0 4360 a Fu(SLA)p Fk(_)p +Fu(DTPS2C)265 b Fj(Plate)37 b(cen)m(tre)h(from)f Fd(\030)6 +b(;)20 b(\021)42 b Fj(and)d Fd(\013)q(;)20 b(\016)270 +b Fu(SLA)p Fk(_)p Fu(DTPS2C)0 4710 y Fy(A)m(CTION)44 +b FA(:)39 b(F)-8 b(rom)27 b(the)h(tangen)m(t)g(plane)e(co)s(ordinates)h +(of)g(a)g(star)h(of)f(kno)m(wn)f([)15 b Fi(\013;)g(\016)21 +b FA(],)28 b(determine)e(the)h([)15 b Fi(\013;)g(\016)20 +b FA(])227 4823 y(of)31 b(the)f(tangen)m(t)i(p)s(oin)m(t)e(\(double)f +(precision\))0 5011 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DTPS2C)f(\(XI,)i(ETA,)g(RA,)g(DEC,)f(RAZ1,)h(DECZ1,)f(RAZ2,)g +(DECZ2,)g(N\))0 5326 y Fy(GIVEN)f FA(:)277 5472 y Fn(XI,ET)-7 +b(A)417 b Fy(D)565 b FA(tangen)m(t)32 b(plane)d(rectangular)i(co)s +(ordinates)f(\(radians\))277 5585 y Fn(RA,DEC)378 b Fy(D)565 +b FA(spherical)29 b(co)s(ordinates)h(\(radians\))p eop +%%Page: 55 57 +55 56 bop 0 52 a Ft(SUN/67.45)3252 b FA(55)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(RAZ1,DECZ1)174 b Fy(D)565 b FA(spherical)29 +b(co)s(ordinates)h(of)g(tangen)m(t)i(p)s(oin)m(t,)e(solution)f(1)277 +610 y Fn(RAZ2,DECZ2)174 b Fy(D)565 b FA(spherical)29 +b(co)s(ordinates)h(of)g(tangen)m(t)i(p)s(oin)m(t,)e(solution)f(2)277 +723 y Fn(N)668 b Fy(I)605 b FA(n)m(um)m(b)s(er)29 b(of)i(solutions:) +1779 836 y(0)g(=)f(no)g(solutions)f(returned)g(\(note)j(2\))1779 +949 y(1)f(=)f(only)g(the)g(\014rst)g(solution)f(is)g(useful)g(\(note)i +(3\))1779 1062 y(2)g(=)f(there)h(are)f(t)m(w)m(o)i(useful)d(solutions)g +(\(note)i(3\))0 1501 y Fy(NOTES)44 b FA(:)311 1723 y(1.)i(The)30 +b(RAZ1)h(and)e(RAZ2)i(v)-5 b(alues)29 b(returned)h(are)g(in)f(the)i +(range)g(0)5 b Fl(\000)g FA(2)p Fi(\031)s FA(.)311 1886 +y(2.)46 b(Cases)39 b(where)f(there)h(is)f(no)g(solution)f(can)i(only)f +(arise)g(near)g(the)h(p)s(oles.)64 b(F)-8 b(or)40 b(example,)g(it)e(is) +427 1999 y(clearly)27 b(imp)s(ossible)d(for)j(a)h(star)f(at)h(the)g(p)s +(ole)e(itself)g(to)j(ha)m(v)m(e)f(a)g(non-zero)g Fi(\030)j +FA(v)-5 b(alue,)28 b(and)e(hence)i(it)427 2112 y(is)k(meaningless)g(to) +h(ask)g(where)f(the)h(tangen)m(t)i(p)s(oin)m(t)c(w)m(ould)h(ha)m(v)m(e) +i(to)f(b)s(e)g(to)g(bring)e(ab)s(out)i(this)427 2225 +y(com)m(bination)d(of)g Fi(\030)35 b FA(and)30 b Fi(\016)s +FA(.)311 2388 y(3.)46 b(Also)33 b(near)f(the)h(p)s(oles,)f(cases)i(can) +f(arise)f(where)g(there)h(are)g(t)m(w)m(o)g(useful)e(solutions.)46 +b(The)32 b(argu-)427 2501 y(men)m(t)j(N)g(indicates)e(whether)h(the)h +(second)g(of)g(the)f(t)m(w)m(o)i(solutions)d(returned)h(is)f(useful.)52 +b(N)15 b(=)g(1)427 2614 y(indicates)41 b(only)h(one)g(useful)e +(solution,)k(the)e(usual)f(case;)49 b(under)41 b(these)h +(circumstances,)j(the)427 2727 y(second)35 b(solution)e(corresp)s(onds) +g(to)j(the)f(\\o)m(v)m(er-the-p)s(ole")i(case,)g(and)d(this)f(is)h +(re\015ected)h(in)e(the)427 2839 y(v)-5 b(alues)30 b(of)h(RAZ2)f(and)g +(DECZ2)g(whic)m(h)f(are)i(returned.)311 3003 y(4.)46 +b(The)35 b(DECZ1)g(and)f(DECZ2)h(v)-5 b(alues)34 b(returned)g(are)h(in) +f(the)h(range)g Fl(\006)p Fi(\031)s FA(,)h(but)f(in)e(the)i(ordinary)-8 +b(,)427 3116 y(non-p)s(ole-crossing,)29 b(case,)j(the)f(range)f(is)g +Fl(\006)p Fi(\031)s(=)p FA(2.)311 3279 y(5.)46 b(RA,)31 +b(DEC,)f(RAZ1,)h(DECZ1,)g(RAZ2,)f(DECZ2)h(are)f(all)g(in)f(radians.)311 +3442 y(6.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +3555 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 3668 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 3831 y(7.)46 b(When)26 b(w)m(orking)g(in)e([)15 +b Fi(x;)g(y)s(;)g(z)21 b FA(])26 b(rather)g(than)g(spherical)e(co)s +(ordinates,)j(the)f(equiv)-5 b(alen)m(t)26 b(Cartesian)427 +3944 y(routine)k(sla)p Fq(_)p FA(DTPV2C)g(is)f(a)m(v)-5 +b(ailable.)p 0 4102 3780 8 v 0 4215 a Fu(SLA)p Fk(_)p +Fu(DTPV2C)184 b Fj(Plate)37 b(cen)m(tre)h(from)e Fd(\030)6 +b(;)20 b(\021)43 b Fj(and)38 b Fd(x;)20 b(y)t(;)g(z)190 +b Fu(SLA)p Fk(_)p Fu(DTPV2C)0 4565 y Fy(A)m(CTION)44 +b FA(:)38 b(F)-8 b(rom)26 b(the)f(tangen)m(t)i(plane)d(co)s(ordinates)h +(of)g(a)h(star)f(of)h(kno)m(wn)e(direction)g(cosines,)i(determine)227 +4678 y(the)31 b(direction)e(cosines)h(of)g(the)h(tangen)m(t)h(p)s(oin)m +(t)d(\(double)g(precision\))0 4865 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_DTPV2C)f(\(XI,)i(ETA,)g(V,)g(V01,)f(V02,)h(N\))0 +5266 y Fy(GIVEN)e FA(:)277 5412 y Fn(XI,ET)-7 b(A)417 +b Fy(D)565 b FA(tangen)m(t)32 b(plane)d(co)s(ordinates)h(of)h(star)g +(\(radians\))277 5525 y Fn(V)668 b Fy(D\(3\))431 b FA(direction)29 +b(cosines)h(of)h(star)p eop +%%Page: 56 58 +56 57 bop 0 52 a FA(56)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(V01)576 b Fy(D\(3\))431 b FA(direction)29 b(cosines)h(of)h +(tangen)m(t)h(p)s(oin)m(t,)d(solution)g(1)277 610 y Fn(V01)576 +b Fy(D\(3\))431 b FA(direction)29 b(cosines)h(of)h(tangen)m(t)h(p)s +(oin)m(t,)d(solution)g(2)277 723 y Fn(N)668 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(solutions:)1779 836 y(0)g(=)f(no)g +(solutions)f(returned)g(\(note)j(2\))1779 949 y(1)f(=)f(only)g(the)g +(\014rst)g(solution)f(is)g(useful)g(\(note)i(3\))1779 +1062 y(2)g(=)f(there)h(are)f(t)m(w)m(o)i(useful)d(solutions)g(\(note)i +(3\))0 1391 y Fy(NOTES)44 b FA(:)311 1575 y(1.)i(The)30 +b(v)m(ector)i(V)f(m)m(ust)f(b)s(e)g(of)g(unit)f(length)h(or)g(the)h +(result)e(will)f(b)s(e)h(wrong.)311 1717 y(2.)46 b(Cases)39 +b(where)f(there)h(is)f(no)g(solution)f(can)i(only)f(arise)g(near)g(the) +h(p)s(oles.)64 b(F)-8 b(or)40 b(example,)g(it)e(is)427 +1830 y(clearly)30 b(imp)s(ossible)d(for)j(a)h(star)f(at)h(the)g(p)s +(ole)e(itself)h(to)h(ha)m(v)m(e)g(a)g(non-zero)g(XI)f(v)-5 +b(alue.)311 1973 y(3.)46 b(Also)33 b(near)f(the)h(p)s(oles,)f(cases)i +(can)f(arise)f(where)g(there)h(are)g(t)m(w)m(o)g(useful)e(solutions.)46 +b(The)32 b(argu-)427 2086 y(men)m(t)j(N)g(indicates)e(whether)h(the)h +(second)g(of)g(the)f(t)m(w)m(o)i(solutions)d(returned)h(is)f(useful.)52 +b(N)15 b(=)g(1)427 2199 y(indicates)41 b(only)h(one)g(useful)e +(solution,)k(the)e(usual)f(case;)49 b(under)41 b(these)h +(circumstances,)j(the)427 2311 y(second)27 b(solution)f(can)h(b)s(e)g +(regarded)f(as)i(v)-5 b(alid)25 b(if)h(the)h(v)m(ector)i(V02)f(is)e(in) +m(terpreted)g(as)h(the)g(\\o)m(v)m(er-)427 2424 y(the-p)s(ole")k(case.) +311 2567 y(4.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +2680 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 2793 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 2935 y(5.)46 b(This)29 b(routine)g(is)h(the)g(Cartesian)g +(equiv)-5 b(alen)m(t)30 b(of)g(the)h(routine)e(sla)p +Fq(_)p FA(DTPS2C.)p 0 3057 3780 8 v 0 3170 a Fu(SLA)p +Fk(_)p Fu(DTT)875 b Fj(TT)38 b(min)m(us)f(UTC)877 b Fu(SLA)p +Fk(_)p Fu(DTT)0 3521 y Fy(A)m(CTION)44 b FA(:)c(Compute)28 +b(\001TT,)g(the)h(incremen)m(t)g(to)g(b)s(e)g(applied)d(to)k(Co)s +(ordinated)d(Univ)m(ersal)h(Time)g(UTC)227 3634 y(to)j(giv)m(e)g(T)-8 +b(errestrial)29 b(Time)h(TT.)0 3821 y Fy(CALL)45 b FA(:)77 +b Fq(D)47 b(=)h(sla_DTT)d(\(DJU\))0 4153 y Fy(GIVEN)g +FA(:)277 4324 y Fn(DJU)551 b Fy(D)565 b FA(UTC)30 b(date)h(as)g(a)f(mo) +s(di\014ed)f(JD)h(\(JD)p Fl(\000)p FA(2400000.5\))0 4661 +y Fy(RETURNED)46 b FA(:)277 4833 y Fn(sla)p Fq(_)p Fn(DTT)383 +b Fy(D)565 b FA(TT)p Fl(\000)p FA(UTC)29 b(in)g(seconds)0 +5170 y Fy(NOTES)44 b FA(:)311 5354 y(1.)i(The)32 b(UTC)f(is)g(sp)s +(eci\014ed)f(to)i(b)s(e)f(a)i(date)f(rather)g(than)f(a)h(time)g(to)g +(indicate)f(that)i(care)f(needs)g(to)427 5467 y(b)s(e)g(tak)m(en)i(not) +f(to)h(sp)s(ecify)d(an)i(instan)m(t)g(whic)m(h)e(lies)h(within)e(a)j +(leap)g(second.)48 b(Though)32 b(in)f(most)427 5580 y(cases)39 +b(UTC)e(can)i(include)c(the)j(fractional)g(part,)i(correct)f(b)s(eha)m +(viour)d(on)i(the)g(da)m(y)h(of)f(a)g(leap)427 5693 y(second)31 +b(can)f(b)s(e)g(guaran)m(teed)i(only)d(up)g(to)i(the)g(end)f(of)g(the)h +(second)f(23)2892 5660 y Fr(h)2952 5693 y FA(59)3042 +5660 y Fr(m)3121 5693 y FA(59)3211 5660 y Fr(s)3244 5693 +y FA(.)p eop +%%Page: 57 59 +57 58 bop 0 52 a Ft(SUN/67.45)3252 b FA(57)311 351 y(2.)46 +b(Pre)30 b(1972)j(Jan)m(uary)d(1)g(a)h(\014xed)f(v)-5 +b(alue)30 b(of)g(10)h(+)f(ET)p Fl(\000)p FA(T)-8 b(AI)30 +b(is)f(returned.)311 505 y(3.)46 b(TT)30 b(is)f(one)i(in)m +(terpretation)f(of)g(the)h(defunct)f(timescale)g Fn(Ephemeris)k(Time)p +FA(,)c(ET.)311 658 y(4.)46 b(See)31 b(also)f(the)h(routine)e(sla)p +Fq(_)p FA(DT,)h(whic)m(h)f(roughly)g(estimates)i(ET)p +Fl(\000)p FA(UT)f(for)g(historical)e(ep)s(o)s(c)m(hs.)p +0 806 3780 8 v 0 919 a Fu(SLA)p Fk(_)p Fu(D)l(V2TP)205 +b Fj(Direction)37 b(Cosines)h(to)g(T)-10 b(angen)m(t)37 +b(Plane)205 b Fu(SLA)p Fk(_)p Fu(D)l(V2TP)0 1269 y Fy(A)m(CTION)44 +b FA(:)39 b(Giv)m(en)27 b(the)g(direction)f(cosines)h(of)g(a)h(star)f +(and)g(of)g(the)h(tangen)m(t)g(p)s(oin)m(t,)f(determine)g(the)g(star's) +227 1382 y(tangen)m(t-plane)32 b(co)s(ordinates)e(\(double)f +(precision\).)0 1570 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_DV2TP)g(\(V,)h(V0,)f(XI,)h(ETA,)g(J\))0 1942 y +Fy(GIVEN)e FA(:)277 2088 y Fn(V)668 b Fy(D\(3\))431 b +FA(direction)29 b(cosines)h(of)h(star)277 2201 y Fn(V0)622 +b Fy(D\(3\))431 b FA(direction)29 b(cosines)h(of)h(tangen)m(t)h(p)s +(oin)m(t)0 2591 y Fy(RETURNED)46 b FA(:)277 2737 y Fn(XI,ET)-7 +b(A)417 b Fy(D)565 b FA(tangen)m(t)32 b(plane)d(co)s(ordinates)h +(\(radians\))277 2850 y Fn(J)688 b Fy(I)605 b FA(status:)1825 +2963 y(0)31 b(=)f(OK,)g(star)g(on)g(tangen)m(t)i(plane)1825 +3076 y(1)f(=)f(error,)g(star)g(to)s(o)h(far)g(from)f(axis)1825 +3189 y(2)h(=)f(error,)g(an)m(tistar)g(on)h(tangen)m(t)h(plane)1825 +3302 y(3)f(=)f(error,)g(an)m(tistar)g(to)s(o)i(far)e(from)g(axis)0 +3693 y Fy(NOTES)44 b FA(:)311 3895 y(1.)i(If)32 b(v)m(ector)h(V0)f(is)f +(not)h(of)g(unit)e(length,)i(or)f(if)g(v)m(ector)i(V)f(is)f(of)h(zero)g +(length,)g(the)g(results)e(will)f(b)s(e)427 4008 y(wrong.)311 +4161 y(2.)46 b(If)35 b(V0)i(p)s(oin)m(ts)d(at)i(a)g(p)s(ole,)h(the)e +(returned)g Fi(\030)t(;)15 b(\021)39 b FA(will)33 b(b)s(e)i(based)g(on) +h(the)g(arbitrary)e(assumption)427 4274 y(that)d Fi(\013)26 +b FA(=)f(0)31 b(at)g(the)f(tangen)m(t)i(p)s(oin)m(t.)311 +4428 y(3.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +4541 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 4654 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 4807 y(4.)46 b(This)29 b(routine)g(is)h(the)g(Cartesian)g +(equiv)-5 b(alen)m(t)30 b(of)g(the)h(routine)e(sla)p +Fq(_)p FA(DS2TP)-8 b(.)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p +Fu(D)l(VD)l(V)785 b Fj(Scalar)37 b(Pro)s(duct)785 b Fu(SLA)p +Fk(_)p Fu(D)l(VD)l(V)0 5418 y Fy(A)m(CTION)44 b FA(:)c(Scalar)30 +b(pro)s(duct)g(of)g(t)m(w)m(o)i(3-v)m(ectors)g(\(double)e(precision\).) +0 5606 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_DVDV)d(\(VA,)i(VB\))p +eop +%%Page: 58 60 +58 59 bop 0 52 a FA(58)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(V)-9 b(A)609 b Fy(D\(3\))431 b FA(\014rst)30 +b(v)m(ector)277 610 y Fn(VB)604 b Fy(D\(3\))431 b FA(second)31 +b(v)m(ector)0 879 y Fy(RETURNED)46 b FA(:)277 1051 y +Fn(sla)p Fq(_)p Fn(D)n(VD)n(V)312 b Fy(D)565 b FA(scalar)30 +b(pro)s(duct)g(V)-10 b(A.VB)p 0 1163 3780 8 v 0 1276 +a Fu(SLA)p Fk(_)p Fu(D)l(VN)820 b Fj(Normalize)35 b(V)-10 +b(ector)820 b Fu(SLA)p Fk(_)p Fu(D)l(VN)0 1627 y Fy(A)m(CTION)44 +b FA(:)c(Normalize)31 b(a)f(3-v)m(ector,)j(also)e(giving)e(the)h(mo)s +(dulus)e(\(double)h(precision\).)0 1814 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DVN)g(\(V,)h(UV,)g(VM\))0 +2116 y Fy(GIVEN)e FA(:)277 2287 y Fn(V)668 b Fy(D\(3\))431 +b FA(v)m(ector)0 2565 y Fy(RETURNED)46 b FA(:)277 2711 +y Fn(UV)600 b Fy(D\(3\))431 b FA(unit)29 b(v)m(ector)j(in)d(direction)g +(of)i(V)277 2824 y Fn(VM)586 b Fy(D)565 b FA(mo)s(dulus)28 +b(of)i(V)0 3094 y Fy(NOTE)44 b FA(:)d(If)30 b(the)g(mo)s(dulus)e(of)j +(V)f(is)f(zero,)j(UV)f(is)e(set)i(to)g(zero)g(as)g(w)m(ell.)p +0 3190 V 0 3303 a Fu(SLA)p Fk(_)p Fu(D)l(VXV)772 b Fj(V)-10 +b(ector)38 b(Pro)s(duct)773 b Fu(SLA)p Fk(_)p Fu(D)l(VXV)0 +3653 y Fy(A)m(CTION)44 b FA(:)c(V)-8 b(ector)33 b(pro)s(duct)c(of)h(t)m +(w)m(o)i(3-v)m(ectors)h(\(double)c(precision\).)0 3841 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_DVXV)g(\(VA,)h(VB,)f(VC\))0 +4143 y Fy(GIVEN)f FA(:)277 4289 y Fn(V)-9 b(A)609 b Fy(D\(3\))431 +b FA(\014rst)30 b(v)m(ector)277 4401 y Fn(VB)604 b Fy(D\(3\))431 +b FA(second)31 b(v)m(ector)0 4671 y Fy(RETURNED)46 b +FA(:)277 4842 y Fn(V)n(C)605 b Fy(D\(3\))431 b FA(v)m(ector)32 +b(pro)s(duct)d(V)-10 b(A)p Fl(\002)p FA(VB)p 0 4955 V +0 5068 a Fu(SLA)p Fk(_)p Fu(E2H)988 b Fd(h;)20 b(\016)44 +b Fj(to)38 b(Az,El)987 b Fu(SLA)p Fk(_)p Fu(E2H)0 5418 +y Fy(A)m(CTION)44 b FA(:)c(Equatorial)30 b(to)h(horizon)f(co)s +(ordinates)g(\(single)f(precision\).)0 5606 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_DE2H)g(\(HA,)h(DEC,)f(PHI,)h(AZ,)g(EL\))p +eop +%%Page: 59 61 +59 60 bop 0 52 a Ft(SUN/67.45)3252 b FA(59)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(HA)600 b Fy(R)567 b FA(hour)30 b(angle)g +(\(radians\))277 610 y Fn(DEC)540 b Fy(R)567 b FA(declination)29 +b(\(radians\))277 723 y Fn(PHI)571 b Fy(R)c FA(latitude)30 +b(\(radians\))0 1068 y Fy(RETURNED)46 b FA(:)277 1214 +y Fn(AZ)612 b Fy(R)567 b FA(azim)m(uth)30 b(\(radians\))277 +1327 y Fn(EL)617 b Fy(R)567 b FA(elev)-5 b(ation)30 b(\(radians\))0 +1672 y Fy(NOTES)44 b FA(:)311 1859 y(1.)i(Azim)m(uth)28 +b(is)g(returned)f(in)g(the)i(range)g(0)q Fl(\000)q FA(2)p +Fi(\031)s FA(;)h(north)e(is)g(zero,)i(and)e(east)h(is)f(+)p +Fi(\031)s(=)p FA(2.)41 b(Elev)-5 b(ation)27 b(is)427 +1972 y(returned)i(in)h(the)g(range)h Fl(\006)p Fi(\031)s +FA(.)311 2117 y(2.)46 b(The)32 b(latitude)f(m)m(ust)i(b)s(e)e(geo)s +(detic.)48 b(In)31 b(critical)h(applications,)f(corrections)i(for)f(p)s +(olar)f(motion)427 2230 y(should)e(b)s(e)g(applied.)311 +2374 y(3.)46 b(In)36 b(some)h(applications)e(it)i(will)d(b)s(e)i(imp)s +(ortan)m(t)g(to)h(sp)s(ecify)f(the)h(correct)h(t)m(yp)s(e)f(of)g(hour)e +(angle)427 2487 y(and)f(declination)f(in)g(order)h(to)h(pro)s(duce)e +(the)i(required)d(t)m(yp)s(e)j(of)g(azim)m(uth)f(and)f(elev)-5 +b(ation.)53 b(In)427 2600 y(particular,)25 b(it)f(ma)m(y)h(b)s(e)f(imp) +s(ortan)m(t)g(to)h(distinguish)c(b)s(et)m(w)m(een)26 +b(elev)-5 b(ation)24 b(as)h(a\013ected)h(b)m(y)f(refrac-)427 +2713 y(tion,)g(whic)m(h)d(w)m(ould)h(require)f(the)i +Fn(observe)-5 b(d)24 b FA([)15 b Fi(h;)g(\016)20 b FA(],)26 +b(and)d(the)g(elev)-5 b(ation)24 b Fn(in)i(vacuo)p FA(,)f(whic)m(h)e(w) +m(ould)427 2826 y(require)35 b(the)h Fn(top)-5 b(o)g(c)g(entric)39 +b FA([)15 b Fi(h;)g(\016)20 b FA(].)59 b(If)35 b(the)i(e\013ects)g(of)f +(diurnal)d(ab)s(erration)j(can)g(b)s(e)g(neglected,)427 +2939 y(the)31 b Fn(app)-5 b(ar)g(ent)33 b FA([)15 b Fi(h;)g(\016)20 +b FA(])31 b(ma)m(y)g(b)s(e)f(used)f(instead)h(of)g(the)h(top)s(o)s(cen) +m(tric)f([)15 b Fi(h;)g(\016)21 b FA(].)311 3084 y(4.)46 +b(No)31 b(range)g(c)m(hec)m(king)g(of)g(argumen)m(ts)f(is)g(carried)f +(out.)311 3229 y(5.)46 b(In)28 b(applications)e(whic)m(h)i(in)m(v)m +(olv)m(e)g(man)m(y)h(suc)m(h)f(calculations,)g(rather)g(than)g(calling) +f(the)h(presen)m(t)427 3342 y(routine)i(it)g(will)e(b)s(e)i(more)g +(e\016cien)m(t)h(to)h(use)e(inline)d(co)s(de,)k(ha)m(ving)g(previously) +d(computed)i(\014xed)427 3455 y(terms)g(suc)m(h)f(as)h(sine)f(and)g +(cosine)g(of)h(latitude,)f(and)g(\(for)h(trac)m(king)g(a)g(star\))g +(sine)f(and)g(cosine)g(of)427 3568 y(declination.)p 0 +3679 3780 8 v 0 3792 a Fu(SLA)p Fk(_)p Fu(EAR)-11 b(TH)514 +b Fj(Appro)m(x)38 b(Earth)f(P)m(os/V)-10 b(el)514 b Fu(SLA)p +Fk(_)p Fu(EAR)-11 b(TH)0 4142 y Fy(A)m(CTION)44 b FA(:)c(Appro)m +(ximate)31 b(helio)s(cen)m(tric)e(p)s(osition)f(and)i(v)m(elo)s(cit)m +(y)h(of)f(the)h(Earth)f(\(single)f(precision\).)0 4330 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_EARTH)g(\(IY,)g(ID,)h(FD,)g +(PV\))0 4675 y Fy(GIVEN)e FA(:)277 4821 y Fn(IY)633 b +Fy(I)605 b FA(y)m(ear)277 4934 y Fn(ID)632 b Fy(I)605 +b FA(da)m(y)31 b(in)e(y)m(ear)i(\(1)g(=)f(Jan)g(1st\))277 +5047 y Fn(FD)608 b Fy(R)567 b FA(fraction)30 b(of)h(da)m(y)0 +5392 y Fy(RETURNED)46 b FA(:)277 5563 y Fn(PV)606 b Fy(R\(6\))433 +b FA(Earth)30 b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 +b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 +b FA(])31 b(\(A)m(U,)g(A)m(U)g(s)2947 5530 y Fm(\000)p +Fr(1)3042 5563 y FA(\))p eop +%%Page: 60 62 +60 61 bop 0 52 a FA(60)0 351 y Fy(NOTES)44 b FA(:)311 +536 y(1.)i(The)30 b(date)g(and)f(time)h(is)f(TDB)h(\(lo)s(osely)f(ET\)) +h(in)e(a)j(Julian)c(calendar)i(whic)m(h)g(has)h(b)s(een)f(aligned)427 +649 y(to)c(the)f(ordinary)d(Gregorian)j(calendar)f(for)h(the)g(in)m +(terv)-5 b(al)22 b(1900)k(Marc)m(h)e(1)g(to)h(2100)g(F)-8 +b(ebruary)23 b(28.)427 762 y(The)30 b(y)m(ear)h(and)f(da)m(y)h(can)g(b) +s(e)e(obtained)h(b)m(y)g(calling)f(sla)p Fq(_)p FA(CAL)-8 +b(YD)30 b(or)h(sla)p Fq(_)p FA(CL)-8 b(YD.)311 905 y(2.)46 +b(The)31 b(Earth)g(helio)s(cen)m(tric)f(6-v)m(ector)k(is)c(referred)g +(to)i(the)g(FK4)g(mean)f(equator)h(and)f(equino)m(x)f(of)427 +1018 y(date.)311 1162 y(3.)46 b(Maxim)m(um/RMS)30 b(errors)g +(1950-2050:)506 1305 y Fl(\017)46 b FA(13/5)32 b Fl(\002)p +FA(10)970 1272 y Fm(\000)p Fr(5)1096 1305 y FA(A)m(U)f(=)f(19200/7600) +35 b(km)30 b(in)f(p)s(osition)506 1433 y Fl(\017)46 b +FA(47/26)33 b Fl(\002)p FA(10)1016 1400 y Fm(\000)p Fr(10)1176 +1433 y FA(A)m(U)f(s)1377 1400 y Fm(\000)p Fr(1)1501 1433 +y FA(=)e(0.0070/0.0039)36 b(km)30 b(s)2373 1400 y Fm(\000)p +Fr(1)2497 1433 y FA(in)f(sp)s(eed)311 1577 y(4.)46 b(More)31 +b(accurate)h(results)d(are)i(obtainable)f(with)f(the)h(routine)g(sla)p +Fq(_)p FA(EVP)-8 b(.)p 0 1692 3780 8 v 0 1805 a Fu(SLA)p +Fk(_)p Fu(ECLEQ)559 b Fj(Ecliptic)37 b(to)h(Equatorial)555 +b Fu(SLA)p Fk(_)p Fu(ECLEQ)0 2155 y Fy(A)m(CTION)44 b +FA(:)c(T)-8 b(ransformation)30 b(from)g(ecliptic)f(longitude)g(and)h +(latitude)f(to)i(J2000.0)i([)15 b Fi(\013;)g(\016)20 +b FA(].)0 2343 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_ECLEQ)g(\(DL,) +g(DB,)h(DATE,)g(DR,)f(DD\))0 2682 y Fy(GIVEN)f FA(:)277 +2828 y Fn(DL,DB)449 b Fy(D)565 b FA(ecliptic)29 b(longitude)g(and)g +(latitude)g(\(mean)h(of)h(date,)f(IA)m(U)1658 2941 y(1980)i(theory)-8 +b(,)32 b(radians\))277 3054 y Fn(D)n(A)-7 b(TE)481 b +Fy(D)565 b FA(TDB)68 b(\(formerly)f(ET\))g(as)h(Mo)s(di\014ed)d(Julian) +h(Date)1658 3166 y(\(JD)p Fl(\000)p FA(2400000.5\))0 +3501 y Fy(RETURNED)46 b FA(:)277 3673 y Fn(DR,DD)435 +b Fy(D)565 b FA(J2000.0)33 b(mean)d([)15 b Fi(\013;)g(\016)20 +b FA(])31 b(\(radians\))p 0 3813 V 0 3926 a Fu(SLA)p +Fk(_)p Fu(ECMA)-11 b(T)441 b Fj(F)-10 b(orm)38 b Fd(\013)q(;)20 +b(\016)37 b Fe(!)c Fd(\025;)20 b(\014)45 b Fj(Matrix)442 +b Fu(SLA)p Fk(_)p Fu(ECMA)-11 b(T)0 4276 y Fy(A)m(CTION)44 +b FA(:)c(F)-8 b(orm)31 b(the)g(equatorial)f(to)h(ecliptic)e(rotation)i +(matrix)f(\(IA)m(U)h(1980)h(theory\).)0 4464 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_ECMAT)g(\(DATE,)g(RMAT\))0 +4803 y Fy(GIVEN)f FA(:)277 4949 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(TDB)68 b(\(formerly)f(ET\))g(as)h(Mo)s(di\014ed)d +(Julian)h(Date)1658 5062 y(\(JD)p Fl(\000)p FA(2400000.5\))0 +5396 y Fy(RETURNED)46 b FA(:)277 5568 y Fn(RMA)-7 b(T)462 +b Fy(D\(3,3\))350 b FA(rotation)31 b(matrix)p eop +%%Page: 61 63 +61 62 bop 0 52 a Ft(SUN/67.45)3252 b FA(61)0 351 y Fy(NOTES)44 +b FA(:)311 551 y(1.)i(RMA)-8 b(T)31 b(is)f(matrix)f Fy(M)i +FA(in)e(the)h(expression)g Fy(v)2007 566 y Fc(ecl)2126 +551 y FA(=)g Fy(M)p Fl(\001)p Fy(v)2406 565 y Fc(eq)r(u)2519 +551 y FA(.)311 703 y(2.)46 b(The)30 b(equator,)h(equino)m(x)f(and)g +(ecliptic)f(are)i(mean)f(of)h(date.)0 1096 y Fy(REFERENCE)44 +b FA(:)d(Murra)m(y)-8 b(,)31 b(C.A.,)g Fn(V)-7 b(e)i(ctorial)33 +b(Astr)-5 b(ometry)p FA(,)33 b(section)d(4.3.)p 0 1241 +3780 8 v 0 1354 a Fu(SLA)p Fk(_)p Fu(ECOR)505 b Fj(R)-13 +b(V)39 b(&)g(Time)d(Corrns)i(to)g(Sun)505 b Fu(SLA)p +Fk(_)p Fu(ECOR)0 1704 y Fy(A)m(CTION)44 b FA(:)39 b(Comp)s(onen)m(t)27 +b(of)g(Earth)g(orbit)g(v)m(elo)s(cit)m(y)g(and)g(helio)s(cen)m(tric)f +(ligh)m(t)h(time)g(in)f(a)h(giv)m(en)h(direction.)0 1892 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_ECOR)g(\(RM,)h(DM,)f(IY,)h +(ID,)g(FD,)g(RV,)g(TL\))0 2260 y Fy(GIVEN)e FA(:)277 +2406 y Fn(RM,DM)409 b Fy(R)567 b FA(mean)31 b([)15 b +Fi(\013;)g(\016)20 b FA(])30 b(of)h(date)g(\(radians\))277 +2519 y Fn(IY)633 b Fy(I)605 b FA(y)m(ear)277 2632 y Fn(ID)632 +b Fy(I)605 b FA(da)m(y)31 b(in)e(y)m(ear)i(\(1)g(=)f(Jan)g(1st\))277 +2744 y Fn(FD)608 b Fy(R)567 b FA(fraction)30 b(of)h(da)m(y)0 +3129 y Fy(RETURNED)46 b FA(:)277 3275 y Fn(R)-9 b(V)611 +b Fy(R)567 b FA(comp)s(onen)m(t)31 b(of)f(Earth)g(orbital)g(v)m(elo)s +(cit)m(y)g(\(km)h(s)3340 3242 y Fm(\000)p Fr(1)3434 3275 +y FA(\))277 3388 y Fn(TL)614 b Fy(R)567 b FA(comp)s(onen)m(t)31 +b(of)f(helio)s(cen)m(tric)f(ligh)m(t)h(time)g(\(s\))0 +3772 y Fy(NOTES)44 b FA(:)311 3972 y(1.)i(The)30 b(date)g(and)f(time)h +(is)f(TDB)h(\(lo)s(osely)f(ET\))h(in)e(a)j(Julian)c(calendar)i(whic)m +(h)g(has)h(b)s(een)f(aligned)427 4085 y(to)35 b(the)g(ordinary)e +(Gregorian)h(calendar)g(for)g(the)h(in)m(terv)-5 b(al)33 +b(1900)k(Marc)m(h)e(1)f(to)i(2100)g(F)-8 b(ebruary)427 +4197 y(28.)42 b(The)30 b(y)m(ear)h(and)f(da)m(y)g(can)h(b)s(e)f +(obtained)g(b)m(y)g(calling)f(sla)p Fq(_)p FA(CAL)-8 +b(YD)30 b(or)g(sla)p Fq(_)p FA(CL)-8 b(YD.)311 4350 y(2.)46 +b(Sign)29 b(con)m(v)m(en)m(tion:)506 4502 y Fl(\017)46 +b FA(The)30 b(v)m(elo)s(cit)m(y)h(comp)s(onen)m(t)f(is)f(+v)m(e)i(when) +e(the)h(Earth)g(is)g(receding)f(from)h(the)g(giv)m(en)g(p)s(oin)m(t)597 +4615 y(on)h(the)f(sky)-8 b(.)506 4747 y Fl(\017)46 b +FA(The)33 b(ligh)m(t)e(time)i(comp)s(onen)m(t)g(is)f(+v)m(e)h(when)f +(the)h(Earth)f(lies)g(b)s(et)m(w)m(een)h(the)g(Sun)e(and)h(the)597 +4860 y(giv)m(en)f(p)s(oin)m(t)e(on)h(the)h(sky)-8 b(.)311 +5012 y(3.)46 b(Accuracy:)506 5165 y Fl(\017)g FA(The)31 +b(v)m(elo)s(cit)m(y)h(comp)s(onen)m(t)g(is)e(usually)f(within)g(0.004)k +(km)e(s)2705 5132 y Fm(\000)p Fr(1)2831 5165 y FA(of)g(the)h(correct)g +(v)-5 b(alue)31 b(and)597 5278 y(is)f(nev)m(er)g(in)f(error)h(b)m(y)h +(more)f(than)g(0.007)j(km)d(s)2254 5245 y Fm(\000)p Fr(1)2348 +5278 y FA(.)506 5410 y Fl(\017)46 b FA(The)36 b(error)g(in)f(ligh)m(t)h +(time)g(correction)h(is)e(ab)s(out)h(0)2399 5377 y Fr(s)2404 +5410 y Fi(:)p FA(03)i(at)f(w)m(orst,)h(but)e(is)f(usually)f(b)s(etter) +597 5523 y(than)c(0)854 5490 y Fr(s)859 5523 y Fi(:)p +FA(01.)427 5675 y(F)-8 b(or)31 b(applications)e(requiring)f(higher)h +(accuracy)-8 b(,)32 b(see)f(the)g(sla)p Fq(_)p FA(EVP)e(routine.)p +eop +%%Page: 62 64 +62 63 bop 0 52 a FA(62)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(EG50)669 b Fj(B1950)37 b Fd(\013)q(;)20 b(\016)43 +b Fj(to)38 b(Galactic)667 b Fu(SLA)p Fk(_)p Fu(EG50)0 +730 y Fy(A)m(CTION)44 b FA(:)59 b(T)-8 b(ransformation)38 +b(from)h(B1950.0)k(FK4)d(equatorial)f(co)s(ordinates)g(to)h(IA)m(U)g +(1958)h(galactic)227 843 y(co)s(ordinates.)0 1031 y Fy(CALL)k +FA(:)77 b Fq(CALL)46 b(sla_EG50)g(\(DR,)h(DD,)f(DL,)h(DB\))0 +1368 y Fy(GIVEN)e FA(:)277 1540 y Fn(DR,DD)435 b Fy(D)565 +b FA(B1950.0)33 b([)15 b Fi(\013;)g(\016)21 b FA(])30 +b(\(radians\))0 1879 y Fy(RETURNED)46 b FA(:)277 2051 +y Fn(DL,DB)449 b Fy(D)565 b FA(galactic)29 b(longitude)e(and)h +(latitude)f([)15 b Fi(l)2966 2018 y Fc(I)-7 b(I)3030 +2051 y Fi(;)15 b(b)3109 2018 y Fc(I)-7 b(I)3189 2051 +y FA(])28 b(\(radians\))0 2391 y Fy(NOTE)44 b FA(:)d(The)30 +b(equatorial)g(co)s(ordinates)h(are)g(B1950.0)i(FK4.)42 +b(Use)30 b(the)h(routine)f(sla)p Fq(_)p FA(EQGAL)f(if)h(con)m(v)m(er-) +227 2504 y(sion)g(from)g(J2000.0)i(FK5)f(co)s(ordinates)f(is)f +(required.)0 2844 y Fy(REFERENCE)44 b FA(:)d(Blaau)m(w)30 +b Fn(et)j(al.)p FA(,)e(1960,)h Fn(Mon.Not.R.astr.So)-5 +b(c.)p FA(,)33 b Fy(121)p FA(,)e(123.)p 0 2967 V 0 3080 +a Fu(SLA)p Fk(_)p Fu(EL2UE)224 b Fj(Con)m(v)m(en)m(tional)35 +b(to)j(Univ)m(ersal)f(Elemen)m(ts)222 b Fu(SLA)p Fk(_)p +Fu(EL2UE)0 3430 y Fy(A)m(CTION)44 b FA(:)c(T)-8 b(ransform)30 +b(con)m(v)m(en)m(tional)h(osculating)f(orbital)f(elemen)m(ts)i(in)m(to) +f(\\univ)m(ersal")g(form.)0 3618 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_EL2UE)g(\(DATE,)g(JFORM,)g(EPOCH,)g(ORBINC,)g +(ANODE,)1192 3731 y(PERIH,)f(AORQ,)i(E,)g(AORL,)f(DM,)1192 +3844 y(U,)h(JSTAT\))0 4181 y Fy(GIVEN)e FA(:)277 4327 +y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(ep)s(o)s(c)m(h)30 +b(\(TT)g(MJD\))h(of)g(osculation)f(\(Note)i(3\))277 4440 +y Fn(JF)n(ORM)413 b Fy(I)605 b FA(c)m(hoice)31 b(of)g(elemen)m(t)g(set) +g(\(1-3;)h(Note)f(6\))277 4553 y Fn(EPOCH)409 b Fy(D)565 +b FA(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)g(\()p Fi(t)2462 +4567 y Fr(0)2531 4553 y FA(or)g Fi(T)13 b FA(,)30 b(TT)g(MJD\))277 +4666 y Fn(ORBINC)368 b Fy(D)565 b FA(inclination)28 b(\()p +Fi(i)p FA(,)j(radians\))277 4779 y Fn(ANODE)399 b Fy(D)565 +b FA(longitude)29 b(of)i(the)f(ascending)g(no)s(de)g(\(\012,)g +(radians\))277 4892 y Fn(PERIH)443 b Fy(D)565 b FA(longitude)29 +b(or)i(argumen)m(t)f(of)h(p)s(erihelion)c(\()p Fi($)33 +b FA(or)e Fi(!)s FA(,)1825 5004 y(radians\))277 5117 +y Fn(A)n(OR)n(Q)466 b Fy(D)565 b FA(mean)30 b(distance)f(or)g(p)s +(erihelion)d(distance)k(\()p Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 +5230 y Fn(E)674 b Fy(D)565 b FA(eccen)m(tricit)m(y)32 +b(\()p Fi(e)p FA(\))277 5343 y Fn(A)n(ORL)477 b Fy(D)565 +b FA(mean)31 b(anomaly)f(or)g(longitude)f(\()p Fi(M)41 +b FA(or)30 b Fi(L)p FA(,)h(radians,)1825 5456 y(JF)m(ORM=1,2)g(only\)) +277 5569 y Fn(DM)585 b Fy(D)565 b FA(daily)29 b(motion)h(\()p +Fi(n)p FA(,)g(radians,)g(JF)m(ORM=1)h(only\))p eop +%%Page: 63 65 +63 64 bop 0 52 a Ft(SUN/67.45)3252 b FA(63)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(U)668 b Fy(D\(13\))379 b FA(univ)m(ersal)29 +b(orbital)g(elemen)m(ts)i(\(Note)h(1\))537 610 y(\(1\))1006 +b(com)m(bined)30 b(mass)g(\()p Fi(M)h FA(+)20 b Fi(m)p +FA(\))537 723 y(\(2\))1006 b(total)31 b(energy)g(of)g(the)f(orbit)g(\() +p Fi(\013)p FA(\))537 836 y(\(3\))1006 b(reference)31 +b(\(osculating\))f(ep)s(o)s(c)m(h)h(\()p Fi(t)2869 850 +y Fr(0)2908 836 y FA(\))499 949 y(\(4-6\))969 b(p)s(osition)29 +b(at)i(reference)g(ep)s(o)s(c)m(h)f(\()p Fy(r)2836 963 +y Fr(0)2876 949 y FA(\))499 1062 y(\(7-9\))969 b(v)m(elo)s(cit)m(y)31 +b(at)g(reference)g(ep)s(o)s(c)m(h)f(\()p Fy(v)2837 1076 +y Fr(0)2877 1062 y FA(\))514 1175 y(\(10\))984 b(helio)s(cen)m(tric)29 +b(distance)h(at)h(reference)g(ep)s(o)s(c)m(h)514 1288 +y(\(11\))984 b Fy(r)1701 1302 y Fr(0)1741 1288 y Fi(:)p +Fy(v)1821 1302 y Fr(0)514 1401 y FA(\(12\))g(date)31 +b(\()p Fi(t)p FA(\))514 1514 y(\(13\))984 b(univ)m(ersal)29 +b(eccen)m(tric)i(anomaly)f(\()p Fi( )s FA(\))i(of)e(date,)i(appro)m(x) +277 1739 y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(status:)1866 +1852 y(0)30 b(=)h(OK)1798 1965 y Fl(\000)p FA(1)f(=)g(illegal)f(JF)m +(ORM)1798 2078 y Fl(\000)p FA(2)h(=)g(illegal)f(E)1798 +2191 y Fl(\000)p FA(3)h(=)g(illegal)f(A)m(OR)m(Q)1798 +2304 y Fl(\000)p FA(4)h(=)g(illegal)f(DM)1798 2417 y +Fl(\000)p FA(5)h(=)g(n)m(umerical)f(error)0 2773 y Fy(NOTES)44 +b FA(:)311 2961 y(1.)i(The)40 b(\\univ)m(ersal")f(elemen)m(ts)h(are)g +(those)h(whic)m(h)d(de\014ne)h(the)h(orbit)f(for)h(the)g(purp)s(oses)e +(of)i(the)427 3074 y(metho)s(d)32 b(of)g(univ)m(ersal)e(v)-5 +b(ariables)31 b(\(see)i(reference\).)47 b(They)32 b(consist)f(of)i(the) +f(com)m(bined)f(mass)h(of)427 3187 y(the)h(t)m(w)m(o)h(b)s(o)s(dies,)e +(an)g(ep)s(o)s(c)m(h,)h(and)f(the)h(p)s(osition)e(and)h(v)m(elo)s(cit)m +(y)h(v)m(ectors)h(\(arbitrary)e(reference)427 3300 y(frame\))j(at)g +(that)g(ep)s(o)s(c)m(h.)53 b(The)34 b(parameter)h(set)g(used)f(here)g +(includes)e(also)j(v)-5 b(arious)33 b(quan)m(tities)427 +3413 y(that)i(can,)g(in)d(fact,)k(b)s(e)d(deriv)m(ed)f(from)i(the)f +(other)h(information.)49 b(This)32 b(approac)m(h)i(is)f(tak)m(en)i(to) +427 3526 y(a)m(v)m(oiding)d(unnecessary)f(computation)h(and)g(loss)f +(of)h(accuracy)-8 b(.)48 b(The)31 b(supplemen)m(tary)g(quan)m(ti-)427 +3639 y(ties)22 b(are)h(\(i\))f Fi(\013)p FA(,)i(whic)m(h)d(is)g(prop)s +(ortional)f(to)j(the)g(total)g(energy)f(of)h(the)f(orbit,)h(\(ii\))e +(the)i(helio)s(cen)m(tric)427 3752 y(distance)35 b(at)g(ep)s(o)s(c)m +(h,)h(\(iii\))d(the)i(out)m(w)m(ards)g(comp)s(onen)m(t)g(of)g(the)g(v)m +(elo)s(cit)m(y)g(at)h(the)f(giv)m(en)f(ep)s(o)s(c)m(h,)427 +3865 y(\(iv\))29 b(an)f(estimate)h(of)g Fi( )s FA(,)h(the)e(\\univ)m +(ersal)g(eccen)m(tric)h(anomaly")g(at)g(a)g(giv)m(en)g(date)g(and)f +(\(v\))h(that)427 3978 y(date.)311 4124 y(2.)46 b(The)25 +b(companion)g(routine)f(is)h(sla)p Fq(_)p FA(UE2PV.)h(This)d(tak)m(es)k +(the)f(set)g(of)g(n)m(um)m(b)s(ers)e(that)i(the)f(presen)m(t)427 +4237 y(routine)31 b(outputs)h(and)f(uses)g(them)h(to)h(deriv)m(e)e(the) +h(ob)5 b(ject's)33 b(p)s(osition)d(and)i(v)m(elo)s(cit)m(y)-8 +b(.)46 b(A)32 b(single)427 4350 y(prediction)24 b(requires)h(one)h +(call)g(to)g(the)h(presen)m(t)f(routine)f(follo)m(w)m(ed)g(b)m(y)h(one) +g(call)g(to)g(sla)p Fq(_)p FA(UE2PV;)427 4463 y(for)41 +b(con)m(v)m(enience,)k(the)c(t)m(w)m(o)h(calls)e(are)h(pac)m(k)-5 +b(aged)43 b(as)e(the)g(routine)f(sla)p Fq(_)p FA(PLANEL.)g(Multiple)427 +4576 y(predictions)30 b(ma)m(y)i(b)s(e)f(made)h(b)m(y)g(again)f +(calling)f(the)i(presen)m(t)g(routine)f(once,)i(but)e(then)g(calling) +427 4689 y(sla)p Fq(_)p FA(UE2PV)f(m)m(ultiple)e(times,)j(whic)m(h)e +(is)g(faster)i(than)f(m)m(ultiple)e(calls)i(to)h(sla)p +Fq(_)p FA(PLANEL.)311 4835 y(3.)46 b(D)m(A)-8 b(TE)24 +b(is)f(the)g(ep)s(o)s(c)m(h)g(of)g(osculation.)38 b(It)23 +b(is)f(in)g(the)h(TT)g(timescale)g(\(formerly)f(Ephemeris)f(Time,)427 +4948 y(ET\))30 b(and)g(is)g(a)g(Mo)s(di\014ed)f(Julian)f(Date)k(\(JD)p +Fl(\000)p FA(2400000.5\).)311 5095 y(4.)46 b(The)40 b(supplied)e +(orbital)h(elemen)m(ts)i(are)h(with)d(resp)s(ect)i(to)g(the)g(J2000)h +(ecliptic)e(and)g(equino)m(x.)427 5208 y(The)27 b(p)s(osition)f(and)h +(v)m(elo)s(cit)m(y)h(parameters)g(returned)e(in)g(the)i(arra)m(y)g(U)f +(are)h(with)f(resp)s(ect)g(to)h(the)427 5321 y(mean)39 +b(equator)f(and)g(equino)m(x)g(of)g(ep)s(o)s(c)m(h)g(J2000,)k(and)c +(are)g(for)g(the)h(p)s(erihelion)c(prior)h(to)j(the)427 +5434 y(sp)s(eci\014ed)29 b(ep)s(o)s(c)m(h.)311 5580 y(5.)46 +b(The)31 b(univ)m(ersal)e(elemen)m(ts)i(returned)f(in)g(the)h(arra)m(y) +h(U)f(are)g(in)f(canonical)h(units)e(\(solar)i(masses,)427 +5693 y(A)m(U)g(and)f(canonical)g(da)m(ys\).)p eop +%%Page: 64 66 +64 65 bop 0 52 a FA(64)311 351 y(6.)46 b(Three)30 b(di\013eren)m(t)g +(elemen)m(t-format)i(options)d(are)i(supp)s(orted,)e(as)h(follo)m(ws.) +427 599 y(JF)m(ORM=1,)h(suitable)e(for)i(the)f(ma)5 b(jor)30 +b(planets:)602 810 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1910 824 y Fr(0)1980 810 y +FA(\(TT)g(MJD\))602 923 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 1036 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +1149 y(PERIH)122 b(=)55 b(longitude)29 b(of)h(p)s(erihelion)d +Fi($)34 b FA(\(radians\))602 1262 y(A)m(OR)m(Q)143 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 1375 y(E)352 +b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g FA(\(0)26 b Fl(\024)f +Fi(e)h(<)f FA(1\))602 1488 y(A)m(ORL)154 b(=)55 b(mean)30 +b(longitude)f Fi(L)i FA(\(radians\))602 1601 y(DM)262 +b(=)55 b(daily)29 b(motion)h Fi(n)g FA(\(radians\))427 +1812 y(JF)m(ORM=2,)h(suitable)e(for)i(minor)d(planets:)602 +2024 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)f +Fi(t)1910 2038 y Fr(0)1980 2024 y FA(\(TT)g(MJD\))602 +2137 y(ORBINC)45 b(=)55 b(inclination)27 b Fi(i)k FA(\(radians\))602 +2249 y(ANODE)76 b(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de) +f(\012)h(\(radians\))602 2362 y(PERIH)122 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 2475 +y(A)m(OR)m(Q)143 b(=)55 b(mean)30 b(distance)g Fi(a)h +FA(\(A)m(U\))602 2588 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 +b Fi(e)g FA(\(0)26 b Fl(\024)f Fi(e)h(<)f FA(1\))602 +2701 y(A)m(ORL)154 b(=)55 b(mean)30 b(anomaly)h Fi(M)40 +b FA(\(radians\))427 2913 y(JF)m(ORM=3,)31 b(suitable)e(for)i(comets:) +602 3124 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(p)s(erihelion)c +Fi(T)43 b FA(\(TT)30 b(MJD\))602 3237 y(ORBINC)45 b(=)55 +b(inclination)27 b Fi(i)k FA(\(radians\))602 3350 y(ANODE)76 +b(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de)f(\012)h +(\(radians\))602 3463 y(PERIH)122 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 3576 +y(A)m(OR)m(Q)143 b(=)55 b(p)s(erihelion)27 b(distance)j +Fi(q)j FA(\(A)m(U\))602 3689 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 +b Fi(e)g FA(\(0)26 b Fl(\024)f Fi(e)h Fl(\024)f FA(10\))311 +3900 y(7.)46 b(Un)m(used)36 b(elemen)m(ts)h(\(DM)h(for)f(JF)m(ORM=2,)i +(A)m(ORL)e(and)f(DM)h(for)g(JF)m(ORM=3\))g(are)g(not)g(ac-)427 +4013 y(cessed.)311 4169 y(8.)46 b(The)36 b(algorithm)f(w)m(as)h +(originally)e(adapted)i(from)g(the)g(EPHSLA)f(program)h(of)g(D.)16 +b(H.)g(P)-8 b(.)16 b(Jones)427 4282 y(\(priv)-5 b(ate)36 +b(comm)m(unication,)h(1996\).)59 b(The)35 b(metho)s(d)h(is)f(based)g +(on)h(Stump\013)7 b('s)35 b(Univ)m(ersal)f(V)-8 b(ari-)427 +4395 y(ables.)0 4806 y Fy(REFERENCE)44 b FA(:)d(Ev)m(erhart,)31 +b(E.)f(&)g(Pitkin,)f(E.T.,)h(Am.)h(J.)f(Ph)m(ys.)g(51,)i(712,)g(1983.)p +0 4959 3780 8 v 0 5072 a Fu(SLA)p Fk(_)p Fu(EPB)659 b +Fj(MJD)40 b(to)e(Besselian)g(Ep)s(o)s(c)m(h)660 b Fu(SLA)p +Fk(_)p Fu(EPB)0 5422 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ersion)30 +b(of)h(Mo)s(di\014ed)e(Julian)f(Date)k(to)f(Besselian)e(Ep)s(o)s(c)m +(h.)0 5610 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_EPB)d(\(DATE\))p +eop +%%Page: 65 67 +65 66 bop 0 52 a Ft(SUN/67.45)3252 b FA(65)0 351 y Fy(GIVEN)45 +b FA(:)277 523 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(Mo)s(di\014ed)29 +b(Julian)f(Date)k(\(JD)p Fl(\000)p FA(2400000.5\))0 873 +y Fy(RETURNED)46 b FA(:)277 1045 y Fn(sla)p Fq(_)p Fn(EPB)394 +b Fy(D)565 b FA(Besselian)30 b(Ep)s(o)s(c)m(h)0 1395 +y Fy(REFERENCE)44 b FA(:)d(Liesk)m(e,)31 b(J.H.,)f(1979,)j +Fn(Astr.Astr)-5 b(ophys.)33 b Fy(73)p FA(,)e(282.)p 0 +1523 3780 8 v 0 1636 a Fu(SLA)p Fk(_)p Fu(EPB2D)489 b +Fj(Besselian)38 b(Ep)s(o)s(c)m(h)h(to)f(MJD)491 b Fu(SLA)p +Fk(_)p Fu(EPB2D)0 1986 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ersion)30 +b(of)h(Besselian)f(Ep)s(o)s(c)m(h)f(to)i(Mo)s(di\014ed)e(Julian)f +(Date.)0 2174 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_EPB2D)d +(\(EPB\))0 2513 y Fy(GIVEN)g FA(:)277 2685 y Fn(EPB)548 +b Fy(D)565 b FA(Besselian)30 b(Ep)s(o)s(c)m(h)0 3035 +y Fy(RETURNED)46 b FA(:)277 3207 y Fn(sla)p Fq(_)p Fn(EPB2D)279 +b Fy(D)565 b FA(Mo)s(di\014ed)29 b(Julian)f(Date)k(\(JD)p +Fl(\000)p FA(2400000.5\))0 3557 y Fy(REFERENCE)44 b FA(:)d(Liesk)m(e,) +31 b(J.H.,)f(1979.)43 b Fn(Astr.Astr)-5 b(ophys.)33 b +Fy(73)p FA(,)e(282.)p 0 3685 V 0 3798 a Fu(SLA)p Fk(_)p +Fu(EPCO)554 b Fj(Con)m(v)m(ert)36 b(Ep)s(o)s(c)m(h)j(to)f(B)h(or)f(J) +555 b Fu(SLA)p Fk(_)p Fu(EPCO)0 4148 y Fy(A)m(CTION)44 +b FA(:)c(Con)m(v)m(ert)32 b(an)e(ep)s(o)s(c)m(h)g(to)h(Besselian)f(or)g +(Julian)e(to)j(matc)m(h)h(another)e(one.)0 4336 y Fy(CALL)45 +b FA(:)77 b Fq(D)47 b(=)h(sla_EPCO)d(\(K0,)i(K,)g(E\))0 +4679 y Fy(GIVEN)e FA(:)277 4825 y Fn(K0)620 b Fy(C)569 +b FA(form)30 b(of)h(result:)39 b(`B'=Besselian,)31 b(`J'=Julian)277 +4938 y Fn(K)666 b Fy(C)569 b FA(form)30 b(of)h(giv)m(en)f(ep)s(o)s(c)m +(h:)40 b(`B')32 b(or)e(`J')277 5051 y Fn(E)674 b Fy(D)565 +b FA(ep)s(o)s(c)m(h)0 5393 y Fy(RETURNED)46 b FA(:)277 +5565 y Fn(sla)p Fq(_)p Fn(EPCO)323 b Fy(D)565 b FA(the)31 +b(giv)m(en)f(ep)s(o)s(c)m(h)g(con)m(v)m(erted)i(as)f(necessary)p +eop +%%Page: 66 68 +66 67 bop 0 52 a FA(66)0 351 y Fy(NOTES)44 b FA(:)311 +552 y(1.)i(The)27 b(result)f(is)h(alw)m(a)m(ys)h(either)e(equal)h(to)h +(or)g(v)m(ery)f(close)h(to)g(the)f(giv)m(en)h(ep)s(o)s(c)m(h)f(E.)g +(The)g(routine)f(is)427 665 y(required)j(only)g(in)g(applications)f +(where)i(punctilious)c(treatmen)m(t)32 b(of)e(heterogeneous)i(mixtures) +427 778 y(of)f(star)f(p)s(ositions)f(is)g(necessary)-8 +b(.)311 931 y(2.)46 b(K0)31 b(and)f(K)g(are)g(not)h(v)-5 +b(alidated.)40 b(They)30 b(are)g(in)m(terpreted)g(as)h(follo)m(ws:)506 +1084 y Fl(\017)46 b FA(If)30 b(K0)h(and)e(K)h(are)h(the)g(same,)g(the)f +(result)g(is)f(E.)506 1216 y Fl(\017)46 b FA(If)30 b(K0)h(is)e(`B')i +(and)f(K)g(isn't,)g(the)g(con)m(v)m(ersion)h(is)e(J)h(to)i(B.)506 +1349 y Fl(\017)46 b FA(In)30 b(all)f(other)i(cases,)g(the)g(con)m(v)m +(ersion)g(is)e(B)i(to)g(J.)p 0 1495 3780 8 v 0 1608 a +Fu(SLA)p Fk(_)p Fu(EPJ)763 b Fj(MJD)40 b(to)e(Julian)g(Ep)s(o)s(c)m(h) +763 b Fu(SLA)p Fk(_)p Fu(EPJ)0 1958 y Fy(A)m(CTION)44 +b FA(:)c(Con)m(v)m(ert)32 b(Mo)s(di\014ed)c(Julian)g(Date)k(to)g +(Julian)c(Ep)s(o)s(c)m(h.)0 2146 y Fy(CALL)45 b FA(:)77 +b Fq(D)47 b(=)h(sla_EPJ)d(\(DATE\))0 2512 y Fy(GIVEN)g +FA(:)277 2683 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(Mo)s(di\014ed)29 +b(Julian)f(Date)k(\(JD)p Fl(\000)p FA(2400000.5\))0 3079 +y Fy(RETURNED)46 b FA(:)277 3250 y Fn(sla)p Fq(_)p Fn(EPJ)410 +b Fy(D)565 b FA(Julian)28 b(Ep)s(o)s(c)m(h)0 3645 y Fy(REFERENCE)44 +b FA(:)d(Liesk)m(e,)31 b(J.H.,)f(1979.)j Fn(Astr.Astr)-5 +b(ophys.)p FA(,)33 b Fy(73)p FA(,)e(282.)p 0 3791 V 0 +3904 a Fu(SLA)p Fk(_)p Fu(EPJ2D)593 b Fj(Julian)38 b(Ep)s(o)s(c)m(h)g +(to)h(MJD)594 b Fu(SLA)p Fk(_)p Fu(EPJ2D)0 4255 y Fy(A)m(CTION)44 +b FA(:)c(Con)m(v)m(ert)32 b(Julian)c(Ep)s(o)s(c)m(h)h(to)i(Mo)s +(di\014ed)e(Julian)f(Date.)0 4442 y Fy(CALL)45 b FA(:)77 +b Fq(D)47 b(=)h(sla_EPJ2D)d(\(EPJ\))0 4808 y Fy(GIVEN)g +FA(:)277 4980 y Fn(EPJ)564 b Fy(D)h FA(Julian)28 b(Ep)s(o)s(c)m(h)0 +5375 y Fy(RETURNED)46 b FA(:)277 5546 y Fn(sla)p Fq(_)p +Fn(EPJ2D)295 b Fy(D)565 b FA(Mo)s(di\014ed)29 b(Julian)f(Date)k(\(JD)p +Fl(\000)p FA(2400000.5\))p eop +%%Page: 67 69 +67 68 bop 0 52 a Ft(SUN/67.45)3252 b FA(67)0 351 y Fy(REFERENCE)44 +b FA(:)d(Liesk)m(e,)31 b(J.H.,)f(1979.)j Fn(Astr.Astr)-5 +b(ophys.)p FA(,)33 b Fy(73)p FA(,)e(282.)p 0 469 3780 +8 v 0 582 a Fu(SLA)p Fk(_)p Fu(EQECL)569 b Fj(J2000)37 +b Fd(\013)q(;)20 b(\016)43 b Fj(to)c(Ecliptic)567 b Fu(SLA)p +Fk(_)p Fu(EQECL)0 932 y Fy(A)m(CTION)44 b FA(:)c(T)-8 +b(ransformation)28 b(from)g(J2000.0)j(equatorial)d(co)s(ordinates)h(to) +h(ecliptic)d(longitude)h(and)g(lati-)227 1045 y(tude.)0 +1233 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_EQECL)g(\(DR,)g(DD,)h +(DATE,)g(DL,)f(DB\))0 1562 y Fy(GIVEN)f FA(:)277 1708 +y Fn(DR,DD)435 b Fy(D)565 b FA(J2000.0)33 b(mean)d([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(\(radians\))277 1821 +y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(TDB)68 b(\(formerly)f(ET\))g(as) +h(Mo)s(di\014ed)d(Julian)h(Date)1658 1934 y(\(JD)p Fl(\000)p +FA(2400000.5\))0 2253 y Fy(RETURNED)46 b FA(:)277 2399 +y Fn(DL,DB)449 b Fy(D)565 b FA(ecliptic)29 b(longitude)g(and)g +(latitude)g(\(mean)h(of)h(date,)f(IA)m(U)1658 2512 y(1980)i(theory)-8 +b(,)32 b(radians\))p 0 2646 V 0 2759 a Fu(SLA)p Fk(_)p +Fu(EQEQX)410 b Fj(Equation)36 b(of)j(the)f(Equino)m(xes)410 +b Fu(SLA)p Fk(_)p Fu(EQEQX)0 3109 y Fy(A)m(CTION)44 b +FA(:)c(Equation)30 b(of)h(the)f(equino)m(xes)g(\(IA)m(U)i(1994\).)0 +3297 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_EQEQX)d(\(DATE\))0 +3626 y Fy(GIVEN)g FA(:)277 3772 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(TDB)68 b(\(formerly)f(ET\))g(as)h(Mo)s(di\014ed)d +(Julian)h(Date)1658 3885 y(\(JD)p Fl(\000)p FA(2400000.5\))0 +4204 y Fy(RETURNED)46 b FA(:)277 4375 y Fn(sla)p Fq(_)p +Fn(EQEQX)250 b Fy(D)565 b FA(The)30 b(equation)g(of)h(the)f(equino)m +(xes)g(\(radians\))0 4702 y Fy(NOTES)44 b FA(:)311 4885 +y(1.)i(The)36 b(equation)f(of)i(the)f(equino)m(xes)f(is)g(de\014ned)g +(here)h(as)g(GAST)f Fl(\000)h FA(GMST:)g(it)f(is)g(added)g(to)i(a)427 +4998 y Fn(me)-5 b(an)39 b FA(sidereal)29 b(time)h(to)h(giv)m(e)g(the)f +Fn(app)-5 b(ar)g(ent)42 b FA(sidereal)29 b(time.)311 +5139 y(2.)46 b(The)29 b(c)m(hange)i(from)e(the)h(classic)f(\\textb)s(o) +s(ok")i(expression)d(\001)p Fi( )18 b(cos)d(\017)30 b +FA(o)s(ccurred)f(with)f(IA)m(U)i(Res-)427 5252 y(olution)44 +b(C7,)49 b(Recommendation)c(3)g(\(1994\).)87 b(The)44 +b(new)h(form)m(ulation)f(tak)m(es)i(in)m(to)f(accoun)m(t)427 +5365 y(cross-terms)d(b)s(et)m(w)m(een)h(the)f(v)-5 b(arious)41 +b(precession)f(and)i(n)m(utation)f(quan)m(tities,)j(amoun)m(ting)e(to) +427 5478 y(ab)s(out)d(3)f(milliarcsec.)64 b(The)38 b(transition)f(from) +h(the)h(old)e(to)j(the)e(new)g(mo)s(del)g(o\016cially)f(tak)m(es)427 +5591 y(place)31 b(on)f(1997)i(F)-8 b(ebruary)30 b(27.)p +eop +%%Page: 68 70 +68 69 bop 0 52 a FA(68)0 351 y Fy(REFERENCE)44 b FA(:)d(Capitaine,)29 +b(N.)i(&)f(Gon)m(tier,)h(A.-M.)g(\(1993\),)j Fn(Astr)-5 +b(on.)42 b(Astr)-5 b(ophys.)p FA(,)33 b Fy(275)p FA(,)f(645-650.)p +0 477 3780 8 v 0 590 a Fu(SLA)p Fk(_)p Fu(EQGAL)530 b +Fj(J2000)38 b Fd(\013)q(;)20 b(\016)43 b Fj(to)38 b(Galactic)530 +b Fu(SLA)p Fk(_)p Fu(EQGAL)0 941 y Fy(A)m(CTION)44 b +FA(:)62 b(T)-8 b(ransformation)40 b(from)h(J2000.0)i(FK5)f(equatorial)e +(co)s(ordinates)h(to)h(IA)m(U)g(1958)g(galactic)227 1053 +y(co)s(ordinates.)0 1241 y Fy(CALL)j FA(:)77 b Fq(CALL)46 +b(sla_EQGAL)g(\(DR,)g(DD,)h(DL,)g(DB\))0 1575 y Fy(GIVEN)e +FA(:)277 1747 y Fn(DR,DD)435 b Fy(D)565 b FA(J2000.0)33 +b([)15 b Fi(\013;)g(\016)20 b FA(])31 b(\(radians\))0 +2081 y Fy(RETURNED)46 b FA(:)277 2253 y Fn(DL,DB)449 +b Fy(D)565 b FA(galactic)29 b(longitude)e(and)h(latitude)f([)15 +b Fi(l)2966 2220 y Fc(I)-7 b(I)3030 2253 y Fi(;)15 b(b)3109 +2220 y Fc(I)-7 b(I)3189 2253 y FA(])28 b(\(radians\))0 +2588 y Fy(NOTE)44 b FA(:)d(The)29 b(equatorial)h(co)s(ordinates)g(are)h +(J2000.0)h(FK5.)41 b(Use)31 b(the)f(routine)f(sla)p Fq(_)p +FA(EG50)i(if)e(con)m(v)m(ersion)227 2700 y(from)h(B1950.0)j(FK4)e(co)s +(ordinates)f(is)g(required.)0 3035 y Fy(REFERENCE)44 +b FA(:)d(Blaau)m(w)30 b Fn(et)j(al.)p FA(,)e(1960,)h +Fn(Mon.Not.R.astr.So)-5 b(c.)p FA(,)33 b Fy(121)p FA(,)e(123.)p +0 3156 V 0 3269 a Fu(SLA)p Fk(_)p Fu(ETRMS)516 b Fj(E-terms)37 +b(of)h(Ab)s(erration)515 b Fu(SLA)p Fk(_)p Fu(ETRMS)0 +3619 y Fy(A)m(CTION)44 b FA(:)39 b(Compute)26 b(the)h(E-terms)h(v)m +(ector)g({)f(the)h(part)e(of)i(the)f(ann)m(ual)f(ab)s(erration)g(whic)m +(h)g(arises)g(from)227 3732 y(the)31 b(eccen)m(tricit)m(y)g(of)g(the)g +(Earth's)f(orbit.)0 3920 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_ETRMS)g(\(EP,)g(EV\))0 4254 y Fy(GIVEN)f FA(:)277 +4426 y Fn(EP)612 b Fy(D)565 b FA(Besselian)30 b(ep)s(o)s(c)m(h)0 +4760 y Fy(RETURNED)46 b FA(:)277 4932 y Fn(EV)606 b Fy(D\(3\))431 +b FA(E-terms)31 b(as)f([\001)p Fi(x;)15 b FA(\001)p Fi(y)s(;)g +FA(\001)p Fi(z)20 b FA(])0 5266 y Fy(NOTE)44 b FA(:)g(Note)33 +b(the)f(use)g(of)g(the)g(J2000)i(ab)s(erration)d(constan)m(t)i(\(20) +2410 5230 y Fh(0)m(0)2414 5266 y Fi(:)p FA(49552\).)49 +b(This)30 b(is)h(a)h(re\015ection)g(of)g(the)227 5379 +y(fact)g(that)g(the)f(E-terms)g(em)m(b)s(o)s(died)e(in)h(existing)g +(star)h(catalogues)h(w)m(ere)g(computed)e(from)h(a)g(v)-5 +b(ariet)m(y)227 5492 y(of)30 b(ab)s(erration)f(constan)m(ts.)42 +b(Rather)30 b(than)f(adopting)g(one)h(of)g(the)g(old)f(constan)m(ts)i +(the)f(latest)g(v)-5 b(alue)29 b(is)227 5605 y(used)h(here.)p +eop +%%Page: 69 71 +69 70 bop 0 52 a Ft(SUN/67.45)3252 b FA(69)0 351 y Fy(REFERENCES)44 +b FA(:)311 527 y(1.)i(Smith,)29 b(C.A.)i Fn(et)h(al.)p +FA(,)g(1989.)42 b Fn(Astr.J.)30 b Fy(97)p FA(,)h(265.)311 +660 y(2.)46 b(Y)-8 b(allop,)30 b(B.D.)i Fn(et)h(al.)p +FA(,)e(1989.)42 b Fn(Astr.J.)30 b Fy(97)p FA(,)h(274.)p +0 756 3780 8 v 0 869 a Fu(SLA)p Fk(_)p Fu(EULER)204 b +Fj(Rotation)36 b(Matrix)h(from)g(Euler)h(Angles)203 b +Fu(SLA)p Fk(_)p Fu(EULER)0 1219 y Fy(A)m(CTION)44 b FA(:)k(F)-8 +b(orm)35 b(a)f(rotation)h(matrix)e(from)h(the)g(Euler)f(angles)h({)h +(three)f(successiv)m(e)g(rotations)h(ab)s(out)227 1332 +y(sp)s(eci\014ed)29 b(Cartesian)h(axes)h(\(single)e(precision\).)0 +1520 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_EULER)g(\(ORDER,)f(PHI,) +i(THETA,)f(PSI,)h(RMAT\))0 1820 y Fy(GIVEN)e FA(:)277 +1966 y Fn(ORDER)403 b Fy(C*\(*\))383 b FA(sp)s(eci\014es)29 +b(ab)s(out)h(whic)m(h)f(axes)i(the)g(rotations)g(o)s(ccur)277 +2079 y Fn(PHI)571 b Fy(R)c FA(1st)31 b(rotation)g(\(radians\))277 +2192 y Fn(THET)-7 b(A)415 b Fy(R)567 b FA(2nd)30 b(rotation)h +(\(radians\))277 2305 y Fn(PSI)588 b Fy(R)567 b FA(3rd)30 +b(rotation)h(\(radians\))0 2572 y Fy(RETURNED)46 b FA(:)277 +2744 y Fn(RMA)-7 b(T)462 b Fy(R\(3,3\))352 b FA(rotation)31 +b(matrix)0 3020 y Fy(NOTES)44 b FA(:)311 3195 y(1.)i(A)30 +b(rotation)h(is)e(p)s(ositiv)m(e)f(when)h(the)h(reference)h(frame)f +(rotates)h(an)m(ticlo)s(c)m(kwise)e(as)i(seen)f(lo)s(oking)427 +3308 y(to)m(w)m(ards)h(the)g(origin)e(from)h(the)g(p)s(ositiv)m(e)g +(region)g(of)g(the)h(sp)s(eci\014ed)d(axis.)311 3442 +y(2.)46 b(The)25 b(c)m(haracters)i(of)e(ORDER)g(de\014ne)g(whic)m(h)f +(axes)i(the)f(three)h(successiv)m(e)f(rotations)h(are)f(ab)s(out.)427 +3554 y(A)40 b(t)m(ypical)e(v)-5 b(alue)39 b(is)f(`ZXZ',)h(indicating)e +(that)j(RMA)-8 b(T)40 b(is)e(to)i(b)s(ecome)f(the)h(direction)e(cosine) +427 3667 y(matrix)29 b(corresp)s(onding)f(to)j(rotations)f(of)g(the)g +(reference)g(frame)g(through)f(PHI)g(radians)g(ab)s(out)427 +3780 y(the)21 b(old)e Fn(z)p FA(-axis,)k(follo)m(w)m(ed)d(b)m(y)g(THET) +-8 b(A)20 b(radians)f(ab)s(out)h(the)h(resulting)d Fn(x)p +FA(-axis,)k(then)e(PSI)g(radians)427 3893 y(ab)s(out)30 +b(the)h(resulting)d Fn(z)p FA(-axis.)41 b(In)30 b(detail:)506 +4027 y Fl(\017)46 b FA(The)30 b(axis)g(names)h(can)g(b)s(e)f(an)m(y)h +(of)g(the)f(follo)m(wing,)g(in)f(an)m(y)i(order)f(or)h(com)m(bination:) +40 b(X,)31 b(Y,)597 4140 y(Z,)f(upp)s(ercase)f(or)g(lo)m(w)m(ercase,)j +(1,)e(2,)h(3.)41 b(Normal)29 b(axis)g(lab)s(elling/n)m(um)m(b)s(ering)c +(con)m(v)m(en)m(tions)597 4253 y(apply;)43 b(the)d Fn(xyz)g +FA(\()p Fl(\021)g FA(123\))h(triad)e(is)g(righ)m(t-handed.)66 +b(Th)m(us,)41 b(the)f(`ZXZ')f(example)g(giv)m(en)597 +4366 y(ab)s(o)m(v)m(e)32 b(could)d(b)s(e)h(written)f(`zxz')j(or)e +(`313')j(\(or)d(ev)m(en)h(`ZxZ')f(or)h(`3xZ'\).)506 4489 +y Fl(\017)46 b FA(ORDER)30 b(is)g(terminated)g(b)m(y)g(length)g(or)g(b) +m(y)g(the)h(\014rst)f(unrecognized)f(c)m(haracter.)506 +4612 y Fl(\017)46 b FA(F)-8 b(ew)m(er)23 b(than)e(three)g(rotations)h +(are)f(acceptable,)k(in)20 b(whic)m(h)g(case)i(the)g(later)f(angle)g +(argumen)m(ts)597 4725 y(are)31 b(ignored.)311 4859 y(3.)46 +b(Zero)31 b(rotations)f(pro)s(duces)f(a)i(unit)e(RMA)-8 +b(T.)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p Fu(EVP)623 b +Fj(Earth)37 b(P)m(osition)f(&)j(V)-10 b(elo)s(cit)m(y)622 +b Fu(SLA)p Fk(_)p Fu(EVP)0 5418 y Fy(A)m(CTION)44 b FA(:)c(Barycen)m +(tric)32 b(and)d(helio)s(cen)m(tric)g(v)m(elo)s(cit)m(y)i(and)f(p)s +(osition)f(of)h(the)h(Earth.)0 5606 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_EVP)g(\(DATE,)g(DEQX,)h(DVB,)f(DPB,)h(DVH,)g(DPH\))p +eop +%%Page: 70 72 +70 71 bop 0 52 a FA(70)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(TDB)52 b(\(formerly)e(ET\))h +(as)h(a)g(Mo)s(di\014ed)e(Julian)f(Date)1658 610 y(\(JD)p +Fl(\000)p FA(2400000.5\))277 723 y Fn(DEQX)467 b Fy(D)565 +b FA(Julian)36 b(Ep)s(o)s(c)m(h)h(\()p Fn(e.g.)h FA(2000D0\))j(of)d +(mean)g(equator)h(and)1658 836 y(equino)m(x)j(of)h(the)g(v)m(ectors)i +(returned.)77 b(If)42 b(DEQX)h Fi(<)i FA(0,)1658 949 +y(all)c(v)m(ectors)h(are)g(referred)f(to)h(the)g(mean)g(equator)g(and) +1658 1062 y(equino)m(x)30 b(\(FK5\))i(of)e(date)h(D)m(A)-8 +b(TE.)0 1314 y Fy(RETURNED)46 b FA(:)277 1460 y Fn(D)n(VB)537 +b Fy(D\(3\))431 b FA(barycen)m(tric)30 b([)i(_)-42 b +Fi(x)q(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 +b FA(],)31 b(A)m(U)g(s)2697 1427 y Fm(\000)p Fr(1)277 +1573 y Fn(DPB)541 b Fy(D\(3\))431 b FA(barycen)m(tric)30 +b([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(],)31 b(A)m(U)277 +1686 y Fn(D)n(VH)533 b Fy(D\(3\))431 b FA(helio)s(cen)m(tric)29 +b([)j(_)-42 b Fi(x)q(;)31 b FA(_)-41 b Fi(y)s(;)31 b +FA(_)-41 b Fi(z)20 b FA(],)30 b(A)m(U)i(s)2707 1653 y +Fm(\000)p Fr(1)277 1799 y Fn(DPH)537 b Fy(D\(3\))431 +b FA(helio)s(cen)m(tric)29 b([)15 b Fi(x;)g(y)s(;)g(z)21 +b FA(],)30 b(A)m(U)0 2051 y Fy(NOTES)44 b FA(:)311 2224 +y(1.)i(This)28 b(routine)g(is)h(used)f(when)h(accuracy)h(is)f(more)g +(imp)s(ortan)m(t)g(than)g(CPU)g(time,)h(y)m(et)g(the)g(extra)427 +2337 y(complication)38 b(of)g(reading)g(a)h(pre-computed)f(ephemeris)f +(is)h(not)g(justi\014ed.)64 b(The)38 b(maxim)m(um)427 +2450 y(deviations)30 b(from)f(the)i(JPL)f(DE96)h(ephemeris)e(are)i(as)g +(follo)m(ws:)506 2581 y Fl(\017)46 b FA(v)m(elo)s(cit)m(y)31 +b(\(barycen)m(tric)g(or)f(helio)s(cen)m(tric\):)40 b(420)32 +b(mm)d(s)2495 2548 y Fm(\000)p Fr(1)506 2704 y Fl(\017)46 +b FA(p)s(osition)29 b(\(barycen)m(tric\):)41 b(6900)32 +b(km)506 2826 y Fl(\017)46 b FA(p)s(osition)29 b(\(helio)s(cen)m +(tric\):)40 b(1600)32 b(km)311 2957 y(2.)46 b(The)28 +b(routine)f(is)g(an)h(adaption)f(of)h(the)g(BAR)-10 b(VEL)29 +b(and)e(BAR)m(COR)h(subroutines)e(of)i(P)-8 b(.Stump\013,)427 +3070 y(whic)m(h)25 b(are)h(describ)s(ed)e(in)g Fn(Astr.Astr)-5 +b(ophys.Suppl.Ser.)30 b Fy(41)p FA(,)d(1-8)g(\(1980\).)42 +b(Most)26 b(of)g(the)g(c)m(hanges)427 3183 y(are)32 b(merely)e +(cosmetic)h(and)g(do)f(not)h(a\013ect)i(the)e(results)f(at)h(all.)41 +b(Ho)m(w)m(ev)m(er,)33 b(some)f(adjustmen)m(ts)427 3296 +y(ha)m(v)m(e)e(b)s(een)e(made)h(so)g(as)f(to)i(giv)m(e)f(results)e +(that)i(refer)g(to)g(the)g(new)f(\(IA)m(U)i(1976)g(`FK5'\))g(equino)m +(x)427 3409 y(and)38 b(precession,)h(although)e(the)h(di\013erences)g +(these)g(c)m(hanges)h(mak)m(e)g(relativ)m(e)f(to)h(the)f(results)427 +3522 y(from)23 b(Stump\013)7 b('s)21 b(original)g(`FK4')j(v)m(ersion)e +(are)h(smaller)e(than)i(the)g(inheren)m(t)f(accuracy)i(of)f(the)g(al-) +427 3635 y(gorithm.)39 b(One)25 b(minor)e(shortcoming)i(in)f(the)i +(original)d(routines)h(that)i(has)g Fy(not)f FA(b)s(een)f(corrected)427 +3748 y(is)i(that)i(sligh)m(tly)d(b)s(etter)i(n)m(umerical)e(accuracy)j +(could)e(b)s(e)h(ac)m(hiev)m(ed)g(if)f(the)h(v)-5 b(arious)26 +b(p)s(olynomial)427 3861 y(ev)-5 b(aluations)26 b(w)m(ere)g(to)h(b)s(e) +e(so)i(arranged)e(that)i(the)f(smallest)f(terms)h(w)m(ere)h(computed)f +(\014rst.)38 b(Note)427 3974 y(also)31 b(that)h(one)f(of)g(Stump\013)7 +b('s)30 b(precession)g(constan)m(ts)j(di\013ers)c(b)m(y)i(0)2767 +3937 y Fh(0)l(0)2771 3974 y Fi(:)p FA(001)i(from)e(the)g(v)-5 +b(alue)30 b(giv)m(en)427 4087 y(in)f(the)i Fn(Explanatory)k(Supplement) +p FA(.)p 0 4176 3780 8 v 0 4289 a Fu(SLA)p Fk(_)p Fu(FITXY)209 +b Fj(Fit)38 b(Linear)g(Mo)s(del)g(to)h(Tw)m(o)e([)20 +b Fd(x;)g(y)j Fj(])38 b(Sets)212 b Fu(SLA)p Fk(_)p Fu(FITXY)0 +4639 y Fy(A)m(CTION)44 b FA(:)c(Fit)31 b(a)f(linear)f(mo)s(del)g(to)j +(relate)e(t)m(w)m(o)i(sets)f(of)f([)15 b Fi(x;)g(y)k +FA(])31 b(co)s(ordinates.)0 4827 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_FITXY)g(\(ITYPE,NP,XYE,XYM,COEFF)o(S,J\))0 +5118 y Fy(GIVEN)f FA(:)277 5264 y Fn(ITYPE)444 b Fy(I)605 +b FA(t)m(yp)s(e)31 b(of)f(mo)s(del:)40 b(4)31 b(or)f(6)h(\(note)g(1\)) +277 5377 y Fn(NP)606 b Fy(I)f FA(n)m(um)m(b)s(er)29 b(of)i(samples)e +(\(note)j(2\))277 5490 y Fn(XYE)538 b Fy(D\(2,NP\))249 +b FA(exp)s(ected)31 b([)15 b Fi(x;)g(y)k FA(])30 b(for)g(eac)m(h)i +(sample)277 5603 y Fn(XYM)518 b Fy(D\(2,NP\))249 b FA(measured)30 +b([)15 b Fi(x;)g(y)k FA(])30 b(for)g(eac)m(h)i(sample)p +eop +%%Page: 71 73 +71 72 bop 0 52 a Ft(SUN/67.45)3252 b FA(71)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(COEFFS)370 b Fy(D\(6\))431 b FA(co)s(e\016cien)m +(ts)31 b(of)g(mo)s(del)e(\(note)i(3\))277 610 y Fn(J)688 +b Fy(I)605 b FA(status:)1825 723 y(0)31 b(=)f(OK)1752 +836 y Fl(\000)p FA(1)h(=)f(illegal)e(ITYPE)1752 949 y +Fl(\000)p FA(2)j(=)f(insu\016cien)m(t)e(data)1752 1062 +y Fl(\000)p FA(3)j(=)f(singular)e(solution)0 1443 y Fy(NOTES)44 +b FA(:)311 1642 y(1.)i(ITYPE,)32 b(whic)m(h)f(m)m(ust)i(b)s(e)f(either) +g(4)g(or)h(6,)g(selects)g(the)g(t)m(yp)s(e)g(of)f(mo)s(del)f(\014tted.) +48 b(Both)33 b(allo)m(w)m(ed)427 1755 y(ITYPE)j(v)-5 +b(alues)35 b(pro)s(duce)g(a)h(mo)s(del)f(COEFFS)g(whic)m(h)f(consists)i +(of)g(six)f(co)s(e\016cien)m(ts,)j(namely)427 1868 y(the)k(zero)g(p)s +(oin)m(ts)e(and,)j(for)e(eac)m(h)h(of)g(XE)f(and)g(YE,)g(the)g(co)s +(e\016cien)m(t)h(of)g(XM)f(and)g(YM.)h(F)-8 b(or)427 +1981 y(ITYPE=6,)39 b(all)d(six)g(co)s(e\016cien)m(ts)i(are)g(indep)s +(enden)m(t,)f(mo)s(delling)d(squash)i(and)h(shear)g(as)g(w)m(ell)427 +2094 y(as)d(origin,)f(scale,)i(and)e(orien)m(tation.)50 +b(Ho)m(w)m(ev)m(er,)37 b(ITYPE=4)c(selects)h(the)f Fn(solid)k(b)-5 +b(o)g(dy)37 b(r)-5 b(otation)427 2207 y FA(option;)41 +b(the)d(mo)s(del)e(COEFFS)h(still)e(consists)i(of)h(the)f(same)h(six)f +(co)s(e\016cien)m(ts,)j(but)d(no)m(w)g(t)m(w)m(o)427 +2320 y(of)32 b(them)f(are)g(used)f(t)m(wice)i(\(appropriately)e +(signed\).)42 b(Origin,)29 b(scale)i(and)g(orien)m(tation)g(are)h +(still)427 2433 y(mo)s(delled,)d(but)h(not)g(squash)g(or)g(shear)g({)h +(the)f(units)f(of)i(X)f(and)g(Y)h(ha)m(v)m(e)g(to)g(b)s(e)f(the)h +(same.)311 2584 y(2.)46 b(F)-8 b(or)31 b(NC=4,)g(NP)f(m)m(ust)h(b)s(e)e +(at)i(least)g(2.)41 b(F)-8 b(or)31 b(NC=6,)g(NP)f(m)m(ust)g(b)s(e)g(at) +h(least)g(3.)311 2736 y(3.)46 b(The)33 b(mo)s(del)e(is)h(returned)g(in) +f(the)i(arra)m(y)g(COEFFS.)g(Naming)f(the)h(six)f(elemen)m(ts)h(of)g +(COEFFS)427 2849 y Fi(a;)15 b(b;)g(c;)g(d;)g(e)43 b FA(&)d +Fi(f)10 b FA(,)42 b(the)e(mo)s(del)f(transforms)g Fn(me)-5 +b(asur)g(e)g(d)52 b FA(co)s(ordinates)40 b([)p Fi(x)2968 +2863 y Fc(m)3035 2849 y Fi(;)15 b(y)3120 2863 y Fc(m)3201 +2849 y FA(])41 b(in)m(to)f Fn(exp)-5 b(e)g(cte)g(d)427 +2962 y FA(co)s(ordinates)30 b([)p Fi(x)987 2976 y Fc(e)1024 +2962 y Fi(;)15 b(y)1109 2976 y Fc(e)1161 2962 y FA(])31 +b(as)g(follo)m(ws:)597 3114 y Fi(x)649 3128 y Fc(e)711 +3114 y FA(=)25 b Fi(a)c FA(+)e Fi(bx)1057 3128 y Fc(m)1144 +3114 y FA(+)h Fi(cy)1319 3128 y Fc(m)597 3227 y Fi(y)642 +3241 y Fc(e)704 3227 y FA(=)25 b Fi(d)20 b FA(+)g Fi(ex)1052 +3241 y Fc(m)1139 3227 y FA(+)g Fi(f)10 b(y)1330 3241 +y Fc(m)427 3378 y FA(F)-8 b(or)33 b(the)g Fn(solid)i(b)-5 +b(o)g(dy)36 b(r)-5 b(otation)42 b FA(option)32 b(\(ITYPE=4\),)h(the)g +(magnitudes)e(of)i Fi(b)f FA(and)g Fi(f)10 b FA(,)32 +b(and)g(of)g Fi(c)427 3491 y FA(and)k Fi(e)p FA(,)i(are)e(equal.)57 +b(The)35 b(signs)g(of)h(these)h(co)s(e\016cien)m(ts)f(dep)s(end)f(on)h +(whether)f(there)h(is)f(a)h(sign)427 3604 y(rev)m(ersal)41 +b(b)s(et)m(w)m(een)g([)p Fi(x)1210 3618 y Fc(e)1247 3604 +y Fi(;)15 b(y)1332 3618 y Fc(e)1369 3604 y FA(])41 b(and)f([)p +Fi(x)1699 3618 y Fc(m)1766 3604 y Fi(;)15 b(y)1851 3618 +y Fc(m)1917 3604 y FA(];)47 b(\014ts)40 b(are)h(p)s(erformed)e(with)h +(and)g(without)f(a)i(sign)427 3717 y(rev)m(ersal)31 b(and)e(the)i(b)s +(est)f(one)h(c)m(hosen.)311 3869 y(4.)46 b(Error)27 b(status)h(v)-5 +b(alues)27 b(J=)p Fl(\000)p FA(1)h(and)f Fl(\000)p FA(2)h(lea)m(v)m(e)h +(COEFFS)e(unc)m(hanged;)i(if)d(J=)p Fl(\000)p FA(3)i(COEFFS)f(ma)m(y) +427 3982 y(ha)m(v)m(e)32 b(b)s(een)e(c)m(hanged.)311 +4133 y(5.)46 b(See)31 b(also)f(sla)p Fq(_)p FA(PXY,)g(sla)p +Fq(_)p FA(INVF,)h(sla)p Fq(_)p FA(XY2XY,)g(sla)p Fq(_)p +FA(DCMPF.)p 0 4277 3780 8 v 0 4390 a Fu(SLA)p Fk(_)p +Fu(FK425)862 b Fj(FK4)39 b(to)f(FK5)862 b Fu(SLA)p Fk(_)p +Fu(FK425)0 4741 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)31 +b(B1950.0)h(FK4)f(star)e(data)i(to)f(J2000.0)i(FK5.)41 +b(This)28 b(routine)h(con)m(v)m(erts)i(stars)f(from)227 +4853 y(the)37 b(old,)g(Bessel-New)m(com)m(b,)j(FK4)d(system)f(to)h(the) +g(new,)g(IA)m(U)g(1976,)j(FK5,)f(F)-8 b(ric)m(k)m(e)37 +b(system.)59 b(The)227 4966 y(precepts)34 b(of)h(Smith)d +Fn(et)37 b(al.)d FA(\(see)h(reference)g(1\))g(are)g(follo)m(w)m(ed,)g +(using)e(the)h(implemen)m(tation)f(b)m(y)h(Y)-8 b(al-)227 +5079 y(lop)34 b Fn(et)i(al.)f FA(\(reference)g(2\))h(of)e(a)h(matrix)f +(metho)s(d)g(due)g(to)h(Standish.)51 b(Kinoshita's)32 +b(dev)m(elopmen)m(t)j(of)227 5192 y(Ando)m(y)m(er's)40 +b(p)s(ost-New)m(com)m(b)g(precession)e(is)g(used.)66 +b(The)39 b(n)m(umerical)e(constan)m(ts)k(from)d(Seidelman-)227 +5305 y(n)30 b Fn(et)j(al.)e FA(\(reference)g(3\))g(are)g(used)e +(canonically)-8 b(.)0 5493 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_FK425)g(\(R1950,D1950,DR1950,DD1)o(950,)o(P19)o(50,V)o(1950)o(,) +1192 5606 y(R2000,D2000,DR2000,DD2)o(000,)o(P20)o(00,V)o(2000)o(\))p +eop +%%Page: 72 74 +72 73 bop 0 52 a FA(72)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(R1950)486 b Fy(D)565 b FA(B1950.0)33 b Fi(\013)e +FA(\(radians\))277 610 y Fn(D1950)483 b Fy(D)565 b FA(B1950.0)33 +b Fi(\016)i FA(\(radians\))277 723 y Fn(DR1950)417 b +Fy(D)565 b FA(B1950.0)39 b(prop)s(er)c(motion)h(in)f +Fi(\013)i FA(\(radians)f(p)s(er)f(tropical)1658 836 y(y)m(ear\))277 +949 y Fn(DD1950)414 b Fy(D)565 b FA(B1950.0)41 b(prop)s(er)c(motion)i +(in)e Fi(\016)42 b FA(\(radians)37 b(p)s(er)h(tropical)1658 +1062 y(y)m(ear\))277 1175 y Fn(P1950)490 b Fy(D)565 b +FA(B1950.0)33 b(parallax)d(\(arcsec\))277 1288 y Fn(V1950)484 +b Fy(D)565 b FA(B1950.0)48 b(radial)c(v)m(elo)s(cit)m(y)i(\(km)f(s)2884 +1255 y Fm(\000)p Fr(1)2978 1288 y FA(,)50 b(+v)m(e)45 +b(=)g(mo)m(ving)1658 1401 y(a)m(w)m(a)m(y\))0 1817 y +Fy(RETURNED)h FA(:)277 1963 y Fn(R2000)486 b Fy(D)565 +b FA(J2000.0)33 b Fi(\013)e FA(\(radians\))277 2075 y +Fn(D2000)483 b Fy(D)565 b FA(J2000.0)33 b Fi(\016)h FA(\(radians\))277 +2188 y Fn(DR2000)417 b Fy(D)565 b FA(J2000.0)50 b(prop)s(er)c(motion)h +(in)f Fi(\013)i FA(\(radians)e(p)s(er)g(Julian)1658 2301 +y(y)m(ear\))277 2414 y Fn(DD2000)414 b Fy(D)565 b FA(J2000.0)52 +b(prop)s(er)c(motion)h(in)f Fi(\016)54 b FA(\(radians)48 +b(p)s(er)g(Julian)1658 2527 y(y)m(ear\))277 2640 y Fn(P2000)490 +b Fy(D)565 b FA(J2000.0)33 b(parallax)c(\(arcsec\))277 +2753 y Fn(V2000)484 b Fy(D)565 b FA(J2000.0)50 b(radial)c(v)m(elo)s +(cit)m(y)i(\(km)g(s)2876 2720 y Fm(\000)p Fr(1)2970 2753 +y FA(,)53 b(+v)m(e)48 b(=)f(mo)m(ving)1658 2866 y(a)m(w)m(a)m(y\))0 +3282 y Fy(NOTES)d FA(:)311 3494 y(1.)i(The)37 b Fi(\013)h +FA(prop)s(er)e(motions)h(are)57 b(_)-45 b Fi(\013)38 +b FA(rather)f(than)57 b(_)-44 b Fi(\013)15 b FA(cos)h +Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear)i(rather)f(than)g(p)s +(er)427 3607 y(cen)m(tury)-8 b(.)311 3766 y(2.)46 b(Con)m(v)m(ersion)31 +b(from)f(Besselian)g(ep)s(o)s(c)m(h)h(1950.0)i(to)f(Julian)c(ep)s(o)s +(c)m(h)j(2000.0)i(only)d(is)g(pro)m(vided)f(for.)427 +3879 y(Con)m(v)m(ersions)42 b(in)m(v)m(olving)e(other)i(ep)s(o)s(c)m +(hs)g(will)d(require)h(use)i(of)g(the)g(appropriate)f(precession,)427 +3992 y(prop)s(er)29 b(motion,)i(and)e(E-terms)i(routines)e(b)s(efore)h +(and/or)g(after)h(FK425)h(is)d(called.)311 4150 y(3.)46 +b(In)41 b(the)h(FK4)g(catalogue)h(the)f(prop)s(er)e(motions)h(of)h +(stars)f(within)e(10)2905 4117 y Fm(\016)2987 4150 y +FA(of)j(the)f(p)s(oles)g(do)g(not)427 4263 y(include)29 +b(the)j Fn(di\013er)-5 b(ential)34 b(E-terms)39 b FA(e\013ect)33 +b(and)d(should,)g(strictly)g(sp)s(eaking,)g(b)s(e)h(handled)e(in)h(a) +427 4376 y(di\013eren)m(t)37 b(manner)f(from)g(stars)h(outside)f(these) +h(regions.)60 b(Ho)m(w)m(ev)m(er,)40 b(giv)m(en)d(the)g(general)g(lac)m +(k)427 4489 y(of)i(homogeneit)m(y)g(of)f(the)h(star)f(data)h(a)m(v)-5 +b(ailable)38 b(for)g(routine)f(astrometry)-8 b(,)42 b(the)d +(di\016culties)c(of)427 4602 y(handling)30 b(p)s(ositions)g(that)j(ma)m +(y)g(ha)m(v)m(e)h(b)s(een)e(determined)f(from)h(astrometric)h(\014elds) +d(spanning)427 4715 y(the)25 b(p)s(olar)e(and)h(non-p)s(olar)f +(regions,)i(the)f(lik)m(eliho)s(o)s(d)d(that)k(the)g(di\013eren)m(tial) +e(E-terms)h(e\013ect)i(w)m(as)427 4828 y(not)31 b(tak)m(en)h(in)m(to)f +(accoun)m(t)h(when)d(allo)m(wing)h(for)g(prop)s(er)f(motion)i(in)e +(past)i(astrometry)-8 b(,)32 b(and)e(the)427 4941 y(undesirabilit)m(y)c +(of)j(a)h(discon)m(tin)m(uit)m(y)d(in)h(the)i(algorithm,)f(the)g +(decision)f(has)h(b)s(een)f(made)i(in)e(this)427 5053 +y(routine)c(to)h(include)d(the)j(e\013ect)h(of)f(di\013eren)m(tial)e +(E-terms)h(on)h(the)f(prop)s(er)f(motions)h(for)h(all)e(stars,)427 +5166 y(whether)h(p)s(olar)f(or)h(not.)39 b(A)m(t)25 b(ep)s(o)s(c)m(h)f +(J2000,)j(and)d(measuring)f(on)h(the)h(sky)f(rather)g(than)g(in)f +(terms)427 5279 y(of)34 b(\001)p Fi(\013)p FA(,)h(the)e(errors)g +(resulting)f(from)h(this)f(simpli\014cation)e(are)k(less)f(than)g(1)h +(milliarcsecond)d(in)427 5392 y(p)s(osition)e(and)h(1)g(milliarcsecond) +e(p)s(er)h(cen)m(tury)i(in)e(prop)s(er)g(motion.)311 +5551 y(4.)46 b(See)31 b(also)f(sla)p Fq(_)p FA(FK45Z,)h(sla)p +Fq(_)p FA(FK524,)g(sla)p Fq(_)p FA(FK54Z.)p eop +%%Page: 73 75 +73 74 bop 0 52 a Ft(SUN/67.45)3252 b FA(73)0 351 y Fy(REFERENCES)44 +b FA(:)311 527 y(1.)i(Smith,)29 b(C.A.)i Fn(et)h(al.)p +FA(,)g(1989.)g Fn(Astr.J.)e Fy(97)p FA(,)h(265.)311 661 +y(2.)46 b(Y)-8 b(allop,)30 b(B.D.)i Fn(et)h(al.)p FA(,)e(1989.)h +Fn(Astr.J.)e Fy(97)p FA(,)h(274.)311 794 y(3.)46 b(Seidelmann,)27 +b(P)-8 b(.K.)28 b(\(ed\),)i(1992.)41 b Fn(Explanatory)34 +b(Supplement)e(to)f(the)g(Astr)-5 b(onomic)g(al)33 b(A)n(lmanac,)427 +907 y FA(ISBN)d(0-935702-68-7.)p 0 986 3780 8 v 0 1099 +a Fu(SLA)p Fk(_)p Fu(FK45Z)305 b Fj(FK4)39 b(to)f(FK5,)h(no)f(P)-10 +b(.M.)39 b(or)f(P)m(arallax)302 b Fu(SLA)p Fk(_)p Fu(FK45Z)0 +1449 y Fy(A)m(CTION)44 b FA(:)j(Con)m(v)m(ert)35 b(B1950.0)h(FK4)e +(star)g(data)h(to)f(J2000.0)i(FK5)e(assuming)f(zero)h(prop)s(er)e +(motion)i(in)227 1562 y(the)i(FK5)f(frame.)55 b(This)33 +b(routine)h(con)m(v)m(erts)j(stars)e(from)g(the)g(old,)h(Bessel-New)m +(com)m(b,)i(FK4)d(system)227 1675 y(to)e(the)f(new,)f(IA)m(U)h(1976,)i +(FK5,)f(F)-8 b(ric)m(k)m(e)33 b(system,)f(in)f(suc)m(h)g(a)h(w)m(a)m(y) +h(that)f(the)g(FK5)g(prop)s(er)e(motion)h(is)227 1788 +y(zero.)54 b(Because)36 b(suc)m(h)e(a)h(star)g(has,)h(in)d(general,)j +(a)f(non-zero)g(prop)s(er)e(motion)h(in)f(the)i(FK4)g(system,)227 +1901 y(the)e(routine)f(requires)g(the)h(ep)s(o)s(c)m(h)f(at)i(whic)m(h) +d(the)i(p)s(osition)e(in)h(the)h(FK4)g(system)g(w)m(as)h(determined.) +227 2014 y(The)c(metho)s(d)g(is)f(from)h(app)s(endix)e(2)j(of)f +(reference)h(1,)g(but)f(using)f(the)h(constan)m(ts)i(of)e(reference)h +(4.)0 2201 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_FK45Z)g +(\(R1950,D1950,BEPOCH,R20)o(00,D)o(200)o(0\))0 2502 y +Fy(GIVEN)f FA(:)277 2648 y Fn(R1950)486 b Fy(D)565 b +FA(B1950.0)33 b(FK4)e Fi(\013)g FA(at)g(ep)s(o)s(c)m(h)f(BEPOCH)g +(\(radians\))277 2761 y Fn(D1950)483 b Fy(D)565 b FA(B1950.0)33 +b(FK4)e Fi(\016)j FA(at)d(ep)s(o)s(c)m(h)g(BEPOCH)f(\(radians\))277 +2874 y Fn(BEPOCH)345 b Fy(D)565 b FA(Besselian)30 b(ep)s(o)s(c)m(h)g +(\()p Fn(e.g.)g FA(1979.3D0\))0 3142 y Fy(RETURNED)46 +b FA(:)277 3288 y Fn(R2000)486 b Fy(D)565 b FA(J2000.0)33 +b(FK5)e Fi(\013)f FA(\(radians\))277 3401 y Fn(D2000)483 +b Fy(D)565 b FA(J2000.0)33 b(FK5)e Fi(\016)j FA(\(radians\))0 +3669 y Fy(NOTES)44 b FA(:)311 3844 y(1.)i(The)31 b(ep)s(o)s(c)m(h)f +(BEPOCH)h(is)f(strictly)f(sp)s(eaking)h(Besselian,)h(but)f(if)g(a)h +(Julian)d(ep)s(o)s(c)m(h)j(is)f(supplied)427 3957 y(the)h(result)e +(will)f(b)s(e)i(a\013ected)h(only)f(to)h(a)g(negligible)d(exten)m(t.) +311 4091 y(2.)46 b(Con)m(v)m(ersion)31 b(from)f(Besselian)g(ep)s(o)s(c) +m(h)h(1950.0)i(to)f(Julian)c(ep)s(o)s(c)m(h)j(2000.0)i(only)d(is)g(pro) +m(vided)f(for.)427 4204 y(Con)m(v)m(ersions)42 b(in)m(v)m(olving)e +(other)i(ep)s(o)s(c)m(hs)g(will)d(require)h(use)i(of)g(the)g +(appropriate)f(precession,)427 4317 y(prop)s(er)29 b(motion,)i(and)e +(E-terms)i(routines)e(b)s(efore)h(and/or)g(after)h(FK45Z)g(is)e +(called.)311 4451 y(3.)46 b(In)41 b(the)h(FK4)g(catalogue)h(the)f(prop) +s(er)e(motions)h(of)h(stars)f(within)e(10)2905 4418 y +Fm(\016)2987 4451 y FA(of)j(the)f(p)s(oles)g(do)g(not)427 +4564 y(include)29 b(the)j Fn(di\013er)-5 b(ential)34 +b(E-terms)39 b FA(e\013ect)33 b(and)d(should,)g(strictly)g(sp)s +(eaking,)g(b)s(e)h(handled)e(in)h(a)427 4677 y(di\013eren)m(t)37 +b(manner)f(from)g(stars)h(outside)f(these)h(regions.)60 +b(Ho)m(w)m(ev)m(er,)40 b(giv)m(en)d(the)g(general)g(lac)m(k)427 +4790 y(of)i(homogeneit)m(y)g(of)f(the)h(star)f(data)h(a)m(v)-5 +b(ailable)38 b(for)g(routine)f(astrometry)-8 b(,)42 b(the)d +(di\016culties)c(of)427 4903 y(handling)30 b(p)s(ositions)g(that)j(ma)m +(y)g(ha)m(v)m(e)h(b)s(een)e(determined)f(from)h(astrometric)h(\014elds) +d(spanning)427 5016 y(the)25 b(p)s(olar)e(and)h(non-p)s(olar)f +(regions,)i(the)f(lik)m(eliho)s(o)s(d)d(that)k(the)g(di\013eren)m(tial) +e(E-terms)h(e\013ect)i(w)m(as)427 5128 y(not)31 b(tak)m(en)h(in)m(to)f +(accoun)m(t)h(when)d(allo)m(wing)h(for)g(prop)s(er)f(motion)i(in)e +(past)i(astrometry)-8 b(,)32 b(and)e(the)427 5241 y(undesirabilit)m(y)c +(of)j(a)h(discon)m(tin)m(uit)m(y)d(in)h(the)i(algorithm,)f(the)g +(decision)f(has)h(b)s(een)f(made)i(in)e(this)427 5354 +y(routine)c(to)h(include)d(the)j(e\013ect)h(of)f(di\013eren)m(tial)e +(E-terms)h(on)h(the)f(prop)s(er)f(motions)h(for)h(all)e(stars,)427 +5467 y(whether)k(p)s(olar)f(or)i(not.)40 b(A)m(t)29 b(ep)s(o)s(c)m(h)e +(2000,)j(and)d(measuring)f(on)i(the)f(sky)h(rather)f(than)g(in)g(terms) +427 5580 y(of)34 b(\001)p Fi(\013)p FA(,)h(the)e(errors)g(resulting)f +(from)h(this)f(simpli\014cation)e(are)k(less)f(than)g(1)h +(milliarcsecond)d(in)427 5693 y(p)s(osition)e(and)h(1)g(milliarcsecond) +e(p)s(er)h(cen)m(tury)i(in)e(prop)s(er)g(motion.)p eop +%%Page: 74 76 +74 75 bop 0 52 a FA(74)311 351 y(4.)46 b(See)31 b(also)f(sla)p +Fq(_)p FA(FK425,)h(sla)p Fq(_)p FA(FK524,)h(sla)p Fq(_)p +FA(FK54Z.)0 707 y Fy(REFERENCES)44 b FA(:)311 894 y(1.)i(Aoki,)31 +b(S.,)f Fn(et)j(al.)p FA(,)e(1983.)h Fn(Astr.Astr)-5 +b(ophys.)p FA(,)33 b Fy(128)p FA(,)e(263.)311 1039 y(2.)46 +b(Smith,)29 b(C.A.)i Fn(et)h(al.)p FA(,)g(1989.)g Fn(Astr.J.)e +Fy(97)p FA(,)h(265.)311 1184 y(3.)46 b(Y)-8 b(allop,)30 +b(B.D.)i Fn(et)h(al.)p FA(,)e(1989.)h Fn(Astr.J.)e Fy(97)p +FA(,)h(274.)311 1329 y(4.)46 b(Seidelmann,)27 b(P)-8 +b(.K.)28 b(\(ed\),)i(1992.)41 b Fn(Explanatory)34 b(Supplement)e(to)f +(the)g(Astr)-5 b(onomic)g(al)33 b(A)n(lmanac,)427 1442 +y FA(ISBN)d(0-935702-68-7.)p 0 1555 3780 8 v 0 1668 a +Fu(SLA)p Fk(_)p Fu(FK524)862 b Fj(FK5)39 b(to)f(FK4)862 +b Fu(SLA)p Fk(_)p Fu(FK524)0 2018 y Fy(A)m(CTION)44 b +FA(:)c(Con)m(v)m(ert)31 b(J2000.0)h(FK5)e(star)g(data)g(to)h(B1950.0)h +(FK4.)41 b(This)28 b(routine)h(con)m(v)m(erts)i(stars)f(from)227 +2131 y(the)35 b(new,)h(IA)m(U)f(1976,)j(FK5,)e(F)-8 b(ric)m(k)m(e)36 +b(system,)h(to)e(the)g(old,)g(Bessel-New)m(com)m(b,)j(FK4)d(system.)54 +b(The)227 2244 y(precepts)22 b(of)h(Smith)d Fn(et)25 +b(al.)d FA(\(reference)h(1\))g(are)f(follo)m(w)m(ed,)i(using)d(the)h +(implemen)m(tation)f(b)m(y)h(Y)-8 b(allop)21 b Fn(et)k(al.)227 +2357 y FA(\(reference)33 b(2\))g(of)f(a)h(matrix)e(metho)s(d)h(due)f +(to)i(Standish.)44 b(Kinoshita's)30 b(dev)m(elopmen)m(t)j(of)f(Ando)m +(y)m(er's)227 2470 y(p)s(ost-New)m(com)m(b)f(precession)e(is)f(used.)40 +b(The)29 b(n)m(umerical)f(constan)m(ts)j(from)e(Seidelmann)e +Fn(et)32 b(al.)e FA(\(refer-)227 2582 y(ence)h(3\))g(are)g(used)f +(canonically)-8 b(.)0 2770 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_FK524)g(\(R2000,D2000,DR2000,DD2)o(000,)o(P20)o(00,V)o(2000)o(,) +1192 2883 y(R1950,D1950,DR1950,DD1)o(950,)o(P19)o(50,V)o(1950)o(\))0 +3229 y Fy(GIVEN)f FA(:)277 3375 y Fn(R2000)486 b Fy(D)565 +b FA(J2000.0)33 b Fi(\013)e FA(\(radians\))277 3488 y +Fn(D2000)483 b Fy(D)565 b FA(J2000.0)33 b Fi(\016)h FA(\(radians\))277 +3601 y Fn(DR2000)417 b Fy(D)565 b FA(J2000.0)50 b(prop)s(er)c(motion)h +(in)f Fi(\013)i FA(\(radians)e(p)s(er)g(Julian)1658 3714 +y(y)m(ear\))277 3827 y Fn(DD2000)414 b Fy(D)565 b FA(J2000.0)52 +b(prop)s(er)c(motion)h(in)f Fi(\016)54 b FA(\(radians)48 +b(p)s(er)g(Julian)1658 3940 y(y)m(ear\))277 4053 y Fn(P2000)490 +b Fy(D)565 b FA(J2000.0)33 b(parallax)c(\(arcsec\))277 +4166 y Fn(V2000)484 b Fy(D)565 b FA(J2000)24 b(radial)c(v)m(elo)s(cit)m +(y)i(\(km)g(s)2702 4133 y Fm(\000)p Fr(1)2796 4166 y +FA(,)i(+v)m(e)f(=)e(mo)m(ving)h(a)m(w)m(a)m(y\))0 4626 +y Fy(RETURNED)46 b FA(:)277 4772 y Fn(R1950)486 b Fy(D)565 +b FA(B1950.0)33 b Fi(\013)e FA(\(radians\))277 4885 y +Fn(D1950)483 b Fy(D)565 b FA(B1950.0)33 b Fi(\016)i FA(\(radians\))277 +4998 y Fn(DR1950)417 b Fy(D)565 b FA(B1950.0)39 b(prop)s(er)c(motion)h +(in)f Fi(\013)i FA(\(radians)f(p)s(er)f(tropical)1658 +5111 y(y)m(ear\))277 5223 y Fn(DD1950)414 b Fy(D)565 +b FA(B1950.0)41 b(prop)s(er)c(motion)i(in)e Fi(\016)42 +b FA(\(radians)37 b(p)s(er)h(tropical)1658 5336 y(y)m(ear\))277 +5449 y Fn(P1950)490 b Fy(D)565 b FA(B1950.0)33 b(parallax)d(\(arcsec\)) +277 5562 y Fn(V1950)484 b Fy(D)565 b FA(radial)29 b(v)m(elo)s(cit)m(y)i +(\(km)f(s)2477 5529 y Fm(\000)p Fr(1)2571 5562 y FA(,)h(+v)m(e)g(=)f +(mo)m(ving)g(a)m(w)m(a)m(y\))p eop +%%Page: 75 77 +75 76 bop 0 52 a Ft(SUN/67.45)3252 b FA(75)0 351 y Fy(NOTES)44 +b FA(:)311 549 y(1.)i(The)37 b Fi(\013)h FA(prop)s(er)e(motions)h(are) +57 b(_)-45 b Fi(\013)38 b FA(rather)f(than)57 b(_)-44 +b Fi(\013)15 b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m +(ear)i(rather)f(than)g(p)s(er)427 662 y(cen)m(tury)-8 +b(.)311 813 y(2.)46 b(Note)f(that)e(con)m(v)m(ersion)h(from)e(Julian)f +(ep)s(o)s(c)m(h)i(2000.0)j(to)d(Besselian)g(ep)s(o)s(c)m(h)g(1950.0)i +(only)d(is)427 926 y(pro)m(vided)31 b(for.)46 b(Con)m(v)m(ersions)31 +b(in)m(v)m(olving)g(other)h(ep)s(o)s(c)m(hs)g(will)d(require)i(use)h +(of)g(the)g(appropriate)427 1039 y(precession,)c(prop)s(er)e(motion,)i +(and)f(E-terms)g(routines)f(b)s(efore)h(and/or)h(after)g(FK524)h(is)d +(called.)311 1190 y(3.)46 b(In)41 b(the)h(FK4)g(catalogue)h(the)f(prop) +s(er)e(motions)h(of)h(stars)f(within)e(10)2905 1157 y +Fm(\016)2987 1190 y FA(of)j(the)f(p)s(oles)g(do)g(not)427 +1303 y(include)29 b(the)j Fn(di\013er)-5 b(ential)34 +b(E-terms)39 b FA(e\013ect)33 b(and)d(should,)g(strictly)g(sp)s +(eaking,)g(b)s(e)h(handled)e(in)h(a)427 1416 y(di\013eren)m(t)37 +b(manner)f(from)g(stars)h(outside)f(these)h(regions.)60 +b(Ho)m(w)m(ev)m(er,)40 b(giv)m(en)d(the)g(general)g(lac)m(k)427 +1529 y(of)i(homogeneit)m(y)g(of)f(the)h(star)f(data)h(a)m(v)-5 +b(ailable)38 b(for)g(routine)f(astrometry)-8 b(,)42 b(the)d +(di\016culties)c(of)427 1642 y(handling)30 b(p)s(ositions)g(that)j(ma)m +(y)g(ha)m(v)m(e)h(b)s(een)e(determined)f(from)h(astrometric)h(\014elds) +d(spanning)427 1755 y(the)25 b(p)s(olar)e(and)h(non-p)s(olar)f +(regions,)i(the)f(lik)m(eliho)s(o)s(d)d(that)k(the)g(di\013eren)m(tial) +e(E-terms)h(e\013ect)i(w)m(as)427 1868 y(not)31 b(tak)m(en)h(in)m(to)f +(accoun)m(t)h(when)d(allo)m(wing)h(for)g(prop)s(er)f(motion)i(in)e +(past)i(astrometry)-8 b(,)32 b(and)e(the)427 1981 y(undesirabilit)m(y)c +(of)j(a)h(discon)m(tin)m(uit)m(y)d(in)h(the)i(algorithm,)f(the)g +(decision)f(has)h(b)s(een)f(made)i(in)e(this)427 2094 +y(routine)c(to)h(include)d(the)j(e\013ect)h(of)f(di\013eren)m(tial)e +(E-terms)h(on)h(the)f(prop)s(er)f(motions)h(for)h(all)e(stars,)427 +2207 y(whether)k(p)s(olar)f(or)i(not.)40 b(A)m(t)29 b(ep)s(o)s(c)m(h)e +(2000,)j(and)d(measuring)f(on)i(the)f(sky)h(rather)f(than)g(in)g(terms) +427 2319 y(of)34 b(\001)p Fi(\013)p FA(,)h(the)e(errors)g(resulting)f +(from)h(this)f(simpli\014cation)e(are)k(less)f(than)g(1)h +(milliarcsecond)d(in)427 2432 y(p)s(osition)e(and)h(1)g(milliarcsecond) +e(p)s(er)h(cen)m(tury)i(in)e(prop)s(er)g(motion.)311 +2584 y(4.)46 b(See)31 b(also)f(sla)p Fq(_)p FA(FK425,)h(sla)p +Fq(_)p FA(FK45Z,)g(sla)p Fq(_)p FA(FK54Z.)0 2971 y Fy(REFERENCES)44 +b FA(:)311 3169 y(1.)i(Smith,)29 b(C.A.)i Fn(et)h(al.)p +FA(,)g(1989.)g Fn(Astr.J.)e Fy(97)p FA(,)h(265.)311 3320 +y(2.)46 b(Y)-8 b(allop,)30 b(B.D.)i Fn(et)h(al.)p FA(,)e(1989.)h +Fn(Astr.J.)e Fy(97)p FA(,)h(274.)311 3472 y(3.)46 b(Seidelmann,)27 +b(P)-8 b(.K.)28 b(\(ed\),)i(1992.)41 b Fn(Explanatory)34 +b(Supplement)e(to)f(the)g(Astr)-5 b(onomic)g(al)33 b(A)n(lmanac,)427 +3585 y FA(ISBN)d(0-935702-68-7.)p 0 3710 3780 8 v 0 3823 +a Fu(SLA)p Fk(_)p Fu(FK52H)681 b Fj(FK5)39 b(to)f(Hipparcos)680 +b Fu(SLA)p Fk(_)p Fu(FK52H)0 4173 y Fy(A)m(CTION)44 b +FA(:)68 b(T)-8 b(ransform)43 b(an)i(FK5)f(\(J2000\))j(p)s(osition)42 +b(and)h(prop)s(er)g(motion)h(in)m(to)g(the)h(frame)f(of)g(the)227 +4286 y(Hipparcos)30 b(catalogue.)0 4474 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_FK52H)g(\(R5,D5,DR5,DD5,RH,DH,DR)o(H,DD)o +(H\))0 4839 y Fy(GIVEN)f FA(:)277 4985 y Fn(R5)624 b +Fy(D)565 b FA(J2000.0)33 b(FK5)e Fi(\013)f FA(\(radians\))277 +5098 y Fn(D5)621 b Fy(D)565 b FA(J2000.0)33 b(FK5)e Fi(\016)j +FA(\(radians\))277 5211 y Fn(DR5)555 b Fy(D)565 b FA(J2000.0)36 +b(FK5)f(prop)s(er)e(motion)g(in)g Fi(\013)i FA(\(radians)e(p)s(er)g +(Ju-)1658 5323 y(lian)c(y)m(ear\))277 5436 y Fn(DD5)552 +b Fy(D)565 b FA(J2000.0)24 b(FK5)e(prop)s(er)d(motion)j(in)e +Fi(\016)25 b FA(\(radians)20 b(p)s(er)g(Julian)1658 5549 +y(y)m(ear\))p eop +%%Page: 76 78 +76 77 bop 0 52 a FA(76)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(RH)602 b Fy(D)565 b FA(Hipparcos)30 b Fi(\013)g +FA(\(radians\))277 610 y Fn(DH)599 b Fy(D)565 b FA(Hipparcos)30 +b Fi(\016)k FA(\(radians\))277 723 y Fn(DRH)533 b Fy(D)565 +b FA(Hipparcos)33 b(prop)s(er)f(motion)h(in)f Fi(\013)i +FA(\(radians)e(p)s(er)g(Julian)1658 836 y(y)m(ear\))277 +949 y Fn(DDH)530 b Fy(D)565 b FA(Hipparcos)35 b(prop)s(er)f(motion)h +(in)f Fi(\016)40 b FA(\(radians)34 b(p)s(er)g(Julian)1658 +1062 y(y)m(ear\))0 1404 y Fy(NOTES)44 b FA(:)311 1590 +y(1.)i(The)37 b Fi(\013)h FA(prop)s(er)e(motions)h(are)57 +b(_)-45 b Fi(\013)38 b FA(rather)f(than)57 b(_)-44 b +Fi(\013)15 b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear) +i(rather)f(than)g(p)s(er)427 1703 y(cen)m(tury)-8 b(.)311 +1847 y(2.)46 b(The)41 b(FK5)g(to)g(Hipparcos)f(transformation)g +(consists)g(of)h(a)g(pure)f(rotation)h(and)f(spin;)k(zonal)427 +1960 y(errors)30 b(in)f(the)i(FK5)g(catalogue)h(are)e(not)h(tak)m(en)g +(in)m(to)g(accoun)m(t.)311 2104 y(3.)46 b(The)c(adopted)h(ep)s(o)s(c)m +(h)g(J2000.0)h(FK5)g(to)f(Hipparcos)f(orien)m(tation)g(and)g(spin)f(v) +-5 b(alues)42 b(are)h(as)427 2217 y(follo)m(ws)30 b(\(see)h +(reference\):)p 821 2346 1115 4 v 819 2459 4 113 v 971 +2459 V 971 2459 V 1023 2425 a Fn(orientation)p 1509 2459 +V 199 w(spin)p 1934 2459 V 821 2462 1115 4 v 819 2575 +4 113 v 871 2541 a Fi(x)p 971 2575 V 184 w Fl(\000)p +FA(19)p Fi(:)p FA(9)p 1509 2575 V 254 w Fl(\000)p FA(0)p +Fi(:)p FA(30)p 1934 2575 V 819 2688 V 875 2654 a Fi(y)p +971 2688 V 232 w Fl(\000)p FA(9)p Fi(:)p FA(1)p 1509 +2688 V 254 w(+0)p Fi(:)p FA(60)p 1934 2688 V 819 2801 +V 877 2767 a Fi(z)p 971 2801 V 188 w FA(+22)p Fi(:)p +FA(9)p 1509 2801 V 254 w(+0)p Fi(:)p FA(70)p 1934 2801 +V 821 2804 1115 4 v 819 2917 4 113 v 971 2917 V 1151 +2883 a Fn(mas)p 1509 2917 V 299 w(mas/y)p 1934 2917 V +821 2920 1115 4 v 427 3125 a FA(These)40 b(orien)m(tation)h(and)e(spin) +f(comp)s(onen)m(ts)j(are)g(in)m(terpreted)e(as)i Fn(axial)h(ve)-5 +b(ctors.)71 b FA(An)40 b(axial)427 3238 y(v)m(ector)35 +b(p)s(oin)m(ts)d(at)i(the)g(p)s(ole)e(of)i(the)f(rotation)h(and)f(its)f +(length)h(is)f(the)i(amoun)m(t)g(of)f(rotation)h(in)427 +3351 y(radians.)311 3495 y(4.)46 b(See)31 b(also)f(sla)p +Fq(_)p FA(FK5HZ,)g(sla)p Fq(_)p FA(H2FK5,)h(sla)p Fq(_)p +FA(HFK5Z.)0 3845 y Fy(REFERENCE)44 b FA(:)d(F)-8 b(eissel,)30 +b(M.)h(&)f(Mignard,)g(F.,)h(1998.,)h Fn(Astr)-5 b(on.Astr)g(ophys.)34 +b Fy(331)p FA(,)d(L33-L36.)p 0 3973 3780 8 v 0 4086 a +Fu(SLA)p Fk(_)p Fu(FK54Z)305 b Fj(FK5)39 b(to)f(FK4,)h(no)f(P)-10 +b(.M.)39 b(or)f(P)m(arallax)302 b Fu(SLA)p Fk(_)p Fu(FK54Z)0 +4436 y Fy(A)m(CTION)44 b FA(:)i(Con)m(v)m(ert)34 b(a)g(J2000.0)h(FK5)f +(star)f(p)s(osition)f(to)i(B1950.0)i(FK4)d(assuming)f(FK5)i(zero)g +(prop)s(er)227 4549 y(motion)e(and)f(parallax.)43 b(This)30 +b(routine)g(con)m(v)m(erts)k(star)d(p)s(ositions)f(from)h(the)h(new,)g +(IA)m(U)g(1976,)i(FK5,)227 4662 y(F)-8 b(ric)m(k)m(e)32 +b(system)e(to)i(the)e(old,)g(Bessel-New)m(com)m(b,)i(FK4)f(system.)0 +4850 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_FK54Z)g +(\(R2000,D2000,BEPOCH,R19)o(50,D)o(195)o(0,DR)o(1950)o(,DD)o(1950)o(\)) +0 5193 y Fy(GIVEN)f FA(:)277 5339 y Fn(R2000)486 b Fy(D)565 +b FA(J2000.0)33 b(FK5)e Fi(\013)f FA(\(radians\))277 +5452 y Fn(D2000)483 b Fy(D)565 b FA(J2000.0)33 b(FK5)e +Fi(\016)j FA(\(radians\))277 5565 y Fn(BEPOCH)345 b Fy(D)565 +b FA(Besselian)30 b(ep)s(o)s(c)m(h)g(\()p Fn(e.g.)g FA(1950D0\))p +eop +%%Page: 77 79 +77 78 bop 0 52 a Ft(SUN/67.45)3252 b FA(77)0 351 y Fy(RETURNED)46 +b FA(:)277 497 y Fn(R1950)486 b Fy(D)565 b FA(B1950.0)33 +b(FK4)e Fi(\013)g FA(at)g(ep)s(o)s(c)m(h)f(BEPOCH)g(\(radians\))277 +610 y Fn(D1950)483 b Fy(D)565 b FA(B1950.0)33 b(FK4)e +Fi(\016)j FA(at)d(ep)s(o)s(c)m(h)g(BEPOCH)f(\(radians\))277 +723 y Fn(DR1950)417 b Fy(D)565 b FA(B1950.0)26 b(FK4)e(prop)s(er)d +(motion)i(in)f Fi(\013)i FA(\(radians)e(p)s(er)g(trop-)1658 +836 y(ical)30 b(y)m(ear\))277 949 y Fn(DD1950)414 b Fy(D)565 +b FA(B1950.0)28 b(FK4)d(prop)s(er)f(motion)h(in)e Fi(\016)29 +b FA(\(radians)24 b(p)s(er)g(trop-)1658 1062 y(ical)30 +b(y)m(ear\))0 1435 y Fy(NOTES)44 b FA(:)311 1630 y(1.)i(The)37 +b Fi(\013)h FA(prop)s(er)e(motions)h(are)57 b(_)-45 b +Fi(\013)38 b FA(rather)f(than)57 b(_)-44 b Fi(\013)15 +b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear)i(rather)f +(than)g(p)s(er)427 1743 y(cen)m(tury)-8 b(.)311 1893 +y(2.)46 b(Con)m(v)m(ersion)31 b(from)f(Julian)f(ep)s(o)s(c)m(h)h +(2000.0)j(to)f(Besselian)e(ep)s(o)s(c)m(h)h(1950.0)i(only)d(is)g(pro)m +(vided)f(for.)427 2006 y(Con)m(v)m(ersions)44 b(in)m(v)m(olving)f +(other)i(ep)s(o)s(c)m(hs)f(will)d(require)j(use)g(of)g(the)h +(appropriate)e(precession)427 2119 y(routines)30 b(b)s(efore)f(and)h +(after)h(this)e(routine)h(is)f(called.)311 2269 y(3.)46 +b(Unlik)m(e)24 b(in)f(the)h(sla)p Fq(_)p FA(FK524)h(routine,)g(the)f +(FK5)h(prop)s(er)e(motions,)i(the)g(parallax)e(and)h(the)g(radial)427 +2381 y(v)m(elo)s(cit)m(y)31 b(are)g(presumed)e(zero.)311 +2531 y(4.)46 b(It)25 b(w)m(as)g(the)f(in)m(ten)m(tion)g(that)h(FK5)g +(should)d(b)s(e)i(a)h(close)f(appro)m(ximation)g(to)h(an)f(inertial)e +(frame,)k(so)427 2644 y(that)i(distan)m(t)e(ob)5 b(jects)28 +b(ha)m(v)m(e)f(zero)h(prop)s(er)d(motion;)j(suc)m(h)f(ob)5 +b(jects)27 b(ha)m(v)m(e)h(\(in)e(general\))h(non-zero)427 +2757 y(prop)s(er)i(motion)h(in)f(FK4,)i(and)f(this)f(routine)h(returns) +f(those)i Fn(\014ctitious)i(pr)-5 b(op)g(er)35 b(motions)p +FA(.)311 2907 y(5.)46 b(The)25 b(p)s(osition)e(returned)h(b)m(y)g(this) +g(routine)g(is)g(in)g(the)h(B1950)i(reference)e(frame)g(but)f(at)i +(Besselian)427 3020 y(ep)s(o)s(c)m(h)36 b(BEPOCH.)h(F)-8 +b(or)37 b(comparison)f(with)f(catalogues)j(the)f(BEPOCH)f(argumen)m(t)h +(will)c(fre-)427 3133 y(quen)m(tly)d(b)s(e)g(1950D0.)311 +3283 y(6.)46 b(See)31 b(also)f(sla)p Fq(_)p FA(FK425,)h(sla)p +Fq(_)p FA(FK45Z,)g(sla)p Fq(_)p FA(FK524.)p 0 3423 3780 +8 v 0 3536 a Fu(SLA)p Fk(_)p Fu(FK5HZ)428 b Fj(FK5)39 +b(to)f(Hipparcos,)f(no)h(P)-10 b(.M.)428 b Fu(SLA)p Fk(_)p +Fu(FK5HZ)0 3887 y Fy(A)m(CTION)44 b FA(:)38 b(T)-8 b(ransform)24 +b(an)g(FK5)h(\(J2000\))i(star)e(p)s(osition)e(in)m(to)i(the)g(frame)g +(of)g(the)g(Hipparcos)f(catalogue,)227 3999 y(assuming)29 +b(zero)i(Hipparcos)f(prop)s(er)f(motion.)0 4187 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_FK52H)g(\(R5,D5,EPOCH,RH,DH\))0 +4548 y Fy(GIVEN)f FA(:)277 4694 y Fn(R5)624 b Fy(D)565 +b FA(J2000.0)33 b(FK5)e Fi(\013)f FA(\(radians\))277 +4807 y Fn(D5)621 b Fy(D)565 b FA(J2000.0)33 b(FK5)e Fi(\016)j +FA(\(radians\))277 4920 y Fn(EPOCH)409 b Fy(D)565 b FA(Julian)28 +b(ep)s(o)s(c)m(h)i(\(TDB\))0 5293 y Fy(RETURNED)46 b +FA(:)277 5439 y Fn(RH)602 b Fy(D)565 b FA(Hipparcos)30 +b Fi(\013)g FA(\(radians\))277 5552 y Fn(DH)599 b Fy(D)565 +b FA(Hipparcos)30 b Fi(\016)k FA(\(radians\))p eop +%%Page: 78 80 +78 79 bop 0 52 a FA(78)0 351 y Fy(NOTES)44 b FA(:)311 +574 y(1.)i(The)37 b Fi(\013)h FA(prop)s(er)e(motions)h(are)57 +b(_)-45 b Fi(\013)38 b FA(rather)f(than)57 b(_)-44 b +Fi(\013)15 b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear) +i(rather)f(than)g(p)s(er)427 687 y(cen)m(tury)-8 b(.)311 +850 y(2.)46 b(The)41 b(FK5)g(to)g(Hipparcos)f(transformation)g +(consists)g(of)h(a)g(pure)f(rotation)h(and)f(spin;)k(zonal)427 +963 y(errors)30 b(in)f(the)i(FK5)g(catalogue)h(are)e(not)h(tak)m(en)g +(in)m(to)g(accoun)m(t.)311 1127 y(3.)46 b(The)c(adopted)h(ep)s(o)s(c)m +(h)g(J2000.0)h(FK5)g(to)f(Hipparcos)f(orien)m(tation)g(and)g(spin)f(v) +-5 b(alues)42 b(are)h(as)427 1240 y(follo)m(ws)30 b(\(see)h +(reference\):)p 821 1378 1115 4 v 819 1491 4 113 v 971 +1491 V 971 1491 V 1023 1457 a Fn(orientation)p 1509 1491 +V 199 w(spin)p 1934 1491 V 821 1494 1115 4 v 819 1607 +4 113 v 871 1573 a Fi(x)p 971 1607 V 184 w Fl(\000)p +FA(19)p Fi(:)p FA(9)p 1509 1607 V 254 w Fl(\000)p FA(0)p +Fi(:)p FA(30)p 1934 1607 V 819 1720 V 875 1686 a Fi(y)p +971 1720 V 232 w Fl(\000)p FA(9)p Fi(:)p FA(1)p 1509 +1720 V 254 w(+0)p Fi(:)p FA(60)p 1934 1720 V 819 1833 +V 877 1799 a Fi(z)p 971 1833 V 188 w FA(+22)p Fi(:)p +FA(9)p 1509 1833 V 254 w(+0)p Fi(:)p FA(70)p 1934 1833 +V 821 1836 1115 4 v 819 1949 4 113 v 971 1949 V 1151 +1915 a Fn(mas)p 1509 1949 V 299 w(mas/y)p 1934 1949 V +821 1952 1115 4 v 427 2167 a FA(These)40 b(orien)m(tation)h(and)e(spin) +f(comp)s(onen)m(ts)j(are)g(in)m(terpreted)e(as)i Fn(axial)h(ve)-5 +b(ctors.)71 b FA(An)40 b(axial)427 2280 y(v)m(ector)35 +b(p)s(oin)m(ts)d(at)i(the)g(p)s(ole)e(of)i(the)f(rotation)h(and)f(its)f +(length)h(is)f(the)i(amoun)m(t)g(of)f(rotation)h(in)427 +2392 y(radians.)311 2556 y(4.)46 b(See)31 b(also)f(sla)p +Fq(_)p FA(FK52H,)h(sla)p Fq(_)p FA(H2FK5,)g(sla)p Fq(_)p +FA(HFK5Z.)0 3006 y Fy(REFERENCE)44 b FA(:)d(F)-8 b(eissel,)30 +b(M.)h(&)f(Mignard,)g(F.,)h(1998.,)h Fn(Astr)-5 b(on.Astr)g(ophys.)34 +b Fy(331)p FA(,)d(L33-L36.)p 0 3173 3780 8 v 0 3286 a +Fu(SLA)p Fk(_)p Fu(FLOTIN)459 b Fj(Deco)s(de)39 b(a)g(Real)f(Num)m(b)s +(er)459 b Fu(SLA)p Fk(_)p Fu(FLOTIN)0 3637 y Fy(A)m(CTION)44 +b FA(:)c(Con)m(v)m(ert)32 b(free-format)f(input)d(in)m(to)j(single)e +(precision)f(\015oating)j(p)s(oin)m(t.)0 3824 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_FLOTIN)f(\(STRING,)h(NSTRT,)g(RESLT,)g +(JFLAG\))0 4227 y Fy(GIVEN)f FA(:)277 4373 y Fn(STRING)381 +b Fy(C)569 b FA(string)29 b(con)m(taining)h(n)m(um)m(b)s(er)f(to)j(b)s +(e)d(deco)s(ded)277 4486 y Fn(NSTR)-7 b(T)428 b Fy(I)605 +b FA(p)s(oin)m(ter)30 b(to)h(where)f(deco)s(ding)f(is)g(to)i(commence) +277 4598 y Fn(RESL)-7 b(T)442 b Fy(R)567 b FA(curren)m(t)30 +b(v)-5 b(alue)30 b(of)h(result)0 5040 y Fy(RETURNED)46 +b FA(:)277 5186 y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(adv)-5 +b(anced)31 b(to)g(next)f(n)m(um)m(b)s(er)277 5299 y Fn(RESL)-7 +b(T)442 b Fy(R)567 b FA(result)277 5412 y Fn(JFLA)n(G)436 +b Fy(I)605 b FA(status:)65 b Fl(\000)p FA(1)43 b(=)f +Fl(\000)p FA(OK,)f(0)i(=)f(+OK,)g(1)h(=)f(n)m(ull)e(result,)1658 +5524 y(2)31 b(=)f(error)p eop +%%Page: 79 81 +79 80 bop 0 52 a Ft(SUN/67.45)3252 b FA(79)0 351 y Fy(NOTES)44 +b FA(:)311 549 y(1.)i(The)36 b(reason)h(sla)p Fq(_)p +FA(FLOTIN)f(has)g(separate)i(`OK')e(status)h(v)-5 b(alues)36 +b(for)g(+)h(and)f Fl(\000)g FA(is)g(to)h(enable)427 662 +y(min)m(us)28 b(zero)j(to)g(b)s(e)e(detected.)42 b(This)28 +b(is)g(of)i(crucial)f(imp)s(ortance)g(when)g(deco)s(ding)g(mixed-radix) +427 774 y(n)m(um)m(b)s(ers.)68 b(F)-8 b(or)40 b(example,)j(an)c(angle)h +(expressed)f(as)i(degrees,)i(arcmin)m(utes)c(and)g(arcseconds)427 +887 y(ma)m(y)31 b(ha)m(v)m(e)h(a)f(leading)e(min)m(us)f(sign)i(but)f(a) +i(zero)g(degrees)g(\014eld.)311 1038 y(2.)46 b(A)32 b(T)-8 +b(AB)32 b(is)f(in)m(terpreted)g(as)h(a)g(space,)h(and)e(lo)m(w)m +(ercase)i(c)m(haracters)g(are)f(in)m(terpreted)f(as)h(upp)s(er-)427 +1151 y(case.)42 b Fn(n.b.)30 b FA(The)g(test)h(for)f(T)-8 +b(AB)31 b(is)f(ASCI)s(I-sp)s(eci\014c.)311 1302 y(3.)46 +b(The)38 b(basic)f(format)h(is)f(the)h(sequence)h(of)f(\014elds)e +Fl(\006)p Fi(n:nx)24 b Fl(\006)h Fi(n)p FA(,)40 b(where)d +Fl(\006)h FA(is)f(a)h(sign)f(c)m(haracter)427 1415 y(`+')f(or)g(`)p +Fl(\000)p FA(',)i Fi(n)e FA(means)f(a)i(string)e(of)h(decimal)f +(digits,)h(`.')58 b(is)35 b(a)h(decimal)f(p)s(oin)m(t,)i(and)e +Fi(x)p FA(,)j(whic)m(h)427 1528 y(indicates)30 b(an)h(exp)s(onen)m(t,)h +(means)f(`D')h(or)f(`E'.)h(V)-8 b(arious)31 b(com)m(binations)f(of)h +(these)h(\014elds)e(can)h(b)s(e)427 1641 y(omitted,)g(and)f(em)m(b)s +(edded)f(blanks)g(are)i(p)s(ermissible)26 b(in)j(certain)h(places.)311 +1792 y(4.)46 b(Spaces:)506 1943 y Fl(\017)g FA(Leading)30 +b(spaces)h(are)g(ignored.)506 2075 y Fl(\017)46 b FA(Em)m(b)s(edded)38 +b(spaces)i(are)g(allo)m(w)m(ed)f(only)f(after)i(+,)i +Fl(\000)p FA(,)g(D)d(or)h(E,)f(and)g(after)h(the)f(decimal)597 +2188 y(p)s(oin)m(t)30 b(if)f(the)i(\014rst)e(sequence)i(of)f(digits)f +(is)h(absen)m(t.)506 2320 y Fl(\017)46 b FA(T)-8 b(railing)38 +b(spaces)i(are)h(ignored;)j(the)c(\014rst)f(signi\014es)f(end)h(of)h +(deco)s(ding)f(and)g(subsequen)m(t)597 2433 y(ones)31 +b(are)g(skipp)s(ed.)311 2584 y(5.)46 b(Delimiters:)506 +2735 y Fl(\017)g FA(An)m(y)32 b(c)m(haracter)h(other)f(than)f(+,)p +Fl(\000)p FA(,0-9,.,D,E)j(or)e(space)g(ma)m(y)g(b)s(e)f(used)g(to)h +(signal)e(the)i(end)597 2847 y(of)f(the)f(n)m(um)m(b)s(er)f(and)h +(terminate)h(deco)s(ding.)506 2979 y Fl(\017)46 b FA(Comma)28 +b(is)f(recognized)h(b)m(y)f(sla)p Fq(_)p FA(FLOTIN)g(as)h(a)g(sp)s +(ecial)e(case;)k(it)d(is)g(skipp)s(ed,)f(lea)m(ving)h(the)597 +3092 y(p)s(oin)m(ter)j(on)g(the)g(next)h(c)m(haracter.)42 +b(See)31 b(13,)g(b)s(elo)m(w.)506 3224 y Fl(\017)46 b +FA(Deco)s(ding)31 b(will)c(in)i(all)h(cases)h(terminate)f(if)g(end)f +(of)i(string)e(is)h(reac)m(hed.)311 3375 y(6.)46 b(Both)31 +b(signs)f(are)g(optional.)40 b(The)30 b(default)g(is)f(+.)311 +3526 y(7.)46 b(The)30 b(man)m(tissa)g Fi(n:n)g FA(defaults)g(to)h(unit) +m(y)-8 b(.)311 3677 y(8.)46 b(The)30 b(exp)s(onen)m(t)h +Fi(x)5 b Fl(\006)g Fi(n)29 b FA(defaults)h(to)h(`E0'.)311 +3828 y(9.)46 b(The)30 b(strings)f(of)i(decimal)e(digits)g(ma)m(y)i(b)s +(e)f(of)g(an)m(y)h(length.)266 3979 y(10.)46 b(The)30 +b(decimal)f(p)s(oin)m(t)h(is)f(optional)h(for)g(whole)g(n)m(um)m(b)s +(ers.)266 4130 y(11.)46 b(A)28 b Fn(nul)5 b(l)30 b(r)-5 +b(esult)37 b FA(o)s(ccurs)28 b(when)e(the)i(string)f(of)h(c)m +(haracters)h(b)s(eing)d(deco)s(ded)h(do)s(es)h(not)g(b)s(egin)e(with) +427 4243 y(+,)p Fl(\000)p FA(,0-9,.,D)44 b(or)d(E,)g(or)g(consists)g +(en)m(tirely)f(of)h(spaces.)74 b(When)41 b(this)f(condition)g(is)g +(detected,)427 4356 y(JFLA)m(G)31 b(is)f(set)h(to)g(1)g(and)e(RESL)-8 +b(T)30 b(is)f(left)h(un)m(touc)m(hed.)266 4507 y(12.)46 +b(NSTR)-8 b(T)30 b(=)g(1)h(for)f(the)g(\014rst)g(c)m(haracter)i(in)d +(the)i(string.)266 4658 y(13.)46 b(On)20 b(return)g(from)g(sla)p +Fq(_)p FA(FLOTIN,)f(NSTR)-8 b(T)20 b(is)g(set)h(ready)g(for)f(the)h +(next)f(deco)s(de)h({)g(follo)m(wing)e(trail-)427 4771 +y(ing)31 b(blanks)g(and)g(an)m(y)h(comma.)47 b(If)31 +b(a)i(delimiter)c(other)j(than)g(comma)h(is)e(b)s(eing)f(used,)i(NSTR) +-8 b(T)427 4884 y(m)m(ust)35 b(b)s(e)f(incremen)m(ted)g(b)s(efore)h +(the)g(next)g(call)f(to)h(sla)p Fq(_)p FA(FLOTIN,)f(otherwise)g(all)g +(subsequen)m(t)427 4997 y(calls)c(will)e(return)h(a)i(n)m(ull)d +(result.)266 5148 y(14.)46 b(Errors)30 b(\(JFLA)m(G=2\))i(o)s(ccur)e +(when:)506 5299 y Fl(\017)46 b FA(a)31 b(+,)f Fl(\000)p +FA(,)h(D)f(or)h(E)f(is)f(left)h(unsatis\014ed;)f(or)506 +5430 y Fl(\017)46 b FA(the)30 b(decimal)e(p)s(oin)m(t)h(is)f(presen)m +(t)i(without)f(at)h(least)g(one)f(decimal)g(digit)f(b)s(efore)h(or)h +(after)g(it;)597 5543 y(or)506 5675 y Fl(\017)46 b FA(an)31 +b(exp)s(onen)m(t)f(more)g(than)h(100)g(has)f(b)s(een)g(presen)m(ted.)p +eop +%%Page: 80 82 +80 81 bop 0 52 a FA(80)266 351 y(15.)46 b(When)31 b(an)f(error)h(has)f +(b)s(een)g(detected,)j(NSTR)-8 b(T)30 b(is)g(left)g(p)s(oin)m(ting)f +(to)j(the)f(c)m(haracter)h(follo)m(wing)427 464 y(the)41 +b(last)g(one)g(used)g(b)s(efore)f(the)h(error)g(came)h(to)f(ligh)m(t.) +72 b(This)39 b(ma)m(y)j(b)s(e)e(after)i(the)f(p)s(oin)m(t)f(at)427 +577 y(whic)m(h)g(a)h(more)f(sophisticated)g(program)h(could)e(ha)m(v)m +(e)j(detected)g(the)f(error.)71 b(F)-8 b(or)42 b(example,)427 +690 y(sla)p Fq(_)p FA(FLOTIN)26 b(do)s(es)i(not)f(detect)i(that)f +(`1E999')i(is)c(unacceptable)i(\(on)f(a)h(computer)g(where)f(this)427 +803 y(is)j(so\))h(un)m(til)d(the)j(en)m(tire)f(n)m(um)m(b)s(er)f(has)h +(b)s(een)g(deco)s(ded.)266 947 y(16.)46 b(Certain)28 +b(highly)f(unlik)m(ely)g(com)m(binations)h(of)h(man)m(tissa)g(and)f +(exp)s(onen)m(t)h(can)h(cause)f(arithmetic)427 1060 y(faults)j(during)e +(the)i(deco)s(de,)i(in)d(some)i(cases)g(despite)e(the)i(fact)g(that)g +(they)g(together)h(could)d(b)s(e)427 1173 y(construed)f(as)h(a)g(v)-5 +b(alid)28 b(n)m(um)m(b)s(er.)266 1317 y(17.)46 b(Deco)s(ding)31 +b(is)e(left)h(to)h(righ)m(t,)f(one)h(pass.)266 1461 y(18.)46 +b(See)31 b(also)f(sla)p Fq(_)p FA(DFL)-8 b(TIN)31 b(and)e(sla)p +Fq(_)p FA(INTIN.)p 0 1578 3780 8 v 0 1691 a Fu(SLA)p +Fk(_)p Fu(GALEQ)530 b Fj(Galactic)37 b(to)h(J2000)f Fd(\013)q(;)20 +b(\016)537 b Fu(SLA)p Fk(_)p Fu(GALEQ)0 2041 y Fy(A)m(CTION)44 +b FA(:)62 b(T)-8 b(ransformation)40 b(from)h(IA)m(U)g(1958)i(galactic)f +(co)s(ordinates)f(to)h(J2000.0)h(FK5)f(equatorial)227 +2154 y(co)s(ordinates.)0 2342 y Fy(CALL)j FA(:)77 b Fq(CALL)46 +b(sla_GALEQ)g(\(DL,)g(DB,)h(DR,)g(DD\))0 2683 y Fy(GIVEN)e +FA(:)277 2855 y Fn(DL,DB)449 b Fy(D)565 b FA(galactic)31 +b(longitude)e(and)h(latitude)g([)15 b Fi(l)2975 2822 +y Fc(I)-7 b(I)3039 2855 y Fi(;)15 b(b)3118 2822 y Fc(I)-7 +b(I)3197 2855 y FA(])0 3202 y Fy(RETURNED)46 b FA(:)277 +3373 y Fn(DR,DD)435 b Fy(D)565 b FA(J2000.0)33 b([)15 +b Fi(\013;)g(\016)20 b FA(])0 3721 y Fy(NOTES)44 b FA(:)311 +3906 y(1.)i(All)29 b(argumen)m(ts)i(are)g(in)e(radians.)311 +4050 y(2.)46 b(The)29 b(equatorial)f(co)s(ordinates)h(are)g(J2000.0)i +(FK5.)40 b(Use)29 b(the)g(routine)f(sla)p Fq(_)p FA(GE50)h(if)f(con)m +(v)m(ersion)427 4163 y(to)j(B1950.0)j(FK4)c(co)s(ordinates)g(is)g +(required.)p 0 4289 V 0 4402 a Fu(SLA)p Fk(_)p Fu(GALSUP)365 +b Fj(Galactic)36 b(to)j(Sup)s(ergalactic)364 b Fu(SLA)p +Fk(_)p Fu(GALSUP)0 4753 y Fy(A)m(CTION)44 b FA(:)39 b(T)-8 +b(ransformation)26 b(from)h(IA)m(U)h(1958)h(galactic)f(co)s(ordinates)f +(to)h(de)f(V)-8 b(aucouleurs)27 b(sup)s(ergalac-)227 +4866 y(tic)k(co)s(ordinates.)0 5053 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_GALSUP)f(\(DL,)i(DB,)g(DSL,)g(DSB\))0 +5394 y Fy(GIVEN)e FA(:)277 5566 y Fn(DL,DB)449 b Fy(D)565 +b FA(galactic)29 b(longitude)e(and)h(latitude)f([)15 +b Fi(l)2966 5533 y Fc(I)-7 b(I)3030 5566 y Fi(;)15 b(b)3109 +5533 y Fc(I)-7 b(I)3189 5566 y FA(])28 b(\(radians\))p +eop +%%Page: 81 83 +81 82 bop 0 52 a Ft(SUN/67.45)3252 b FA(81)0 351 y Fy(RETURNED)46 +b FA(:)277 523 y Fn(DSL,DSB)347 b Fy(D)565 b FA(sup)s(ergalactic)30 +b(longitude)f(and)h(latitude)f(\(radians\))0 877 y Fy(REFERENCES)44 +b FA(:)311 1063 y(1.)i(de)41 b(V)-8 b(aucouleurs,)42 +b(de)f(V)-8 b(aucouleurs,)43 b(&)d(Corwin,)h Fn(Se)-5 +b(c)g(ond)43 b(R)-5 b(efer)g(enc)g(e)43 b(Catalo)-5 b(gue)44 +b(of)e(Bright)427 1176 y(Galaxies)p FA(,)32 b(U.T)-8 +b(exas,)32 b(p8.)311 1321 y(2.)46 b(Systems)31 b(&)h(Applied)d +(Sciences)i(Corp.,)g(do)s(cumen)m(tation)h(for)f(the)h(mac)m +(hine-readable)f(v)m(ersion)427 1434 y(of)g(the)f(ab)s(o)m(v)m(e)i +(catalogue,)g(Con)m(tract)g(NAS)e(5-26490.)227 1620 y(\(These)k(t)m(w)m +(o)h(references)g(giv)m(e)f(di\013eren)m(t)f(v)-5 b(alues)33 +b(for)h(the)g(galactic)h(longitude)d(of)i(the)g(sup)s(ergalactic)227 +1733 y(origin.)39 b(Both)31 b(are)g(wrong;)f(the)h(correct)h(v)-5 +b(alue)29 b(is)h Fi(l)2012 1700 y Fc(I)-7 b(I)2101 1733 +y FA(=)25 b(137)p Fi(:)p FA(37.\))p 0 1868 3780 8 v 0 +1981 a Fu(SLA)p Fk(_)p Fu(GE50)669 b Fj(Galactic)36 b(to)j(B1950)e +Fd(\013)q(;)20 b(\016)673 b Fu(SLA)p Fk(_)p Fu(GE50)0 +2331 y Fy(A)m(CTION)44 b FA(:)59 b(T)-8 b(ransformation)38 +b(from)h(IA)m(U)h(1958)i(galactic)e(co)s(ordinates)f(to)i(B1950.0)h +(FK4)e(equatorial)227 2444 y(co)s(ordinates.)0 2631 y +Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_GE50)g(\(DL,)h(DB,)f(DR,)h +(DD\))0 2976 y Fy(GIVEN)e FA(:)277 3148 y Fn(DL,DB)449 +b Fy(D)565 b FA(galactic)31 b(longitude)e(and)h(latitude)g([)15 +b Fi(l)2975 3115 y Fc(I)-7 b(I)3039 3148 y Fi(;)15 b(b)3118 +3115 y Fc(I)-7 b(I)3197 3148 y FA(])0 3502 y Fy(RETURNED)46 +b FA(:)277 3674 y Fn(DR,DD)435 b Fy(D)565 b FA(B1950.0)33 +b([)15 b Fi(\013;)g(\016)21 b FA(])0 4027 y Fy(NOTES)44 +b FA(:)311 4214 y(1.)i(All)29 b(argumen)m(ts)i(are)g(in)e(radians.)311 +4359 y(2.)46 b(The)29 b(equatorial)g(co)s(ordinates)g(are)g(B1950.0)j +(FK4.)41 b(Use)30 b(the)f(routine)f(sla)p Fq(_)p FA(GALEQ)h(if)f(con)m +(v)m(er-)427 4472 y(sion)i(to)h(J2000.0)h(FK5)f(co)s(ordinates)f(is)g +(required.)0 4826 y Fy(REFERENCE)44 b FA(:)d(Blaau)m(w)30 +b Fn(et)j(al.)p FA(,)e(1960,)h Fn(Mon.Not.R.astr.So)-5 +b(c.)p FA(,)33 b Fy(121)p FA(,)e(123.)p 0 4955 V 0 5068 +a Fu(SLA)p Fk(_)p Fu(GEOC)587 b Fj(Geo)s(detic)38 b(to)g(Geo)s(cen)m +(tric)586 b Fu(SLA)p Fk(_)p Fu(GEOC)0 5418 y Fy(A)m(CTION)44 +b FA(:)c(Con)m(v)m(ert)32 b(geo)s(detic)f(p)s(osition)d(to)j(geo)s(cen) +m(tric.)0 5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_GEOC)g(\(P,)h +(H,)g(R,)g(Z\))p eop +%%Page: 82 84 +82 83 bop 0 52 a FA(82)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(P)674 b Fy(D)565 b FA(latitude)30 b(\(geo)s(detic,)h +(radians\))277 610 y Fn(H)668 b Fy(D)565 b FA(heigh)m(t)31 +b(ab)s(o)m(v)m(e)i(reference)f(spheroid)d(\(geo)s(detic,)k(metres\))0 +1060 y Fy(RETURNED)46 b FA(:)277 1206 y Fn(R)670 b Fy(D)565 +b FA(distance)30 b(from)g(Earth)g(axis)g(\(A)m(U\))277 +1319 y Fn(Z)680 b Fy(D)565 b FA(distance)30 b(from)g(plane)g(of)g +(Earth)g(equator)h(\(A)m(U\))0 1656 y Fy(NOTES)44 b FA(:)311 +1841 y(1.)i(Geo)s(cen)m(tric)32 b(latitude)d(can)i(b)s(e)e(obtained)h +(b)m(y)g(ev)-5 b(aluating)30 b Fq(ATAN2\(Z,R\))p FA(.)311 +1985 y(2.)46 b(IA)m(U)31 b(1976)h(constan)m(ts)g(are)f(used.)0 +2330 y Fy(REFERENCE)44 b FA(:)d(Green,)31 b(R.M.,)g(1985.)h +Fn(Spheric)-5 b(al)35 b(Astr)-5 b(onomy)p FA(,)32 b(Cam)m(bridge)e(U.P) +-8 b(.,)31 b(p98.)p 0 2456 3780 8 v 0 2569 a Fu(SLA)p +Fk(_)p Fu(GMST)815 b Fj(UT)39 b(to)f(GMST)817 b Fu(SLA)p +Fk(_)p Fu(GMST)0 2919 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ersion)30 +b(from)g(univ)m(ersal)f(time)h(UT1)h(to)g(Green)m(wic)m(h)f(mean)g +(sidereal)f(time.)0 3107 y Fy(CALL)45 b FA(:)77 b Fq(D)47 +b(=)h(sla_GMST)d(\(UT1\))0 3443 y Fy(GIVEN)g FA(:)277 +3589 y Fn(UT1)557 b Fy(D)565 b FA(univ)m(ersal)21 b(time)i(\(strictly)g +(UT1\))g(expressed)g(as)g(mo)s(di\014ed)1658 3702 y(Julian)28 +b(Date)k(\(JD)p Fl(\000)p FA(2400000.5\))0 4039 y Fy(RETURNED)46 +b FA(:)277 4211 y Fn(sla)p Fq(_)p Fn(GMST)314 b Fy(D)565 +b FA(Green)m(wic)m(h)30 b(mean)h(sidereal)e(time)h(\(radians\))0 +4556 y Fy(NOTES)44 b FA(:)311 4741 y(1.)i(The)31 b(IA)m(U)i(1982)g +(expression)e(\(see)h(page)h(S15)f(of)g(the)g(1984)h +Fn(Astr)-5 b(onomic)g(al)37 b(A)n(lmanac)p FA(\))32 b(is)f(used,)427 +4854 y(but)41 b(rearranged)g(to)h(reduce)f(rounding)e(errors.)73 +b(This)39 b(expression)h(is)g(alw)m(a)m(ys)i(describ)s(ed)d(as)427 +4967 y(giving)d(the)h(GMST)g(at)g(0)1337 4934 y Fr(h)1381 +4967 y FA(UT;)g(in)e(fact,)40 b(it)c(giv)m(es)i(the)f(di\013erence)f(b) +s(et)m(w)m(een)h(the)g(GMST)g(and)427 5080 y(the)g(UT,)g(whic)m(h)e +(happ)s(ens)g(to)i(equal)f(the)h(GMST)g(\(mo)s(dulo)e(24)i(hours\))f +(at)h(0)3195 5047 y Fr(h)3239 5080 y FA(UT)g(eac)m(h)g(da)m(y)-8 +b(.)427 5193 y(In)33 b(sla)p Fq(_)p FA(GMST,)g(the)g(en)m(tire)h(UT)f +(is)f(used)h(directly)f(as)i(the)g(argumen)m(t)f(for)h(the)f(canonical) +g(for-)427 5306 y(m)m(ula,)42 b(and)d(the)h(fractional)f(part)h(of)g +(the)g(UT)f(is)g(added)g(separately;)45 b(note)40 b(that)h(the)e +(factor)427 5419 y(1)p Fi(:)p FA(0027379)15 b Fl(\001)g(\001)g(\001)36 +b FA(do)s(es)30 b(not)g(app)s(ear.)311 5562 y(2.)46 b(See)40 +b(also)f(the)h(routine)e(sla)p Fq(_)p FA(GMST)-8 b(A,)39 +b(whic)m(h)f(deliv)m(ers)g(b)s(etter)i(n)m(umerical)e(precision)f(b)m +(y)i(ac-)427 5675 y(cepting)30 b(the)h(UT)f(date)h(and)f(time)g(as)h +(separate)g(argumen)m(ts.)p eop +%%Page: 83 85 +83 84 bop 0 52 a Ft(SUN/67.45)3252 b FA(83)p 0 267 3780 +8 v 0 380 a Fu(SLA)p Fk(_)p Fu(GMST)-11 b(A)283 b Fj(UT)39 +b(to)f(GMST)g(\(extra)f(precision\))285 b Fu(SLA)p Fk(_)p +Fu(GMST)-11 b(A)0 730 y Fy(A)m(CTION)44 b FA(:)37 b(Con)m(v)m(ersion)23 +b(from)g(univ)m(ersal)f(time)h(UT1)h(to)g(Green)m(wic)m(h)f(Mean)h +(sidereal)f(time,)h(with)f(round-)227 843 y(ing)30 b(errors)g +(minimized.)0 1031 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_GMSTA)d +(\(DATE,)h(UT1\))0 1398 y Fy(GIVEN)f FA(:)277 1544 y +Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(UT1)30 b(date)h(as)f(Mo)s +(di\014ed)e(Julian)g(Date)j(\(in)m(teger)g(part)f(of)1658 +1657 y(JD)p Fl(\000)p FA(2400000.5\))277 1770 y Fn(UT1)557 +b Fy(D)565 b FA(UT1)31 b(time)f(\(fraction)g(of)h(a)g(da)m(y\))0 +2153 y Fy(RETURNED)46 b FA(:)277 2325 y Fn(sla)p Fq(_)p +Fn(GMST)314 b Fy(D)565 b FA(Green)m(wic)m(h)30 b(mean)h(sidereal)e +(time)h(\(radians\))0 2716 y Fy(NOTES)44 b FA(:)311 2915 +y(1.)i(The)38 b(algorithm)g(is)f(deriv)m(ed)h(from)g(the)h(IA)m(U)g +(1982)h(expression)e(\(see)h(page)g(S15)g(of)g(the)g(1984)427 +3028 y(Astronomical)30 b(Almanac\).)311 3180 y(2.)46 +b(There)34 b(is)f(no)h(restriction)f(on)h(ho)m(w)g(the)g(UT)g(is)f(app) +s(ortioned)g(b)s(et)m(w)m(een)h(the)h(D)m(A)-8 b(TE)35 +b(and)e(UT1)427 3293 y(argumen)m(ts.)53 b(Either)33 b(of)h(the)g(t)m(w) +m(o)i(argumen)m(ts)e(could,)g(for)g(example,)h(b)s(e)f(zero)h(and)e +(the)i(en)m(tire)427 3406 y(date)16 b(+)f(time)32 b(supplied)d(in)i +(the)h(other.)47 b(Ho)m(w)m(ev)m(er,)35 b(the)d(routine)f(is)h +(designed)f(to)i(deliv)m(er)e(maxi-)427 3519 y(m)m(um)e(accuracy)h +(when)e(the)i(D)m(A)-8 b(TE)30 b(argumen)m(t)g(is)e(a)h(whole)g(n)m(um) +m(b)s(er)f(and)g(the)i(UT1)f(argumen)m(t)427 3632 y(lies)g(in)g(the)i +(range)g([)15 b(0)p Fi(;)31 b FA(1)15 b(],)32 b(or)e +Fn(vic)-5 b(e)32 b(versa)p FA(.)311 3784 y(3.)46 b(See)32 +b(also)f(the)g(routine)g(sla)p Fq(_)p FA(GMST,)f(whic)m(h)g(accepts)j +(the)e(UT1)h(as)f(a)h(single)e(argumen)m(t.)43 b(Com-)427 +3897 y(pared)26 b(with)f(sla)p Fq(_)p FA(GMST,)h(the)h(extra)g(n)m +(umerical)e(precision)g(deliv)m(ered)g(b)m(y)h(the)h(presen)m(t)f +(routine)427 4010 y(is)35 b(unlik)m(ely)e(to)j(b)s(e)f(imp)s(ortan)m(t) +g(in)f(an)i(absolute)f(sense,)i(but)e(ma)m(y)h(b)s(e)f(useful)f(when)g +(critically)427 4122 y(comparing)27 b(algorithms)f(and)g(in)g +(applications)f(where)i(t)m(w)m(o)i(sidereal)c(times)i(close)g +(together)i(are)427 4235 y(di\013erenced.)p 0 4362 V +0 4475 a Fu(SLA)p Fk(_)p Fu(GRESID)577 b Fj(Gaussian)38 +b(Residual)578 b Fu(SLA)p Fk(_)p Fu(GRESID)0 4825 y Fy(A)m(CTION)44 +b FA(:)c(Generate)32 b(pseudo-random)d(normal)h(deviate)g(or)h +Fn(Gaussian)j(r)-5 b(esidual)p FA(.)0 5013 y Fy(CALL)45 +b FA(:)77 b Fq(R)47 b(=)h(sla_GRESID)d(\(S\))0 5376 y +Fy(GIVEN)g FA(:)277 5548 y Fn(S)685 b Fy(R)567 b FA(standard)30 +b(deviation)p eop +%%Page: 84 86 +84 85 bop 0 52 a FA(84)0 351 y Fy(NOTES)44 b FA(:)311 +545 y(1.)i(The)28 b(results)f(of)h(man)m(y)g(calls)f(to)i(this)e +(routine)g(will)e(b)s(e)j(normally)e(distributed)f(with)i(mean)h(zero) +427 658 y(and)i(standard)g(deviation)f(S.)311 807 y(2.)46 +b(The)30 b(Bo)m(x-Muller)g(algorithm)g(is)f(used.)311 +956 y(3.)46 b(The)30 b(implemen)m(tation)f(is)h(mac)m(hine-dep)s(enden) +m(t.)0 1333 y Fy(REFERENCE)44 b FA(:)d(Ahrens)29 b(&)h(Dieter,)h(1972.) +i Fn(Comm.A.C.M.)d Fy(15)p FA(,)h(873.)p 0 1472 3780 +8 v 0 1585 a Fu(SLA)p Fk(_)p Fu(H2E)988 b Fj(Az,El)38 +b(to)g Fd(h;)20 b(\016)993 b Fu(SLA)p Fk(_)p Fu(H2E)0 +1935 y Fy(A)m(CTION)44 b FA(:)c(Horizon)31 b(to)g(equatorial)f(co)s +(ordinates)g(\(single)f(precision\).)0 2123 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_H2E)g(\(AZ,)h(EL,)g(PHI,)f(HA,)h(DEC\))0 +2482 y Fy(GIVEN)e FA(:)277 2628 y Fn(AZ)612 b Fy(R)567 +b FA(azim)m(uth)30 b(\(radians\))277 2741 y Fn(EL)617 +b Fy(R)567 b FA(elev)-5 b(ation)30 b(\(radians\))277 +2854 y Fn(PHI)571 b Fy(R)c FA(latitude)30 b(\(radians\))0 +3222 y Fy(RETURNED)46 b FA(:)277 3369 y Fn(HA)600 b Fy(R)567 +b FA(hour)30 b(angle)g(\(radians\))277 3481 y Fn(DEC)540 +b Fy(R)567 b FA(declination)29 b(\(radians\))0 3850 y +Fy(NOTES)44 b FA(:)311 4044 y(1.)i(The)30 b(sign)g(con)m(v)m(en)m(tion) +h(for)f(azim)m(uth)g(is)g(north)f(zero,)j(east)f(+)p +Fi(\031)s(=)p FA(2.)311 4193 y(2.)46 b(HA)31 b(is)e(returned)h(in)f +(the)h(range)h Fl(\006)p Fi(\031)s FA(.)40 b(Declination)30 +b(is)f(returned)h(in)f(the)h(range)h Fl(\006)p Fi(\031)s +FA(.)311 4342 y(3.)46 b(The)33 b(latitude)g(is)f(\(in)h(principle\))d +(geo)s(detic.)51 b(In)33 b(critical)f(applications,)h(corrections)g +(for)h(p)s(olar)427 4455 y(motion)c(should)f(b)s(e)g(applied)g(\(see)i +(sla)p Fq(_)p FA(POLMO\).)311 4604 y(4.)46 b(In)34 b(some)g +(applications)e(it)i(will)d(b)s(e)j(imp)s(ortan)m(t)f(to)i(sp)s(ecify)e +(the)h(correct)h(t)m(yp)s(e)f(of)h(elev)-5 b(ation)34 +b(in)427 4717 y(order)42 b(to)h(pro)s(duce)f(the)g(required)f(t)m(yp)s +(e)h(of)h([)15 b Fi(h;)g(\016)20 b FA(].)77 b(In)42 b(particular,)i(it) +e(ma)m(y)h(b)s(e)e(imp)s(ortan)m(t)427 4830 y(to)f(distinguish)35 +b(b)s(et)m(w)m(een)k(the)g(elev)-5 b(ation)39 b(as)g(a\013ected)h(b)m +(y)f(refraction,)i(whic)m(h)c(will)f(yield)h(the)427 +4943 y Fn(observe)-5 b(d)32 b FA([)15 b Fi(h;)g(\016)20 +b FA(],)31 b(and)e(the)i(elev)-5 b(ation)30 b Fn(in)j(vacuo)p +FA(,)e(whic)m(h)e(will)f(yield)g(the)j Fn(top)-5 b(o)g(c)g(entric)33 +b FA([)15 b Fi(h;)g(\016)20 b FA(].)41 b(If)427 5056 +y(the)28 b(e\013ects)h(of)f(diurnal)d(ab)s(erration)i(can)h(b)s(e)f +(neglected,)i(the)f(top)s(o)s(cen)m(tric)g([)15 b Fi(h;)g(\016)20 +b FA(])28 b(ma)m(y)g(b)s(e)f(used)427 5169 y(as)k(an)f(appro)m +(ximation)f(to)j(the)e Fn(app)-5 b(ar)g(ent)33 b FA([)15 +b Fi(h;)g(\016)21 b FA(].)311 5318 y(5.)46 b(No)31 b(range)g(c)m(hec)m +(king)g(of)g(argumen)m(ts)f(is)g(carried)f(out.)311 5467 +y(6.)46 b(In)28 b(applications)e(whic)m(h)i(in)m(v)m(olv)m(e)g(man)m(y) +h(suc)m(h)f(calculations,)g(rather)g(than)g(calling)f(the)h(presen)m(t) +427 5580 y(routine)i(it)g(will)e(b)s(e)i(more)g(e\016cien)m(t)h(to)h +(use)e(inline)d(co)s(de,)k(ha)m(ving)g(previously)d(computed)i(\014xed) +427 5693 y(terms)h(suc)m(h)f(as)g(sine)g(and)f(cosine)h(of)h(latitude.) +p eop +%%Page: 85 87 +85 86 bop 0 52 a Ft(SUN/67.45)3252 b FA(85)p 0 267 3780 +8 v 0 380 a Fu(SLA)p Fk(_)p Fu(H2FK5)681 b Fj(Hipparcos)37 +b(to)h(FK5)682 b Fu(SLA)p Fk(_)p Fu(H2FK5)0 730 y Fy(A)m(CTION)44 +b FA(:)63 b(T)-8 b(ransform)41 b(a)i(Hipparcos)e(star)h(p)s(osition)e +(and)h(prop)s(er)f(motion)i(in)m(to)g(the)g(FK5)g(\(J2000\))227 +843 y(frame.)0 1031 y Fy(CALL)j FA(:)77 b Fq(CALL)46 +b(sla_H2FK5)g(\(RH,DH,DRH,DDH,R5,D5,DR)o(5,DD)o(5\))0 +1375 y Fy(GIVEN)f FA(:)277 1521 y Fn(RH)602 b Fy(D)565 +b FA(Hipparcos)30 b Fi(\013)g FA(\(radians\))277 1634 +y Fn(DH)599 b Fy(D)565 b FA(Hipparcos)30 b Fi(\016)k +FA(\(radians\))277 1747 y Fn(DRH)533 b Fy(D)565 b FA(Hipparcos)33 +b(prop)s(er)f(motion)h(in)f Fi(\013)i FA(\(radians)e(p)s(er)g(Julian) +1658 1860 y(y)m(ear\))277 1973 y Fn(DDH)530 b Fy(D)565 +b FA(Hipparcos)35 b(prop)s(er)f(motion)h(in)f Fi(\016)40 +b FA(\(radians)34 b(p)s(er)g(Julian)1658 2086 y(y)m(ear\))0 +2431 y Fy(RETURNED)46 b FA(:)277 2577 y Fn(R5)624 b Fy(D)565 +b FA(J2000.0)33 b(FK5)e Fi(\013)f FA(\(radians\))277 +2690 y Fn(D5)621 b Fy(D)565 b FA(J2000.0)33 b(FK5)e Fi(\016)j +FA(\(radians\))277 2803 y Fn(DR5)555 b Fy(D)565 b FA(J2000.0)36 +b(FK5)f(prop)s(er)e(motion)g(in)g Fi(\013)i FA(\(radians)e(p)s(er)g +(Ju-)1658 2916 y(lian)c(y)m(ear\))277 3028 y Fn(DD5)552 +b Fy(D)565 b FA(FK5)22 b(J2000.0)i(prop)s(er)19 b(motion)j(in)e +Fi(\016)25 b FA(\(radians)20 b(p)s(er)g(Julian)1658 3141 +y(y)m(ear\))0 3486 y Fy(NOTES)44 b FA(:)311 3672 y(1.)i(The)37 +b Fi(\013)h FA(prop)s(er)e(motions)h(are)57 b(_)-45 b +Fi(\013)38 b FA(rather)f(than)57 b(_)-44 b Fi(\013)15 +b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear)i(rather)f +(than)g(p)s(er)427 3785 y(cen)m(tury)-8 b(.)311 3930 +y(2.)46 b(The)41 b(FK5)g(to)g(Hipparcos)f(transformation)g(consists)g +(of)h(a)g(pure)f(rotation)h(and)f(spin;)k(zonal)427 4043 +y(errors)30 b(in)f(the)i(FK5)g(catalogue)h(are)e(not)h(tak)m(en)g(in)m +(to)g(accoun)m(t.)311 4188 y(3.)46 b(The)c(adopted)h(ep)s(o)s(c)m(h)g +(J2000.0)h(FK5)g(to)f(Hipparcos)f(orien)m(tation)g(and)g(spin)f(v)-5 +b(alues)42 b(are)h(as)427 4301 y(follo)m(ws)30 b(\(see)h(reference\):)p +821 4430 1115 4 v 819 4542 4 113 v 971 4542 V 971 4542 +V 1023 4509 a Fn(orientation)p 1509 4542 V 199 w(spin)p +1934 4542 V 821 4546 1115 4 v 819 4659 4 113 v 871 4625 +a Fi(x)p 971 4659 V 184 w Fl(\000)p FA(19)p Fi(:)p FA(9)p +1509 4659 V 254 w Fl(\000)p FA(0)p Fi(:)p FA(30)p 1934 +4659 V 819 4772 V 875 4738 a Fi(y)p 971 4772 V 232 w +Fl(\000)p FA(9)p Fi(:)p FA(1)p 1509 4772 V 254 w(+0)p +Fi(:)p FA(60)p 1934 4772 V 819 4884 V 877 4851 a Fi(z)p +971 4884 V 188 w FA(+22)p Fi(:)p FA(9)p 1509 4884 V 254 +w(+0)p Fi(:)p FA(70)p 1934 4884 V 821 4888 1115 4 v 819 +5001 4 113 v 971 5001 V 1151 4967 a Fn(mas)p 1509 5001 +V 299 w(mas/y)p 1934 5001 V 821 5004 1115 4 v 427 5209 +a FA(These)40 b(orien)m(tation)h(and)e(spin)f(comp)s(onen)m(ts)j(are)g +(in)m(terpreted)e(as)i Fn(axial)h(ve)-5 b(ctors.)71 b +FA(An)40 b(axial)427 5322 y(v)m(ector)35 b(p)s(oin)m(ts)d(at)i(the)g(p) +s(ole)e(of)i(the)f(rotation)h(and)f(its)f(length)h(is)f(the)i(amoun)m +(t)g(of)f(rotation)h(in)427 5435 y(radians.)311 5580 +y(4.)46 b(See)31 b(also)f(sla)p Fq(_)p FA(FK52H,)h(sla)p +Fq(_)p FA(FK5HZ,)f(sla)p Fq(_)p FA(HFK5Z.)p eop +%%Page: 86 88 +86 87 bop 0 52 a FA(86)0 351 y Fy(REFERENCE)44 b FA(:)d(F)-8 +b(eissel,)30 b(M.)h(&)f(Mignard,)g(F.,)h(1998.,)h Fn(Astr)-5 +b(on.Astr)g(ophys.)34 b Fy(331)p FA(,)d(L33-L36.)p 0 +469 3780 8 v 0 582 a Fu(SLA)p Fk(_)p Fu(HFK5Z)428 b Fj(Hipparcos)37 +b(to)h(FK5,)h(no)f(P)-10 b(.M.)428 b Fu(SLA)p Fk(_)p +Fu(HFK5Z)0 932 y Fy(A)m(CTION)44 b FA(:)53 b(T)-8 b(ransform)36 +b(a)h(Hipparcos)f(star)h(p)s(osition)e(in)m(to)i(the)g(FK5)g(\(J2000\)) +i(frame)d(assuming)g(zero)227 1045 y(Hipparcos)30 b(prop)s(er)f +(motion.)0 1232 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_HFK5Z)g +(\(RH,DH,EPOCH,R5,D5,DR5,)o(DD5\))0 1562 y Fy(GIVEN)f +FA(:)277 1708 y Fn(RH)602 b Fy(D)565 b FA(Hipparcos)30 +b Fi(\013)g FA(\(radians\))277 1821 y Fn(DH)599 b Fy(D)565 +b FA(Hipparcos)30 b Fi(\016)k FA(\(radians\))277 1934 +y Fn(EPOCH)409 b Fy(D)565 b FA(Julian)28 b(ep)s(o)s(c)m(h)i(\(TDB\))0 +2252 y Fy(RETURNED)46 b FA(:)277 2398 y Fn(R5)624 b Fy(D)565 +b FA(J2000.0)33 b(FK5)e Fi(\013)f FA(\(radians\))277 +2510 y Fn(D5)621 b Fy(D)565 b FA(J2000.0)33 b(FK5)e Fi(\016)j +FA(\(radians\))277 2623 y Fn(DR5)555 b Fy(D)565 b FA(J2000.0)36 +b(FK5)f(prop)s(er)e(motion)g(in)g Fi(\013)i FA(\(radians)e(p)s(er)g +(Ju-)1658 2736 y(lian)c(y)m(ear\))277 2849 y Fn(DD5)552 +b Fy(D)565 b FA(FK5)22 b(J2000.0)i(prop)s(er)19 b(motion)j(in)e +Fi(\016)25 b FA(\(radians)20 b(p)s(er)g(Julian)1658 2962 +y(y)m(ear\))0 3280 y Fy(NOTES)44 b FA(:)311 3463 y(1.)i(The)37 +b Fi(\013)h FA(prop)s(er)e(motions)h(are)57 b(_)-45 b +Fi(\013)38 b FA(rather)f(than)57 b(_)-44 b Fi(\013)15 +b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear)i(rather)f +(than)g(p)s(er)427 3575 y(cen)m(tury)-8 b(.)311 3716 +y(2.)46 b(The)41 b(FK5)g(to)g(Hipparcos)f(transformation)g(consists)g +(of)h(a)g(pure)f(rotation)h(and)f(spin;)k(zonal)427 3829 +y(errors)30 b(in)f(the)i(FK5)g(catalogue)h(are)e(not)h(tak)m(en)g(in)m +(to)g(accoun)m(t.)311 3970 y(3.)46 b(The)c(adopted)h(ep)s(o)s(c)m(h)g +(J2000.0)h(FK5)g(to)f(Hipparcos)f(orien)m(tation)g(and)g(spin)f(v)-5 +b(alues)42 b(are)h(as)427 4083 y(follo)m(ws)30 b(\(see)h(reference\):)p +821 4210 1115 4 v 819 4323 4 113 v 971 4323 V 971 4323 +V 1023 4289 a Fn(orientation)p 1509 4323 V 199 w(spin)p +1934 4323 V 821 4326 1115 4 v 819 4439 4 113 v 871 4405 +a Fi(x)p 971 4439 V 184 w Fl(\000)p FA(19)p Fi(:)p FA(9)p +1509 4439 V 254 w Fl(\000)p FA(0)p Fi(:)p FA(30)p 1934 +4439 V 819 4552 V 875 4518 a Fi(y)p 971 4552 V 232 w +Fl(\000)p FA(9)p Fi(:)p FA(1)p 1509 4552 V 254 w(+0)p +Fi(:)p FA(60)p 1934 4552 V 819 4665 V 877 4631 a Fi(z)p +971 4665 V 188 w FA(+22)p Fi(:)p FA(9)p 1509 4665 V 254 +w(+0)p Fi(:)p FA(70)p 1934 4665 V 821 4668 1115 4 v 819 +4781 4 113 v 971 4781 V 1151 4747 a Fn(mas)p 1509 4781 +V 299 w(mas/y)p 1934 4781 V 821 4785 1115 4 v 427 4987 +a FA(These)40 b(orien)m(tation)h(and)e(spin)f(comp)s(onen)m(ts)j(are)g +(in)m(terpreted)e(as)i Fn(axial)h(ve)-5 b(ctors.)71 b +FA(An)40 b(axial)427 5100 y(v)m(ector)35 b(p)s(oin)m(ts)d(at)i(the)g(p) +s(ole)e(of)i(the)f(rotation)h(and)f(its)f(length)h(is)f(the)i(amoun)m +(t)g(of)f(rotation)h(in)427 5213 y(radians.)40 b(The)29 +b(order)h(of)h(the)f(rotations,)h(whic)m(h)e(are)i(v)m(ery)g(small,)311 +5354 y(4.)46 b(It)37 b(w)m(as)g(the)g(in)m(ten)m(tion)f(that)h +(Hipparcos)f(should)f(b)s(e)h(a)h(close)g(appro)m(ximation)e(to)j(an)e +(inertial)427 5467 y(frame,)c(so)f(that)h(distan)m(t)f(ob)5 +b(jects)31 b(ha)m(v)m(e)i(zero)f(prop)s(er)d(motion;)j(suc)m(h)f(ob)5 +b(jects)31 b(ha)m(v)m(e)i(\(in)d(gener-)427 5580 y(al\))36 +b(non-zero)h(prop)s(er)d(motion)i(in)f(FK5,)j(and)d(this)g(routine)g +(returns)g(those)i Fn(\014ctitious)h(pr)-5 b(op)g(er)427 +5693 y(motions.)p eop +%%Page: 87 89 +87 88 bop 0 52 a Ft(SUN/67.45)3252 b FA(87)311 351 y(5.)46 +b(The)39 b(p)s(osition)f(returned)h(b)m(y)g(this)g(routine)f(is)h(in)f +(the)i(FK5)g(J2000)h(reference)f(frame)g(but)f(at)427 +464 y(Julian)28 b(ep)s(o)s(c)m(h)i(EPOCH.)311 601 y(6.)46 +b(See)31 b(also)f(sla)p Fq(_)p FA(FK52H,)h(sla)p Fq(_)p +FA(FK5HZ,)f(sla)p Fq(_)p FA(H2FK5.)0 896 y Fy(REFERENCE)44 +b FA(:)d(F)-8 b(eissel,)30 b(M.)h(&)f(Mignard,)g(F.,)h(1998.,)h +Fn(Astr)-5 b(on.Astr)g(ophys.)34 b Fy(331)p FA(,)d(L33-L36.)p +0 1000 3780 8 v 0 1113 a Fu(SLA)p Fk(_)p Fu(IMXV)478 +b Fj(Apply)38 b(3D)h(Rev)m(erse)f(Rotation)478 b Fu(SLA)p +Fk(_)p Fu(IMXV)0 1463 y Fy(A)m(CTION)44 b FA(:)c(Multiply)28 +b(a)j(3-v)m(ector)i(b)m(y)d(the)h(in)m(v)m(erse)f(of)g(a)h(rotation)g +(matrix)f(\(single)f(precision\).)0 1651 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_IMXV)g(\(RM,)h(VA,)f(VB\))0 +1962 y Fy(GIVEN)f FA(:)277 2108 y Fn(RM)588 b Fy(R\(3,3\))352 +b FA(rotation)31 b(matrix)277 2221 y Fn(V)-9 b(A)609 +b Fy(R\(3\))433 b FA(v)m(ector)32 b(to)f(b)s(e)f(rotated)0 +2508 y Fy(RETURNED)46 b FA(:)277 2679 y Fn(VB)604 b Fy(R\(3\))433 +b FA(result)29 b(v)m(ector)0 2974 y Fy(NOTES)44 b FA(:)311 +3152 y(1.)i(This)29 b(routine)g(p)s(erforms)g(the)i(op)s(eration:)597 +3289 y Fy(b)g FA(=)f Fy(M)886 3256 y Fc(T)941 3289 y +Fl(\001)p Fy(a)427 3425 y FA(where)g Fy(a)f FA(and)g +Fy(b)h FA(are)g(the)g(3-v)m(ectors)i(V)-10 b(A)30 b(and)f(VB)i(resp)s +(ectiv)m(ely)-8 b(,)30 b(and)f Fy(M)h FA(is)f(the)h(3)19 +b Fl(\002)g FA(3)30 b(matrix)427 3538 y(RM.)311 3675 +y(2.)46 b(The)34 b(main)g(function)f(of)i(this)e(routine)h(is)f(apply)g +(an)i(in)m(v)m(erse)f(rotation;)j(under)c(these)i(circum-)427 +3788 y(stances,)d Fy(M)e FA(is)g Fn(ortho)-5 b(gonal)p +FA(,)34 b(with)29 b(its)g(in)m(v)m(erse)i(the)f(same)h(as)g(its)e +(transp)s(ose.)311 3924 y(3.)46 b(T)-8 b(o)25 b(comply)f(with)g(the)h +(ANSI)f(F)-8 b(ortran)26 b(77)f(standard,)g(V)-10 b(A)25 +b(and)f(VB)i(m)m(ust)e Fy(not)h FA(b)s(e)f(the)h(same)g(ar-)427 +4037 y(ra)m(y)-8 b(.)40 b(The)25 b(routine)f(is,)i(in)e(fact,)k(co)s +(ded)d(so)g(as)h(to)g(w)m(ork)f(prop)s(erly)f(on)h(the)g(V)-10 +b(AX)26 b(and)f(man)m(y)g(other)427 4150 y(systems)31 +b(ev)m(en)g(if)e(this)g(rule)g(is)h(violated,)g(something)g(that)h(is)e +Fy(not)p FA(,)i(ho)m(w)m(ev)m(er,)h(recommended.)p 0 +4254 V 0 4367 a Fu(SLA)p Fk(_)p Fu(INTIN)474 b Fj(Deco)s(de)39 +b(an)g(In)m(teger)f(Num)m(b)s(er)473 b Fu(SLA)p Fk(_)p +Fu(INTIN)0 4717 y Fy(A)m(CTION)44 b FA(:)c(Con)m(v)m(ert)32 +b(free-format)f(input)d(in)m(to)j(an)f(in)m(teger.)0 +4905 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_INTIN)g(\(STRING,)f +(NSTRT,)h(IRESLT,)g(JFLAG\))0 5216 y Fy(GIVEN)f FA(:)277 +5362 y Fn(STRING)381 b Fy(C)569 b FA(string)29 b(con)m(taining)h(n)m +(um)m(b)s(er)f(to)j(b)s(e)d(deco)s(ded)277 5475 y Fn(NSTR)-7 +b(T)428 b Fy(I)605 b FA(p)s(oin)m(ter)30 b(to)h(where)f(deco)s(ding)f +(is)g(to)i(commence)277 5588 y Fn(IRESL)-7 b(T)407 b +Fy(I)605 b FA(curren)m(t)30 b(v)-5 b(alue)30 b(of)h(result)p +eop +%%Page: 88 90 +88 89 bop 0 52 a FA(88)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(NSTR)-7 b(T)428 b Fy(I)605 b FA(adv)-5 b(anced)31 +b(to)g(next)f(n)m(um)m(b)s(er)277 610 y Fn(IRESL)-7 b(T)407 +b Fy(I)605 b FA(result)277 723 y Fn(JFLA)n(G)436 b Fy(I)605 +b FA(status:)65 b Fl(\000)p FA(1)43 b(=)f Fl(\000)p FA(OK,)f(0)i(=)f +(+OK,)g(1)h(=)f(n)m(ull)e(result,)1658 836 y(2)31 b(=)f(error)0 +1221 y Fy(NOTES)44 b FA(:)311 1421 y(1.)i(The)d(reason)g(sla)p +Fq(_)p FA(INTIN)e(has)i(separate)g(`OK')g(status)g(v)-5 +b(alues)42 b(for)h(+)f(and)g Fl(\000)h FA(is)e(to)j(enable)427 +1534 y(min)m(us)28 b(zero)j(to)g(b)s(e)e(detected.)42 +b(This)28 b(is)g(of)i(crucial)f(imp)s(ortance)g(when)g(deco)s(ding)g +(mixed-radix)427 1647 y(n)m(um)m(b)s(ers.)68 b(F)-8 b(or)40 +b(example,)j(an)c(angle)h(expressed)f(as)i(degrees,)i(arcmin)m(utes)c +(and)g(arcseconds)427 1760 y(ma)m(y)31 b(ha)m(v)m(e)h(a)f(leading)e +(min)m(us)f(sign)i(but)f(a)i(zero)g(degrees)g(\014eld.)311 +1912 y(2.)46 b(A)31 b(T)-8 b(AB)31 b(is)e(in)m(terpreted)h(as)g(a)h +(space.)41 b Fn(n.b.)30 b FA(The)g(test)i(for)e(T)-8 +b(AB)31 b(is)e(ASCI)s(I-sp)s(eci\014c.)311 2064 y(3.)46 +b(The)29 b(basic)f(format)h(is)f(the)h(sequence)h(of)f(\014elds)e +Fl(\006)p Fi(n)p FA(,)i(where)f Fl(\006)h FA(is)e(a)j(sign)e(c)m +(haracter)i(`+')f(or)g(`)p Fl(\000)p FA(',)427 2177 y(and)h +Fi(n)g FA(means)g(a)h(string)e(of)i(decimal)e(digits.)311 +2329 y(4.)46 b(Spaces:)506 2482 y Fl(\017)g FA(Leading)30 +b(spaces)h(are)g(ignored.)506 2614 y Fl(\017)46 b FA(Spaces)31 +b(b)s(et)m(w)m(een)g(the)f(sign)g(and)f(the)i(n)m(um)m(b)s(er)e(are)i +(allo)m(w)m(ed.)506 2747 y Fl(\017)46 b FA(T)-8 b(railing)38 +b(spaces)i(are)h(ignored;)j(the)c(\014rst)f(signi\014es)f(end)h(of)h +(deco)s(ding)f(and)g(subsequen)m(t)597 2860 y(ones)31 +b(are)g(skipp)s(ed.)311 3012 y(5.)46 b(Delimiters:)506 +3165 y Fl(\017)g FA(An)m(y)30 b(c)m(haracter)h(other)f(than)f(+,)p +Fl(\000)p FA(,0-9)i(or)e(space)h(ma)m(y)h(b)s(e)e(used)f(to)j(signal)d +(the)i(end)f(of)g(the)597 3277 y(n)m(um)m(b)s(er)g(and)h(terminate)g +(deco)s(ding.)506 3410 y Fl(\017)46 b FA(Comma)34 b(is)g(recognized)g +(b)m(y)g(sla)p Fq(_)p FA(INTIN)f(as)i(a)f(sp)s(ecial)f(case;)38 +b(it)33 b(is)h(skipp)s(ed,)e(lea)m(ving)i(the)597 3523 +y(p)s(oin)m(ter)c(on)g(the)g(next)h(c)m(haracter.)42 +b(See)31 b(9,)g(b)s(elo)m(w.)506 3656 y Fl(\017)46 b +FA(Deco)s(ding)31 b(will)c(in)i(all)h(cases)h(terminate)f(if)g(end)f +(of)i(string)e(is)h(reac)m(hed.)311 3808 y(6.)46 b(The)30 +b(sign)g(is)f(optional.)40 b(The)30 b(default)f(is)h(+.)311 +3960 y(7.)46 b(A)28 b Fn(nul)5 b(l)30 b(r)-5 b(esult)37 +b FA(o)s(ccurs)28 b(when)e(the)i(string)f(of)h(c)m(haracters)h(b)s +(eing)d(deco)s(ded)h(do)s(es)h(not)g(b)s(egin)e(with)427 +4073 y(+,)p Fl(\000)34 b FA(or)f(0-9,)k(or)c(consists)h(en)m(tirely)f +(of)h(spaces.)51 b(When)34 b(this)e(condition)h(is)f(detected,)37 +b(JFLA)m(G)427 4186 y(is)30 b(set)h(to)g(1)f(and)g(IRESL)-8 +b(T)30 b(is)f(left)h(un)m(touc)m(hed.)311 4338 y(8.)46 +b(NSTR)-8 b(T)30 b(=)g(1)h(for)f(the)g(\014rst)g(c)m(haracter)i(in)d +(the)i(string.)311 4491 y(9.)46 b(On)26 b(return)g(from)g(sla)p +Fq(_)p FA(INTIN,)g(NSTR)-8 b(T)26 b(is)g(set)h(ready)g(for)f(the)h +(next)g(deco)s(de)g({)g(follo)m(wing)e(trail-)427 4604 +y(ing)31 b(blanks)g(and)g(an)m(y)h(comma.)47 b(If)31 +b(a)i(delimiter)c(other)j(than)g(comma)h(is)e(b)s(eing)f(used,)i(NSTR) +-8 b(T)427 4717 y(m)m(ust)25 b(b)s(e)f(incremen)m(ted)g(b)s(efore)g +(the)h(next)g(call)f(to)i(sla)p Fq(_)p FA(INTIN,)e(otherwise)g(all)f +(subsequen)m(t)h(calls)427 4830 y(will)k(return)h(a)i(n)m(ull)d +(result.)266 4982 y(10.)46 b(Errors)30 b(\(JFLA)m(G=2\))i(o)s(ccur)e +(when:)506 5134 y Fl(\017)46 b FA(there)31 b(is)e(a)i(+)f(or)g +Fl(\000)g FA(but)g(no)g(n)m(um)m(b)s(er;)g(or)506 5267 +y Fl(\017)46 b FA(the)31 b(n)m(um)m(b)s(er)e(is)g(greater)j(than)e(2) +1742 5234 y Fr(31)1837 5267 y Fl(\000)20 b FA(1.)266 +5419 y(11.)46 b(When)31 b(an)f(error)h(has)f(b)s(een)g(detected,)j +(NSTR)-8 b(T)30 b(is)g(left)g(p)s(oin)m(ting)f(to)j(the)f(c)m(haracter) +h(follo)m(wing)427 5532 y(the)f(last)f(one)h(used)e(b)s(efore)h(the)h +(error)f(came)h(to)g(ligh)m(t.)266 5684 y(12.)46 b(See)31 +b(also)f(sla)p Fq(_)p FA(FLOTIN)f(and)h(sla)p Fq(_)p +FA(DFL)-8 b(TIN.)p eop +%%Page: 89 91 +89 90 bop 0 52 a Ft(SUN/67.45)3252 b FA(89)p 0 267 3780 +8 v 0 380 a Fu(SLA)p Fk(_)p Fu(INVF)713 b Fj(In)m(v)m(ert)38 +b(Linear)g(Mo)s(del)715 b Fu(SLA)p Fk(_)p Fu(INVF)0 730 +y Fy(A)m(CTION)44 b FA(:)c(In)m(v)m(ert)31 b(a)g(linear)e(mo)s(del)g +(of)i(the)f(t)m(yp)s(e)h(pro)s(duced)e(b)m(y)h(the)g(sla)p +Fq(_)p FA(FITXY)g(routine.)0 918 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_INVF)g(\(FWDS,BKWDS,J\))0 1230 y Fy(GIVEN)f +FA(:)277 1402 y Fn(FWDS)466 b Fy(D\(6\))431 b FA(mo)s(del)29 +b(co)s(e\016cien)m(ts)0 1698 y Fy(RETURNED)46 b FA(:)277 +1844 y Fn(BKWDS)391 b Fy(D\(6\))431 b FA(in)m(v)m(erse)30 +b(mo)s(del)277 1957 y Fn(J)688 b Fy(I)605 b FA(status:)41 +b(0)31 b(=)f(OK,)g Fl(\000)p FA(1)g(=)g(no)h(in)m(v)m(erse)0 +2246 y Fy(NOTES)44 b FA(:)311 2424 y(1.)i(The)30 b(mo)s(dels)e(relate)j +(t)m(w)m(o)g(sets)g(of)f([)15 b Fi(x;)g(y)k FA(])30 b(co)s(ordinates)f +(as)i(follo)m(ws.)39 b(Naming)30 b(the)g(six)f(elemen)m(ts)427 +2537 y(of)c(FWDS)g Fi(a;)15 b(b;)g(c;)g(d;)g(e)27 b FA(&)d +Fi(f)10 b FA(,)25 b(where)f(t)m(w)m(o)i(sets)f(of)f(co)s(ordinates)g([) +p Fi(x)2670 2551 y Fr(1)2710 2537 y Fi(;)15 b(y)2795 +2551 y Fr(1)2834 2537 y FA(])25 b(and)f([)p Fi(x)3132 +2551 y Fr(2)3172 2537 y Fi(;)15 b(y)3257 2551 y Fr(2)3311 +2537 y FA(])25 b(are)g(related)427 2650 y(th)m(us:)597 +2786 y Fi(x)649 2800 y Fr(2)714 2786 y FA(=)g Fi(a)20 +b FA(+)g Fi(bx)1060 2800 y Fr(1)1120 2786 y FA(+)g Fi(cy)1295 +2800 y Fr(1)597 2899 y Fi(y)642 2913 y Fr(2)707 2899 +y FA(=)k Fi(d)d FA(+)f Fi(ex)1055 2913 y Fr(1)1115 2899 +y FA(+)g Fi(f)10 b(y)1306 2913 y Fr(1)427 3036 y FA(The)45 +b(presen)m(t)g(routine)f(generates)i(a)f(new)g(set)g(of)g(co)s +(e\016cien)m(ts)h Fi(p;)15 b(q)s(;)g(r)m(;)g(s;)g(t)46 +b FA(&)f Fi(u)f FA(\(the)i(arra)m(y)427 3149 y(BKWDS\))31 +b(suc)m(h)f(that:)597 3286 y Fi(x)649 3300 y Fr(1)714 +3286 y FA(=)25 b Fi(p)20 b FA(+)g Fi(q)s(x)1063 3300 +y Fr(2)1122 3286 y FA(+)g Fi(r)s(y)1302 3300 y Fr(2)597 +3399 y Fi(y)642 3413 y Fr(1)707 3399 y FA(=)k Fi(s)c +FA(+)g Fi(tx)1041 3413 y Fr(2)1101 3399 y FA(+)g Fi(uy)1289 +3413 y Fr(2)311 3536 y FA(2.)46 b(Tw)m(o)21 b(successiv)m(e)h(calls)e +(to)i(this)e(routine)g(will)e(deliv)m(er)i(a)i(set)f(of)g(co)s +(e\016cien)m(ts)h(equal)f(to)g(the)h(starting)427 3648 +y(v)-5 b(alues.)311 3785 y(3.)46 b(T)-8 b(o)37 b(comply)e(with)g(the)h +(ANSI)g(F)-8 b(ortran)36 b(77)h(standard,)g(FWDS)f(and)g(BKWDS)g(m)m +(ust)g Fy(not)g FA(b)s(e)427 3898 y(the)h(same)g(arra)m(y)-8 +b(.)61 b(The)36 b(routine)g(is,)h(in)e(fact,)40 b(co)s(ded)c(so)h(as)g +(to)g(w)m(ork)g(prop)s(erly)e(on)h(the)h(V)-10 b(AX)427 +4011 y(and)28 b(man)m(y)g(other)g(systems)g(ev)m(en)h(if)d(this)h(rule) +g(is)g(violated,)h(something)g(that)g(is)f Fy(not)p FA(,)i(ho)m(w)m(ev) +m(er,)427 4124 y(recommended.)311 4261 y(4.)46 b(See)31 +b(also)f(sla)p Fq(_)p FA(FITXY,)g(sla)p Fq(_)p FA(PXY,)g(sla)p +Fq(_)p FA(XY2XY,)h(sla)p Fq(_)p FA(DCMPF.)p 0 4365 V +0 4478 a Fu(SLA)p Fk(_)p Fu(KBJ)797 b Fj(Select)39 b(Ep)s(o)s(c)m(h)f +(Pre\014x)798 b Fu(SLA)p Fk(_)p Fu(KBJ)0 4829 y Fy(A)m(CTION)44 +b FA(:)c(Select)31 b(ep)s(o)s(c)m(h)f(pre\014x)g(`B')h(or)f(`J'.)0 +5016 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_KBJ)g(\(JB,)h(E,)g(K,)g +(J\))0 5329 y Fy(GIVEN)e FA(:)277 5475 y Fn(JB)624 b +Fy(I)605 b FA(sla)p Fq(_)p FA(DBJIN)30 b(pre\014x)g(status:)41 +b(0=none,)30 b(1=`B',)i(2=`J')277 5588 y Fn(E)674 b Fy(D)565 +b FA(ep)s(o)s(c)m(h)30 b({)h(Besselian)f(or)g(Julian)p +eop +%%Page: 90 92 +90 91 bop 0 52 a FA(90)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(K)666 b Fy(C)569 b FA(`B')31 b(or)g(`J')277 +610 y Fn(J)688 b Fy(I)605 b FA(status:)41 b(0=OK)0 967 +y Fy(NOTE)j FA(:)51 b(The)35 b(routine)f(is)h(mainly)e(in)m(tended)h +(for)i(use)f(in)f(conjunction)g(with)g(the)i(sla)p Fq(_)p +FA(DBJIN)f(routine.)227 1080 y(If)f(the)g(v)-5 b(alue)34 +b(of)g(JB)g(indicates)f(that)h(an)g(explicit)f(B)h(or)g(J)g(pre\014x)e +(w)m(as)j(detected)g(b)m(y)f(sla)p Fq(_)p FA(DBJIN,)g(a)227 +1193 y(`B')h(or)e(`J')h(is)e(returned)g(to)i(matc)m(h.)51 +b(If)33 b(JB)h(indicates)e(that)i(no)f(explicit)f(B)i(or)f(J)g(w)m(as)h +(supplied,)d(the)227 1306 y(c)m(hoice)g(is)f(made)g(on)h(the)f(basis)f +(of)i(the)f(ep)s(o)s(c)m(h)h(itself;)e(B)i(is)e(assumed)h(for)g(E)g +Fi(<)25 b FA(1984,)32 b(otherwise)e(J.)p 0 1440 3780 +8 v 0 1553 a Fu(SLA)p Fk(_)p Fu(M2A)-15 b(V)353 b Fj(Rotation)36 +b(Matrix)h(to)h(Axial)f(V)-10 b(ector)354 b Fu(SLA)p +Fk(_)p Fu(M2A)-15 b(V)0 1903 y Fy(A)m(CTION)44 b FA(:)36 +b(F)-8 b(rom)21 b(a)h(rotation)f(matrix,)h(determine)f(the)g(corresp)s +(onding)e(axial)h(v)m(ector)j(\(single)d(precision\).)0 +2091 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_M2AV)g(\(RMAT,)g +(AXVEC\))0 2442 y Fy(GIVEN)f FA(:)277 2614 y Fn(RMA)-7 +b(T)462 b Fy(R\(3,3\))352 b FA(rotation)31 b(matrix)0 +2978 y Fy(RETURNED)46 b FA(:)277 3150 y Fn(AXVEC)405 +b Fy(R\(3\))433 b FA(axial)30 b(v)m(ector)i(\(radians\))0 +3515 y Fy(NOTES)44 b FA(:)311 3704 y(1.)i(A)32 b(rotation)f(matrix)g +(describ)s(es)e(a)i(rotation)h(ab)s(out)f(some)g(arbitrary)f(axis.)43 +b(The)30 b(axis)h(is)f(called)427 3816 y(the)g Fn(Euler)i(axis)p +FA(,)f(and)e(the)h(angle)g(through)f(whic)m(h)g(the)h(reference)g +(frame)g(rotates)h(is)e(called)g(the)427 3929 y Fn(Euler)k(angle)p +FA(.)42 b(The)30 b Fn(axial)k(ve)-5 b(ctor)41 b FA(returned)30 +b(b)m(y)g(this)g(routine)g(has)g(the)h(same)g(direction)e(as)i(the)427 +4042 y(Euler)e(axis,)h(and)g(its)g(magnitude)f(is)h(the)g(Euler)f +(angle)i(in)e(radians.)311 4189 y(2.)46 b(The)35 b(magnitude)g(and)g +(direction)f(of)i(the)g(axial)f(v)m(ector)i(can)f(b)s(e)f(separated)h +(b)m(y)f(means)h(of)f(the)427 4302 y(routine)30 b(sla)p +Fq(_)p FA(VN.)311 4448 y(3.)46 b(The)28 b(reference)g(frame)g(rotates)h +(clo)s(c)m(kwise)e(as)i(seen)f(lo)s(oking)e(along)i(the)g(axial)f(v)m +(ector)j(from)d(the)427 4561 y(origin.)311 4708 y(4.)46 +b(If)30 b(RMA)-8 b(T)31 b(is)e(n)m(ull,)g(so)i(is)e(the)i(result.)p +0 4842 V 0 4955 a Fu(SLA)p Fk(_)p Fu(MAP)775 b Fj(Mean)39 +b(to)f(Apparen)m(t)775 b Fu(SLA)p Fk(_)p Fu(MAP)0 5305 +y Fy(A)m(CTION)44 b FA(:)66 b(T)-8 b(ransform)43 b(star)g([)15 +b Fi(\013;)g(\016)21 b FA(])43 b(from)g(mean)g(place)h(to)g(geo)s(cen)m +(tric)g(apparen)m(t.)80 b(The)43 b(reference)227 5418 +y(frames)30 b(and)g(timescales)h(used)e(are)i(p)s(ost)f(IA)m(U)h(1976.) +0 5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_MAP)g(\(RM,)h(DM,)g +(PR,)g(PD,)g(PX,)f(RV,)h(EQ,)g(DATE,)g(RA,)g(DA\))p eop +%%Page: 91 93 +91 92 bop 0 52 a Ft(SUN/67.45)3252 b FA(91)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(RM,DM)409 b Fy(D)565 b FA(mean)31 +b([)15 b Fi(\013;)g(\016)20 b FA(])30 b(\(radians\))277 +610 y Fn(PR,PD)449 b Fy(D)565 b FA(prop)s(er)29 b(motions:)40 +b([)15 b Fi(\013;)g(\016)21 b FA(])30 b(c)m(hanges)i(p)s(er)d(Julian)f +(y)m(ear)277 723 y Fn(PX)606 b Fy(D)565 b FA(parallax)29 +b(\(arcsec\))277 836 y Fn(R)-9 b(V)611 b Fy(D)565 b FA(radial)29 +b(v)m(elo)s(cit)m(y)i(\(km)f(s)2477 803 y Fm(\000)p Fr(1)2571 +836 y FA(,)h(+v)m(e)g(if)e(receding\))277 949 y Fn(EQ)604 +b Fy(D)565 b FA(ep)s(o)s(c)m(h)30 b(and)g(equino)m(x)g(of)g(star)h +(data)g(\(Julian\))277 1062 y Fn(D)n(A)-7 b(TE)481 b +Fy(D)565 b FA(TDB)31 b(for)f(apparen)m(t)h(place)f(\(JD)p +Fl(\000)p FA(2400000.5\))0 1432 y Fy(RETURNED)46 b FA(:)277 +1604 y Fn(RA,D)n(A)439 b Fy(D)565 b FA(apparen)m(t)31 +b([)15 b Fi(\013;)g(\016)20 b FA(])31 b(\(radians\))0 +1982 y Fy(NOTES)44 b FA(:)311 2177 y(1.)i(EQ)41 b(is)f(the)i(Julian)d +(ep)s(o)s(c)m(h)i(sp)s(ecifying)e(b)s(oth)i(the)g(reference)h(frame)f +(and)g(the)h(ep)s(o)s(c)m(h)f(of)g(the)427 2290 y(p)s(osition)26 +b({)j(usually)c(2000.)42 b(F)-8 b(or)29 b(p)s(ositions)d(where)h(the)i +(ep)s(o)s(c)m(h)e(and)h(equino)m(x)f(are)i(di\013eren)m(t,)f(use)427 +2403 y(the)j(routine)e(sla)p Fq(_)p FA(PM)h(to)h(apply)e(prop)s(er)g +(motion)h(corrections)h(b)s(efore)f(using)f(this)g(routine.)311 +2552 y(2.)46 b(The)35 b(distinction)e(b)s(et)m(w)m(een)k(the)e +(required)f(TDB)i(and)f(TT)g(is)f(alw)m(a)m(ys)i(negligible.)54 +b(Moreo)m(v)m(er,)427 2665 y(for)30 b(all)g(but)f(the)i(most)g +(critical)e(applications)f(UTC)i(is)g(adequate.)311 2814 +y(3.)46 b(The)37 b Fi(\013)h FA(prop)s(er)e(motions)h(are)57 +b(_)-45 b Fi(\013)38 b FA(rather)f(than)57 b(_)-44 b +Fi(\013)15 b FA(cos)h Fi(\016)s FA(,)40 b(and)d(are)h(p)s(er)e(y)m(ear) +i(rather)f(than)g(p)s(er)427 2927 y(cen)m(tury)-8 b(.)311 +3077 y(4.)46 b(This)28 b(routine)h(ma)m(y)h(b)s(e)f(w)m(asteful)g(for)h +(some)g(applications)d(b)s(ecause)j(it)f(recomputes)h(the)g(Earth)427 +3190 y(p)s(osition/v)m(elo)s(cit)m(y)23 b(and)g(the)g(precession/n)m +(utation)g(matrix)g(eac)m(h)i(time,)g(and)e(b)s(ecause)g(it)g(allo)m +(ws)427 3303 y(for)37 b(parallax)f(and)h(prop)s(er)f(motion.)61 +b(Where)37 b(m)m(ultiple)e(transformations)h(are)i(to)g(b)s(e)e +(carried)427 3416 y(out)c(for)g(one)g(ep)s(o)s(c)m(h,)g(a)g(faster)h +(metho)s(d)e(is)g(to)h(call)f(the)h(sla)p Fq(_)p FA(MAPP)-8 +b(A)32 b(routine)f(once)i(and)e(then)427 3528 y(either)39 +b(the)h(sla)p Fq(_)p FA(MAPQK)f(routine)f(\(whic)m(h)h(includes)e +(parallax)h(and)h(prop)s(er)f(motion\))i(or)f(s-)427 +3641 y(la)p Fq(_)p FA(MAPQKZ)29 b(\(whic)m(h)h(assumes)g(zero)h +(parallax)e(and)h(FK5)h(prop)s(er)e(motion\).)0 4020 +y Fy(REFERENCES)44 b FA(:)311 4214 y(1.)i(1984)32 b Fn(Astr)-5 +b(onomic)g(al)36 b(A)n(lmanac)p FA(,)31 b(pp)e(B39-B41.)311 +4364 y(2.)46 b(Lederle)30 b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h +Fn(Astr.Astr)-5 b(ophys.)33 b Fy(134)p FA(,)e(1-6.)p +0 4503 3780 8 v 0 4616 a Fu(SLA)p Fk(_)p Fu(MAPP)-11 +b(A)283 b Fj(Mean)39 b(to)f(Apparen)m(t)f(P)m(arameters)283 +b Fu(SLA)p Fk(_)p Fu(MAPP)-11 b(A)0 4966 y Fy(A)m(CTION)44 +b FA(:)73 b(Compute)46 b(star-indep)s(enden)m(t)f(parameters)i(in)f +(preparation)g(for)g(con)m(v)m(ersions)h(b)s(et)m(w)m(een)227 +5079 y(mean)e(place)f(and)g(geo)s(cen)m(tric)h(apparen)m(t)g(place.)82 +b(The)44 b(parameters)g(pro)s(duced)f(b)m(y)h(this)f(routine)227 +5192 y(are)31 b(required)d(in)h(the)i(parallax,)e(ligh)m(t)g +(de\015ection,)i(ab)s(erration,)e(and)h(precession/n)m(utation)f(parts) +h(of)227 5305 y(the)37 b(mean/apparen)m(t)g(transformations.)57 +b(The)36 b(reference)g(frames)g(and)g(timescales)g(used)f(are)i(p)s +(ost)227 5418 y(IA)m(U)31 b(1976.)0 5606 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_MAPPA)g(\(EQ,)g(DATE,)h(AMPRMS\))p +eop +%%Page: 92 94 +92 93 bop 0 52 a FA(92)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(EQ)604 b Fy(D)565 b FA(ep)s(o)s(c)m(h)30 b(of)h(mean)f(equino) +m(x)g(to)h(b)s(e)f(used)g(\(Julian\))277 610 y Fn(D)n(A)-7 +b(TE)481 b Fy(D)565 b FA(TDB)31 b(\(JD)p Fl(\000)p FA(2400000.5\))0 +1025 y Fy(RETURNED)46 b FA(:)277 1171 y Fn(AMPRMS)325 +b Fy(D\(21\))379 b FA(star-indep)s(enden)m(t)29 b(mean-to-apparen)m(t)j +(parameters:)537 1283 y(\(1\))1006 b(time)30 b(in)m(terv)-5 +b(al)30 b(for)g(prop)s(er)f(motion)h(\(Julian)e(y)m(ears\))499 +1396 y(\(2-4\))969 b(barycen)m(tric)30 b(p)s(osition)f(of)h(the)h +(Earth)f(\(A)m(U\))499 1509 y(\(5-7\))969 b(helio)s(cen)m(tric)29 +b(direction)g(of)i(the)f(Earth)g(\(unit)g(v)m(ector\))537 +1622 y(\(8\))1006 b(\(gra)m(vitational)52 b(radius)e(of)i(Sun\))p +Fl(\002)p FA(2)p Fi(=)p FA(\(Sun-Earth)e(dis-)1658 1735 +y(tance\))477 1848 y(\(9-11\))946 b Fy(v)p FA(:)41 b(barycen)m(tric)30 +b(Earth)g(v)m(elo)s(cit)m(y)h(in)e(units)g(of)i(c)514 +1995 y(\(12\))1658 1889 y Ff(q)p 1741 1889 302 4 v 106 +x FA(1)21 b Fl(\000)f(j)p Fy(v)p Fl(j)2003 1953 y Fr(2)454 +2114 y FA(\(13-21\))924 b(precession/n)m(utation)30 b(3)21 +b Fl(\002)f FA(3)30 b(matrix)0 2528 y Fy(NOTES)44 b FA(:)311 +2740 y(1.)i(F)-8 b(or)36 b(D)m(A)-8 b(TE,)37 b(the)e(distinction)e(b)s +(et)m(w)m(een)j(the)f(required)f(TDB)h(and)g(TT)f(is)h(alw)m(a)m(ys)h +(negligible.)427 2853 y(Moreo)m(v)m(er,)d(for)d(all)f(but)h(the)h(most) +f(critical)g(applications)e(UTC)i(is)f(adequate.)311 +3011 y(2.)46 b(The)23 b(accuracy)h(of)f(the)g(routines)f(using)g(the)h +(parameters)g(AMPRMS)g(is)g(limited)d(b)m(y)j(the)g(routine)427 +3124 y(sla)p Fq(_)p FA(EVP)-8 b(,)36 b(used)g(here)g(to)h(compute)f +(the)h(Earth)f(p)s(osition)e(and)i(v)m(elo)s(cit)m(y)g(b)m(y)g(the)h +(metho)s(ds)e(of)427 3237 y(Stump\013.)69 b(The)40 b(maxim)m(um)f +(error)h(in)f(the)i(resulting)d(ab)s(erration)h(corrections)i(is)e(ab)s +(out)h(0.3)427 3350 y(milliarcsecond.)311 3508 y(3.)46 +b(The)23 b(v)m(ectors)j(AMPRMS\(2-4\))f(and)e(AMPRMS\(5-7\))j(are)e +(referred)f(to)h(the)g(mean)g(equino)m(x)f(and)427 3621 +y(equator)31 b(of)g(ep)s(o)s(c)m(h)f(EQ.)311 3779 y(4.)46 +b(The)20 b(parameters)h(pro)s(duced)d(b)m(y)j(this)e(routine)g(are)i +(used)e(b)m(y)i(sla)p Fq(_)p FA(MAPQK)e(and)h(sla)p Fq(_)p +FA(MAPQKZ.)0 4202 y Fy(REFERENCES)44 b FA(:)311 4414 +y(1.)i(1984)32 b Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)p +FA(,)31 b(pp)e(B39-B41.)311 4572 y(2.)46 b(Lederle)30 +b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h Fn(Astr.Astr)-5 b(ophys.)33 +b Fy(134)p FA(,)e(1-6.)p 0 4729 3780 8 v 0 4842 a Fu(SLA)p +Fk(_)p Fu(MAPQK)400 b Fj(Quic)m(k)38 b(Mean)h(to)f(Apparen)m(t)400 +b Fu(SLA)p Fk(_)p Fu(MAPQK)0 5192 y Fy(A)m(CTION)44 b +FA(:)51 b(Quic)m(k)35 b(mean)h(to)h(apparen)m(t)f(place:)51 +b(transform)35 b(a)h(star)g([)15 b Fi(\013;)g(\016)21 +b FA(])36 b(from)f(mean)h(place)f(to)i(geo-)227 5305 +y(cen)m(tric)32 b(apparen)m(t)g(place,)g(giv)m(en)f(the)h(star-indep)s +(enden)m(t)e(parameters.)44 b(The)31 b(reference)h(frames)f(and)227 +5418 y(timescales)g(used)e(are)i(p)s(ost)f(IA)m(U)h(1976.)0 +5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_MAPQK)g(\(RM,)g(DM,)h +(PR,)g(PD,)g(PX,)g(RV,)g(AMPRMS,)f(RA,)h(DA\))p eop +%%Page: 93 95 +93 94 bop 0 52 a Ft(SUN/67.45)3252 b FA(93)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(RM,DM)409 b Fy(D)565 b FA(mean)31 +b([)15 b Fi(\013;)g(\016)20 b FA(])30 b(\(radians\))277 +610 y Fn(PR,PD)449 b Fy(D)565 b FA(prop)s(er)29 b(motions:)40 +b([)15 b Fi(\013;)g(\016)21 b FA(])30 b(c)m(hanges)i(p)s(er)d(Julian)f +(y)m(ear)277 723 y Fn(PX)606 b Fy(D)565 b FA(parallax)29 +b(\(arcsec\))277 836 y Fn(R)-9 b(V)611 b Fy(D)565 b FA(radial)29 +b(v)m(elo)s(cit)m(y)i(\(km)f(s)2477 803 y Fm(\000)p Fr(1)2571 +836 y FA(,)h(+v)m(e)g(if)e(receding\))277 949 y Fn(AMPRMS)325 +b Fy(D\(21\))379 b FA(star-indep)s(enden)m(t)29 b(mean-to-apparen)m(t)j +(parameters:)537 1062 y(\(1\))1006 b(time)30 b(in)m(terv)-5 +b(al)30 b(for)g(prop)s(er)f(motion)h(\(Julian)e(y)m(ears\))499 +1175 y(\(2-4\))969 b(barycen)m(tric)30 b(p)s(osition)f(of)h(the)h +(Earth)f(\(A)m(U\))499 1288 y(\(5-7\))969 b(helio)s(cen)m(tric)29 +b(direction)g(of)i(the)f(Earth)g(\(unit)g(v)m(ector\))537 +1401 y(\(8\))1006 b(\(gra)m(vitational)52 b(radius)e(of)i(Sun\))p +Fl(\002)p FA(2)p Fi(=)p FA(\(Sun-Earth)e(dis-)1658 1514 +y(tance\))477 1626 y(\(9-11\))946 b Fy(v)p FA(:)41 b(barycen)m(tric)30 +b(Earth)g(v)m(elo)s(cit)m(y)h(in)e(units)g(of)i(c)514 +1773 y(\(12\))1658 1667 y Ff(q)p 1741 1667 302 4 v 106 +x FA(1)21 b Fl(\000)f(j)p Fy(v)p Fl(j)2003 1731 y Fr(2)454 +1892 y FA(\(13-21\))924 b(precession/n)m(utation)30 b(3)21 +b Fl(\002)f FA(3)30 b(matrix)0 2367 y Fy(RETURNED)46 +b FA(:)277 2539 y Fn(RA,D)n(A)439 b Fy(D)565 b FA(apparen)m(t)31 +b([)15 b Fi(\013;)g(\016)20 b FA(])31 b(\(radians\))0 +3022 y Fy(NOTES)44 b FA(:)311 3258 y(1.)i(Use)32 b(of)f(this)g(routine) +f(is)g(appropriate)h(when)f(e\016ciency)h(is)g(imp)s(ortan)m(t)f(and)h +(where)g(man)m(y)g(star)427 3371 y(p)s(ositions,)26 b(all)f(referred)h +(to)h(the)g(same)f(equator)i(and)d(equino)m(x,)i(are)g(to)g(b)s(e)f +(transformed)g(for)g(one)427 3484 y(ep)s(o)s(c)m(h.)40 +b(The)27 b(star-indep)s(enden)m(t)f(parameters)j(can)f(b)s(e)f +(obtained)g(b)m(y)h(calling)e(the)i(sla)p Fq(_)p FA(MAPP)-8 +b(A)427 3597 y(routine.)311 3767 y(2.)46 b(If)35 b(the)h(parallax)e +(and)h(prop)s(er)f(motions)h(are)h(zero)g(the)f(sla)p +Fq(_)p FA(MAPQKZ)f(routine)h(can)g(b)s(e)g(used)427 3880 +y(instead.)311 4051 y(3.)46 b(The)23 b(v)m(ectors)j(AMPRMS\(2-4\))f +(and)e(AMPRMS\(5-7\))j(are)e(referred)f(to)h(the)g(mean)g(equino)m(x)f +(and)427 4163 y(equator)31 b(of)g(ep)s(o)s(c)m(h)f(EQ.)311 +4334 y(4.)46 b(Strictly)32 b(sp)s(eaking,)g(the)h(routine)e(is)h(not)h +(v)-5 b(alid)31 b(for)h(solar-system)h(sources,)h(though)e(the)h(error) +427 4447 y(will)e(usually)h(b)s(e)h(extremely)g(small.)49 +b(Ho)m(w)m(ev)m(er,)37 b(to)d(prev)m(en)m(t)g(gross)g(errors)f(in)g +(the)g(case)i(where)427 4560 y(the)41 b(p)s(osition)d(of)i(the)g(Sun)f +(is)g(sp)s(eci\014ed,)i(the)f(gra)m(vitational)h(de\015ection)e(term)h +(is)g(restrained)427 4673 y(within)27 b(ab)s(out)i(920)1098 +4636 y Fh(0)m(0)1169 4673 y FA(of)g(the)g(cen)m(tre)h(of)g(the)f(Sun's) +f(disc.)39 b(The)29 b(term)g(has)g(a)h(maxim)m(um)e(v)-5 +b(alue)28 b(of)427 4785 y(ab)s(out)23 b(1)720 4749 y +Fh(0)m(0)724 4785 y Fi(:)p FA(85)i(at)f(this)e(radius,)i(and)e +(decreases)i(to)h(zero)f(as)f(the)h(cen)m(tre)g(of)g(the)f(disc)g(is)f +(approac)m(hed.)0 5269 y Fy(REFERENCES)44 b FA(:)311 +5505 y(1.)i(1984)32 b Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)p +FA(,)31 b(pp)e(B39-B41.)311 5675 y(2.)46 b(Lederle)30 +b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h Fn(Astr.Astr)-5 b(ophys.)33 +b Fy(134)p FA(,)e(1-6.)p eop +%%Page: 94 96 +94 95 bop 0 52 a FA(94)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(MAPQKZ)170 b Fj(Quic)m(k)39 b(Mean-Appt,)e(no)i(PM)g +Fg(etc.)184 b Fu(SLA)p Fk(_)p Fu(MAPQKZ)0 730 y Fy(A)m(CTION)44 +b FA(:)39 b(Quic)m(k)26 b(mean)g(to)i(apparen)m(t)f(place:)39 +b(transform)26 b(a)h(star)g([)15 b Fi(\013;)g(\016)20 +b FA(])27 b(from)f(mean)h(place)g(to)g(geo)s(cen-)227 +843 y(tric)37 b(apparen)m(t)h(place,)h(giv)m(en)f(the)f(star-indep)s +(enden)m(t)f(parameters,)k(and)c(assuming)g(zero)j(parallax)227 +956 y(and)30 b(FK5)h(prop)s(er)e(motion.)40 b(The)30 +b(reference)h(frames)f(and)g(timescales)g(used)g(are)g(p)s(ost)g(IA)m +(U)h(1976.)0 1144 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_MAPQKZ)f(\(RM,)i(DM,)g(AMPRMS,)f(RA,)h(DA\))0 1546 +y Fy(GIVEN)e FA(:)277 1692 y Fn(RM,DM)409 b Fy(D)565 +b FA(mean)31 b([)15 b Fi(\013;)g(\016)20 b FA(])30 b(\(radians\))277 +1805 y Fn(AMPRMS)325 b Fy(D\(21\))379 b FA(star-indep)s(enden)m(t)29 +b(mean-to-apparen)m(t)j(parameters:)537 1918 y(\(1\))1006 +b(time)30 b(in)m(terv)-5 b(al)30 b(for)g(prop)s(er)f(motion)h(\(Julian) +e(y)m(ears\))499 2031 y(\(2-4\))969 b(barycen)m(tric)30 +b(p)s(osition)f(of)h(the)h(Earth)f(\(A)m(U\))499 2143 +y(\(5-7\))969 b(helio)s(cen)m(tric)29 b(direction)g(of)i(the)f(Earth)g +(\(unit)g(v)m(ector\))537 2256 y(\(8\))1006 b(\(gra)m(vitational)52 +b(radius)e(of)i(Sun\))p Fl(\002)p FA(2)p Fi(=)p FA(\(Sun-Earth)e(dis-) +1658 2369 y(tance\))477 2482 y(\(9-11\))946 b Fy(v)p +FA(:)41 b(barycen)m(tric)30 b(Earth)g(v)m(elo)s(cit)m(y)h(in)e(units)g +(of)i(c)514 2629 y(\(12\))1658 2523 y Ff(q)p 1741 2523 +302 4 v 106 x FA(1)21 b Fl(\000)f(j)p Fy(v)p Fl(j)2003 +2587 y Fr(2)454 2748 y FA(\(13-21\))924 b(precession/n)m(utation)30 +b(3)21 b Fl(\002)f FA(3)30 b(matrix)0 3189 y Fy(RETURNED)46 +b FA(:)277 3360 y Fn(RA,D)n(A)439 b Fy(D)565 b FA(apparen)m(t)31 +b([)15 b Fi(\013;)g(\016)20 b FA(])31 b(\(radians\))0 +3810 y Fy(NOTES)44 b FA(:)311 4032 y(1.)i(Use)32 b(of)f(this)g(routine) +f(is)g(appropriate)h(when)f(e\016ciency)h(is)g(imp)s(ortan)m(t)f(and)h +(where)g(man)m(y)g(star)427 4145 y(p)s(ositions,)c(all)g(with)f +(parallax)h(and)g(prop)s(er)f(motion)i(either)f(zero)i(or)f(already)f +(allo)m(w)m(ed)h(for,)g(and)427 4258 y(all)34 b(referred)h(to)h(the)f +(same)h(equator)g(and)e(equino)m(x,)i(are)g(to)g(b)s(e)f(transformed)f +(for)h(one)g(ep)s(o)s(c)m(h.)427 4371 y(The)23 b(star-indep)s(enden)m +(t)g(parameters)h(can)g(b)s(e)f(obtained)g(b)m(y)g(calling)g(the)g(sla) +p Fq(_)p FA(MAPP)-8 b(A)24 b(routine.)311 4534 y(2.)46 +b(The)31 b(corresp)s(onding)d(routine)i(for)h(the)f(case)i(of)f +(non-zero)g(parallax)f(and)g(FK5)h(prop)s(er)f(motion)427 +4647 y(is)g(sla)p Fq(_)p FA(MAPQK.)311 4811 y(3.)46 b(The)23 +b(v)m(ectors)j(AMPRMS\(2-4\))f(and)e(AMPRMS\(5-7\))j(are)e(referred)f +(to)h(the)g(mean)g(equino)m(x)f(and)427 4924 y(equator)31 +b(of)g(ep)s(o)s(c)m(h)f(EQ.)311 5087 y(4.)46 b(Strictly)32 +b(sp)s(eaking,)g(the)h(routine)e(is)h(not)h(v)-5 b(alid)31 +b(for)h(solar-system)h(sources,)h(though)e(the)h(error)427 +5200 y(will)e(usually)h(b)s(e)h(extremely)g(small.)49 +b(Ho)m(w)m(ev)m(er,)37 b(to)d(prev)m(en)m(t)g(gross)g(errors)f(in)g +(the)g(case)i(where)427 5313 y(the)41 b(p)s(osition)d(of)i(the)g(Sun)f +(is)g(sp)s(eci\014ed,)i(the)f(gra)m(vitational)h(de\015ection)e(term)h +(is)g(restrained)427 5426 y(within)27 b(ab)s(out)i(920)1098 +5389 y Fh(0)m(0)1169 5426 y FA(of)g(the)g(cen)m(tre)h(of)g(the)f(Sun's) +f(disc.)39 b(The)29 b(term)g(has)g(a)h(maxim)m(um)e(v)-5 +b(alue)28 b(of)427 5539 y(ab)s(out)23 b(1)720 5502 y +Fh(0)m(0)724 5539 y Fi(:)p FA(85)i(at)f(this)e(radius,)i(and)e +(decreases)i(to)h(zero)f(as)f(the)h(cen)m(tre)g(of)g(the)f(disc)g(is)f +(approac)m(hed.)p eop +%%Page: 95 97 +95 96 bop 0 52 a Ft(SUN/67.45)3252 b FA(95)0 351 y Fy(REFERENCES)44 +b FA(:)311 534 y(1.)i(1984)32 b Fn(Astr)-5 b(onomic)g(al)36 +b(A)n(lmanac)p FA(,)31 b(pp)e(B39-B41.)311 674 y(2.)46 +b(Lederle)30 b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h Fn(Astr.Astr)-5 +b(ophys.)33 b Fy(134)p FA(,)e(1-6.)p 0 791 3780 8 v 0 +904 a Fu(SLA)p Fk(_)p Fu(MOON)558 b Fj(Appro)m(x)38 b(Mo)s(on)g(P)m +(os/V)-10 b(el)558 b Fu(SLA)p Fk(_)p Fu(MOON)0 1254 y +Fy(A)m(CTION)44 b FA(:)c(Appro)m(ximate)31 b(geo)s(cen)m(tric)g(p)s +(osition)e(and)g(v)m(elo)s(cit)m(y)i(of)g(the)f(Mo)s(on)h(\(single)e +(precision\).)0 1442 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_MOON)g(\(IY,)h(ID,)f(FD,)h(PV\))0 1770 y Fy(GIVEN)e +FA(:)277 1916 y Fn(IY)633 b Fy(I)605 b FA(y)m(ear)277 +2029 y Fn(ID)632 b Fy(I)605 b FA(da)m(y)31 b(in)e(y)m(ear)i(\(1)g(=)f +(Jan)g(1st\))277 2142 y Fn(FD)608 b Fy(R)567 b FA(fraction)30 +b(of)h(da)m(y)0 2458 y Fy(RETURNED)46 b FA(:)277 2604 +y Fn(PV)606 b Fy(R\(6\))433 b FA(Mo)s(on)41 b([)15 b +Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 +b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 b FA(],)44 b(mean)d(equator)h(and)f +(equino)m(x)1658 2717 y(of)31 b(date)g(\(A)m(U,)g(A)m(U)h(s)2389 +2684 y Fm(\000)p Fr(1)2483 2717 y FA(\))0 3033 y Fy(NOTES)44 +b FA(:)311 3216 y(1.)i(The)30 b(date)g(and)f(time)h(is)f(TDB)h(\(lo)s +(osely)f(ET\))h(in)e(a)j(Julian)c(calendar)i(whic)m(h)g(has)h(b)s(een)f +(aligned)427 3329 y(to)35 b(the)g(ordinary)e(Gregorian)h(calendar)g +(for)g(the)h(in)m(terv)-5 b(al)33 b(1900)k(Marc)m(h)e(1)f(to)i(2100)g +(F)-8 b(ebruary)427 3442 y(28.)42 b(The)30 b(y)m(ear)h(and)f(da)m(y)g +(can)h(b)s(e)f(obtained)g(b)m(y)g(calling)f(sla)p Fq(_)p +FA(CAL)-8 b(YD)30 b(or)g(sla)p Fq(_)p FA(CL)-8 b(YD.)311 +3582 y(2.)46 b(The)37 b(p)s(osition)e(is)h(accurate)i(to)g(b)s(etter)f +(than)g(0.5)h(arcmin)m(ute)f(in)e(direction)h(and)g(1000)j(km)e(in)427 +3695 y(distance.)h(The)21 b(v)m(elo)s(cit)m(y)h(is)e(accurate)j(to)g(b) +s(etter)e(than)g(0)2363 3658 y Fh(0)m(0)2367 3695 y Fi(:)p +FA(5)i(p)s(er)d(hour)h(in)f(direction)g(and)h(4)h(metres)427 +3808 y(p)s(er)f(so)s(cond)g(in)f(distance.)38 b(\(RMS)21 +b(\014gures)g(with)f(resp)s(ect)i(to)g(JPL)f(DE200)i(for)e(the)h(in)m +(terv)-5 b(al)20 b(1960-)427 3921 y(2025)25 b(are)e(14)861 +3884 y Fh(0)m(0)925 3921 y FA(and)f(0)1134 3884 y Fh(0)l(0)1138 +3921 y Fi(:)p FA(2)i(p)s(er)d(hour)h(in)g(longitude,)h(9)2145 +3884 y Fh(0)l(0)2208 3921 y FA(and)f(0)2417 3884 y Fh(0)m(0)2421 +3921 y Fi(:)p FA(2)i(p)s(er)e(hour)g(in)f(latitude,)j(350)g(km)e(and) +427 4034 y(2)34 b(metres)g(p)s(er)f(second)h(in)e(distance.\))50 +b(Note)35 b(that)g(the)e(distance)h(accuracy)h(is)d(comparativ)m(ely) +427 4147 y(p)s(o)s(or)25 b(b)s(ecause)i(this)e(routine)g(is)g +(principally)d(in)m(tended)j(for)h(computing)f(top)s(o)s(cen)m(tric)i +(direction.)311 4288 y(3.)46 b(This)28 b(routine)h(is)g(only)g(a)h +(partial)f(implemen)m(tation)f(of)i(the)g(original)e(Meeus)i(algorithm) +f(\(refer-)427 4401 y(ence)f(b)s(elo)m(w\),)f(whic)m(h)f(o\013ers)h(4)g +(times)f(the)h(accuracy)h(in)e(direction)f(and)h(20)i(times)e(the)h +(accuracy)427 4514 y(in)i(distance)h(when)g(fully)e(implemen)m(ted)h +(\(as)i(it)f(is)f(in)g(sla)p Fq(_)p FA(DMOON\).)0 4838 +y Fy(REFERENCE)44 b FA(:)d(Meeus,)31 b Fn(l'Astr)-5 b(onomie)p +FA(,)32 b(June)e(1984,)i(p348.)p 0 4955 V 0 5068 a Fu(SLA)p +Fk(_)p Fu(MXM)600 b Fj(Multiply)37 b(3)27 b Fe(\002)f +Fj(3)39 b(Matrices)601 b Fu(SLA)p Fk(_)p Fu(MXM)0 5418 +y Fy(A)m(CTION)44 b FA(:)c(Pro)s(duct)30 b(of)h(t)m(w)m(o)g(3)21 +b Fl(\002)f FA(3)31 b(matrices)f(\(single)f(precision\).)0 +5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_MXM)g(\(A,)h(B,)g(C\))p +eop +%%Page: 96 98 +96 97 bop 0 52 a FA(96)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(A)668 b Fy(R\(3,3\))352 b FA(matrix)30 b Fy(A)277 +610 y Fn(B)672 b Fy(R\(3,3\))352 b FA(matrix)30 b Fy(B)0 +898 y(RETURNED)46 b FA(:)277 1070 y Fn(C)671 b Fy(R\(3,3\))352 +b FA(matrix)30 b(result:)40 b Fy(A)p Fl(\002)p Fy(B)0 +1366 y(NOTE)k FA(:)c(T)-8 b(o)30 b(comply)e(with)g(the)h(ANSI)g(F)-8 +b(ortran)29 b(77)h(standard,)f(A,)h(B)f(and)f(C)h(m)m(ust)g(b)s(e)f +(di\013eren)m(t)h(arra)m(ys.)227 1479 y(The)f(routine)g(is,)g(in)f +(fact,)j(co)s(ded)e(so)g(as)h(to)g(w)m(ork)g(prop)s(erly)d(on)i(the)h +(V)-10 b(AX)29 b(and)e(man)m(y)i(other)f(systems)227 +1592 y(ev)m(en)j(if)f(this)f(rule)g(is)g(violated,)i(something)e(that)i +(is)f Fy(not)p FA(,)g(ho)m(w)m(ev)m(er,)i(recommended.)p +0 1696 3780 8 v 0 1809 a Fu(SLA)p Fk(_)p Fu(MXV)744 b +Fj(Apply)38 b(3D)h(Rotation)743 b Fu(SLA)p Fk(_)p Fu(MXV)0 +2159 y Fy(A)m(CTION)44 b FA(:)c(Multiply)28 b(a)j(3-v)m(ector)i(b)m(y)d +(a)h(rotation)f(matrix)g(\(single)g(precision\).)0 2347 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_MXV)g(\(RM,)h(VA,)g(VB\))0 +2659 y Fy(GIVEN)e FA(:)277 2805 y Fn(RM)588 b Fy(R\(3,3\))352 +b FA(rotation)31 b(matrix)277 2918 y Fn(V)-9 b(A)609 +b Fy(R\(3\))433 b FA(v)m(ector)32 b(to)f(b)s(e)f(rotated)0 +3206 y Fy(RETURNED)46 b FA(:)277 3377 y Fn(VB)604 b Fy(R\(3\))433 +b FA(result)29 b(v)m(ector)0 3674 y Fy(NOTES)44 b FA(:)311 +3852 y(1.)i(This)29 b(routine)g(p)s(erforms)g(the)i(op)s(eration:)597 +3989 y Fy(b)g FA(=)f Fy(M)p Fl(\001)p Fy(a)427 4125 y +FA(where)g Fy(a)f FA(and)g Fy(b)h FA(are)g(the)g(3-v)m(ectors)i(V)-10 +b(A)30 b(and)f(VB)i(resp)s(ectiv)m(ely)-8 b(,)30 b(and)f +Fy(M)h FA(is)f(the)h(3)19 b Fl(\002)g FA(3)30 b(matrix)427 +4238 y(RM.)311 4375 y(2.)46 b(The)30 b(main)f(function)g(of)i(this)e +(routine)g(is)h(apply)f(a)h(rotation;)h(under)e(these)i(circumstances,) +f Fy(M)427 4488 y FA(is)g(a)g Fn(pr)-5 b(op)g(er)36 b(r)-5 +b(e)g(al)34 b(ortho)-5 b(gonal)43 b FA(matrix.)311 4624 +y(3.)j(T)-8 b(o)25 b(comply)f(with)g(the)h(ANSI)f(F)-8 +b(ortran)26 b(77)f(standard,)g(V)-10 b(A)25 b(and)f(VB)i(m)m(ust)e +Fy(not)h FA(b)s(e)f(the)h(same)g(ar-)427 4737 y(ra)m(y)-8 +b(.)40 b(The)25 b(routine)f(is,)i(in)e(fact,)k(co)s(ded)d(so)g(as)h(to) +g(w)m(ork)f(prop)s(erly)f(on)h(the)g(V)-10 b(AX)26 b(and)f(man)m(y)g +(other)427 4850 y(systems)31 b(ev)m(en)g(if)e(this)g(rule)g(is)h +(violated,)g(something)g(that)h(is)e Fy(not)p FA(,)i(ho)m(w)m(ev)m(er,) +h(recommended.)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p Fu(NUT)843 +b Fj(Nutation)37 b(Matrix)843 b Fu(SLA)p Fk(_)p Fu(NUT)0 +5418 y Fy(A)m(CTION)44 b FA(:)c(F)-8 b(orm)31 b(the)g(matrix)f(of)g(n)m +(utation)g(\(IA)m(U)i(1980)g(theory\))f(for)f(a)h(giv)m(en)f(date.)0 +5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_NUT)g(\(DATE,)g(RMATN\)) +p eop +%%Page: 97 99 +97 98 bop 0 52 a Ft(SUN/67.45)3252 b FA(97)0 351 y Fy(GIVEN)45 +b FA(:)277 497 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(TDB)68 +b(\(formerly)f(ET\))g(as)h(Mo)s(di\014ed)d(Julian)h(Date)1658 +610 y(\(JD)p Fl(\000)p FA(2400000.5\))0 1059 y Fy(RETURNED)46 +b FA(:)277 1231 y Fn(RMA)-7 b(TN)394 b Fy(D\(3,3\))350 +b FA(n)m(utation)30 b(matrix)0 1688 y Fy(NOTE)44 b FA(:)d(The)30 +b(matrix)f(is)h(in)f(the)h(sense:)427 1914 y Fy(v)482 +1928 y Fc(tr)r(ue)650 1914 y FA(=)g Fy(M)p Fl(\001)p +Fy(v)930 1928 y Fc(mean)227 2139 y FA(where)k Fy(v)549 +2153 y Fc(tr)r(ue)719 2139 y FA(is)f(the)h(star)g(v)m(ector)h(relativ)m +(e)f(to)h(the)f(true)f(equator)i(and)e(equino)m(x)g(of)h(date,)i +Fy(M)d FA(is)g(the)227 2252 y(3)5 b Fl(\002)g FA(3)24 +b(matrix)e(RMA)-8 b(TN)24 b(and)e Fy(v)1302 2266 y Fc(mean)1504 +2252 y FA(is)g(the)h(star)g(v)m(ector)i(relativ)m(e)e(to)g(the)g(mean)g +(equator)h(and)e(equino)m(x)227 2365 y(of)31 b(date.)0 +2822 y Fy(REFERENCES)44 b FA(:)311 3048 y(1.)i(Final)21 +b(rep)s(ort)f(of)i(the)g(IA)m(U)g(W)-8 b(orking)21 b(Group)g(on)h +(Nutation,)h(c)m(hairman)e(P)-8 b(.K.Seidelmann,)21 b(1980.)311 +3213 y(2.)46 b(Kaplan,)30 b(G.H.,)h(1981.)i Fn(USNO)e(cir)-5 +b(cular)34 b(No.)e(163)p FA(,)g(pA3-6.)p 0 3384 3780 +8 v 0 3497 a Fu(SLA)p Fk(_)p Fu(NUTC)603 b Fj(Nutation)37 +b(Comp)s(onen)m(ts)601 b Fu(SLA)p Fk(_)p Fu(NUTC)0 3847 +y Fy(A)m(CTION)44 b FA(:)d(Nutation)31 b(\(IA)m(U)h(1980)h(theory\):)42 +b(longitude)29 b(&)i(obliquit)m(y)d(comp)s(onen)m(ts,)k(and)e(mean)h +(obliq-)227 3960 y(uit)m(y)-8 b(.)0 4148 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_NUTC)g(\(DATE,)g(DPSI,)g(DEPS,)h(EPS0\))0 +4555 y Fy(GIVEN)e FA(:)277 4701 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(TDB)68 b(\(formerly)f(ET\))g(as)h(Mo)s(di\014ed)d +(Julian)h(Date)1658 4814 y(\(JD)p Fl(\000)p FA(2400000.5\))0 +5262 y Fy(RETURNED)46 b FA(:)277 5409 y Fn(DPSI,DEPS)247 +b Fy(D)565 b FA(n)m(utation)30 b(in)f(longitude)g(and)h(obliquit)m(y)e +(\(radians\))277 5521 y Fn(EPS0)515 b Fy(D)565 b FA(mean)31 +b(obliquit)m(y)d(\(radians\))p eop +%%Page: 98 100 +98 99 bop 0 52 a FA(98)0 351 y Fy(REFERENCES)44 b FA(:)311 +545 y(1.)i(Final)21 b(rep)s(ort)f(of)i(the)g(IA)m(U)g(W)-8 +b(orking)21 b(Group)g(on)h(Nutation,)h(c)m(hairman)e(P)-8 +b(.K.Seidelmann,)21 b(1980.)311 694 y(2.)46 b(Kaplan,)30 +b(G.H.,)h(1981.)i Fn(USNO)e(cir)-5 b(cular)34 b(no.)f(163)p +FA(,)f(pA3-6.)p 0 832 3780 8 v 0 945 a Fu(SLA)p Fk(_)p +Fu(O)l(AP)709 b Fj(Observ)m(ed)39 b(to)f(Apparen)m(t)709 +b Fu(SLA)p Fk(_)p Fu(O)l(AP)0 1295 y Fy(A)m(CTION)44 +b FA(:)c(Observ)m(ed)30 b(to)h(apparen)m(t)g(place.)0 +1483 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_OAP)g(\(TYPE,)g(OB1,)h +(OB2,)g(DATE,)f(DUT,)h(ELONGM,)e(PHIM,)1096 1596 y(HM,)i(XP,)g(YP,)g +(TDK,)f(PMB,)h(RH,)g(WL,)g(TLR,)f(RAP,)h(DAP\))0 1954 +y Fy(GIVEN)e FA(:)277 2100 y Fn(TYPE)479 b Fy(C*\(*\))383 +b FA(t)m(yp)s(e)31 b(of)f(co)s(ordinates)g({)h(`R',)g(`H')g(or)f(`A')h +(\(see)h(b)s(elo)m(w\))277 2213 y Fn(OB1)556 b Fy(D)565 +b FA(observ)m(ed)53 b(Az,)60 b(HA)53 b(or)g(RA)g(\(radians;)64 +b(Az)53 b(is)g(N=0,)1658 2326 y(E=90)1881 2293 y Fm(\016)1921 +2326 y FA(\))277 2439 y Fn(OB2)556 b Fy(D)565 b FA(observ)m(ed)31 +b(zenith)e(distance)h(or)h Fi(\016)j FA(\(radians\))277 +2552 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(UTC)140 b(date/time)i(\(Mo) +s(di\014ed)e(Julian)e(Date,)1658 2665 y(JD)p Fl(\000)p +FA(2400000.5\))277 2777 y Fn(DUT)534 b Fy(D)565 b FA(\001UT:)30 +b(UT1)p Fl(\000)p FA(UTC)g(\(UTC)g(seconds\))277 2890 +y Fn(ELONGM)327 b Fy(D)565 b FA(observ)m(er's)31 b(mean)f(longitude)f +(\(radians,)h(east)h(+v)m(e\))277 3003 y Fn(PHIM)489 +b Fy(D)565 b FA(observ)m(er's)31 b(mean)f(geo)s(detic)h(latitude)f +(\(radians\))277 3116 y Fn(HM)586 b Fy(D)565 b FA(observ)m(er's)31 +b(heigh)m(t)f(ab)s(o)m(v)m(e)i(sea)f(lev)m(el)f(\(metres\))277 +3229 y Fn(XP,YP)448 b Fy(D)565 b FA(p)s(olar)29 b(motion)h([)15 +b Fi(x;)g(y)k FA(])31 b(co)s(ordinates)f(\(radians\))277 +3342 y Fn(TDK)532 b Fy(D)565 b FA(lo)s(cal)147 b(am)m(bien)m(t)h(temp)s +(erature)f(\(degrees)h(K;)1658 3455 y(std=273.155D0\))277 +3568 y Fn(PMB)528 b Fy(D)565 b FA(lo)s(cal)30 b(atmospheric)g(pressure) +f(\(mB;)i(std=1013.25D0\))277 3681 y Fn(RH)602 b Fy(D)565 +b FA(lo)s(cal)30 b(relativ)m(e)g(h)m(umidit)m(y)f(\(in)g(the)i(range)f +(0D0)17 b({)e(1D0\))277 3794 y Fn(WL)588 b Fy(D)565 b +FA(e\013ectiv)m(e)32 b(w)m(a)m(v)m(elength)g(\()p Fi(\026)p +FA(m,)e Fn(e.g.)g FA(0.55D0\))277 3907 y Fn(TLR)548 b +Fy(D)565 b FA(trop)s(ospheric)32 b(lapse)h(rate)i(\(degrees)f(K)g(p)s +(er)f(metre,)i Fn(e.g.)1658 4019 y FA(0.0065D0\))0 4387 +y Fy(RETURNED)46 b FA(:)277 4559 y Fn(RAP,D)n(AP)315 +b Fy(D)565 b FA(geo)s(cen)m(tric)32 b(apparen)m(t)e([)15 +b Fi(\013;)g(\016)21 b FA(])0 4935 y Fy(NOTES)44 b FA(:)311 +5128 y(1.)i(Only)39 b(the)h(\014rst)g(c)m(haracter)i(of)e(the)g(TYPE)g +(argumen)m(t)h(is)e(signi\014can)m(t.)69 b(`R')41 b(or)f(`r')h +(indicates)427 5241 y(that)35 b(OBS1)f(and)g(OBS2)g(are)h(the)f(observ) +m(ed)h(Righ)m(t)f(Ascension)f(and)h(Declination;)h(`H')g(or)g(`h')427 +5354 y(indicates)27 b(that)h(they)g(are)g(Hour)f(Angle)g(\(w)m(est)i +(+v)m(e\))f(and)f(Declination;)h(an)m(ything)f(else)h(\(`A')g(or)427 +5467 y(`a')h(is)f(recommended\))g(indicates)f(that)i(OBS1)f(and)g(OBS2) +g(are)h(Azim)m(uth)e(\(north)h(zero,)i(east)f(is)427 +5580 y(90)517 5547 y Fm(\016)558 5580 y FA(\))i(and)g(Zenith)f +(Distance.)44 b(\(Zenith)31 b(distance)g(is)f(used)h(rather)g(than)g +(elev)-5 b(ation)32 b(in)e(order)h(to)427 5693 y(re\015ect)g(the)g +(fact)g(that)g(no)f(allo)m(w)m(ance)h(is)f(made)g(for)g(depression)f +(of)i(the)f(horizon.\))p eop +%%Page: 99 101 +99 100 bop 0 52 a Ft(SUN/67.45)3252 b FA(99)311 351 y(2.)46 +b(The)30 b(accuracy)i(of)f(the)g(result)e(is)h(limited)e(b)m(y)j(the)g +(corrections)g(for)f(refraction.)41 b(Pro)m(viding)29 +b(the)427 464 y(meteorological)j(parameters)f(are)g(kno)m(wn)f +(accurately)h(and)f(there)h(are)g(no)f(gross)h(lo)s(cal)f(e\013ects,) +427 577 y(the)f(predicted)e(azim)m(uth)h(and)g(elev)-5 +b(ation)28 b(should)e(b)s(e)i(within)e(ab)s(out)i(0)2869 +540 y Fh(0)l(0)2873 577 y Fi(:)p FA(1)h(for)f Fi(\020)k(<)25 +b FA(70)3367 544 y Fm(\016)3407 577 y FA(.)40 b(Ev)m(en)29 +b(at)427 690 y(a)i(top)s(o)s(cen)m(tric)f(zenith)g(distance)g(of)g(90) +1800 657 y Fm(\016)1840 690 y FA(,)h(the)f(accuracy)i(in)c(elev)-5 +b(ation)31 b(should)d(b)s(e)h(b)s(etter)i(than)427 803 +y(1)21 b(arcmin)m(ute;)j(useful)19 b(results)g(are)i(a)m(v)-5 +b(ailable)20 b(for)g(a)h(further)f(3)2512 770 y Fm(\016)2551 +803 y FA(,)j(b)s(ey)m(ond)d(whic)m(h)f(the)i(sla)p Fq(_)p +FA(REFR)m(O)427 916 y(routine)26 b(returns)f(a)i(\014xed)f(v)-5 +b(alue)27 b(of)f(the)h(refraction.)39 b(The)27 b(complemen)m(tary)f +(routines)g(sla)p Fq(_)p FA(A)m(OP)427 1029 y(\(or)39 +b(sla)p Fq(_)p FA(A)m(OPQK\))f(and)g(sla)p Fq(_)p FA(O)m(AP)g(\(or)h +(sla)p Fq(_)p FA(O)m(APQK\))f(are)h(self-consisten)m(t)g(to)g(b)s +(etter)g(than)427 1142 y(1)31 b(microarcsecond)f(all)g(o)m(v)m(er)h +(the)g(celestial)f(sphere.)311 1273 y(3.)46 b(It)c(is)e(advisable)h(to) +h(tak)m(e)h(great)g(care)f(with)e(units,)j(as)f(ev)m(en)g(unlik)m(ely)d +(v)-5 b(alues)41 b(of)h(the)f(input)427 1386 y(parameters)31 +b(are)g(accepted)g(and)f(pro)s(cessed)g(in)f(accordance)j(with)d(the)i +(mo)s(dels)e(used.)311 1517 y(4.)46 b Fn(Observe)-5 b(d)49 +b FA([)15 b Fi(Az)t(;)g(E)5 b(l)42 b FA(])d(means)g(the)g(p)s(osition)d +(that)k(w)m(ould)d(b)s(e)i(seen)f(b)m(y)h(a)g(p)s(erfect)g(theo)s +(dolite)427 1630 y(lo)s(cated)46 b(at)g(the)g(observ)m(er.)86 +b(This)44 b(is)h(related)g(to)h(the)g(observ)m(ed)g([)15 +b Fi(h;)g(\016)20 b FA(])45 b(via)h(the)f(standard)427 +1743 y(rotation,)30 b(using)c(the)j(geo)s(detic)g(latitude)e +(\(corrected)j(for)e(p)s(olar)f(motion\),)i(while)e(the)h(observ)m(ed) +427 1856 y(HA)39 b(and)e(RA)h(are)h(related)f(simply)d(through)j(the)g +(lo)s(cal)f(apparen)m(t)i(ST.)e Fn(Observe)-5 b(d)48 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])38 b(or)427 1969 +y([)15 b Fi(h;)g(\016)20 b FA(])32 b(th)m(us)f(means)g(the)g(p)s +(osition)e(that)j(w)m(ould)e(b)s(e)h(seen)g(b)m(y)g(a)g(p)s(erfect)g +(equatorial)g(lo)s(cated)h(at)427 2082 y(the)25 b(observ)m(er)g(and)f +(with)g(its)g(p)s(olar)g(axis)g(aligned)f(to)j(the)f(Earth's)g(axis)f +(of)h(rotation)g(\()p Fn(n.b.)g FA(not)g(to)427 2195 +y(the)32 b(refracted)g(p)s(ole\).)44 b(By)32 b(remo)m(ving)f(from)g +(the)h(observ)m(ed)g(place)f(the)h(e\013ects)h(of)f(atmospheric)427 +2308 y(refraction)e(and)g(diurnal)e(ab)s(erration,)h(the)i(geo)s(cen)m +(tric)g(apparen)m(t)g([)15 b Fi(\013;)g(\016)20 b FA(])31 +b(is)e(obtained.)311 2439 y(5.)46 b(F)-8 b(requen)m(tly)g(,)32 +b Fn(me)-5 b(an)38 b FA(rather)30 b(than)g Fn(app)-5 +b(ar)g(ent)49 b FA([)15 b Fi(\013;)g(\016)20 b FA(])31 +b(will)c(b)s(e)j(required,)f(in)g(whic)m(h)g(case)j(further)427 +2552 y(transformations)37 b(will)d(b)s(e)j(necessary)-8 +b(.)62 b(The)37 b(sla)p Fq(_)p FA(AMP)f Fn(etc.)h FA(routines)f(will)f +(con)m(v)m(ert)k(the)e(ap-)427 2665 y(paren)m(t)k([)15 +b Fi(\013;)g(\016)20 b FA(])41 b(pro)s(duced)d(b)m(y)j(the)f(presen)m +(t)h(routine)e(in)m(to)h(an)h(FK5)f(J2000)i(mean)f(place,)i(b)m(y)427 +2778 y(allo)m(wing)30 b(for)h(the)h(Sun's)e(gra)m(vitational)i(lens)e +(e\013ect,)j(ann)m(ual)e(ab)s(erration,)g(n)m(utation)g(and)g(pre-)427 +2891 y(cession.)46 b(Should)29 b(FK4)k(B1950)h(co)s(ordinates)e(b)s(e)f +(needed,)i(the)f(routines)f(sla)p Fq(_)p FA(FK524)h Fn(etc.)g +FA(will)427 3004 y(also)f(need)f(to)h(b)s(e)f(applied.)311 +3135 y(6.)46 b(T)-8 b(o)31 b(con)m(v)m(ert)h(to)f(apparen)m(t)f([)15 +b Fi(\013;)g(\016)21 b FA(])30 b(the)h(co)s(ordinates)f(read)g(from)g +(a)g(real)g(telescop)s(e,)h(corrections)427 3248 y(w)m(ould)43 +b(ha)m(v)m(e)i(to)g(b)s(e)f(applied)e(for)h(enco)s(der)h(zero)h(p)s +(oin)m(ts,)i(gear)e(and)e(enco)s(der)h(errors,)j(tub)s(e)427 +3361 y(\015exure,)e(the)d(p)s(osition)e(of)j(the)f(rotator)h(axis)f +(and)g(the)g(p)s(oin)m(ting)e(axis)i(relativ)m(e)g(to)h(it,)i(non-)427 +3474 y(p)s(erp)s(endicularit)m(y)22 b(b)s(et)m(w)m(een)k(the)g(moun)m +(ting)f(axes,)i(and)e(\014nally)f(for)h(the)h(tilt)f(of)g(the)h(azim)m +(uth)f(or)427 3587 y(p)s(olar)32 b(axis)g(of)h(the)h(moun)m(ting)e +(\(with)g(appropriate)g(corrections)h(for)g(moun)m(t)f(\015exures\).)48 +b(Some)427 3700 y(telescop)s(es)22 b(w)m(ould,)g(of)f(course,)i +(exhibit)d(other)h(prop)s(erties)e(whic)m(h)h(w)m(ould)g(need)h(to)h(b) +s(e)e(accoun)m(ted)427 3813 y(for)30 b(at)i(the)e(appropriate)f(p)s +(oin)m(t)h(in)f(the)h(sequence.)311 3944 y(7.)46 b(The)40 +b(star-indep)s(enden)m(t)f(apparen)m(t-to-observ)m(ed-place)k +(parameters)e(in)e(A)m(OPRMS)i(ma)m(y)g(b)s(e)427 4057 +y(computed)31 b(b)m(y)f(means)g(of)h(the)g(sla)p Fq(_)p +FA(A)m(OPP)-8 b(A)30 b(routine.)40 b(If)30 b(nothing)g(has)g(c)m +(hanged)h(signi\014can)m(tly)427 4170 y(except)45 b(the)g(time,)i(the)d +(sla)p Fq(_)p FA(A)m(OPP)-8 b(A)g(T)45 b(routine)e(ma)m(y)h(b)s(e)g +(used)f(to)i(p)s(erform)e(the)h(requisite)427 4283 y(partial)29 +b(recomputation)i(of)f(A)m(OPRMS.)311 4414 y(8.)46 b(The)26 +b(D)m(A)-8 b(TE)27 b(argumen)m(t)g(is)e(UTC)h(expressed)g(as)g(an)g +(MJD.)h(This)e(is,)h(strictly)f(sp)s(eaking,)i(wrong,)427 +4527 y(b)s(ecause)33 b(of)g(leap)g(seconds.)48 b(Ho)m(w)m(ev)m(er,)35 +b(as)e(long)g(as)g(the)g(\001UT)f(and)h(the)g(UTC)f(are)h(consisten)m +(t)427 4640 y(there)j(are)h(no)f(di\016culties,)f(except)i(during)d(a)i +(leap)g(second.)57 b(In)36 b(this)f(case,)j(the)f(start)f(of)g(the)427 +4753 y(61st)i(second)f(of)g(the)g(\014nal)f(min)m(ute)g(should)f(b)s +(egin)g(a)j(new)e(MJD)h(da)m(y)h(and)e(the)h(old)f(pre-leap)427 +4866 y(\001UT)i(should)e(con)m(tin)m(ue)i(to)h(b)s(e)e(used.)63 +b(As)38 b(the)g(61st)h(second)f(completes,)j(the)d(MJD)g(should)427 +4979 y(rev)m(ert)31 b(to)h(the)e(start)h(of)g(the)f(da)m(y)h(as,)g(sim) +m(ultaneously)-8 b(,)29 b(the)h(\001UT)g(c)m(hanges)h(b)m(y)g(one)f +(second)h(to)427 5091 y(its)f(p)s(ost-leap)g(new)g(v)-5 +b(alue.)311 5223 y(9.)46 b(The)27 b(\001UT)h(\(UT1)p +Fl(\000)p FA(UTC\))g(is)e(tabulated)i(in)e(IERS)h(circulars)f(and)h +(elsewhere.)39 b(It)28 b(increases)g(b)m(y)427 5336 y(exactly)k(one)f +(second)f(at)i(the)f(end)f(of)h(eac)m(h)g(UTC)f(leap)h(second,)g(in)m +(tro)s(duced)e(in)g(order)h(to)i(k)m(eep)427 5449 y(\001UT)e(within)e +Fl(\006)p FA(0)1066 5416 y Fr(s)1071 5449 y Fi(:)p FA(9.)266 +5580 y(10.)46 b(IMPOR)-8 b(T)g(ANT)39 b({)g(T)-8 b(AKE)38 +b(CARE)g(WITH)h(THE)f(LONGITUDE)h(SIGN)f(CONVENTION.)427 +5693 y(The)33 b(longitude)f(required)g(b)m(y)h(the)g(presen)m(t)h +(routine)e(is)h Fy(east-p)s(ositiv)m(e)p FA(,)h(in)e(accordance)j(with) +p eop +%%Page: 100 102 +100 101 bop 0 52 a FA(100)427 351 y(geographical)34 b(con)m(v)m(en)m +(tion)g(\(and)f(righ)m(t-handed\).)49 b(In)32 b(particular,)h(note)h +(that)g(the)f(longitudes)427 464 y(returned)d(b)m(y)i(the)f(sla)p +Fq(_)p FA(OBS)f(routine)h(are)h(w)m(est-p)s(ositiv)m(e)f(\(as)h(in)e +(the)i Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)427 577 +y FA(b)s(efore)30 b(1984\))j(and)c(m)m(ust)i(b)s(e)e(rev)m(ersed)i(in)e +(sign)g(b)s(efore)h(use)h(in)e(the)h(presen)m(t)h(routine.)266 +871 y(11.)46 b(The)37 b(p)s(olar)f(co)s(ordinates)h(XP)-8 +b(,YP)38 b(can)f(b)s(e)g(obtained)f(from)h(IERS)f(circulars)f(and)i +(equiv)-5 b(alen)m(t)427 984 y(publications.)36 b(The)24 +b(maxim)m(um)f(amplitude)g(is)g(ab)s(out)h(0)2373 947 +y Fh(0)m(0)2377 984 y Fi(:)p FA(3.)40 b(If)24 b(XP)-8 +b(,YP)25 b(v)-5 b(alues)24 b(are)h(una)m(v)-5 b(ailable,)427 +1097 y(use)31 b(XP=YP=0D0.)43 b(See)32 b(page)g(B60)g(of)f(the)g(1988)i +Fn(Astr)-5 b(onomic)g(al)36 b(A)n(lmanac)h FA(for)30 +b(a)i(de\014nition)427 1210 y(of)f(the)f(t)m(w)m(o)i(angles.)266 +1503 y(12.)46 b(The)35 b(heigh)m(t)g(ab)s(o)m(v)m(e)h(sea)f(lev)m(el)g +(of)g(the)g(observing)f(station,)i(HM,)g(can)f(b)s(e)g(obtained)f(from) +g(the)427 1616 y Fn(Astr)-5 b(onomic)g(al)39 b(A)n(lmanac)h +FA(\(Section)35 b(J)f(in)f(the)i(1988)h(edition\),)f(or)f(via)g(the)h +(routine)e(sla)p Fq(_)p FA(OBS.)427 1729 y(If)h(P)-8 +b(,)34 b(the)g(pressure)e(in)h(mB,)h(is)f(a)m(v)-5 b(ailable,)34 +b(an)f(adequate)i(estimate)g(of)f(HM)g(can)g(b)s(e)f(obtained)427 +1842 y(from)d(the)h(follo)m(wing)e(expression:)597 2136 +y Fq(HM=-29.3D0*TSL*LOG\(P/1013)o(.25D)o(0\))427 2430 +y FA(where)c(TSL)g(is)f(the)i(appro)m(ximate)f(sea-lev)m(el)h(air)f +(temp)s(erature)g(in)f(degrees)i(K)f(\(see)i Fn(Astr)-5 +b(ophysi-)427 2543 y(c)g(al)27 b(Quantities)p FA(,)f(C.W.Allen,)e(3rd)f +(edition,)h Fl(x)p FA(52\).)40 b(Similarly)-8 b(,)22 +b(if)g(the)i(pressure)e(P)h(is)g(not)h(kno)m(wn,)427 +2656 y(it)30 b(can)h(b)s(e)f(estimated)g(from)g(the)h(heigh)m(t)f(of)g +(the)h(observing)e(station,)i(HM)g(as)g(follo)m(ws:)597 +2949 y Fq(P=1013.25D0*EXP\(-HM/\(29.3)o(D0*T)o(SL\)\))427 +3243 y FA(Note,)26 b(ho)m(w)m(ev)m(er,)f(that)e(the)f(refraction)g(is)f +(prop)s(ortional)f(to)j(the)g(pressure)e(and)g(that)i(an)f(accurate)427 +3356 y(P)30 b(v)-5 b(alue)30 b(is)g(imp)s(ortan)m(t)f(for)h(precise)g +(w)m(ork.)266 3650 y(13.)46 b(The)31 b(azim)m(uths)g +Fn(etc.)g FA(used)g(b)m(y)g(the)h(presen)m(t)f(routine)g(are)h(with)e +(resp)s(ect)h(to)h(the)g(celestial)f(p)s(ole.)427 3763 +y(Corrections)f(from)g(the)h(terrestrial)e(p)s(ole)g(can)i(b)s(e)f +(computed)g(using)f(sla)p Fq(_)p FA(POLMO.)p 0 4191 3780 +8 v 0 4304 a Fu(SLA)p Fk(_)p Fu(O)l(APQK)334 b Fj(Quic)m(k)39 +b(Observ)m(ed)f(to)g(Apparen)m(t)334 b Fu(SLA)p Fk(_)p +Fu(O)l(APQK)0 4654 y Fy(A)m(CTION)44 b FA(:)c(Quic)m(k)30 +b(observ)m(ed)h(to)g(apparen)m(t)f(place.)0 4842 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_OAPQK)g(\(TYPE,)g(OB1,)g(OB2,)h(AOPRMS,)f +(RAP,)g(DAP\))0 5634 y Fy(GIVEN)f FA(:)p eop +%%Page: 101 103 +101 102 bop 0 52 a Ft(SUN/67.45)3206 b FA(101)277 339 +y Fn(TYPE)479 b Fy(C*\(*\))383 b FA(t)m(yp)s(e)31 b(of)f(co)s +(ordinates)g({)h(`R',)g(`H')g(or)f(`A')h(\(see)h(b)s(elo)m(w\))277 +452 y Fn(OB1)556 b Fy(D)565 b FA(observ)m(ed)53 b(Az,)60 +b(HA)53 b(or)g(RA)g(\(radians;)64 b(Az)53 b(is)g(N=0,)1658 +565 y(E=90)1881 532 y Fm(\016)1921 565 y FA(\))277 678 +y Fn(OB2)556 b Fy(D)565 b FA(observ)m(ed)31 b(zenith)e(distance)h(or)h +Fi(\016)j FA(\(radians\))277 791 y Fn(A)n(OPRMS)339 b +Fy(D\(14\))379 b FA(star-indep)s(enden)m(t)29 b(apparen)m(t-to-observ)m +(ed)j(parameter-)1658 904 y(s:)537 1016 y(\(1\))1006 +b(geo)s(detic)31 b(latitude)f(\(radians\))502 1129 y(\(2,3\))971 +b(sine)29 b(and)h(cosine)g(of)h(geo)s(detic)g(latitude)537 +1242 y(\(4\))1006 b(magnitude)30 b(of)g(diurnal)e(ab)s(erration)h(v)m +(ector)537 1355 y(\(5\))1006 b(heigh)m(t)30 b(\(HM\))537 +1468 y(\(6\))1006 b(am)m(bien)m(t)31 b(temp)s(erature)f(\(TDK\))537 +1581 y(\(7\))1006 b(pressure)29 b(\(PMB\))537 1694 y(\(8\))1006 +b(relativ)m(e)31 b(h)m(umidit)m(y)d(\(RH\))537 1807 y(\(9\))1006 +b(w)m(a)m(v)m(elength)32 b(\(WL\))514 1920 y(\(10\))984 +b(lapse)30 b(rate)h(\(TLR\))456 2033 y(\(11,12\))927 +b(refraction)30 b(constan)m(ts)i(A)e(and)g(B)h(\(radians\))514 +2146 y(\(13\))984 b(longitude)41 b(+)h(eqn)h(of)f(equino)m(xes)g(+)h +(\\sidereal)e(\001UT")1658 2258 y(\(radians\))514 2371 +y(\(14\))984 b(lo)s(cal)30 b(apparen)m(t)g(sidereal)f(time)h +(\(radians\))0 2726 y Fy(RETURNED)46 b FA(:)277 2897 +y Fn(RAP,D)n(AP)315 b Fy(D)565 b FA(geo)s(cen)m(tric)32 +b(apparen)m(t)e([)15 b Fi(\013;)g(\016)21 b FA(])0 3260 +y Fy(NOTES)44 b FA(:)311 3448 y(1.)i(Only)39 b(the)h(\014rst)g(c)m +(haracter)i(of)e(the)g(TYPE)g(argumen)m(t)h(is)e(signi\014can)m(t.)69 +b(`R')41 b(or)f(`r')h(indicates)427 3561 y(that)35 b(OBS1)f(and)g(OBS2) +g(are)h(the)f(observ)m(ed)h(Righ)m(t)f(Ascension)f(and)h(Declination;)h +(`H')g(or)g(`h')427 3674 y(indicates)27 b(that)h(they)g(are)g(Hour)f +(Angle)g(\(w)m(est)i(+v)m(e\))f(and)f(Declination;)h(an)m(ything)f +(else)h(\(`A')g(or)427 3786 y(`a')h(is)f(recommended\))g(indicates)f +(that)i(OBS1)f(and)g(OBS2)g(are)h(Azim)m(uth)e(\(north)h(zero,)i(east)f +(is)427 3899 y(90)517 3866 y Fm(\016)558 3899 y FA(\))i(and)g(Zenith)f +(Distance.)44 b(\(Zenith)31 b(distance)g(is)f(used)h(rather)g(than)g +(elev)-5 b(ation)32 b(in)e(order)h(to)427 4012 y(re\015ect)g(the)g +(fact)g(that)g(no)f(allo)m(w)m(ance)h(is)f(made)g(for)g(depression)f +(of)i(the)f(horizon.\))311 4159 y(2.)46 b(The)30 b(accuracy)i(of)f(the) +g(result)e(is)h(limited)e(b)m(y)j(the)g(corrections)g(for)f +(refraction.)41 b(Pro)m(viding)29 b(the)427 4271 y(meteorological)j +(parameters)f(are)g(kno)m(wn)f(accurately)h(and)f(there)h(are)g(no)f +(gross)h(lo)s(cal)f(e\013ects,)427 4384 y(the)f(predicted)e(azim)m(uth) +h(and)g(elev)-5 b(ation)28 b(should)e(b)s(e)i(within)e(ab)s(out)i(0) +2869 4347 y Fh(0)l(0)2873 4384 y Fi(:)p FA(1)h(for)f +Fi(\020)k(<)25 b FA(70)3367 4351 y Fm(\016)3407 4384 +y FA(.)40 b(Ev)m(en)29 b(at)427 4497 y(a)i(top)s(o)s(cen)m(tric)f +(zenith)g(distance)g(of)g(90)1800 4464 y Fm(\016)1840 +4497 y FA(,)h(the)f(accuracy)i(in)c(elev)-5 b(ation)31 +b(should)d(b)s(e)h(b)s(etter)i(than)427 4610 y(1)21 b(arcmin)m(ute;)j +(useful)19 b(results)g(are)i(a)m(v)-5 b(ailable)20 b(for)g(a)h(further) +f(3)2512 4577 y Fm(\016)2551 4610 y FA(,)j(b)s(ey)m(ond)d(whic)m(h)f +(the)i(sla)p Fq(_)p FA(REFR)m(O)427 4723 y(routine)26 +b(returns)f(a)i(\014xed)f(v)-5 b(alue)27 b(of)f(the)h(refraction.)39 +b(The)27 b(complemen)m(tary)f(routines)g(sla)p Fq(_)p +FA(A)m(OP)427 4836 y(\(or)39 b(sla)p Fq(_)p FA(A)m(OPQK\))f(and)g(sla)p +Fq(_)p FA(O)m(AP)g(\(or)h(sla)p Fq(_)p FA(O)m(APQK\))f(are)h +(self-consisten)m(t)g(to)g(b)s(etter)g(than)427 4949 +y(1)31 b(microarcsecond)f(all)g(o)m(v)m(er)h(the)g(celestial)f(sphere.) +311 5095 y(3.)46 b(It)c(is)e(advisable)h(to)h(tak)m(e)h(great)g(care)f +(with)e(units,)j(as)f(ev)m(en)g(unlik)m(ely)d(v)-5 b(alues)41 +b(of)h(the)f(input)427 5208 y(parameters)31 b(are)g(accepted)g(and)f +(pro)s(cessed)g(in)f(accordance)j(with)d(the)i(mo)s(dels)e(used.)311 +5354 y(4.)46 b Fn(Observe)-5 b(d)49 b FA([)15 b Fi(Az)t(;)g(E)5 +b(l)42 b FA(])d(means)g(the)g(p)s(osition)d(that)k(w)m(ould)d(b)s(e)i +(seen)f(b)m(y)h(a)g(p)s(erfect)g(theo)s(dolite)427 5467 +y(lo)s(cated)46 b(at)g(the)g(observ)m(er.)86 b(This)44 +b(is)h(related)g(to)h(the)g(observ)m(ed)g([)15 b Fi(h;)g(\016)20 +b FA(])45 b(via)h(the)f(standard)427 5580 y(rotation,)30 +b(using)c(the)j(geo)s(detic)g(latitude)e(\(corrected)j(for)e(p)s(olar)f +(motion\),)i(while)e(the)h(observ)m(ed)427 5693 y(HA)39 +b(and)e(RA)h(are)h(related)f(simply)d(through)j(the)g(lo)s(cal)f +(apparen)m(t)i(ST.)e Fn(Observe)-5 b(d)48 b FA([)15 b +Fi(\013;)g(\016)20 b FA(])38 b(or)p eop +%%Page: 102 104 +102 103 bop 0 52 a FA(102)427 351 y([)15 b Fi(h;)g(\016)20 +b FA(])32 b(th)m(us)f(means)g(the)g(p)s(osition)e(that)j(w)m(ould)e(b)s +(e)h(seen)g(b)m(y)g(a)g(p)s(erfect)g(equatorial)g(lo)s(cated)h(at)427 +464 y(the)25 b(observ)m(er)g(and)f(with)g(its)g(p)s(olar)g(axis)g +(aligned)f(to)j(the)f(Earth's)g(axis)f(of)h(rotation)g(\()p +Fn(n.b.)g FA(not)g(to)427 577 y(the)32 b(refracted)g(p)s(ole\).)44 +b(By)32 b(remo)m(ving)f(from)g(the)h(observ)m(ed)g(place)f(the)h +(e\013ects)h(of)f(atmospheric)427 690 y(refraction)e(and)g(diurnal)e +(ab)s(erration,)h(the)i(geo)s(cen)m(tric)g(apparen)m(t)g([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(is)e(obtained.)311 833 +y(5.)46 b(F)-8 b(requen)m(tly)g(,)32 b Fn(me)-5 b(an)38 +b FA(rather)30 b(than)g Fn(app)-5 b(ar)g(ent)49 b FA([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(will)c(b)s(e)j(required,)f(in)g(whic)m +(h)g(case)j(further)427 946 y(transformations)37 b(will)d(b)s(e)j +(necessary)-8 b(.)62 b(The)37 b(sla)p Fq(_)p FA(AMP)f +Fn(etc.)h FA(routines)f(will)f(con)m(v)m(ert)k(the)e(ap-)427 +1059 y(paren)m(t)k([)15 b Fi(\013;)g(\016)20 b FA(])41 +b(pro)s(duced)d(b)m(y)j(the)f(presen)m(t)h(routine)e(in)m(to)h(an)h +(FK5)f(J2000)i(mean)f(place,)i(b)m(y)427 1171 y(allo)m(wing)30 +b(for)h(the)h(Sun's)e(gra)m(vitational)i(lens)e(e\013ect,)j(ann)m(ual)e +(ab)s(erration,)g(n)m(utation)g(and)g(pre-)427 1284 y(cession.)46 +b(Should)29 b(FK4)k(B1950)h(co)s(ordinates)e(b)s(e)f(needed,)i(the)f +(routines)f(sla)p Fq(_)p FA(FK524)h Fn(etc.)g FA(will)427 +1397 y(also)f(need)f(to)h(b)s(e)f(applied.)311 1540 y(6.)46 +b(T)-8 b(o)31 b(con)m(v)m(ert)h(to)f(apparen)m(t)f([)15 +b Fi(\013;)g(\016)21 b FA(])30 b(the)h(co)s(ordinates)f(read)g(from)g +(a)g(real)g(telescop)s(e,)h(corrections)427 1653 y(w)m(ould)43 +b(ha)m(v)m(e)i(to)g(b)s(e)f(applied)e(for)h(enco)s(der)h(zero)h(p)s +(oin)m(ts,)i(gear)e(and)e(enco)s(der)h(errors,)j(tub)s(e)427 +1766 y(\015exure,)e(the)d(p)s(osition)e(of)j(the)f(rotator)h(axis)f +(and)g(the)g(p)s(oin)m(ting)e(axis)i(relativ)m(e)g(to)h(it,)i(non-)427 +1879 y(p)s(erp)s(endicularit)m(y)22 b(b)s(et)m(w)m(een)k(the)g(moun)m +(ting)f(axes,)i(and)e(\014nally)f(for)h(the)h(tilt)f(of)g(the)h(azim)m +(uth)f(or)427 1992 y(p)s(olar)32 b(axis)g(of)h(the)h(moun)m(ting)e +(\(with)g(appropriate)g(corrections)h(for)g(moun)m(t)f(\015exures\).)48 +b(Some)427 2105 y(telescop)s(es)22 b(w)m(ould,)g(of)f(course,)i +(exhibit)d(other)h(prop)s(erties)e(whic)m(h)h(w)m(ould)g(need)h(to)h(b) +s(e)e(accoun)m(ted)427 2218 y(for)30 b(at)i(the)e(appropriate)f(p)s +(oin)m(t)h(in)f(the)h(sequence.)311 2360 y(7.)46 b(The)40 +b(star-indep)s(enden)m(t)f(apparen)m(t-to-observ)m(ed-place)k +(parameters)e(in)e(A)m(OPRMS)i(ma)m(y)g(b)s(e)427 2473 +y(computed)31 b(b)m(y)f(means)g(of)h(the)g(sla)p Fq(_)p +FA(A)m(OPP)-8 b(A)30 b(routine.)40 b(If)30 b(nothing)g(has)g(c)m +(hanged)h(signi\014can)m(tly)427 2586 y(except)45 b(the)g(time,)i(the)d +(sla)p Fq(_)p FA(A)m(OPP)-8 b(A)g(T)45 b(routine)e(ma)m(y)h(b)s(e)g +(used)f(to)i(p)s(erform)e(the)h(requisite)427 2699 y(partial)29 +b(recomputation)i(of)f(A)m(OPRMS.)311 2842 y(8.)46 b(The)31 +b(azim)m(uths)g Fn(etc.)g FA(used)g(b)m(y)g(the)h(presen)m(t)f(routine) +g(are)h(with)e(resp)s(ect)h(to)h(the)g(celestial)f(p)s(ole.)427 +2955 y(Corrections)f(from)g(the)h(terrestrial)e(p)s(ole)g(can)i(b)s(e)f +(computed)g(using)f(sla)p Fq(_)p FA(POLMO.)p 0 3077 3780 +8 v 0 3190 a Fu(SLA)p Fk(_)p Fu(OBS)677 b Fj(Observ)-7 +b(atory)37 b(P)m(arameters)675 b Fu(SLA)p Fk(_)p Fu(OBS)0 +3541 y Fy(A)m(CTION)44 b FA(:)39 b(Lo)s(ok)27 b(up)f(an)h(en)m(try)h +(in)e(a)h(standard)g(list)e(of)j(groundbased)e(observing)g(stations)h +(parameters.)0 3728 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_OBS)g(\(N,)h(C,)g(NAME,)g(W,)g(P,)g(H\))0 4065 +y Fy(GIVEN)e FA(:)277 4236 y Fn(N)668 b Fy(I)605 b FA(n)m(um)m(b)s(er) +29 b(sp)s(ecifying)f(observing)i(station)0 4575 y Fy(GIVEN)k(or)h +(RETURNED)46 b FA(:)277 4746 y Fn(C)671 b Fy(C*\(*\))383 +b FA(iden)m(ti\014er)29 b(sp)s(ecifying)f(observing)h(station)0 +5085 y Fy(RETURNED)46 b FA(:)277 5231 y Fn(NAME)456 b +Fy(C*\(*\))383 b FA(name)31 b(of)f(sp)s(eci\014ed)f(observing)g +(station)277 5344 y Fn(W)645 b Fy(D)565 b FA(longitude)29 +b(\(radians,)h(w)m(est)h(+v)m(e\))277 5457 y Fn(P)674 +b Fy(D)565 b FA(geo)s(detic)31 b(latitude)f(\(radians,)f(north)h(+v)m +(e\))277 5570 y Fn(H)668 b Fy(D)565 b FA(heigh)m(t)30 +b(ab)s(o)m(v)m(e)i(sea)f(lev)m(el)f(\(metres\))p eop +%%Page: 103 105 +103 104 bop 0 52 a Ft(SUN/67.45)3206 b FA(103)0 351 y +Fy(NOTES)44 b FA(:)311 542 y(1.)i(Station)26 b(iden)m(ti\014ers)f(C)h +(ma)m(y)h(b)s(e)e(up)h(to)h(10)g(c)m(haracters)h(long,)f(and)e(station) +i(names)f(NAME)h(ma)m(y)427 655 y(b)s(e)j(up)f(to)i(40)h(c)m(haracters) +f(long.)311 802 y(2.)46 b(C)23 b(and)f(N)h(are)h Fn(alternative)31 +b FA(w)m(a)m(ys)24 b(of)f(sp)s(ecifying)e(the)i(observing)f(station.)38 +b(The)23 b(C)g(option,)h(whic)m(h)427 915 y(is)k(the)h(most)g +(generally)e(useful,)h(ma)m(y)h(b)s(e)f(selected)h(b)m(y)g(sp)s +(ecifying)d(an)i(N)h(v)-5 b(alue)28 b(of)h(zero)g(or)g(less.)427 +1028 y(If)34 b(N)f(is)g(1)h(or)g(more,)h(the)f(parameters)g(of)g(the)g +(Nth)g(station)g(in)e(the)i(curren)m(tly)f(supp)s(orted)f(list)427 +1141 y(are)c(in)m(terrogated,)h(and)e(the)g(station)h(iden)m(ti\014er)d +(C)i(is)f(returned)h(as)g(w)m(ell)f(as)i(NAME,)g(W,)g(P)f(and)427 +1254 y(H.)311 1401 y(3.)46 b(If)32 b(the)h(station)f(parameters)h(are)f +(not)h(a)m(v)-5 b(ailable,)32 b(either)g(b)s(ecause)g(the)h(station)f +(iden)m(ti\014er)f(C)g(is)427 1514 y(not)d(recognized,)h(or)f(b)s +(ecause)f(an)h(N)f(v)-5 b(alue)28 b(greater)g(than)g(the)g(n)m(um)m(b)s +(er)e(of)i(stations)f(supp)s(orted)427 1627 y(is)j(giv)m(en,)g(a)h +(name)f(of)h(`?')41 b(is)29 b(returned)g(and)h(W,)h(P)f(and)g(H)h(are)f +(left)h(in)e(their)g(curren)m(t)h(states.)311 1775 y(4.)46 +b(Programs)32 b(can)h(obtain)f(a)g(list)f(of)h(all)f(curren)m(tly)h +(supp)s(orted)e(stations)i(b)m(y)g(calling)f(the)h(routine)427 +1888 y(rep)s(eatedly)-8 b(,)37 b(with)c(N=1,2,3...)57 +b(When)35 b(NAME=`?')55 b(is)34 b(seen,)j(the)e(list)f(of)h(stations)g +(has)g(b)s(een)427 2000 y(exhausted.)41 b(The)30 b(stations)g(at)h(the) +g(time)f(of)g(writing)f(are)i(listed)e(b)s(elo)m(w.)311 +2148 y(5.)46 b(Station)22 b(n)m(um)m(b)s(ers,)h(iden)m(ti\014ers,)f +(names)g(and)f(other)i(details)e(are)h(sub)5 b(ject)22 +b(to)h(c)m(hange)g(and)e(should)427 2261 y(not)31 b(b)s(e)f(hardwired)d +(in)m(to)k(application)d(programs.)311 2408 y(6.)46 b(All)29 +b(station)h(iden)m(ti\014ers)e(C)h(are)h(upp)s(ercase)f(only;)h(lo)m(w) +m(er)g(case)h(c)m(haracters)g(m)m(ust)f(b)s(e)f(con)m(v)m(erted)427 +2521 y(to)j(upp)s(ercase)e(b)m(y)h(the)g(calling)f(program.)42 +b(The)30 b(station)i(names)e(returned)g(ma)m(y)i(con)m(tain)f(b)s(oth) +427 2634 y(upp)s(er-)44 b(and)h(lo)m(w)m(ercase.)87 b(All)44 +b(c)m(haracters)i(up)f(to)h(the)f(\014rst)g(space)h(are)g(c)m(hec)m(k)m +(ed;)55 b(th)m(us)45 b(an)427 2747 y(abbreviated)20 b(ID)h(will)d +(return)h(the)i(parameters)g(for)f(the)h(\014rst)e(station)i(in)e(the)i +(list)e(whic)m(h)g(matc)m(hes)427 2860 y(the)i(abbreviation)e +(supplied,)h(and)g(no)g(station)h(in)e(the)i(list)e(will)f(ev)m(er)j +(con)m(tain)g(em)m(b)s(edded)f(spaces.)427 2973 y(C)30 +b(m)m(ust)g(not)h(ha)m(v)m(e)h(leading)d(spaces.)311 +3121 y(7.)46 b(IMPOR)-8 b(T)g(ANT)28 b({)f(BEW)-10 b(ARE)28 +b(OF)f(THE)g(LONGITUDE)h(SIGN)f(CONVENTION.)f(The)h(lon-)427 +3233 y(gitude)34 b(returned)g(b)m(y)h(sla)p Fq(_)p FA(OBS)e(is)h +Fy(w)m(est-p)s(ositiv)m(e)p FA(,)h(follo)m(wing)f(the)g(pre-1984)j +Fn(Astr)-5 b(onomic)g(al)427 3346 y(A)n(lmanac)p FA(.)41 +b(Ho)m(w)m(ev)m(er,)31 b(this)c(sign)h(con)m(v)m(en)m(tion)h(is)f +(left-handed)f(and)h(is)f(the)h(opp)s(osite)g(of)h(the)f(one)427 +3459 y(no)m(w)37 b(used;)i(elsewhere)d(in)g(SLALIB)g(the)g(preferable)g +(east-p)s(ositiv)m(e)h(con)m(v)m(en)m(tion)h(is)d(used.)59 +b(In)427 3572 y(particular,)36 b(note)g(that)g(for)f(use)g(in)f(sla)p +Fq(_)p FA(A)m(OP)-8 b(,)36 b(sla)p Fq(_)p FA(A)m(OPP)-8 +b(A)35 b(and)g(sla)p Fq(_)p FA(O)m(AP)g(the)g(sign)g(of)g(the)427 +3685 y(longitude)29 b(m)m(ust)i(b)s(e)e(rev)m(ersed.)311 +3833 y(8.)46 b(Users)40 b(are)g(urged)f(to)h(inform)e(the)i(author)f +(of)h(an)m(y)g(impro)m(v)m(emen)m(ts)g(they)f(w)m(ould)g(lik)m(e)g(to)h +(see)427 3946 y(made.)h(F)-8 b(or)31 b(example:)506 4093 +y Fl(\017)46 b FA(t)m(yp)s(ographical)30 b(corrections)506 +4223 y Fl(\017)46 b FA(more)31 b(accurate)h(parameters)506 +4353 y Fl(\017)46 b FA(b)s(etter)31 b(station)f(iden)m(ti\014ers)f(or)h +(names)506 4484 y Fl(\017)46 b FA(additional)29 b(stations)227 +4674 y(Stations)h(supp)s(orted)f(b)m(y)h(sla)p Fq(_)p +FA(OBS)f(at)i(the)g(time)f(of)h(writing:)227 4903 y Fn(ID)742 +b(NAME)227 5128 y FA(AA)-8 b(T)652 b(Anglo-Australian)29 +b(3.9m)i(T)-8 b(elescop)s(e)227 5241 y(ANU2.3)527 b(Siding)28 +b(Spring)g(2.3)k(metre)227 5354 y(APO3.5)530 b(Apac)m(he)31 +b(P)m(oin)m(t)g(3.5m)227 5467 y(ARECIBO)415 b(Arecib)s(o)30 +b(1000)i(fo)s(ot)227 5580 y(A)-8 b(TCA)586 b(Australia)29 +b(T)-8 b(elescop)s(e)31 b(Compact)g(Arra)m(y)227 5693 +y(BLOEMF)450 b(Blo)s(emfon)m(tein)30 b(1.52)i(metre)p +eop +%%Page: 104 106 +104 105 bop 0 52 a FA(104)227 351 y(BOSQALEGRE)202 b(Bosque)31 +b(Alegre)g(1.54)h(metre)227 464 y(CAMB1MILE)285 b(Cam)m(bridge)30 +b(1)g(mile)227 577 y(CAMB5KM)366 b(Cam)m(bridge)30 b(5km)227 +690 y(CA)-8 b(T)g(ALINA61)278 b(Catalina)30 b(61)h(inc)m(h)227 +803 y(CFHT)587 b(Canada-F)-8 b(rance-Ha)m(w)m(aii)33 +b(3.6m)e(T)-8 b(elescop)s(e)227 916 y(CSO)658 b(Caltec)m(h)31 +b(Sub-mm)e(Observ)-5 b(atory)d(,)31 b(Mauna)f(Kea)227 +1029 y(D)m(A)m(O72)554 b(D)m(A)m(O)32 b(Victoria)e(BC)g(1.85)i(metre) +227 1142 y(DUNLAP74)364 b(Da)m(vid)31 b(Dunlap)e(74)i(inc)m(h)227 +1255 y(DUPONT)442 b(Du)30 b(P)m(on)m(t)i(2.5m)f(T)-8 +b(elescop)s(e,)31 b(Las)f(Campanas)227 1367 y(EFFELSBER)m(G)235 +b(E\013elsb)s(erg)29 b(100)j(metre)227 1480 y(ESO3.6)547 +b(ESO)30 b(3.6)h(metre)227 1593 y(ESONTT)462 b(ESO)30 +b(3.5)h(metre)g(NTT)227 1706 y(ESOSCHM)394 b(ESO)30 b(1)g(metre)h(Sc)m +(hmidt,)f(La)g(Silla)227 1819 y(F)m(CRA)m(O)521 b(Fiv)m(e)31 +b(College)f(Radio)g(Astronom)m(y)h(Obs)227 1932 y(FLA)m(GSTF61)328 +b(USNO)30 b(61)h(inc)m(h)f(astrograph,)h(Flagsta\013)227 +2045 y(GBV)-10 b(A140)450 b(Green)m(bank)31 b(140)g(fo)s(ot)227 +2158 y(GBV)-10 b(A300)450 b(Green)m(bank)31 b(300)g(fo)s(ot)227 +2271 y(GEMININ)428 b(Gemini)29 b(North)h(8-m)h(telescop)s(e)227 +2384 y(HAR)-10 b(V)g(ARD)391 b(Harv)-5 b(ard)30 b(College)g(Observ)-5 +b(atory)31 b(1.55m)227 2497 y(HPR)m(O)m(V1.52)356 b(Haute)31 +b(Pro)m(v)m(ence)h(1.52)g(metre)227 2609 y(HPR)m(O)m(V1.93)356 +b(Haute)31 b(Pro)m(v)m(ence)h(1.93)g(metre)227 2722 y(IR)-8 +b(TF)629 b(NASA)31 b(IR)f(T)-8 b(elescop)s(e)30 b(F)-8 +b(acilit)m(y)g(,)31 b(Mauna)g(Kea)227 2835 y(JCMT)584 +b(JCMT)30 b(15)h(metre)227 2948 y(JODRELL1)371 b(Jo)s(drell)28 +b(Bank)j(250)h(fo)s(ot)227 3061 y(KECK1)531 b(Kec)m(k)32 +b(10m)e(T)-8 b(elescop)s(e)31 b(1)227 3174 y(KECK2)531 +b(Kec)m(k)32 b(10m)e(T)-8 b(elescop)s(e)31 b(2)227 3287 +y(KISO)620 b(Kiso)30 b(1.05)i(metre)f(Sc)m(hmidt,)e(Japan)227 +3400 y(K)m(OTT)-8 b(AMIA)331 b(Kottamia)31 b(74)h(inc)m(h)227 +3513 y(KPNO158)439 b(Kitt)30 b(P)m(eak)i(158)f(inc)m(h)227 +3626 y(KPNO36FT)359 b(Kitt)30 b(P)m(eak)i(36)f(fo)s(ot)227 +3739 y(KPNO84)484 b(Kitt)30 b(P)m(eak)i(84)f(inc)m(h)227 +3851 y(KPNO90)484 b(Kitt)30 b(P)m(eak)i(90)f(inc)m(h)227 +3964 y(LICK120)484 b(Lic)m(k)30 b(120)i(inc)m(h)227 4077 +y(LO)m(WELL72)362 b(P)m(erkins)29 b(72)j(inc)m(h,)d(Lo)m(w)m(ell)227 +4190 y(LPO1)611 b(Jacobus)30 b(Kapteyn)h(1m)f(T)-8 b(elescop)s(e)227 +4303 y(LPO2.5)541 b(Isaac)32 b(Newton)e(2.5m)i(T)-8 b(elescop)s(e)227 +4416 y(LPO4.2)541 b(William)28 b(Hersc)m(hel)j(4.2m)g(T)-8 +b(elescop)s(e)227 4529 y(MA)m(UNAK88)333 b(Mauna)31 b(Kea)g(88)g(inc)m +(h)227 4642 y(MCDONLD2.1)248 b(McDonald)31 b(2.1)g(metre)227 +4755 y(MCDONLD2.7)248 b(McDonald)31 b(2.7)g(metre)227 +4868 y(MMT)614 b(MMT,)31 b(Mt)g(Hopkins)227 4981 y(MOPRA)495 +b(A)-8 b(TNF)31 b(Mopra)g(Observ)-5 b(atory)227 5093 +y(MTEKAR)429 b(Mt)31 b(Ek)-5 b(ar)30 b(1.82)i(metre)227 +5206 y(MTHOP1.5)381 b(Mt)31 b(Hopkins)e(1.5)j(metre)227 +5319 y(MTLEMMON60)183 b(Mt)31 b(Lemmon)f(60)h(inc)m(h)227 +5432 y(NOBEY)-8 b(AMA)302 b(Nob)s(ey)m(ama)32 b(45)f(metre)227 +5545 y(OKA)-8 b(Y)g(AMA)365 b(Ok)-5 b(a)m(y)m(ama)32 +b(1.88)g(metre)227 5658 y(P)-8 b(ALOMAR200)243 b(P)m(alomar)31 +b(200)h(inc)m(h)p eop +%%Page: 105 107 +105 106 bop 0 52 a Ft(SUN/67.45)3206 b FA(105)227 351 +y(P)-8 b(ALOMAR48)288 b(P)m(alomar)31 b(48-inc)m(h)g(Sc)m(hmidt)227 +464 y(P)-8 b(ALOMAR60)288 b(P)m(alomar)31 b(60)g(inc)m(h)227 +577 y(P)-8 b(ARKES)473 b(P)m(ark)m(es)32 b(64)f(metre)227 +690 y(QUEBEC1.6)338 b(Queb)s(ec)30 b(1.6)h(metre)227 +803 y(SAA)m(O74)501 b(Sutherland)28 b(74)j(inc)m(h)227 +916 y(SANPM83)424 b(San)30 b(P)m(edro)h(Martir)f(83)h(inc)m(h)227 +1029 y(ST.ANDREWS)226 b(St)30 b(Andrews)f(Univ)m(ersit)m(y)h(Observ)-5 +b(atory)227 1142 y(STEW)-10 b(ARD90)290 b(Stew)m(ard)30 +b(90)i(inc)m(h)227 1255 y(STR)m(OMLO74)293 b(Moun)m(t)31 +b(Stromlo)f(74)h(inc)m(h)227 1367 y(SUBAR)m(U)463 b(Subaru)29 +b(8)h(metre)227 1480 y(SUGAR)m(GR)m(O)m(VE)191 b(Sugar)30 +b(Gro)m(v)m(e)i(150)g(fo)s(ot)227 1593 y(T)-8 b(A)m(UTNBG)386 +b(T)-8 b(auten)m(burg)30 b(2)h(metre)227 1706 y(T)-8 +b(A)m(UTSCHM)321 b(T)-8 b(auten)m(b)s(erg)31 b(1.34)h(metre)f(Sc)m +(hmidt)227 1819 y(TIDBINBLA)324 b(Tidbin)m(billa)25 b(64)32 +b(metre)227 1932 y(TOLOLO1.5M)255 b(Cerro)30 b(T)-8 b(ololo)31 +b(1.5)g(metre)227 2045 y(TOLOLO4M)325 b(Cerro)30 b(T)-8 +b(ololo)31 b(4)f(metre)227 2158 y(UKIR)-8 b(T)549 b(UK)30 +b(Infra)g(Red)g(T)-8 b(elescop)s(e)227 2271 y(UKST)590 +b(UK)30 b(1.2)i(metre)f(Sc)m(hmidt,)e(Siding)f(Spring)227 +2384 y(USSR6)564 b(USSR)30 b(6)g(metre)227 2497 y(USSR600)474 +b(USSR)30 b(600)h(fo)s(ot)227 2609 y(VLA)653 b(V)-8 b(ery)31 +b(Large)g(Arra)m(y)p 0 2756 3780 8 v 0 2869 a Fu(SLA)p +Fk(_)p Fu(P)-11 b(A)768 b Fd(h;)20 b(\016)43 b Fj(to)38 +b(P)m(arallactic)d(Angle)769 b Fu(SLA)p Fk(_)p Fu(P)-11 +b(A)0 3220 y Fy(A)m(CTION)44 b FA(:)c(Hour)31 b(angle)f(and)g +(declination)e(to)j(parallactic)f(angle)g(\(double)g(precision\).)0 +3407 y Fy(CALL)45 b FA(:)77 b Fq(D)47 b(=)h(sla_PA)e(\(HA,)g(DEC,)h +(PHI\))0 3754 y Fy(GIVEN)e FA(:)277 3900 y Fn(HA)600 +b Fy(D)565 b FA(hour)30 b(angle)g(in)f(radians)g(\(geo)s(cen)m(tric)j +(apparen)m(t\))277 4013 y Fn(DEC)540 b Fy(D)565 b FA(declination)29 +b(in)g(radians)g(\(geo)s(cen)m(tric)j(apparen)m(t\))277 +4126 y Fn(PHI)571 b Fy(D)565 b FA(latitude)30 b(in)f(radians)g(\(geo)s +(detic\))0 4475 y Fy(RETURNED)46 b FA(:)277 4647 y Fn(sla)p +Fq(_)p Fn(P)-7 b(A)459 b Fy(D)565 b FA(parallactic)30 +b(angle)g(\(radians,)g(in)f(the)h(range)h Fl(\006)p Fi(\031)s +FA(\))0 5004 y Fy(NOTES)44 b FA(:)311 5191 y(1.)i(The)34 +b(parallactic)g(angle)h(at)g(a)g(p)s(oin)m(t)f(in)f(the)i(sky)f(is)g +(the)g(p)s(osition)f(angle)i(of)f(the)h(v)m(ertical,)h +Fn(i.e.)427 5304 y FA(the)29 b(angle)f(b)s(et)m(w)m(een)g(the)h +(direction)d(to)j(the)f(p)s(ole)g(and)f(to)i(the)f(zenith.)39 +b(In)28 b(precise)f(applications)427 5417 y(care)k(m)m(ust)f(b)s(e)f +(tak)m(en)i(only)e(to)h(use)g(geo)s(cen)m(tric)h(apparen)m(t)f([)15 +b Fi(h;)g(\016)20 b FA(])30 b(and)f(to)i(consider)d(separately)427 +5530 y(the)j(e\013ects)h(of)e(atmospheric)g(refraction)g(and)g +(telescop)s(e)h(moun)m(t)f(errors.)311 5675 y(2.)46 b(A)m(t)32 +b(the)e(p)s(ole)g(a)g(zero)i(result)d(is)g(returned.)p +eop +%%Page: 106 108 +106 107 bop 0 52 a FA(106)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(P)-11 b(A)c(V)281 b Fj(P)m(osition-Angle)35 +b(Bet)m(w)m(een)i(Tw)m(o)h(Directions)281 b Fu(SLA)p +Fk(_)p Fu(P)-11 b(A)c(V)0 730 y Fy(A)m(CTION)44 b FA(:)66 +b(Returns)43 b(the)h(b)s(earing)e(\(p)s(osition)f(angle\))j(of)g(one)f +(celestial)g(direction)f(with)g(resp)s(ect)i(to)227 843 +y(another)31 b(\(single)e(precision\).)0 1031 y Fy(CALL)45 +b FA(:)77 b Fq(R)47 b(=)h(sla_PAV)d(\(V1,)i(V2\))0 1411 +y Fy(GIVEN)e FA(:)277 1557 y Fn(V1)622 b Fy(R\(3\))433 +b FA(direction)29 b(cosines)h(of)h(one)f(p)s(oin)m(t)277 +1670 y Fn(V2)622 b Fy(R\(3\))433 b FA(directions)29 b(cosines)h(of)h +(the)f(other)h(p)s(oin)m(t)0 2075 y Fy(RETURNED)46 b +FA(:)277 2247 y Fn(sla)p Fq(_)p Fn(P)-7 b(A)e(V)400 b +Fy(R)567 b FA(p)s(osition-angle)29 b(of)i(2nd)e(p)s(oin)m(t)h(with)f +(resp)s(ect)h(to)h(1st)0 2660 y Fy(NOTES)44 b FA(:)311 +2868 y(1.)i(The)30 b(co)s(ordinate)g(frames)h(corresp)s(ond)e(to)i([)15 +b Fi(\013;)g(\016)20 b FA(],)31 b([)p Fi(\025;)15 b(\036)p +FA(])31 b Fn(etc.)p FA(.)311 3024 y(2.)46 b(The)30 b(result)e(is)h(the) +h(b)s(earing)f(\(p)s(osition)f(angle\),)j(in)d(radians,)h(of)h(p)s(oin) +m(t)f(V2)h(as)g(seen)g(from)f(p)s(oin)m(t)427 3137 y(V1.)48 +b(It)33 b(is)f(in)f(the)i(range)g Fl(\006)p Fi(\031)s +FA(.)47 b(The)33 b(sense)f(is)g(suc)m(h)g(that)h(if)f(V2)h(is)f(a)h +(small)e(distance)h(due)g(east)427 3250 y(of)f(V1)g(the)f(result)g(is)f +(ab)s(out)h(+)p Fi(\031)s(=)p FA(2.)41 b(Zero)31 b(is)e(returned)g(if)h +(the)g(t)m(w)m(o)i(p)s(oin)m(ts)d(are)i(coinciden)m(t.)311 +3406 y(3.)46 b(The)37 b(routine)g(sla)p Fq(_)p FA(BEAR)g(p)s(erforms)f +(an)h(equiv)-5 b(alen)m(t)37 b(function)f(except)j(that)f(the)g(p)s +(oin)m(ts)e(are)427 3519 y(sp)s(eci\014ed)29 b(in)g(the)i(form)e(of)i +(spherical)e(co)s(ordinates.)p 0 3672 V 0 3785 a Fu(SLA)p +Fk(_)p Fu(PCD)656 b Fj(Apply)39 b(Radial)e(Distortion)655 +b Fu(SLA)p Fk(_)p Fu(PCD)0 4136 y Fy(A)m(CTION)44 b FA(:)c(Apply)29 +b(pincushion/barrel)e(distortion)h(to)k(a)e(tangen)m(t-plane)i([)15 +b Fi(x;)g(y)j FA(].)0 4323 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_PCD)g(\(DISCO,X,Y\))0 4704 y Fy(GIVEN)f FA(:)277 +4850 y Fn(DISCO)446 b Fy(D)565 b FA(pincushion/barrel)26 +b(distortion)j(co)s(e\016cien)m(t)277 4963 y Fn(X,Y)572 +b Fy(D)565 b FA(tangen)m(t-plane)31 b([)15 b Fi(x;)g(y)k +FA(])0 5368 y Fy(RETURNED)46 b FA(:)277 5539 y Fn(X,Y)572 +b Fy(D)565 b FA(distorted)30 b([)15 b Fi(x;)g(y)k FA(])p +eop +%%Page: 107 109 +107 108 bop 0 52 a Ft(SUN/67.45)3206 b FA(107)0 351 y +Fy(NOTES)44 b FA(:)311 543 y(1.)i(The)32 b(distortion)e(is)h(of)h(the)g +(form)g Fi(\032)c FA(=)f Fi(r)s FA(\(1)22 b(+)f Fi(cr)2099 +510 y Fr(2)2138 543 y FA(\),)33 b(where)e Fi(r)k FA(is)c(the)h(radial)e +(distance)i(from)f(the)427 656 y(tangen)m(t)g(p)s(oin)m(t,)d +Fi(c)h FA(is)f(the)h(DISCO)f(argumen)m(t,)i(and)f Fi(\032)g +FA(is)f(the)h(radial)e(distance)i(in)e(the)i(presence)427 +769 y(of)i(the)f(distortion.)311 917 y(2.)46 b(F)-8 b(or)31 +b Fn(pincushion)39 b FA(distortion,)29 b(C)h(is)f(+v)m(e;)i(for)g +Fn(b)-5 b(arr)g(el)41 b FA(distortion,)29 b(C)h(is)g +Fl(\000)p FA(v)m(e.)311 1065 y(3.)46 b(F)-8 b(or)37 b(X,Y)g(in)e(units) +f(of)j(one)f(pro)5 b(jection)36 b(radius)e(\(in)h(the)i(case)g(of)f(a)h +(photographic)e(plate,)j(the)427 1178 y(fo)s(cal)30 b(length\),)h(the)f +(follo)m(wing)f(DISCO)h(v)-5 b(alues)29 b(apply:)p 912 +1309 1243 4 v 910 1422 4 113 v 962 1388 a(Geometry)p +1684 1422 V 423 w(DISCO)p 2153 1422 V 912 1425 1243 4 +v 912 1441 V 910 1554 4 113 v 962 1521 a(astrograph)p +1684 1554 V 475 w(0.0)p 2153 1554 V 912 1558 1243 4 v +910 1671 4 113 v 962 1637 a(Sc)m(hmidt)p 1684 1671 V +470 w Fl(\000)p FA(0.3333)p 2153 1671 V 912 1674 1243 +4 v 910 1787 4 113 v 962 1753 a(AA)-8 b(T)31 b(PF)f(doublet)p +1684 1787 V 99 w(+147.069)p 2153 1787 V 912 1790 1243 +4 v 910 1903 4 113 v 962 1869 a(AA)-8 b(T)31 b(PF)f(triplet)p +1684 1903 V 149 w(+178.585)p 2153 1903 V 912 1906 1243 +4 v 910 2019 4 113 v 962 1985 a(AA)-8 b(T)31 b(f/8)p +1684 2019 V 476 w(+21.20)p 2153 2019 V 912 2023 1243 +4 v 910 2136 4 113 v 962 2102 a(JKT)e(f/8)p 1684 2136 +V 511 w(+14.6)p 2153 2136 V 912 2139 1243 4 v 311 2324 +a(4.)46 b(There)25 b(is)e(a)i(companion)f(routine,)i(sla)p +Fq(_)p FA(UNPCD,)e(whic)m(h)g(p)s(erforms)f(an)h(appro)m(ximately)h(in) +m(v)m(erse)427 2437 y(op)s(eration.)p 0 2574 3780 8 v +0 2687 a Fu(SLA)p Fk(_)p Fu(PD)l(A2H)436 b Fj(H.A.)38 +b(for)g(a)g(Giv)m(en)g(Azim)m(uth)435 b Fu(SLA)p Fk(_)p +Fu(PD)l(A2H)0 3037 y Fy(A)m(CTION)44 b FA(:)c(Hour)31 +b(Angle)f(corresp)s(onding)e(to)j(a)g(giv)m(en)f(azim)m(uth)g(\(double) +g(precision\).)0 3225 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_PDA2H)g(\(P,)h(D,)g(A,)g(H1,)g(J1,)g(H2,)g(J2\))0 +3581 y Fy(GIVEN)e FA(:)277 3727 y Fn(P)674 b Fy(D)565 +b FA(latitude)277 3840 y Fn(D)667 b Fy(D)565 b FA(declination)277 +3953 y Fn(A)668 b Fy(D)565 b FA(azim)m(uth)0 4317 y Fy(RETURNED)46 +b FA(:)277 4463 y Fn(H1)622 b Fy(D)565 b FA(hour)30 b(angle:)40 +b(\014rst)30 b(solution)f(if)g(an)m(y)277 4576 y Fn(J1)642 +b Fy(I)605 b FA(\015ag:)41 b(0)31 b(=)f(solution)f(1)i(is)e(v)-5 +b(alid)277 4689 y Fn(H2)622 b Fy(D)565 b FA(hour)30 b(angle:)40 +b(second)31 b(solution)e(if)g(an)m(y)277 4802 y Fn(J2)642 +b Fy(I)605 b FA(\015ag:)41 b(0)31 b(=)f(solution)f(2)i(is)e(v)-5 +b(alid)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p Fu(PDQ2H)543 +b Fj(H.A.)38 b(for)f(a)i(Giv)m(en)f(P)-10 b(.A.)543 b +Fu(SLA)p Fk(_)p Fu(PDQ2H)0 5418 y Fy(A)m(CTION)44 b FA(:)c(Hour)31 +b(Angle)f(corresp)s(onding)e(to)j(a)g(giv)m(en)f(parallactic)g(angle)g +(\(double)g(precision\).)0 5606 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_PDQ2H)g(\(P,)h(D,)g(Q,)g(H1,)g(J1,)g(H2,)g(J2\))p +eop +%%Page: 108 110 +108 109 bop 0 52 a FA(108)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(P)674 b Fy(D)565 b FA(latitude)277 610 y Fn(D)667 +b Fy(D)565 b FA(declination)277 723 y Fn(Q)666 b Fy(D)565 +b FA(azim)m(uth)0 1088 y Fy(RETURNED)46 b FA(:)277 1234 +y Fn(H1)622 b Fy(D)565 b FA(hour)30 b(angle:)40 b(\014rst)30 +b(solution)f(if)g(an)m(y)277 1347 y Fn(J1)642 b Fy(I)605 +b FA(\015ag:)41 b(0)31 b(=)f(solution)f(1)i(is)e(v)-5 +b(alid)277 1460 y Fn(H2)622 b Fy(D)565 b FA(hour)30 b(angle:)40 +b(second)31 b(solution)e(if)g(an)m(y)277 1573 y Fn(J2)642 +b Fy(I)605 b FA(\015ag:)41 b(0)31 b(=)f(solution)f(2)i(is)e(v)-5 +b(alid)p 0 1726 3780 8 v 0 1839 a Fu(SLA)p Fk(_)p Fu(PERMUT)502 +b Fj(Next)38 b(P)m(erm)m(utation)499 b Fu(SLA)p Fk(_)p +Fu(PERMUT)0 2189 y Fy(A)m(CTION)44 b FA(:)c(Generate)32 +b(the)f(next)f(p)s(erm)m(utation)g(of)g(a)h(sp)s(eci\014ed)e(n)m(um)m +(b)s(er)g(of)h(items.)0 2377 y Fy(CALL)45 b FA(:)77 b +Fq(CALL)46 b(sla_PERMUT)f(\(N,)i(ISTATE,)f(IORDER,)g(J\))0 +2734 y Fy(GIVEN)f FA(:)277 2880 y Fn(N)668 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(items:)40 b(there)31 b(will)c(b)s(e)j +(N!)h(p)s(erm)m(utations)277 2993 y Fn(IST)-7 b(A)g(TE)404 +b Fy(I\(N\))441 b FA(state,)32 b(IST)-8 b(A)g(TE\(1\)=)26 +b Fl(\000)p FA(1)k(to)h(initialize)0 3357 y Fy(RETURNED)46 +b FA(:)277 3504 y Fn(IST)-7 b(A)g(TE)404 b Fy(I\(N\))441 +b FA(state,)32 b(up)s(dated)d(ready)h(for)h(next)f(time)277 +3616 y Fn(IORDER)368 b Fy(I\(N\))441 b FA(next)31 b(p)s(erm)m(utation)e +(of)i(n)m(um)m(b)s(ers)e(1,2,.)16 b(.)g(.)f(,N)277 3729 +y Fn(J)688 b Fy(I)605 b FA(status:)1825 3842 y Fl(\000)p +FA(1)30 b(=)g(illegal)f(N)h(\(zero)i(or)e(less)g(is)f(illegal\))1898 +3955 y(0)h(=)g(OK)1825 4068 y(+1)g(=)g(no)h(more)f(p)s(erm)m(utations)f +(a)m(v)-5 b(ailable)0 4433 y Fy(NOTES)44 b FA(:)311 4625 +y(1.)i(This)26 b(routine)h(returns,)g(in)g(the)h(IORDER)f(arra)m(y)-8 +b(,)29 b(the)f(in)m(tegers)g(1)g(to)h(N)f(inclusiv)m(e,)e(in)g(an)i +(order)427 4738 y(that)f(dep)s(ends)d(on)i(the)h(curren)m(t)f(con)m +(ten)m(ts)i(of)e(the)g(IST)-8 b(A)g(TE)26 b(arra)m(y)-8 +b(.)40 b(Before)27 b(calling)e(the)h(routine)427 4851 +y(for)37 b(the)g(\014rst)f(time,)i(the)f(caller)g(m)m(ust)f(set)i(the)f +(\014rst)f(elemen)m(t)h(of)g(the)g(IST)-8 b(A)g(TE)36 +b(arra)m(y)i(to)f Fl(\000)p FA(1)427 4964 y(\(an)m(y)31 +b(negativ)m(e)h(n)m(um)m(b)s(er)d(will)f(do\))i(to)h(cause)g(the)g(IST) +-8 b(A)g(TE)30 b(arra)m(y)h(to)g(b)s(e)f(fully)e(initialized.)311 +5112 y(2.)46 b(The)30 b(\014rst)g(p)s(erm)m(utation)f(to)i(b)s(e)f +(generated)h(is:)597 5261 y(IORDER\(1\)=N,)h(IORDER\(2\)=N-1,)g(...,)f +(IORDER\(N\)=1)427 5409 y(This)i(is)h(also)g(the)h(p)s(erm)m(utation)f +(returned)g(for)g(the)h(\\\014nished")e(\(J=1\))i(case.)55 +b(The)34 b(\014nal)f(p)s(er-)427 5522 y(m)m(utation)e(to)g(b)s(e)f +(generated)h(is:)597 5670 y(IORDER\(1\)=1,)h(IORDER\(2\)=2,)f(...,)h +(IORDER\(N\)=N)p eop +%%Page: 109 111 +109 110 bop 0 52 a Ft(SUN/67.45)3206 b FA(109)311 351 +y(3.)46 b(If)20 b(the)h(\\\014nished")e(\(J=1\))h(status)h(is)f +(ignored,)h(the)g(routine)e(con)m(tin)m(ues)i(to)g(deliv)m(er)e(p)s +(erm)m(utations,)427 464 y(the)31 b(pattern)f(rep)s(eating)g(ev)m(ery)h +(N!)46 b(calls.)p 0 627 3780 8 v 0 740 a Fu(SLA)p Fk(_)p +Fu(PER)-11 b(TEL)322 b Fj(P)m(erturb)s(ed)37 b(Orbital)g(Elemen)m(ts) +321 b Fu(SLA)p Fk(_)p Fu(PER)-11 b(TEL)0 1090 y Fy(A)m(CTION)44 +b FA(:)61 b(Up)s(date)41 b(the)g(osculating)f(elemen)m(ts)h(of)g(an)g +(asteroid)g(or)g(comet)h(b)m(y)e(applying)f(planetary)227 +1203 y(p)s(erturbations.)0 1391 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_PERTEL)f(\(JFORM,)h(DATE0,)g(DATE1,)1239 +1504 y(EPOCH0,)g(ORBI0,)g(ANODE0,)g(PERIH0,)g(AORQ0,)g(E0,)h(AM0,)1239 +1617 y(EPOCH1,)f(ORBI1,)g(ANODE1,)g(PERIH1,)g(AORQ1,)g(E1,)h(AM1,)1239 +1730 y(JSTAT\))0 2120 y Fy(GIVEN)34 b(\(format)g(and)g(dates\))45 +b FA(:)277 2289 y Fn(JF)n(ORM)413 b Fy(I)605 b FA(c)m(hoice)31 +b(of)g(elemen)m(t)g(set)g(\(2)g(or)f(3;)h(Note)h(1\))277 +2402 y Fn(D)n(A)-7 b(TE0)435 b Fy(D)565 b FA(date)31 +b(of)g(osculation)f(\(TT)f(MJD\))j(for)e(the)g(giv)m(en)1825 +2514 y(elemen)m(ts)277 2627 y Fn(D)n(A)-7 b(TE1)435 b +Fy(D)565 b FA(date)31 b(of)g(osculation)f(\(TT)f(MJD\))j(for)e(the)g +(up)s(dated)1825 2740 y(elemen)m(ts)0 3176 y Fy(GIVEN)k(\(the)g(unp)s +(erturb)s(ed)h(elemen)m(ts\))44 b FA(:)277 3344 y Fn(EPOCH0)363 +b Fy(D)565 b FA(ep)s(o)s(c)m(h)28 b(of)h(the)f(giv)m(en)g(elemen)m(t)h +(set)g(\()p Fi(t)2949 3358 y Fr(0)3017 3344 y FA(or)f +Fi(T)13 b FA(,)29 b(TT)e(MJD;)1825 3457 y(Note)32 b(2\))277 +3570 y Fn(ORBI0)455 b Fy(D)565 b FA(inclination)28 b(\()p +Fi(i)p FA(,)j(radians\))277 3683 y Fn(ANODE0)353 b Fy(D)565 +b FA(longitude)29 b(of)i(the)f(ascending)g(no)s(de)g(\(\012,)g +(radians\))277 3796 y Fn(PERIH0)397 b Fy(D)565 b FA(argumen)m(t)31 +b(of)g(p)s(erihelion)26 b(\()p Fi(!)s FA(,)31 b(radians\))277 +3909 y Fn(A)n(OR)n(Q0)420 b Fy(D)565 b FA(mean)30 b(distance)f(or)g(p)s +(erihelion)d(distance)k(\()p Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 +4022 y Fn(E0)628 b Fy(D)565 b FA(eccen)m(tricit)m(y)32 +b(\()p Fi(e)p FA(\))277 4135 y Fn(AM0)540 b Fy(D)565 +b FA(mean)31 b(anomaly)f(\()p Fi(M)10 b FA(,)31 b(radians,)e(JF)m +(ORM=2)i(only\))0 4570 y Fy(RETURNED)k(\(the)f(up)s(dated)h(elemen)m +(ts\))44 b FA(:)277 4739 y Fn(EPOCH1)363 b Fy(D)565 b +FA(ep)s(o)s(c)m(h)30 b(of)h(the)f(up)s(dated)f(elemen)m(t)i(set)g(\()p +Fi(t)3080 4753 y Fr(0)3150 4739 y FA(or)f Fi(T)13 b FA(,)1825 +4852 y(TT)29 b(MJD;)i(Note)h(2\))277 4965 y Fn(ORBI1)455 +b Fy(D)565 b FA(inclination)28 b(\()p Fi(i)p FA(,)j(radians\))277 +5078 y Fn(ANODE1)353 b Fy(D)565 b FA(longitude)29 b(of)i(the)f +(ascending)g(no)s(de)g(\(\012,)g(radians\))277 5190 y +Fn(PERIH1)397 b Fy(D)565 b FA(argumen)m(t)31 b(of)g(p)s(erihelion)26 +b(\()p Fi(!)s FA(,)31 b(radians\))277 5303 y Fn(A)n(OR)n(Q1)420 +b Fy(D)565 b FA(mean)30 b(distance)f(or)g(p)s(erihelion)d(distance)k +(\()p Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 5416 y +Fn(E1)628 b Fy(D)565 b FA(eccen)m(tricit)m(y)32 b(\()p +Fi(e)p FA(\))277 5529 y Fn(AM1)540 b Fy(D)565 b FA(mean)31 +b(anomaly)f(\()p Fi(M)10 b FA(,)31 b(radians,)e(JF)m(ORM=2)i(only\))p +eop +%%Page: 110 112 +110 111 bop 0 52 a FA(110)0 351 y Fy(RETURNED)35 b(\(status)f(\015ag\)) +46 b FA(:)277 520 y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 +b FA(status:)1704 633 y(+102)31 b(=)f(w)m(arning,)f(distan)m(t)i(ep)s +(o)s(c)m(h)1704 746 y(+101)g(=)f(w)m(arning,)f(large)i(timespan)e(\()p +Fi(>)d FA(100)31 b(y)m(ears\))1540 859 y(+1)f(to)i(+8)e(=)g(coinciden)m +(t)g(with)f(ma)5 b(jor)30 b(planet)g(\(Note)i(6\))1866 +972 y(0)e(=)h(OK)1798 1085 y Fl(\000)p FA(1)f(=)g(illegal)f(JF)m(ORM) +1798 1197 y Fl(\000)p FA(2)h(=)g(illegal)f(E0)1798 1310 +y Fl(\000)p FA(3)h(=)g(illegal)f(A)m(OR)m(Q0)1798 1423 +y Fl(\000)p FA(4)h(=)g(in)m(ternal)f(error)1798 1536 +y Fl(\000)p FA(5)h(=)g(n)m(umerical)f(error)0 1886 y +Fy(NOTES)44 b FA(:)311 2073 y(1.)i(Tw)m(o)31 b(di\013eren)m(t)f(elemen) +m(t-format)h(options)f(are)h(supp)s(orted,)d(as)j(follo)m(ws.)427 +2315 y(JF)m(ORM=2,)g(suitable)e(for)i(minor)d(planets:)602 +2506 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)f +Fi(t)1910 2520 y Fr(0)1980 2506 y FA(\(TT)g(MJD\))602 +2619 y(ORBINC)45 b(=)55 b(inclination)27 b Fi(i)k FA(\(radians\))602 +2732 y(ANODE)76 b(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de) +f(\012)h(\(radians\))602 2845 y(PERIH)122 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 2957 +y(A)m(OR)m(Q)143 b(=)55 b(mean)30 b(distance)g Fi(a)h +FA(\(A)m(U\))602 3070 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 +b Fi(e)g FA(\(0)26 b Fl(\024)f Fi(e)h(<)f FA(1\))602 +3183 y(A)m(ORL)154 b(=)55 b(mean)30 b(anomaly)h Fi(M)40 +b FA(\(radians\))427 3374 y(JF)m(ORM=3,)31 b(suitable)e(for)i(comets:) +602 3565 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(p)s(erihelion)c +Fi(T)43 b FA(\(TT)30 b(MJD\))602 3678 y(ORBINC)45 b(=)55 +b(inclination)27 b Fi(i)k FA(\(radians\))602 3791 y(ANODE)76 +b(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de)f(\012)h +(\(radians\))602 3904 y(PERIH)122 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 4017 +y(A)m(OR)m(Q)143 b(=)55 b(p)s(erihelion)27 b(distance)j +Fi(q)j FA(\(A)m(U\))602 4130 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 +b Fi(e)g FA(\(0)26 b Fl(\024)f Fi(e)h Fl(\024)f FA(10\))311 +4321 y(2.)46 b(D)m(A)-8 b(TE0,)28 b(D)m(A)-8 b(TE1,)28 +b(EPOCH0)d(and)g(EPOCH1)g(are)h(all)e(instan)m(ts)h(of)g(time)g(in)f +(the)i(TT)e(timescale)427 4433 y(\(formerly)d(Ephemeris)f(Time,)j +(ET\),)f(expressed)f(as)h(Mo)s(di\014ed)e(Julian)g(Dates)j(\(JD)p +Fl(\000)p FA(2400000.5\).)506 4579 y Fl(\017)46 b FA(D)m(A)-8 +b(TE0)33 b(is)d(the)h(instan)m(t)g(at)h(whic)m(h)e(the)i(giv)m(en)f(\() +p Fn(i.e.)g FA(unp)s(erturb)s(ed\))d(osculating)i(elemen)m(ts)597 +4692 y(are)h(correct.)506 4821 y Fl(\017)46 b FA(D)m(A)-8 +b(TE1)43 b(is)e(the)h(sp)s(eci\014ed)e(instan)m(t)h(at)h(whic)m(h)f +(the)h(up)s(dated)e(osculating)h(elemen)m(ts)h(are)597 +4934 y(correct.)506 5063 y Fl(\017)k FA(EPOCH0)33 b(and)g(EPOCH1)g +(will)d(b)s(e)j(the)g(same)h(as)f(D)m(A)-8 b(TE0)35 b(and)e(D)m(A)-8 +b(TE1)34 b(\(resp)s(ectiv)m(ely\))597 5176 y(for)k(the)g(JF)m(ORM=2)g +(case,)j(normally)36 b(used)h(for)g(minor)f(planets.)62 +b(F)-8 b(or)39 b(the)f(JF)m(ORM=3)597 5289 y(case,)27 +b(the)d(t)m(w)m(o)i(ep)s(o)s(c)m(hs)e(will)d(refer)j(to)h(p)s +(erihelion)c(passage)k(and)f(so)g(will)e(not,)k(in)c(general,)k(b)s(e) +597 5402 y(the)k(same)f(as)g(D)m(A)-8 b(TE0)31 b(and/or)e(D)m(A)-8 +b(TE1)30 b(though)f(they)g(ma)m(y)h(b)s(e)e(similar)f(to)j(one)f +(another.)311 5547 y(3.)46 b(The)30 b(elemen)m(ts)h(are)g(with)e(resp)s +(ect)h(to)h(the)g(J2000)h(ecliptic)d(and)g(mean)i(equino)m(x.)311 +5693 y(4.)46 b(Un)m(used)30 b(elemen)m(ts)h(\(AM0)g(and)f(AM1)h(for)g +(JF)m(ORM=3\))g(are)g(not)f(accessed.)p eop +%%Page: 111 113 +111 112 bop 0 52 a Ft(SUN/67.45)3206 b FA(111)311 351 +y(5.)46 b(See)31 b(the)f(sla)p Fq(_)p FA(PER)-8 b(TUE)30 +b(routine)f(for)h(details)g(of)g(the)h(algorithm)e(used.)311 +484 y(6.)46 b(This)31 b(routine)h(is)g(not)i(in)m(tended)d(to)j(b)s(e)f +(used)f(for)g(ma)5 b(jor)33 b(planets,)h(whic)m(h)d(is)h(wh)m(y)h(JF)m +(ORM=1)427 597 y(is)k(not)h(a)m(v)-5 b(ailable)38 b(and)f(wh)m(y)g +(there)h(is)f(no)h(opp)s(ortunit)m(y)e(to)j(sp)s(ecify)d(either)i(the)g +(longitude)e(of)427 710 y(p)s(erihelion)g(or)i(the)h(daily)f(motion.)65 +b(Ho)m(w)m(ev)m(er,)44 b(if)37 b(JF)m(ORM=2)j(elemen)m(ts)f(are)g +(someho)m(w)g(ob-)427 823 y(tained)27 b(for)f(a)h(ma)5 +b(jor)27 b(planet)g(and)f(supplied)e(to)j(the)g(routine,)g(sensible)e +(results)h(will,)f(in)g(fact,)k(b)s(e)427 935 y(pro)s(duced.)43 +b(This)30 b(happ)s(ens)g(b)s(ecause)h(the)h(sla)p Fq(_)p +FA(PER)-8 b(TUE)30 b(routine)h(that)h(is)f(called)g(to)h(p)s(erform)427 +1048 y(the)e(calculations)e(c)m(hec)m(ks)i(the)g(separation)f(b)s(et)m +(w)m(een)g(the)h(b)s(o)s(dy)d(and)i(eac)m(h)h(of)f(the)h(planets)e(and) +427 1161 y(in)m(terprets)40 b(a)h(suspiciously)d(small)h(v)-5 +b(alue)40 b(\(0.001)j(A)m(U\))f(as)f(an)f(attempt)i(to)f(apply)f(it)g +(to)h(the)427 1274 y(planet)33 b(concerned.)50 b(If)33 +b(this)f(condition)g(is)g(detected,)k(the)d(con)m(tribution)f(from)h +(that)h(planet)e(is)427 1387 y(ignored,)i(and)f(the)h(status)f(is)g +(set)h(to)g(the)g(planet)f(n)m(um)m(b)s(er)f(\(Mercury=1,.)16 +b(.)g(.)f(,Neptune=8\))34 b(as)427 1500 y(a)d(w)m(arning.)0 +1767 y Fy(REFERENCE)44 b FA(:)55 b(Sterne,)40 b(Theo)s(dore)d(E.,)j +Fn(A)n(n)e(Intr)-5 b(o)g(duction)42 b(to)e(Celestial)g(Me)-5 +b(chanics,)40 b FA(In)m(terscience)227 1880 y(Publishers,)27 +b(1960.)43 b(Section)30 b(6.7,)i(p199.)p 0 1972 3780 +8 v 0 2084 a Fu(SLA)p Fk(_)p Fu(PER)-11 b(TUE)246 b Fj(P)m(erturb)s(ed) +38 b(Univ)m(ersal)e(Elemen)m(ts)244 b Fu(SLA)p Fk(_)p +Fu(PER)-11 b(TUE)0 2435 y Fy(A)m(CTION)44 b FA(:)68 b(Up)s(date)44 +b(the)h(univ)m(ersal)d(elemen)m(ts)j(of)g(an)f(asteroid)g(or)g(comet)i +(b)m(y)e(applying)e(planetary)227 2548 y(p)s(erturbations.)0 +2735 y Fy(CALL)j FA(:)77 b Fq(CALL)46 b(sla_PERTUE)f(\(DATE,)h(U,)i +(JSTAT\))0 3031 y Fy(GIVEN)d FA(:)277 3202 y Fn(D)n(A)-7 +b(TE1)435 b Fy(D)565 b FA(\014nal)29 b(ep)s(o)s(c)m(h)h(\(TT)g(MJD\))h +(for)g(the)f(up)s(dated)f(elemen)m(ts)0 3469 y Fy(GIVEN)34 +b(and)h(RETURNED)46 b FA(:)277 3615 y Fn(U)668 b Fy(D\(13\))379 +b FA(univ)m(ersal)29 b(elemen)m(ts)h(\(up)s(dated)g(in)f(place\))537 +3728 y(\(1\))1006 b(com)m(bined)30 b(mass)g(\()p Fi(M)h +FA(+)20 b Fi(m)p FA(\))537 3841 y(\(2\))1006 b(total)31 +b(energy)g(of)g(the)f(orbit)g(\()p Fi(\013)p FA(\))537 +3954 y(\(3\))1006 b(reference)31 b(\(osculating\))f(ep)s(o)s(c)m(h)h +(\()p Fi(t)2869 3968 y Fr(0)2908 3954 y FA(\))499 4067 +y(\(4-6\))969 b(p)s(osition)29 b(at)i(reference)g(ep)s(o)s(c)m(h)f(\()p +Fy(r)2836 4081 y Fr(0)2876 4067 y FA(\))499 4180 y(\(7-9\))969 +b(v)m(elo)s(cit)m(y)31 b(at)g(reference)g(ep)s(o)s(c)m(h)f(\()p +Fy(v)2837 4194 y Fr(0)2877 4180 y FA(\))514 4293 y(\(10\))984 +b(helio)s(cen)m(tric)29 b(distance)h(at)h(reference)g(ep)s(o)s(c)m(h) +514 4405 y(\(11\))984 b Fy(r)1701 4419 y Fr(0)1741 4405 +y Fi(:)p Fy(v)1821 4419 y Fb(0)514 4518 y FA(\(12\))g(date)31 +b(\()p Fi(t)p FA(\))514 4631 y(\(13\))984 b(univ)m(ersal)29 +b(eccen)m(tric)i(anomaly)f(\()p Fi( )s FA(\))i(of)e(date,)i(appro)m(x)0 +4890 y Fy(RETURNED)46 b FA(:)277 5036 y Fn(JST)-7 b(A)g(T)453 +b Fy(I)605 b FA(status:)1704 5149 y(+102)31 b(=)f(w)m(arning,)f(distan) +m(t)i(ep)s(o)s(c)m(h)1704 5262 y(+101)g(=)f(w)m(arning,)f(large)i +(timespan)e(\()p Fi(>)d FA(100)31 b(y)m(ears\))1540 5374 +y(+1)f(to)i(+8)e(=)g(coinciden)m(t)g(with)f(ma)5 b(jor)30 +b(planet)g(\(Note)i(5\))1866 5487 y(0)e(=)h(OK)1798 5600 +y Fl(\000)p FA(1)f(=)g(n)m(umerical)f(error)p eop +%%Page: 112 114 +112 113 bop 0 52 a FA(112)0 351 y Fy(NOTES)44 b FA(:)311 +535 y(1.)i(The)40 b(\\univ)m(ersal")f(elemen)m(ts)h(are)g(those)h(whic) +m(h)d(de\014ne)h(the)h(orbit)f(for)h(the)g(purp)s(oses)e(of)i(the)427 +648 y(metho)s(d)26 b(of)g(univ)m(ersal)f(v)-5 b(ariables)25 +b(\(see)i(reference)f(2\).)41 b(They)25 b(consist)h(of)g(the)h(com)m +(bined)e(mass)h(of)427 761 y(the)33 b(t)m(w)m(o)h(b)s(o)s(dies,)e(an)g +(ep)s(o)s(c)m(h,)h(and)f(the)h(p)s(osition)e(and)h(v)m(elo)s(cit)m(y)h +(v)m(ectors)h(\(arbitrary)e(reference)427 874 y(frame\))j(at)g(that)g +(ep)s(o)s(c)m(h.)53 b(The)34 b(parameter)h(set)g(used)f(here)g +(includes)e(also)j(v)-5 b(arious)33 b(quan)m(tities)427 +987 y(that)i(can,)g(in)d(fact,)k(b)s(e)d(deriv)m(ed)f(from)i(the)f +(other)h(information.)49 b(This)32 b(approac)m(h)i(is)f(tak)m(en)i(to) +427 1100 y(a)m(v)m(oiding)d(unnecessary)f(computation)h(and)g(loss)f +(of)h(accuracy)-8 b(.)48 b(The)31 b(supplemen)m(tary)g(quan)m(ti-)427 +1213 y(ties)22 b(are)h(\(i\))f Fi(\013)p FA(,)i(whic)m(h)d(is)g(prop)s +(ortional)f(to)j(the)g(total)g(energy)f(of)h(the)f(orbit,)h(\(ii\))e +(the)i(helio)s(cen)m(tric)427 1326 y(distance)35 b(at)g(ep)s(o)s(c)m +(h,)h(\(iii\))d(the)i(out)m(w)m(ards)g(comp)s(onen)m(t)g(of)g(the)g(v)m +(elo)s(cit)m(y)g(at)h(the)f(giv)m(en)f(ep)s(o)s(c)m(h,)427 +1439 y(\(iv\))29 b(an)f(estimate)h(of)g Fi( )s FA(,)h(the)e(\\univ)m +(ersal)g(eccen)m(tric)h(anomaly")g(at)g(a)g(giv)m(en)g(date)g(and)f +(\(v\))h(that)427 1552 y(date.)311 1726 y(2.)46 b(The)30 +b(univ)m(ersal)f(elemen)m(ts)h(are)h(with)e(resp)s(ect)i(to)g(the)f +(J2000)i(equator)f(and)f(equino)m(x.)311 1900 y(3.)46 +b(The)30 b(ep)s(o)s(c)m(hs)g(D)m(A)-8 b(TE,)32 b(U\(3\))f(and)f +(U\(12\))i(are)f(all)e(Mo)s(di\014ed)g(Julian)f(Dates)k(\(JD)p +Fl(\000)p FA(2400000.5\).)311 2074 y(4.)46 b(The)30 b(algorithm)g(is)g +(a)g(simpli\014ed)d(form)j(of)h(Enc)m(k)m(e's)h(metho)s(d.)41 +b(It)30 b(tak)m(es)i(as)f(a)g(basis)e(the)i(unp)s(er-)427 +2187 y(turb)s(ed)i(motion)h(of)h(the)f(b)s(o)s(dy)-8 +b(,)35 b(and)f(n)m(umerically)e(in)m(tegrates)k(the)e(p)s(erturbing)e +(accelerations)427 2300 y(from)i(the)h(ma)5 b(jor)35 +b(planets.)52 b(The)34 b(expression)f(used)h(is)f(essen)m(tially)h +(Sterne's)g(6.7-2)j(\(reference)427 2413 y(1\).)42 b(Ev)m(erhart)30 +b(and)f(Pitkin)f(\(reference)i(2\))h(suggest)f(rectifying)f(the)h +(orbit)f(at)h(eac)m(h)h(in)m(tegration)427 2526 y(step)38 +b(b)m(y)g(propagating)g(the)g(new)g(p)s(erturb)s(ed)d(p)s(osition)h +(and)i(v)m(elo)s(cit)m(y)g(as)h(the)f(new)f(univ)m(ersal)427 +2639 y(v)-5 b(ariables.)66 b(In)38 b(the)h(presen)m(t)h(routine)e(the)h +(orbit)f(is)g(recti\014ed)h(less)f(frequen)m(tly)g(than)h(this,)i(in) +427 2751 y(order)31 b(to)g(gain)f(a)i(sligh)m(t)d(sp)s(eed)h(adv)-5 +b(an)m(tage.)44 b(Ho)m(w)m(ev)m(er,)33 b(the)e(recti\014cation)g(is)f +(done)g(directly)g(in)427 2864 y(terms)36 b(of)g(p)s(osition)e(and)i(v) +m(elo)s(cit)m(y)-8 b(,)38 b(as)f(suggested)f(b)m(y)g(Ev)m(erhart)g(and) +g(Pitkin,)f(b)m(ypassing)g(the)427 2977 y(use)30 b(of)h(con)m(v)m(en)m +(tional)g(orbital)e(elemen)m(ts.)427 3137 y(The)34 b +Fi(f)10 b FA(\()p Fi(q)s FA(\))34 b(part)h(of)f(the)h(full)d(Enc)m(k)m +(e)k(metho)s(d)e(is)f(not)i(used.)52 b(The)34 b(purp)s(ose)f(of)i(this) +e(part)h(is)g(to)427 3249 y(a)m(v)m(oid)21 b(subtracting)f(t)m(w)m(o)i +(nearly)e(equal)g(quan)m(tities)h(when)e(calculating)h(the)h +(\\indirect)e(mem)m(b)s(er",)427 3362 y(whic)m(h)34 b(tak)m(es)j +(accoun)m(t)f(of)g(the)f(small)f(c)m(hange)i(in)e(the)h(Sun's)f +(attraction)i(due)f(to)h(the)f(sligh)m(tly)427 3475 y(displaced)k(p)s +(osition)g(of)i(the)h(p)s(erturb)s(ed)c(b)s(o)s(dy)-8 +b(.)71 b(A)41 b(simpler,)h(direct)e(calculation)g(in)g(double)427 +3588 y(precision)29 b(pro)m(v)m(es)i(to)g(b)s(e)f(faster)g(and)g(not)h +(signi\014can)m(tly)d(less)i(accurate.)427 3747 y(Apart)g(from)f(emplo) +m(ying)f(a)i(v)-5 b(ariable)28 b(timestep,)h(and)g(o)s(ccasionally)g +(\\rectifying)f(the)i(orbit")f(to)427 3860 y(k)m(eep)38 +b(the)g(indirect)e(mem)m(b)s(er)g(small,)i(the)g(in)m(tegration)f(is)g +(done)g(in)f(a)i(fairly)e(straigh)m(tforw)m(ard)427 3973 +y(w)m(a)m(y)-8 b(.)48 b(The)32 b(acceleration)h(estimated)g(for)f(the)g +(middle)e(of)i(the)h(timestep)f(is)f(assumed)h(to)h(apply)427 +4086 y(throughout)c(that)g(timestep;)g(it)g(is)f(also)g(used)g(in)g +(the)h(extrap)s(olation)f(of)h(the)g(p)s(erturbations)e(to)427 +4199 y(the)33 b(middle)d(of)j(the)g(next)g(timestep,)g(to)g(predict)f +(the)h(new)f(disturb)s(ed)d(p)s(osition.)46 b(There)32 +b(is)g(no)427 4312 y(iteration)e(within)e(a)j(timestep.)427 +4471 y(Measures)24 b(are)h(tak)m(en)f(to)h(reac)m(h)g(a)f(compromise)f +(b)s(et)m(w)m(een)h(execution)g(time)g(and)f(accuracy)-8 +b(.)40 b(The)427 4584 y(starting-p)s(oin)m(t)29 b(is)f(the)i(goal)g(of) +g(ac)m(hieving)f(arcsecond)h(accuracy)g(for)f(ordinary)f(minor)g +(planets)427 4697 y(o)m(v)m(er)35 b(a)f(ten-y)m(ear)h(timespan.)48 +b(This)32 b(goal)i(dictates)g(ho)m(w)f(large)h(the)f(timesteps)g(can)h +(b)s(e,)g(whic)m(h)427 4810 y(in)c(turn)g(dictates)i(ho)m(w)f(frequen)m +(tly)f(the)h(unp)s(erturb)s(ed)d(motion)j(has)g(to)g(b)s(e)g +(recalculated)g(from)427 4923 y(the)g(osculating)f(elemen)m(ts.)427 +5082 y(Within)h(predetermined)g(limits,)f(the)j(timestep)f(for)h(the)f +(n)m(umerical)f(in)m(tegration)i(is)e(v)-5 b(aried)32 +b(in)427 5195 y(length)38 b(in)e(in)m(v)m(erse)i(prop)s(ortion)e(to)j +(the)f(magnitude)f(of)h(the)g(net)g(acceleration)h(on)f(the)g(b)s(o)s +(dy)427 5308 y(from)30 b(the)h(ma)5 b(jor)30 b(planets.)427 +5467 y(The)h(n)m(umerical)f(in)m(tegration)h(requires)f(estimates)i(of) +g(the)f(ma)5 b(jor-planet)31 b(motions.)43 b(Appro)m(xi-)427 +5580 y(mate)33 b(p)s(ositions)c(for)i(the)h(ma)5 b(jor)32 +b(planets)e(\(Pluto)i(alone)f(is)g(omitted\))g(are)h(obtained)f(from)g +(the)427 5693 y(routine)25 b(sla)p Fq(_)p FA(PLANET.)g(Tw)m(o)h(lev)m +(els)g(of)g(in)m(terp)s(olation)e(are)i(used,)h(to)f(enhance)g(sp)s +(eed)f(without)p eop +%%Page: 113 115 +113 114 bop 0 52 a Ft(SUN/67.45)3206 b FA(113)427 351 +y(signi\014can)m(tly)39 b(degrading)h(accuracy)-8 b(.)72 +b(A)m(t)42 b(a)e(lo)m(w)h(frequency)-8 b(,)43 b(the)e(routine)e(sla)p +Fq(_)p FA(PLANET)g(is)427 464 y(called)30 b(to)h(generate)g(up)s(dated) +e(p)s(osition+v)m(elo)s(cit)m(y)g(\\state)j(v)m(ectors".)42 +b(The)30 b(only)f(task)i(remain-)427 577 y(ing)38 b(to)i(b)s(e)e +(carried)g(out)h(at)h(the)f(full)e(frequency)h(\()p Fn(i.e.)g +FA(at)i(eac)m(h)g(in)m(tegration)f(step\))g(is)f(to)i(use)427 +690 y(the)33 b(state)h(v)m(ectors)g(to)f(extrap)s(olate)h(the)e +(planetary)g(p)s(ositions.)46 b(In)31 b(place)i(of)g(a)g(strictly)e +(linear)427 803 y(extrap)s(olation,)g(some)g(allo)m(w)m(ance)g(is)f +(made)g(for)h(the)g(curv)-5 b(ature)30 b(of)h(the)g(orbit)e(b)m(y)i +(scaling)f(bac)m(k)427 916 y(the)h(radius)d(v)m(ector)k(as)f(the)f +(linear)f(extrap)s(olation)h(go)s(es)h(o\013)g(at)g(a)g(tangen)m(t.)427 +1134 y(V)-8 b(arious)37 b(other)g(appro)m(ximations)e(are)j(made.)60 +b(F)-8 b(or)37 b(example,)i(p)s(erturbations)34 b(b)m(y)j(Pluto)f(and) +427 1247 y(the)26 b(minor)e(planets)g(are)i(neglected,)h(relativistic)d +(e\013ects)j(are)e(not)h(tak)m(en)g(in)m(to)g(accoun)m(t)h(and)d(the) +427 1360 y(Earth-Mo)s(on)31 b(system)f(is)g(treated)h(as)g(a)g(single)e +(b)s(o)s(dy)-8 b(.)427 1578 y(In)34 b(the)g(in)m(terests)g(of)g +(simplicit)m(y)-8 b(,)33 b(the)h(bac)m(kground)g(calculations)f(for)h +(the)h(ma)5 b(jor)34 b(planets)f(are)427 1691 y(carried)i(out)i +Fn(en)g(masse.)59 b FA(The)35 b(mean)h(elemen)m(ts)h(and)e(state)i(v)m +(ectors)h(for)e(all)f(the)h(planets)f(are)427 1804 y(refreshed)30 +b(at)h(the)f(same)h(time,)f(without)g(regard)g(for)g(orbit)g(curv)-5 +b(ature,)30 b(mass)g(or)h(pro)m(ximit)m(y)-8 b(.)311 +2067 y(5.)46 b(This)30 b(routine)h(is)g(not)h(in)m(tended)f(to)i(b)s(e) +e(used)g(for)h(ma)5 b(jor)32 b(planets.)44 b(Ho)m(w)m(ev)m(er,)35 +b(if)c(ma)5 b(jor-planet)427 2180 y(elemen)m(ts)36 b(are)f(supplied,)e +(sensible)h(results)f(will,)h(in)g(fact,)j(b)s(e)e(pro)s(duced.)53 +b(This)33 b(happ)s(ens)h(b)s(e-)427 2293 y(cause)26 b(the)f(routine)f +(c)m(hec)m(ks)i(the)f(separation)g(b)s(et)m(w)m(een)g(the)g(b)s(o)s(dy) +f(and)g(eac)m(h)i(of)f(the)g(planets)f(and)427 2405 y(in)m(terprets)g +(a)h(suspiciously)d(small)h(v)-5 b(alue)24 b(\(0.001)k(A)m(U\))d(as)g +(an)g(attempt)h(to)g(apply)d(the)i(routine)f(to)427 2518 +y(the)29 b(planet)e(concerned.)41 b(If)27 b(this)h(condition)e(is)i +(detected,)i(the)f(con)m(tribution)d(from)i(that)h(planet)427 +2631 y(is)35 b(ignored,)h(and)e(the)i(status)f(is)g(set)h(to)g(the)f +(planet)g(n)m(um)m(b)s(er)f(\(Mercury=1,.)16 b(.)f(.)h(,Neptune=8\))427 +2744 y(as)31 b(a)g(w)m(arning.)0 3384 y Fy(REFERENCES)44 +b FA(:)311 3683 y(1.)i(Sterne,)25 b(Theo)s(dore)f(E.,)h +Fn(A)n(n)h(Intr)-5 b(o)g(duction)29 b(to)f(Celestial)f(Me)-5 +b(chanics,)25 b FA(In)m(terscience)g(Publishers,)427 +3796 y(1960.)43 b(Section)30 b(6.7,)i(p199.)311 3997 +y(2.)46 b(Ev)m(erhart,)31 b(E.)g(&)f(Pitkin,)e(E.T.,)j(Am.)f(J.)h(Ph)m +(ys.)f(51,)h(712,)h(1983.)p 0 4241 3780 8 v 0 4354 a +Fu(SLA)p Fk(_)p Fu(PLANEL)236 b Fj(Planet)37 b(P)m(osition)f(from)h +(Elemen)m(ts)234 b Fu(SLA)p Fk(_)p Fu(PLANEL)0 4704 y +Fy(A)m(CTION)44 b FA(:)59 b(Helio)s(cen)m(tric)40 b(p)s(osition)e(and)h +(v)m(elo)s(cit)m(y)h(of)g(a)g(planet,)i(asteroid)e(or)g(comet,)j +(starting)d(from)227 4817 y(orbital)29 b(elemen)m(ts.)0 +5005 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PLANEL)f(\(DATE,)h +(JFORM,)h(EPOCH,)f(ORBINC,)f(ANODE,)i(PERIH,)1239 5118 +y(AORQ,)f(E,)i(AORL,)e(DM,)h(PV,)g(JSTAT\))0 5634 y Fy(GIVEN)e +FA(:)p eop +%%Page: 114 116 +114 115 bop 0 52 a FA(114)277 339 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(Mo)s(di\014ed)29 b(Julian)f(Date)k(\(JD)p +Fl(\000)p FA(2400000.5\))277 452 y Fn(JF)n(ORM)413 b +Fy(I)605 b FA(c)m(hoice)31 b(of)g(elemen)m(t)g(set)g(\(1-3,)h(see)f +(Note)g(3,)g(b)s(elo)m(w\))277 565 y Fn(EPOCH)409 b Fy(D)565 +b FA(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)g(\()p Fi(t)2462 +579 y Fr(0)2531 565 y FA(or)g Fi(T)13 b FA(,)30 b(TT)g(MJD\))277 +678 y Fn(ORBINC)368 b Fy(D)565 b FA(inclination)28 b(\()p +Fi(i)p FA(,)j(radians\))277 791 y Fn(ANODE)399 b Fy(D)565 +b FA(longitude)29 b(of)i(the)f(ascending)g(no)s(de)g(\(\012,)g +(radians\))277 904 y Fn(PERIH)443 b Fy(D)565 b FA(longitude)29 +b(or)i(argumen)m(t)f(of)h(p)s(erihelion)c(\()p Fi($)33 +b FA(or)e Fi(!)s FA(,)1825 1016 y(radians\))277 1129 +y Fn(A)n(OR)n(Q)466 b Fy(D)565 b FA(mean)30 b(distance)f(or)g(p)s +(erihelion)d(distance)k(\()p Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 +1242 y Fn(E)674 b Fy(D)565 b FA(eccen)m(tricit)m(y)32 +b(\()p Fi(e)p FA(\))277 1355 y Fn(A)n(ORL)477 b Fy(D)565 +b FA(mean)31 b(anomaly)f(or)g(longitude)f(\()p Fi(M)41 +b FA(or)30 b Fi(L)p FA(,)h(radians,)1825 1468 y(JF)m(ORM=1,2)g(only\)) +277 1581 y Fn(DM)585 b Fy(D)565 b FA(daily)29 b(motion)h(\()p +Fi(n)p FA(,)g(radians,)g(JF)m(ORM=1)h(only\))0 1945 y +Fy(RETURNED)46 b FA(:)277 2091 y Fn(PV)606 b Fy(D\(6\))431 +b FA(helio)s(cen)m(tric)29 b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 +b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(],)31 b(equatorial,)f(J2000)1825 2204 +y(\(A)m(U,)i(A)m(U/s\))277 2317 y Fn(JST)-7 b(A)g(T)453 +b Fy(I)605 b FA(status:)1898 2430 y(0)30 b(=)g(OK)1825 +2542 y Fl(\000)p FA(1)g(=)g(illegal)f(JF)m(ORM)1825 2655 +y Fl(\000)p FA(2)h(=)g(illegal)f(E)1825 2768 y Fl(\000)p +FA(3)h(=)g(illegal)f(A)m(OR)m(Q)1825 2881 y Fl(\000)p +FA(4)h(=)g(illegal)f(DM)1825 2994 y Fl(\000)p FA(5)h(=)g(n)m(umerical)f +(error)0 3358 y Fy(NOTES)44 b FA(:)311 3550 y(1.)i(D)m(A)-8 +b(TE)35 b(is)f(the)g(instan)m(t)g(for)g(whic)m(h)f(the)i(prediction)d +(is)h(required.)51 b(It)34 b(is)g(in)e(the)j(TT)e(timescale)427 +3662 y(\(formerly)d(Ephemeris)e(Time,)i(ET\))g(and)g(is)f(a)i(Mo)s +(di\014ed)e(Julian)f(Date)k(\(JD)p Fl(\000)p FA(2400000.5\).)311 +3811 y(2.)46 b(The)30 b(elemen)m(ts)h(are)g(with)e(resp)s(ect)h(to)h +(the)g(J2000)h(ecliptic)d(and)g(equino)m(x.)311 3959 +y(3.)46 b(Three)30 b(di\013eren)m(t)g(elemen)m(t-format)i(options)d +(are)i(a)m(v)-5 b(ailable,)30 b(as)h(follo)m(ws.)427 +4202 y(JF)m(ORM=1,)g(suitable)e(for)i(the)f(ma)5 b(jor)30 +b(planets:)602 4398 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1910 4412 y Fr(0)1980 4398 +y FA(\(TT)g(MJD\))602 4511 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 4624 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +4737 y(PERIH)122 b(=)55 b(longitude)29 b(of)h(p)s(erihelion)d +Fi($)34 b FA(\(radians\))602 4850 y(A)m(OR)m(Q)143 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 4963 y(E)352 +b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g FA(\(0)26 b Fl(\024)f +Fi(e)h(<)f FA(1\))602 5076 y(A)m(ORL)154 b(=)55 b(mean)30 +b(longitude)f Fi(L)i FA(\(radians\))602 5188 y(DM)262 +b(=)55 b(daily)29 b(motion)h Fi(n)g FA(\(radians\))427 +5384 y(JF)m(ORM=2,)h(suitable)e(for)i(minor)d(planets:)602 +5580 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)f +Fi(t)1910 5594 y Fr(0)1980 5580 y FA(\(TT)g(MJD\))602 +5693 y(ORBINC)45 b(=)55 b(inclination)27 b Fi(i)k FA(\(radians\))p +eop +%%Page: 115 117 +115 116 bop 0 52 a Ft(SUN/67.45)3206 b FA(115)602 351 +y(ANODE)76 b(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de)f +(\012)h(\(radians\))602 464 y(PERIH)122 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 577 +y(A)m(OR)m(Q)143 b(=)55 b(mean)30 b(distance)g Fi(a)h +FA(\(A)m(U\))602 690 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 +b Fi(e)g FA(\(0)26 b Fl(\024)f Fi(e)h(<)f FA(1\))602 +803 y(A)m(ORL)154 b(=)55 b(mean)30 b(anomaly)h Fi(M)40 +b FA(\(radians\))427 1005 y(JF)m(ORM=3,)31 b(suitable)e(for)i(comets:) +602 1207 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(p)s(erihelion)c +Fi(T)43 b FA(\(TT)30 b(MJD\))602 1320 y(ORBINC)45 b(=)55 +b(inclination)27 b Fi(i)k FA(\(radians\))602 1433 y(ANODE)76 +b(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de)f(\012)h +(\(radians\))602 1546 y(PERIH)122 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 1659 +y(A)m(OR)m(Q)143 b(=)55 b(p)s(erihelion)27 b(distance)j +Fi(q)j FA(\(A)m(U\))602 1771 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 +b Fi(e)g FA(\(0)26 b Fl(\024)f Fi(e)h Fl(\024)f FA(10\))311 +1974 y(4.)46 b(Un)m(used)36 b(elemen)m(ts)h(\(DM)h(for)f(JF)m(ORM=2,)i +(A)m(ORL)e(and)f(DM)h(for)g(JF)m(ORM=3\))g(are)g(not)g(ac-)427 +2086 y(cessed.)311 2238 y(5.)46 b(The)e(reference)h(frame)f(for)g(the)g +(result)g(is)f(equatorial)h(and)f(is)h(with)f(resp)s(ect)h(to)h(the)f +(mean)427 2351 y(equino)m(x)30 b(and)g(ecliptic)f(of)i(ep)s(o)s(c)m(h)f +(J2000.)311 2502 y(6.)46 b(The)36 b(algorithm)f(w)m(as)h(originally)e +(adapted)i(from)g(the)g(EPHSLA)f(program)h(of)g(D.)16 +b(H.)g(P)-8 b(.)16 b(Jones)427 2615 y(\(priv)-5 b(ate)36 +b(comm)m(unication,)h(1996\).)59 b(The)35 b(metho)s(d)h(is)f(based)g +(on)h(Stump\013)7 b('s)35 b(Univ)m(ersal)f(V)-8 b(ari-)427 +2728 y(ables.)0 3115 y Fy(REFERENCE)44 b FA(:)d(Ev)m(erhart,)31 +b(E.)f(&)g(Pitkin,)f(E.T.,)h(Am.)h(J.)f(Ph)m(ys.)g(51,)i(712,)g(1983.)p +0 3258 3780 8 v 0 3371 a Fu(SLA)p Fk(_)p Fu(PLANET)412 +b Fj(Planetary)37 b(Ephemerides)412 b Fu(SLA)p Fk(_)p +Fu(PLANET)0 3721 y Fy(A)m(CTION)44 b FA(:)c(Appro)m(ximate)31 +b(helio)s(cen)m(tric)e(p)s(osition)f(and)i(v)m(elo)s(cit)m(y)h(of)f(a)h +(planet.)0 3909 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PLANET)f +(\(DATE,)h(NP,)h(PV,)g(JSTAT\))0 4274 y Fy(GIVEN)e FA(:)277 +4420 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(Mo)s(di\014ed)29 +b(Julian)f(Date)k(\(JD)p Fl(\000)p FA(2400000.5\))277 +4533 y Fn(NP)606 b Fy(I)f FA(planet:)1825 4646 y(1)15 +b(=)g(Mercury)1825 4759 y(2)g(=)g(V)-8 b(en)m(us)1825 +4872 y(3)15 b(=)g(Earth-Mo)s(on)31 b(Barycen)m(tre)1825 +4985 y(4)15 b(=)g(Mars)1825 5098 y(5)g(=)g(Jupiter)1825 +5211 y(6)g(=)g(Saturn)1825 5323 y(7)g(=)g(Uran)m(us)1825 +5436 y(8)g(=)g(Neptune)1825 5549 y(9)g(=)g(Pluto)p eop +%%Page: 116 118 +116 117 bop 0 52 a FA(116)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(PV)606 b Fy(D\(6\))431 b FA(helio)s(cen)m(tric)29 +b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 b Fi(x)r(;)32 +b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 b FA(],)31 +b(equatorial,)f(J2000)1825 610 y(\(A)m(U,)i(A)m(U/s\))277 +723 y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(status:)1825 +836 y(+1)30 b(=)g(w)m(arning:)40 b(date)31 b(outside)f(of)g(range)1898 +949 y(0)g(=)g(OK)1825 1062 y Fl(\000)p FA(1)g(=)g(illegal)f(NP)h +(\(outside)g(1-9\))1825 1175 y Fl(\000)p FA(2)g(=)g(solution)f(didn't)g +(con)m(v)m(erge)0 1551 y Fy(NOTES)44 b FA(:)311 1747 +y(1.)i(The)33 b(ep)s(o)s(c)m(h,)h(D)m(A)-8 b(TE,)34 b(is)e(in)g(the)h +(TDB)g(timescale)h(and)e(is)g(in)g(the)h(form)g(of)g(a)g(Mo)s(di\014ed) +f(Julian)427 1860 y(Date)g(\(JD)p Fl(\000)p FA(2400000.5\).)311 +2011 y(2.)46 b(The)24 b(reference)h(frame)g(is)e(equatorial)h(and)g(is) +g(with)f(resp)s(ect)h(to)i(the)e(mean)h(equino)m(x)f(and)g(ecliptic)427 +2124 y(of)31 b(ep)s(o)s(c)m(h)f(J2000.)311 2274 y(3.)46 +b(If)29 b(a)g(planet)g(n)m(um)m(b)s(er,)f(NP)-8 b(,)29 +b(outside)g(the)g(range)g(1-9)h(is)f(supplied,)d(an)j(error)f(status)i +(is)e(returned)427 2387 y(\(JST)-8 b(A)g(T)30 b(=)h Fl(\000)p +FA(1\))f(and)g(the)h(PV)f(v)m(ector)i(is)d(set)i(to)g(zero)s(es.)311 +2538 y(4.)46 b(The)29 b(algorithm)f(for)h(obtaining)f(the)h(mean)g +(elemen)m(ts)h(of)f(the)g(planets)g(from)f(Mercury)h(to)h(Nep-)427 +2651 y(tune)23 b(is)f(due)h(to)h(J.)15 b(L.)g(Simon,)24 +b(P)-8 b(.)15 b(Bretagnon,)26 b(J.)15 b(Chapron)m(t,)25 +b(M.)16 b(Chapron)m(t-T)-8 b(ouze,)25 b(G.)16 b(F)-8 +b(rancou)427 2764 y(and)30 b(J.)15 b(Lask)-5 b(ar)30 +b(\(Bureau)g(des)g(Longitudes,)g(P)m(aris,)g(F)-8 b(rance\).)42 +b(The)29 b(\(completely)i(di\013eren)m(t\))f(al-)427 +2876 y(gorithm)g(for)g(calculating)g(the)g(ecliptic)f(co)s(ordinates)h +(of)h(Pluto)f(is)f(b)m(y)h(Meeus.)311 3027 y(5.)46 b(Comparisons)24 +b(of)i(the)f(presen)m(t)h(routine)e(with)h(the)g(JPL)g(DE200)i +(ephemeris)d(giv)m(e)i(the)g(follo)m(wing)427 3140 y(RMS)k(errors)g(o)m +(v)m(er)i(the)e(in)m(terv)-5 b(al)30 b(1960-2025:)1543 +3313 y Fn(p)-5 b(osition)35 b(\(km\))170 b(sp)-5 b(e)g(e)g(d)35 +b(\(metr)-5 b(e/se)g(c\))697 3539 y FA(Mercury)694 b(334)613 +b(0.437)697 3652 y(V)-8 b(en)m(us)748 b(1060)613 b(0.855)697 +3765 y(EMB)774 b(2010)613 b(0.815)697 3878 y(Mars)783 +b(7690)613 b(1.98)697 3991 y(Jupiter)651 b(71700)614 +b(7.70)697 4104 y(Saturn)623 b(199000)568 b(19.4)697 +4217 y(Uran)m(us)608 b(564000)568 b(16.4)697 4330 y(Neptune)556 +b(158000)568 b(14.4)697 4443 y(Pluto)718 b(36400)614 +b(0.137)427 4616 y(F)-8 b(rom)27 b(comparisons)e(with)g(DE102,)k(Simon) +24 b Fn(et)29 b(al.)39 b FA(quote)27 b(the)f(follo)m(wing)f(longitude)g +(accuracies)427 4729 y(o)m(v)m(er)32 b(the)f(in)m(terv)-5 +b(al)29 b(1800-2200:)697 4903 y(Mercury)702 b(4)1773 +4866 y Fh(0)l(0)697 5016 y FA(V)-8 b(en)m(us)801 b(5)1773 +4979 y Fh(0)l(0)697 5128 y FA(EMB)827 b(6)1773 5092 y +Fh(0)l(0)697 5241 y FA(Mars)790 b(17)1772 5205 y Fh(0)m(0)697 +5354 y FA(Jupiter)704 b(71)1772 5317 y Fh(0)m(0)697 5467 +y FA(Saturn)721 b(81)1772 5430 y Fh(0)m(0)697 5580 y +FA(Uran)m(us)706 b(86)1772 5543 y Fh(0)m(0)697 5693 y +FA(Neptune)654 b(11)1772 5656 y Fh(0)m(0)p eop +%%Page: 117 119 +117 118 bop 0 52 a Ft(SUN/67.45)3206 b FA(117)427 351 +y(In)27 b(the)g(case)i(of)e(Pluto,)h(Meeus)g(quotes)g(an)f(accuracy)h +(of)g(0)2451 314 y Fh(0)l(0)2455 351 y Fi(:)p FA(6)g(in)e(longitude)g +(and)h(0)3266 314 y Fh(0)l(0)3270 351 y Fi(:)p FA(2)h(in)e(latitude)427 +464 y(for)k(the)h(p)s(erio)s(d)d(1885-2099.)427 607 y(F)-8 +b(or)28 b(all)e(except)i(Pluto,)f(o)m(v)m(er)h(the)f(p)s(erio)s(d)e +(1000-3000,)32 b(the)27 b(accuracy)h(is)e(b)s(etter)h(than)g(1.5)h +(times)427 720 y(that)g(o)m(v)m(er)f(1800-2200.)44 b(Outside)25 +b(the)i(in)m(terv)-5 b(al)26 b(1000-3000)k(the)d(accuracy)h(declines.) +38 b(F)-8 b(or)27 b(Pluto)427 833 y(the)42 b(accuracy)g(declines)e +(rapidly)f(outside)i(the)g(p)s(erio)s(d)e(1885-2099.)78 +b(Outside)39 b(these)j(ranges)427 946 y(\(1885-2099)f(for)36 +b(Pluto,)i(1000-3000)i(for)c(the)h(rest\))g(a)g(\\date)g(out)g(of)g +(range")g(w)m(arning)e(status)427 1059 y(\()p Fq(JSTAT=+1)p +FA(\))29 b(is)h(returned.)311 1231 y(6.)46 b(The)30 b(algorithms)e(for) +i(\(i\))f(Mercury)h(through)f(Neptune)h(and)f(\(ii\))g(Pluto)g(are)h +(completely)g(inde-)427 1344 y(p)s(enden)m(t.)38 b(In)25 +b(the)h(Mercury)f(through)g(Neptune)g(case,)j(the)d(presen)m(t)h +(SLALIB)f(implemen)m(tation)427 1457 y(di\013ers)k(from)h(the)h +(original)d(Simon)h Fn(et)k(al.)41 b FA(F)-8 b(ortran)31 +b(co)s(de)f(in)f(the)i(follo)m(wing)e(resp)s(ects:)506 +1630 y Fl(\017)46 b FA(The)37 b(date)i(is)d(supplied)f(as)j(a)g(Mo)s +(di\014ed)e(Julian)f(Date)k(rather)f(a)g(Julian)d(Date)40 +b(\(MJD)e(=)597 1743 y(\(JD)21 b Fl(\000)f FA(2400000)p +Fi(:)p FA(5\).)506 1886 y Fl(\017)46 b FA(The)33 b(result)g(is)f +(returned)g(only)h(in)f(equatorial)h(Cartesian)g(form;)i(the)e +(ecliptic)g(longitude,)597 1999 y(latitude)d(and)f(radius)g(v)m(ector)j +(are)f(not)f(returned.)506 2142 y Fl(\017)46 b FA(The)30 +b(v)m(elo)s(cit)m(y)h(is)e(in)g(A)m(U)j(p)s(er)d(second,)i(not)f(A)m(U) +h(p)s(er)f(da)m(y)-8 b(.)506 2284 y Fl(\017)46 b FA(Di\013eren)m(t)31 +b(error/w)m(arning)e(status)i(v)-5 b(alues)30 b(are)h(used.)506 +2427 y Fl(\017)46 b FA(Kepler's)30 b(Equation)f(is)h(not)g(solv)m(ed)h +(inline.)506 2570 y Fl(\017)46 b FA(P)m(olynomials)29 +b(in)g(T)h(are)h(nested)f(to)h(minimize)d(rounding)g(errors.)506 +2713 y Fl(\017)46 b FA(Explicit)28 b(double-precision)g(constan)m(ts)j +(are)g(used)f(to)h(a)m(v)m(oid)g(mixed-mo)s(de)e(expressions.)506 +2856 y Fl(\017)46 b FA(There)26 b(are)h(other,)h(cosmetic,)h(c)m +(hanges)e(to)h(comply)e(with)f(Starlink/SLALIB)f(st)m(yle)j(guide-)597 +2969 y(lines.)427 3142 y(None)k(of)g(the)f(ab)s(o)m(v)m(e)i(c)m(hanges) +f(a\013ects)h(the)f(result)e(signi\014can)m(tly)-8 b(.)311 +3314 y(7.)46 b(NP)15 b(=)g(3)34 b(the)g(result)f(is)f(for)i(the)g +(Earth-Mo)s(on)f(Barycen)m(tre.)52 b(T)-8 b(o)35 b(obtain)e(the)g +(helio)s(cen)m(tric)g(p)s(o-)427 3427 y(sition)43 b(and)g(v)m(elo)s +(cit)m(y)h(of)g(the)g(Earth,)j(either)d(use)f(the)h(SLALIB)g(routine)e +(sla)p Fq(_)p FA(EVP)h(or)h(call)427 3540 y(sla)p Fq(_)p +FA(DMOON)36 b(and)g(subtract)g(0.012150581)41 b(times)36 +b(the)g(geo)s(cen)m(tric)h(Mo)s(on)g(v)m(ector)h(from)d(the)427 +3653 y(EMB)44 b(v)m(ector)g(pro)s(duced)d(b)m(y)i(the)f(presen)m(t)h +(routine.)77 b(\(The)43 b(Mo)s(on)g(v)m(ector)h(should)d(b)s(e)h(pre-) +427 3766 y(cessed)28 b(to)g(J2000)h(\014rst,)f(but)f(this)f(can)i(b)s +(e)f(omitted)h(for)f(mo)s(dern)f(ep)s(o)s(c)m(hs)h(without)g(in)m(tro)s +(ducing)427 3879 y(signi\014can)m(t)j(inaccuracy)-8 b(.\))227 +4222 y Fy(REFERENCES)44 b FA(:)481 4395 y(1.)i(Simon)29 +b Fn(et)k(al.,)d FA(Astron.)h(Astroph)m(ys.)f Fy(282)p +FA(,)i(663)f(\(1994\).)481 4538 y(2.)46 b(Meeus,)31 b(J.,)g +Fn(Astr)-5 b(onomic)g(al)35 b(A)n(lgorithms,)c FA(Willmann-Bell)d +(\(1991\).)p 0 4729 3780 8 v 0 4842 a Fu(SLA)p Fk(_)p +Fu(PLANTE)219 b Fj([)20 b Fd(\013)q(;)g(\016)k Fj(])38 +b(of)g(Planet)g(from)e(Elemen)m(ts)219 b Fu(SLA)p Fk(_)p +Fu(PLANTE)0 5192 y Fy(A)m(CTION)44 b FA(:)57 b(T)-8 b(op)s(o)s(cen)m +(tric)38 b(apparen)m(t)h([)15 b Fi(\013;)g(\016)20 b +FA(])39 b(of)f(a)h(Solar-System)f(ob)5 b(ject)39 b(whose)f(helio)s(cen) +m(tric)g(orbital)227 5305 y(elemen)m(ts)31 b(are)g(kno)m(wn.)0 +5493 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PLANTE)f(\(DATE,)h +(ELONG,)h(PHI,)f(JFORM,)g(EPOCH,)g(ORBINC,)g(ANODE,)g(PERIH,)1239 +5606 y(AORQ,)g(E,)i(AORL,)e(DM,)h(RA,)g(DEC,)f(R,)i(JSTAT\))p +eop +%%Page: 118 120 +118 119 bop 0 52 a FA(118)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(MJD)31 b(of)f(observ)-5 +b(ation)31 b(\(JD)p Fl(\000)p FA(2400000.5\))277 610 +y Fn(ELONG,PHI)216 b Fy(D)565 b FA(observ)m(er's)31 b(longitude)e +(\(east)j(+v)m(e\))f(and)f(latitude)1825 723 y(radians\))277 +836 y Fn(JF)n(ORM)413 b Fy(I)605 b FA(c)m(hoice)31 b(of)g(elemen)m(t)g +(set)g(\(1-3,)h(see)f(Note)g(4,)g(b)s(elo)m(w\))277 949 +y Fn(EPOCH)409 b Fy(D)565 b FA(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)g +(\()p Fi(t)2462 963 y Fr(0)2531 949 y FA(or)g Fi(T)13 +b FA(,)30 b(TT)g(MJD\))277 1062 y Fn(ORBINC)368 b Fy(D)565 +b FA(inclination)28 b(\()p Fi(i)p FA(,)j(radians\))277 +1175 y Fn(ANODE)399 b Fy(D)565 b FA(longitude)29 b(of)i(the)f +(ascending)g(no)s(de)g(\(\012,)g(radians\))277 1288 y +Fn(PERIH)443 b Fy(D)565 b FA(longitude)29 b(or)i(argumen)m(t)f(of)h(p)s +(erihelion)c(\()p Fi($)33 b FA(or)e Fi(!)s FA(,)1825 +1401 y(radians\))277 1514 y Fn(A)n(OR)n(Q)466 b Fy(D)565 +b FA(mean)30 b(distance)f(or)g(p)s(erihelion)d(distance)k(\()p +Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 1626 y Fn(E)674 +b Fy(D)565 b FA(eccen)m(tricit)m(y)32 b(\()p Fi(e)p FA(\))277 +1739 y Fn(A)n(ORL)477 b Fy(D)565 b FA(mean)31 b(anomaly)f(or)g +(longitude)f(\()p Fi(M)41 b FA(or)30 b Fi(L)p FA(,)1825 +1852 y(radians,)f(JF)m(ORM=1,2)j(only\))277 1965 y Fn(DM)585 +b Fy(D)565 b FA(daily)29 b(motion)h(\()p Fi(n)p FA(,)g(radians,)g(JF)m +(ORM=1)h(only\))0 2242 y Fy(RETURNED)46 b FA(:)277 2389 +y Fn(RA,DEC)378 b Fy(D)565 b FA(top)s(o)s(cen)m(tric)31 +b(apparen)m(t)f([)15 b Fi(\013;)g(\016)21 b FA(])30 b(\(radians\))277 +2501 y Fn(R)670 b Fy(D)565 b FA(distance)30 b(from)g(observ)m(er)h(\(A) +m(U\))277 2614 y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(status:)1898 +2727 y(0)30 b(=)g(OK)1825 2840 y Fl(\000)p FA(1)g(=)g(illegal)f(JF)m +(ORM)1825 2953 y Fl(\000)p FA(2)h(=)g(illegal)f(E)1825 +3066 y Fl(\000)p FA(3)h(=)g(illegal)f(A)m(OR)m(Q)1825 +3179 y Fl(\000)p FA(4)h(=)g(illegal)f(DM)1825 3292 y +Fl(\000)p FA(5)h(=)g(n)m(umerical)f(error)0 3569 y Fy(NOTES)44 +b FA(:)311 3746 y(1.)i(D)m(A)-8 b(TE)35 b(is)f(the)g(instan)m(t)g(for)g +(whic)m(h)f(the)i(prediction)d(is)h(required.)51 b(It)34 +b(is)g(in)e(the)j(TT)e(timescale)427 3859 y(\(formerly)d(Ephemeris)e +(Time,)i(ET\))g(and)g(is)f(a)i(Mo)s(di\014ed)e(Julian)f(Date)k(\(JD)p +Fl(\000)p FA(2400000.5\).)311 3994 y(2.)46 b(The)28 b(longitude)g(and)g +(latitude)g(allo)m(w)g(correction)h(for)f(geo)s(cen)m(tric)i(parallax.) +39 b(This)27 b(is)h(usually)e(a)427 4107 y(small)e(e\013ect,)29 +b(but)c(can)h(b)s(ecome)g(imp)s(ortan)m(t)f(for)g(Earth-crossing)g +(asteroids.)39 b(Geo)s(cen)m(tric)27 b(p)s(osi-)427 4220 +y(tions)e(can)g(b)s(e)f(generated)i(b)m(y)f(appropriate)f(use)h(of)g +(the)g(routines)f(sla)p Fq(_)p FA(EVP)g(and)g(sla)p Fq(_)p +FA(PLANEL.)311 4355 y(3.)46 b(The)30 b(elemen)m(ts)h(are)g(with)e(resp) +s(ect)h(to)h(the)g(J2000)h(ecliptic)d(and)g(equino)m(x.)311 +4490 y(4.)46 b(Three)30 b(di\013eren)m(t)g(elemen)m(t-format)i(options) +d(are)i(a)m(v)-5 b(ailable,)30 b(as)h(follo)m(ws.)427 +4727 y(JF)m(ORM=1,)g(suitable)e(for)i(the)f(ma)5 b(jor)30 +b(planets:)602 4903 y(EPOCH)37 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1862 4917 y Fr(0)1932 4903 +y FA(\(TT)g(MJD\))602 5016 y(ORBINC)m(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 5128 y(ANODE)d(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +5241 y(PERIH)74 b(=)55 b(longitude)29 b(of)h(p)s(erihelion)d +Fi($)34 b FA(\(radians\))602 5354 y(A)m(OR)m(Q)95 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 5467 y(E)304 +b(=)55 b(eccen)m(tricit)m(y)32 b Fi(e)602 5580 y FA(A)m(ORL)106 +b(=)55 b(mean)30 b(longitude)f Fi(L)i FA(\(radians\))602 +5693 y(DM)214 b(=)55 b(daily)29 b(motion)h Fi(n)g FA(\(radians\))p +eop +%%Page: 119 121 +119 120 bop 0 52 a Ft(SUN/67.45)3206 b FA(119)427 351 +y(JF)m(ORM=2,)31 b(suitable)e(for)i(minor)d(planets:)602 +556 y(EPOCH)37 b(=)55 b(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)f +Fi(t)1862 570 y Fr(0)1932 556 y FA(\(TT)g(MJD\))602 669 +y(ORBINC)m(=)55 b(inclination)27 b Fi(i)k FA(\(radians\))602 +782 y(ANODE)d(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de)f +(\012)h(\(radians\))602 895 y(PERIH)74 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 1008 +y(A)m(OR)m(Q)95 b(=)55 b(mean)30 b(distance)g Fi(a)h +FA(\(A)m(U\))602 1121 y(E)304 b(=)55 b(eccen)m(tricit)m(y)32 +b Fi(e)602 1234 y FA(A)m(ORL)106 b(=)55 b(mean)30 b(anomaly)h +Fi(M)40 b FA(\(radians\))427 1438 y(JF)m(ORM=3,)31 b(suitable)e(for)i +(comets:)602 1643 y(EPOCH)37 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(p)s(erihelion)c Fi(T)43 b FA(\(TT)30 b(MJD\))602 +1756 y(ORBINC)m(=)55 b(inclination)27 b Fi(i)k FA(\(radians\))602 +1869 y(ANODE)d(=)55 b(longitude)29 b(of)h(the)h(ascending)f(no)s(de)f +(\012)h(\(radians\))602 1982 y(PERIH)74 b(=)55 b(argumen)m(t)31 +b(of)f(p)s(erihelion)d Fi(!)33 b FA(\(radians\))602 2095 +y(A)m(OR)m(Q)95 b(=)55 b(p)s(erihelion)27 b(distance)j +Fi(q)j FA(\(A)m(U\))602 2208 y(E)304 b(=)55 b(eccen)m(tricit)m(y)32 +b Fi(e)311 2413 y FA(5.)46 b(Un)m(used)36 b(elemen)m(ts)h(\(DM)h(for)f +(JF)m(ORM=2,)i(A)m(ORL)e(and)f(DM)h(for)g(JF)m(ORM=3\))g(are)g(not)g +(ac-)427 2526 y(cessed.)p 0 2654 3780 8 v 0 2766 a Fu(SLA)p +Fk(_)p Fu(PM)972 b Fj(Prop)s(er)37 b(Motion)972 b Fu(SLA)p +Fk(_)p Fu(PM)0 3117 y Fy(A)m(CTION)44 b FA(:)c(Apply)29 +b(corrections)i(for)f(prop)s(er)f(motion)h(to)h(a)g(star)f([)15 +b Fi(\013;)g(\016)21 b FA(].)0 3304 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_PM)g(\(R0,)h(D0,)g(PR,)g(PD,)g(PX,)g(RV,)g(EP0,)f +(EP1,)h(R1,)g(D1\))0 3674 y Fy(GIVEN)e FA(:)277 3820 +y Fn(R0,D0)481 b Fy(D)565 b FA([)15 b Fi(\013;)g(\016)20 +b FA(])31 b(at)g(ep)s(o)s(c)m(h)f(EP0)h(\(radians\))277 +3933 y Fn(PR,PD)449 b Fy(D)565 b FA(prop)s(er)36 b(motions:)55 +b(rate)38 b(of)g(c)m(hange)g(of)g([)15 b Fi(\013;)g(\016)20 +b FA(])38 b(\(radians)1658 4046 y(p)s(er)30 b(y)m(ear\))277 +4159 y Fn(PX)606 b Fy(D)565 b FA(parallax)29 b(\(arcsec\))277 +4271 y Fn(R)-9 b(V)611 b Fy(D)565 b FA(radial)29 b(v)m(elo)s(cit)m(y)i +(\(km)f(s)2477 4238 y Fm(\000)p Fr(1)2571 4271 y FA(,)h(+v)m(e)g(if)e +(receding\))277 4384 y Fn(EP0)566 b Fy(D)f FA(start)31 +b(ep)s(o)s(c)m(h)f(in)f(y)m(ears)i(\()p Fn(e.g.)f FA(Julian)e(ep)s(o)s +(c)m(h\))277 4497 y Fn(EP1)566 b Fy(D)f FA(end)30 b(ep)s(o)s(c)m(h)g +(in)f(y)m(ears)i(\(same)g(system)g(as)f(EP0\))0 4884 +y Fy(RETURNED)46 b FA(:)277 5055 y Fn(R1,D1)481 b Fy(D)565 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])31 b(at)g(ep)s(o)s(c)m(h)f(EP1)h +(\(radians\))0 5450 y Fy(NOTE)44 b FA(:)64 b(The)41 b +Fi(\013)h FA(prop)s(er)e(motions)h(are)62 b(_)-44 b Fi(\013)42 +b FA(rather)f(than)61 b(_)-44 b Fi(\013)15 b FA(cos)h +Fi(\016)s FA(,)46 b(and)41 b(are)h(in)f(the)g(same)i(co)s(ordinate)227 +5563 y(system)31 b(as)f(R0,D0.)p eop +%%Page: 120 122 +120 121 bop 0 52 a FA(120)0 351 y Fy(REFERENCES)44 b +FA(:)311 551 y(1.)i(1984)32 b Fn(Astr)-5 b(onomic)g(al)36 +b(A)n(lmanac)p FA(,)31 b(pp)e(B39-B41.)311 704 y(2.)46 +b(Lederle)30 b(&)g(Sc)m(h)m(w)m(an,)h(1984.)h Fn(Astr.)42 +b(Astr)-5 b(ophys.)33 b Fy(134)p FA(,)e(1-6.)p 0 849 +3780 8 v 0 962 a Fu(SLA)p Fk(_)p Fu(POLMO)728 b Fj(P)m(olar)36 +b(Motion)729 b Fu(SLA)p Fk(_)p Fu(POLMO)0 1312 y Fy(A)m(CTION)44 +b FA(:)50 b(P)m(olar)35 b(motion:)50 b(correct)36 b(site)f(longitude)f +(and)h(latitude)f(for)h(p)s(olar)f(motion)h(and)f(calculate)227 +1425 y(azim)m(uth)c(di\013erence)g(b)s(et)m(w)m(een)h(celestial)f(and)g +(terrestrial)f(p)s(oles.)0 1613 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_POLMO)g(\(ELONGM,)f(PHIM,)i(XP,)f(YP,)h(ELONG,)f +(PHI,)h(DAZ\))0 1981 y Fy(GIVEN)e FA(:)277 2127 y Fn(ELONGM)327 +b Fy(D)565 b FA(mean)31 b(longitude)e(of)h(the)h(site)f(\(radians,)f +(east)j(+v)m(e\))277 2240 y Fn(PHIM)489 b Fy(D)565 b +FA(mean)31 b(geo)s(detic)g(latitude)e(of)i(the)f(site)g(\(radians\))277 +2353 y Fn(XP)606 b Fy(D)565 b FA(p)s(olar)29 b(motion)h +Fi(x)p FA(-co)s(ordinate)h(\(radians\))277 2466 y Fn(YP)606 +b Fy(D)565 b FA(p)s(olar)29 b(motion)h Fi(y)s FA(-co)s(ordinate)h +(\(radians\))0 2851 y Fy(RETURNED)46 b FA(:)277 2997 +y Fn(ELONG)409 b Fy(D)565 b FA(true)30 b(longitude)f(of)i(the)f(site)h +(\(radians,)e(east)j(+v)m(e\))277 3110 y Fn(PHI)571 b +Fy(D)565 b FA(true)30 b(geo)s(detic)h(latitude)f(of)g(the)h(site)f +(\(radians\))277 3223 y Fn(D)n(AZ)545 b Fy(D)565 b FA(azim)m(uth)25 +b(correction)g(\(terrestrial)p Fl(\000)p FA(celestial,)g(radians\))0 +3607 y Fy(NOTES)44 b FA(:)311 3808 y(1.)i(\\Mean")22 +b(longitude)d(and)h(latitude)f(are)i(the)g(\(\014xed\))f(v)-5 +b(alues)20 b(for)g(the)g(site's)g(lo)s(cation)g(with)f(resp)s(ect)427 +3920 y(to)26 b(the)f(IERS)f(terrestrial)g(reference)h(frame;)i(the)e +(latitude)f(is)g(geo)s(detic.)39 b(T)-8 b(AKE)25 b(CARE)f(WITH)427 +4033 y(THE)29 b(LONGITUDE)h(SIGN)f(CONVENTION.)g(The)g(longitudes)f +(used)h(b)m(y)g(the)h(presen)m(t)g(rou-)427 4146 y(tine)22 +b(are)h(east-p)s(ositiv)m(e,)i(in)c(accordance)j(with)d(geographical)i +(con)m(v)m(en)m(tion)h(\(and)e(righ)m(t-handed\).)427 +4259 y(In)39 b(particular,)h(note)g(that)g(the)g(longitudes)e(returned) +g(b)m(y)h(the)h(sla)p Fq(_)p FA(OBS)e(routine)h(are)g(w)m(est-)427 +4372 y(p)s(ositiv)m(e,)27 b(follo)m(wing)f(astronomical)h(usage,)i(and) +e(m)m(ust)g(b)s(e)g(rev)m(ersed)g(in)f(sign)g(b)s(efore)h(use)g(in)f +(the)427 4485 y(presen)m(t)31 b(routine.)311 4637 y(2.)46 +b(XP)e(and)f(YP)g(are)h(the)g(\(c)m(hanging\))g(co)s(ordinates)f(of)h +(the)g(Celestial)e(Ephemeris)g(P)m(ole)i(with)427 4750 +y(resp)s(ect)33 b(to)g(the)g(IERS)f(Reference)i(P)m(ole.)48 +b(XP)33 b(is)e(p)s(ositiv)m(e)h(along)h(the)g(meridian)d(at)k +(longitude)427 4863 y(0)472 4830 y Fm(\016)512 4863 y +FA(,)i(and)e(YP)g(is)g(p)s(ositiv)m(e)f(along)i(the)g(meridian)d(at)j +(longitude)e(270)2798 4830 y Fm(\016)2873 4863 y FA(\()p +Fn(i.e.)i FA(90)3159 4830 y Fm(\016)3233 4863 y FA(w)m(est\).)54 +b(V)-8 b(alues)427 4976 y(for)43 b(XP)-8 b(,YP)44 b(can)g(b)s(e)e +(obtained)h(from)g(IERS)f(circulars)g(and)g(equiv)-5 +b(alen)m(t)43 b(publications;)k(the)427 5089 y(maxim)m(um)30 +b(amplitude)e(observ)m(ed)i(so)h(far)f(is)f(ab)s(out)i(0)2298 +5052 y Fh(0)l(0)2302 5089 y Fi(:)p FA(3.)311 5241 y(3.)46 +b(\\T)-8 b(rue")41 b(longitude)e(and)g(latitude)g(are)i(the)f(\(mo)m +(ving\))h(v)-5 b(alues)40 b(for)g(the)g(site's)g(lo)s(cation)g(with)427 +5354 y(resp)s(ect)f(to)h(the)f(celestial)f(ephemeris)f(p)s(ole)h(and)g +(the)h(meridian)e(whic)m(h)g(corresp)s(onds)h(to)h(the)427 +5467 y(Green)m(wic)m(h)24 b(apparen)m(t)h(sidereal)d(time.)39 +b(The)23 b(true)h(longitude)f(and)g(latitude)g(link)f(the)i +(terrestrial)427 5580 y(co)s(ordinates)h(with)f(the)h(standard)f +(celestial)h(mo)s(dels)e(\(for)i(precession,)h(n)m(utation,)g(sidereal) +e(time)427 5693 y Fn(etc)p FA(\).)p eop +%%Page: 121 123 +121 122 bop 0 52 a Ft(SUN/67.45)3206 b FA(121)311 351 +y(4.)46 b(The)30 b(azim)m(uths)g(pro)s(duced)f(b)m(y)h(sla)p +Fq(_)p FA(A)m(OP)g(and)g(sla)p Fq(_)p FA(A)m(OPQK)g(are)g(with)g(resp)s +(ect)g(to)h(due)f(north)427 464 y(as)42 b(de\014ned)e(b)m(y)i(the)g +(Celestial)e(Ephemeris)g(P)m(ole,)45 b(and)c(can)h(therefore)g(b)s(e)f +(called)f(\\celestial)427 577 y(azim)m(uths".)75 b(Ho)m(w)m(ev)m(er,)46 +b(a)c(telescop)s(e)g(\014xed)f(to)i(the)f(Earth)f(measures)g(azim)m +(uth)g(essen)m(tially)427 690 y(with)31 b(resp)s(ect)g(to)i(due)e +(north)g(as)h(de\014ned)e(b)m(y)i(the)g(IERS)f(Reference)h(P)m(ole,)h +(and)e(can)h(therefore)427 803 y(b)s(e)27 b(called)f(\\terrestrial)h +(azim)m(uth".)40 b(Uncorrected,)28 b(this)e(w)m(ould)g(manifest)h +(itself)f(as)h(a)h(c)m(hanging)427 916 y(\\azim)m(uth)c(zero-p)s(oin)m +(t)f(error".)38 b(The)23 b(v)-5 b(alue)23 b(D)m(AZ)g(is)g(the)g +(correction)g(to)h(b)s(e)f(added)f(to)i(a)g(celestial)427 +1029 y(azim)m(uth)30 b(to)h(pro)s(duce)f(a)g(terrestrial)g(azim)m(uth.) +311 1170 y(5.)46 b(The)28 b(presen)m(t)g(routine)f(is)g(rigorous.)39 +b(F)-8 b(or)29 b(most)g(practical)e(purp)s(oses,)g(the)i(follo)m(wing)d +(simpli\014ed)427 1283 y(form)m(ulae)k(pro)m(vide)g(an)g(adequate)h +(appro)m(ximation:)568 1466 y Fq(ELONG)98 b(=)i +(ELONGM+XP*COS\(ELONGM\)-Y)o(P*SI)o(N\(E)o(LONG)o(M\))568 +1579 y(PHI)194 b(=)100 b(PHIM+\(XP*SIN\(ELONGM\)+YP)o(*COS)o(\(EL)o +(ONGM)o(\)\)*)o(TAN\()o(PHIM)o(\))568 1692 y(DAZ)194 +b(=)100 b(-SQRT\(XP*XP+YP*YP\)*COS\()o(ELON)o(GM-)o(ATAN)o(2\(X)o(P,YP) +o(\)\)/C)o(OS\()o(PHIM)o(\))427 1876 y FA(An)30 b(alternativ)m(e)h +(form)m(ulation)e(for)h(D)m(AZ)h(is:)568 2041 y Fq(X)195 +b(=)99 b(COS\(ELONGM\)*COS\(PHIM\))568 2154 y(Y)195 b(=)99 +b(SIN\(ELONGM\)*COS\(PHIM\))568 2267 y(DAZ)g(=)g +(ATAN2\(-X*YP-Y*XP,X*X+Y*Y\))0 2593 y Fy(REFERENCE)44 +b FA(:)50 b(Seidelmann,)33 b(P)-8 b(.K.)36 b(\(ed\),)g(1992.)56 +b Fn(Explanatory)39 b(Supplement)f(to)g(the)f(Astr)-5 +b(onomic)g(al)227 2706 y(A)n(lmanac,)31 b FA(ISBN)f(0-935702-68-7,)36 +b(sections)31 b(3.27,)h(4.25,)g(4.52.)p 0 2825 3780 8 +v 0 2937 a Fu(SLA)p Fk(_)p Fu(PREBN)451 b Fj(Precession)38 +b(Matrix)f(\(FK4\))451 b Fu(SLA)p Fk(_)p Fu(PREBN)0 3288 +y Fy(A)m(CTION)44 b FA(:)36 b(Generate)24 b(the)e(matrix)g(of)g +(precession)f(b)s(et)m(w)m(een)i(t)m(w)m(o)g(ep)s(o)s(c)m(hs,)h(using)d +(the)h(old,)h(pre)f(IA)m(U)g(1976,)227 3401 y(Bessel-New)m(com)m(b)32 +b(mo)s(del,)e(in)f(Ando)m(y)m(er's)i(form)m(ulation.)0 +3588 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PREBN)g(\(BEP0,)g(BEP1,) +g(RMATP\))0 3919 y Fy(GIVEN)f FA(:)277 4065 y Fn(BEP0)502 +b Fy(D)565 b FA(b)s(eginning)28 b(Besselian)i(ep)s(o)s(c)m(h)277 +4178 y Fn(BEP1)502 b Fy(D)565 b FA(ending)29 b(Besselian)h(ep)s(o)s(c)m +(h)0 4498 y Fy(RETURNED)46 b FA(:)277 4670 y Fn(RMA)-7 +b(TP)400 b Fy(D\(3,3\))350 b FA(precession)30 b(matrix)0 +4998 y Fy(NOTE)44 b FA(:)d(The)30 b(matrix)f(is)h(in)f(the)h(sense:)427 +5181 y Fy(v)482 5195 y Fr(1)552 5181 y FA(=)g Fy(M)p +Fl(\001)p Fy(v)832 5195 y Fr(0)227 5364 y FA(where)i +Fy(v)547 5378 y Fr(1)619 5364 y FA(is)f(the)i(star)f(v)m(ector)i +(relativ)m(e)f(to)g(the)f(mean)h(equator)g(and)e(equino)m(x)h(of)h(ep)s +(o)s(c)m(h)f(BEP1,)h Fy(M)227 5477 y FA(is)i(the)h(3)24 +b Fl(\002)f FA(3)36 b(matrix)f(RMA)-8 b(TP)36 b(and)f +Fy(v)1642 5491 y Fr(0)1718 5477 y FA(is)f(the)i(star)g(v)m(ector)h +(relativ)m(e)f(to)g(the)g(mean)g(equator)g(and)227 5590 +y(equino)m(x)30 b(of)h(ep)s(o)s(c)m(h)f(BEP0.)p eop +%%Page: 122 124 +122 123 bop 0 52 a FA(122)0 351 y Fy(REFERENCE)44 b FA(:)d(Smith)28 +b Fn(et)33 b(al.)p FA(,)e(1989.)i Fn(Astr.J.)d Fy(97)p +FA(,)h(269.)p 0 443 3780 8 v 0 556 a Fu(SLA)p Fk(_)p +Fu(PREC)555 b Fj(Precession)38 b(Matrix)f(\(FK5\))554 +b Fu(SLA)p Fk(_)p Fu(PREC)0 906 y Fy(A)m(CTION)44 b FA(:)c(F)-8 +b(orm)31 b(the)g(matrix)f(of)g(precession)g(b)s(et)m(w)m(een)h(t)m(w)m +(o)g(ep)s(o)s(c)m(hs)f(\(IA)m(U)i(1976,)g(FK5\).)0 1094 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PREC)g(\(EP0,)g(EP1,)h +(RMATP\))0 1389 y Fy(GIVEN)e FA(:)277 1535 y Fn(EP0)566 +b Fy(D)f FA(b)s(eginning)28 b(ep)s(o)s(c)m(h)277 1648 +y Fn(EP1)566 b Fy(D)f FA(ending)29 b(ep)s(o)s(c)m(h)0 +1906 y Fy(RETURNED)46 b FA(:)277 2078 y Fn(RMA)-7 b(TP)400 +b Fy(D\(3,3\))350 b FA(precession)30 b(matrix)0 2344 +y Fy(NOTES)44 b FA(:)311 2518 y(1.)i(The)30 b(ep)s(o)s(c)m(hs)g(are)h +(TDB)g(Julian)d(ep)s(o)s(c)m(hs.)311 2651 y(2.)46 b(The)30 +b(matrix)g(is)f(in)g(the)i(sense:)597 2783 y Fy(v)652 +2797 y Fr(1)722 2783 y FA(=)f Fy(M)p Fl(\001)p Fy(v)1002 +2797 y Fr(0)427 2916 y FA(where)i Fy(v)747 2930 y Fr(1)818 +2916 y FA(is)g(the)g(star)g(v)m(ector)i(relativ)m(e)e(to)h(the)f(mean)g +(equator)h(and)e(equino)m(x)h(of)g(ep)s(o)s(c)m(h)g(EP1,)427 +3029 y Fy(M)c FA(is)e(the)i(3)14 b Fl(\002)g FA(3)27 +b(matrix)g(RMA)-8 b(TP)28 b(and)e Fy(v)1899 3043 y Fr(0)1966 +3029 y FA(is)h(the)g(star)h(v)m(ector)g(relativ)m(e)g(to)g(the)f(mean)h +(equator)427 3141 y(and)i(equino)m(x)g(of)g(ep)s(o)s(c)m(h)h(EP0.)311 +3274 y(3.)46 b(Though)d(the)i(matrix)e(metho)s(d)h(itself)f(is)g +(rigorous,)k(the)d(precession)f(angles)h(are)h(expressed)427 +3387 y(through)34 b(canonical)h(p)s(olynomials)d(whic)m(h)h(are)j(v)-5 +b(alid)33 b(only)h(for)g(a)i(limited)c(time)j(span.)53 +b(There)427 3500 y(are)45 b(also)f(kno)m(wn)g(errors)f(in)g(the)h(IA)m +(U)h(precession)e(rate.)83 b(The)44 b(absolute)g(accuracy)h(of)f(the) +427 3613 y(presen)m(t)28 b(form)m(ulation)f(is)g(b)s(etter)h(than)f(0) +1835 3576 y Fh(0)l(0)1839 3613 y Fi(:)p FA(1)i(from)e(1960)17 +b(AD)29 b(to)f(2040)17 b(AD,)29 b(b)s(etter)f(than)f(1)3526 +3576 y Fh(0)m(0)3595 3613 y FA(from)427 3726 y(1640)17 +b(AD)39 b(to)g(2360)17 b(AD,)40 b(and)d(remains)h(b)s(elo)m(w)f(3)2155 +3689 y Fh(0)l(0)2234 3726 y FA(for)h(the)h(whole)f(of)g(the)h(p)s(erio) +s(d)d(500)16 b(BC)39 b(to)427 3838 y(3000)17 b(AD.)34 +b(The)e(errors)h(exceed)h(10)1649 3802 y Fh(0)m(0)1723 +3838 y FA(outside)e(the)h(range)h(1200)17 b(BC)32 b(to)i(3900)17 +b(AD,)34 b(exceed)g(100)3738 3802 y Fh(0)m(0)427 3951 +y FA(outside)45 b(4200)17 b(BC)45 b(to)h(5600)16 b(AD)46 +b(and)f(exceed)h(1000)2305 3914 y Fh(0)m(0)2392 3951 +y FA(outside)e(6800)17 b(BC)45 b(to)h(8200)17 b(AD.)46 +b(The)427 4064 y(SLALIB)37 b(routine)f(sla)p Fq(_)p FA(PRECL)g +(implemen)m(ts)f(a)j(more)f(elab)s(orate)h(mo)s(del)e(whic)m(h)g(is)g +(suitable)427 4177 y(for)30 b(problems)f(spanning)f(sev)m(eral)j +(thousand)f(y)m(ears.)0 4444 y Fy(REFERENCES)44 b FA(:)311 +4618 y(1.)i(Liesk)m(e,)31 b(J.H.,)g(1979.)h Fn(Astr.Astr)-5 +b(ophys.)33 b Fy(73)p FA(,)e(282;)h(equations)e(6)h(&)f(7,)h(p283.)311 +4750 y(2.)46 b(Kaplan,)30 b(G.H.,)h(1981.)i Fn(USNO)e(cir)-5 +b(cular)34 b(no.)f(163)p FA(,)f(pA2.)p 0 4842 V 0 4955 +a Fu(SLA)p Fk(_)p Fu(PRECES)765 b Fj(Precession)f Fu(SLA)p +Fk(_)p Fu(PRECES)0 5305 y Fy(A)m(CTION)44 b FA(:)39 b(Precession)26 +b({)h(either)f(the)g(old)g(\\FK4")i(\(Bessel-New)m(com)m(b,)i(pre)c(IA) +m(U)h(1976\))i(or)d(new)g(\\FK5")227 5418 y(\(F)-8 b(ric)m(k)m(e,)33 +b(p)s(ost)d(IA)m(U)h(1976\))h(as)f(required.)0 5606 y +Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PRECES)f(\(SYSTEM,)h(EP0,)h +(EP1,)f(RA,)h(DC\))p eop +%%Page: 123 125 +123 124 bop 0 52 a Ft(SUN/67.45)3206 b FA(123)0 351 y +Fy(GIVEN)45 b FA(:)277 497 y Fn(SYSTEM)357 b Fy(C)569 +b FA(precession)30 b(to)h(b)s(e)f(applied:)38 b(`FK4')31 +b(or)g(`FK5')277 610 y Fn(EP0,EP1)368 b Fy(D)565 b FA(starting)30 +b(and)g(ending)f(ep)s(o)s(c)m(h)277 723 y Fn(RA,DC)440 +b Fy(D)565 b FA([)15 b Fi(\013;)g(\016)20 b FA(],)31 +b(mean)g(equator)g(&)f(equino)m(x)g(of)g(ep)s(o)s(c)m(h)g(EP0)0 +1184 y Fy(RETURNED)46 b FA(:)277 1356 y Fn(RA,DC)440 +b Fy(D)565 b FA([)15 b Fi(\013;)g(\016)20 b FA(],)31 +b(mean)g(equator)g(&)f(equino)m(x)g(of)g(ep)s(o)s(c)m(h)g(EP1)0 +1825 y Fy(NOTES)44 b FA(:)311 2055 y(1.)i(Lo)m(w)m(ercase)33 +b(c)m(haracters)e(in)e(SYSTEM)h(are)h(acceptable.)311 +2223 y(2.)46 b(The)36 b(ep)s(o)s(c)m(hs)g(are)g(Besselian)g(if)f +(SYSTEM=`FK4')h(and)f(Julian)f(if)h(`FK5'.)59 b(F)-8 +b(or)37 b(example,)h(to)427 2336 y(precess)d(co)s(ordinates)g(in)e(the) +i(old)f(system)h(from)g(equino)m(x)f(1900.0)j(to)f(1950.0)h(the)f(call) +e(w)m(ould)427 2448 y(b)s(e:)597 2616 y Fq(CALL)47 b(sla_PRECES)e +(\('FK4',)h(1900D0,)g(1950D0,)f(RA,)i(DC\))311 2784 y +FA(3.)f(This)39 b(routine)h(will)e Fy(NOT)i FA(correctly)i(con)m(v)m +(ert)g(b)s(et)m(w)m(een)f(the)h(old)e(and)g(the)h(new)f(systems)h({)427 +2896 y(for)h(example)g(con)m(v)m(ersion)g(from)g(B1950)i(to)e(J2000.)78 +b(F)-8 b(or)42 b(these)h(purp)s(oses)d(see)j(sla)p Fq(_)p +FA(FK425,)427 3009 y(sla)p Fq(_)p FA(FK524,)32 b(sla)p +Fq(_)p FA(FK45Z)e(and)f(sla)p Fq(_)p FA(FK54Z.)311 3177 +y(4.)46 b(If)27 b(an)h(in)m(v)-5 b(alid)25 b(SYSTEM)h(is)h(supplied,)e +(v)-5 b(alues)27 b(of)g Fl(\000)p FA(99D0,)p Fl(\000)p +FA(99D0)k(are)d(returned)e(for)i(b)s(oth)e(RA)427 3290 +y(and)k(DC.)p 0 3448 3780 8 v 0 3561 a Fu(SLA)p Fk(_)p +Fu(PRECL)447 b Fj(Precession)37 b(Matrix)h(\(latest\))444 +b Fu(SLA)p Fk(_)p Fu(PRECL)0 3911 y Fy(A)m(CTION)44 b +FA(:)k(F)-8 b(orm)35 b(the)f(matrix)f(of)i(precession)e(b)s(et)m(w)m +(een)i(t)m(w)m(o)g(ep)s(o)s(c)m(hs,)g(using)e(the)h(mo)s(del)f(of)h +(Simon)f Fn(et)227 4024 y(al)p FA(.)f(\(1994\),)h(whic)m(h)c(is)g +(suitable)g(for)h(long)g(p)s(erio)s(ds)e(of)j(time.)0 +4211 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PRECL)g(\(EP0,)g(EP1,)h +(RMATP\))0 4625 y Fy(GIVEN)e FA(:)277 4772 y Fn(EP0)566 +b Fy(D)f FA(b)s(eginning)28 b(ep)s(o)s(c)m(h)277 4884 +y Fn(EP1)566 b Fy(D)f FA(ending)29 b(ep)s(o)s(c)m(h)0 +5345 y Fy(RETURNED)46 b FA(:)277 5517 y Fn(RMA)-7 b(TP)400 +b Fy(D\(3,3\))350 b FA(precession)30 b(matrix)p eop +%%Page: 124 126 +124 125 bop 0 52 a FA(124)0 351 y Fy(NOTES)44 b FA(:)311 +524 y(1.)i(The)30 b(ep)s(o)s(c)m(hs)g(are)h(TDB)g(Julian)d(ep)s(o)s(c)m +(hs.)311 656 y(2.)46 b(The)30 b(matrix)g(is)f(in)g(the)i(sense:)597 +787 y Fy(v)652 801 y Fr(1)722 787 y FA(=)f Fy(M)p Fl(\001)p +Fy(v)1002 801 y Fr(0)427 919 y FA(where)i Fy(v)747 933 +y Fr(1)818 919 y FA(is)g(the)g(star)g(v)m(ector)i(relativ)m(e)e(to)h +(the)f(mean)g(equator)h(and)e(equino)m(x)h(of)g(ep)s(o)s(c)m(h)g(EP1,) +427 1032 y Fy(M)c FA(is)e(the)i(3)14 b Fl(\002)g FA(3)27 +b(matrix)g(RMA)-8 b(TP)28 b(and)e Fy(v)1899 1046 y Fr(0)1966 +1032 y FA(is)h(the)g(star)h(v)m(ector)g(relativ)m(e)g(to)g(the)f(mean)h +(equator)427 1145 y(and)i(equino)m(x)g(of)g(ep)s(o)s(c)m(h)h(EP0.)311 +1276 y(3.)46 b(The)f(absolute)f(accuracy)i(of)f(the)g(mo)s(del)f(is)g +(limited)f(b)m(y)i(the)g(uncertain)m(t)m(y)g(in)e(the)i(general)427 +1389 y(precession,)37 b(ab)s(out)f(0)1196 1352 y Fh(0)l(0)1200 +1389 y Fi(:)p FA(3)h(p)s(er)e(1000)i(y)m(ears.)58 b(The)36 +b(remainder)e(of)i(the)g(form)m(ulation)f(pro)m(vides)g(a)427 +1502 y(precision)j(of)i(1)g(milliarcsecond)d(o)m(v)m(er)k(the)f(in)m +(terv)-5 b(al)38 b(from)h(1000)17 b(AD)41 b(to)f(3000)17 +b(AD,)40 b(0)3480 1465 y Fh(0)m(0)3484 1502 y Fi(:)p +FA(1)h(from)427 1615 y(1000)17 b(BC)31 b(to)g(5000)17 +b(AD)31 b(and)e(1)1477 1578 y Fh(0)m(0)1548 1615 y FA(from)h(4000)17 +b(BC)31 b(to)g(8000)17 b(AD.)0 1874 y Fy(REFERENCE)44 +b FA(:)d(Simon,)29 b(J.L.)h Fn(et)j(al)p FA(.,)e(1994.)i +Fn(Astr.Astr)-5 b(ophys.)32 b Fy(282)p FA(,)g(663.)p +0 1963 3780 8 v 0 2076 a Fu(SLA)p Fk(_)p Fu(PRENUT)269 +b Fj(Precession/Nutation)35 b(Matrix)268 b Fu(SLA)p Fk(_)p +Fu(PRENUT)0 2427 y Fy(A)m(CTION)44 b FA(:)c(F)-8 b(orm)31 +b(the)g(matrix)f(of)g(precession)g(and)f(n)m(utation)i(\(IA)m(U)g +(1976,)h(FK5\).)0 2614 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_PRENUT)f(\(EPOCH,)h(DATE,)h(RMATPN\))0 2905 y Fy(GIVEN)e +FA(:)277 3051 y Fn(EPOCH)409 b Fy(D)565 b FA(Julian)28 +b(Ep)s(o)s(c)m(h)i(for)g(mean)g(co)s(ordinates)277 3164 +y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(Mo)s(di\014ed)29 +b(Julian)g(Date)j(\(JD)p Fl(\000)p FA(2400000.5\))j(for)30 +b(true)h(co-)1658 3277 y(ordinates)0 3528 y Fy(RETURNED)46 +b FA(:)277 3700 y Fn(RMA)-7 b(TPN)332 b Fy(D\(3,3\))350 +b FA(com)m(bined)30 b(precession/n)m(utation)g(matrix)0 +3960 y Fy(NOTES)44 b FA(:)311 4133 y(1.)i(The)30 b(ep)s(o)s(c)m(h)g +(and)g(date)h(are)g(TDB.)311 4264 y(2.)46 b(The)30 b(matrix)g(is)f(in)g +(the)i(sense:)597 4396 y Fy(v)652 4410 y Fc(tr)r(ue)820 +4396 y FA(=)f Fy(M)p Fl(\001)p Fy(v)1100 4410 y Fc(mean)427 +4527 y FA(where)23 b Fy(v)738 4541 y Fc(tr)r(ue)898 4527 +y FA(is)g(the)g(star)g(v)m(ector)i(relativ)m(e)e(to)h(the)g(true)f +(equator)h(and)e(equino)m(x)h(of)g(ep)s(o)s(c)m(h)g(D)m(A)-8 +b(TE,)427 4640 y Fy(M)35 b FA(is)e(the)h(3)23 b Fl(\002)g +FA(3)34 b(matrix)g(RMA)-8 b(TPN)34 b(and)g Fy(v)2033 +4654 y Fc(mean)2246 4640 y FA(is)g(the)g(star)g(v)m(ector)i(relativ)m +(e)e(to)h(the)f(mean)427 4753 y(equator)d(and)f(equino)m(x)g(of)g(ep)s +(o)s(c)m(h)h(EPOCH.)p 0 4842 V 0 4955 a Fu(SLA)p Fk(_)p +Fu(PV2EL)100 b Fj(Orbital)37 b(Elemen)m(ts)f(from)h(P)m(osition/V)-10 +b(elo)s(cit)m(y)96 b Fu(SLA)p Fk(_)p Fu(PV2EL)0 5305 +y Fy(A)m(CTION)44 b FA(:)36 b(Helio)s(cen)m(tric)22 b(osculating)g +(elemen)m(ts)g(obtained)g(from)f(instan)m(taneous)h(p)s(osition)f(and)g +(v)m(elo)s(cit)m(y)-8 b(.)0 5493 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_PV2EL)g(\(PV,)g(DATE,)h(PMASS,)f(JFORMR,)g(JFORM,)g +(EPOCH,)g(ORBINC,)1192 5606 y(ANODE,)f(PERIH,)i(AORQ,)f(E,)h(AORL,)f +(DM,)h(JSTAT\))p eop +%%Page: 125 127 +125 126 bop 0 52 a Ft(SUN/67.45)3206 b FA(125)0 351 y +Fy(GIVEN)45 b FA(:)277 497 y Fn(PV)606 b Fy(D\(6\))431 +b FA(helio)s(cen)m(tric)29 b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 +b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(],)31 b(equatorial,)f(J2000)1825 610 y(\(A)m(U,)i(A)m +(U/s;)f(Note)h(1\))277 723 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 +b FA(date)29 b(\(TT)f(Mo)s(di\014ed)e(Julian)g(Date)k(=)e(JD)p +Fl(\000)p FA(2400000.5\))277 836 y Fn(PMASS)422 b Fy(D)565 +b FA(mass)30 b(of)h(the)f(planet)g(\(Sun)f(=)h(1;)h(Note)h(2\))277 +949 y Fn(JF)n(ORMR)347 b Fy(I)605 b FA(requested)30 b(elemen)m(t)h(set) +g(\(1-3;)h(Note)g(3\))0 1323 y Fy(RETURNED)46 b FA(:)277 +1469 y Fn(JF)n(ORM)413 b Fy(I)605 b FA(elemen)m(t)31 +b(set)g(actually)f(returned)f(\(1-3;)j(Note)g(4\))277 +1582 y Fn(EPOCH)409 b Fy(D)565 b FA(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)g(\()p Fi(t)2462 1596 y Fr(0)2531 +1582 y FA(or)g Fi(T)13 b FA(,)30 b(TT)g(MJD\))277 1695 +y Fn(ORBINC)368 b Fy(D)565 b FA(inclination)28 b(\()p +Fi(i)p FA(,)j(radians\))277 1808 y Fn(ANODE)399 b Fy(D)565 +b FA(longitude)29 b(of)i(the)f(ascending)g(no)s(de)g(\(\012,)g +(radians\))277 1921 y Fn(PERIH)443 b Fy(D)565 b FA(longitude)29 +b(or)i(argumen)m(t)f(of)h(p)s(erihelion)c(\()p Fi($)33 +b FA(or)e Fi(!)s FA(,)1825 2033 y(radians\))277 2146 +y Fn(A)n(OR)n(Q)466 b Fy(D)565 b FA(mean)30 b(distance)f(or)g(p)s +(erihelion)d(distance)k(\()p Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 +2259 y Fn(E)674 b Fy(D)565 b FA(eccen)m(tricit)m(y)32 +b(\()p Fi(e)p FA(\))277 2372 y Fn(A)n(ORL)477 b Fy(D)565 +b FA(mean)31 b(anomaly)f(or)g(longitude)f(\()p Fi(M)41 +b FA(or)30 b Fi(L)p FA(,)h(radians,)1825 2485 y(JF)m(ORM=1,2)g(only\)) +277 2598 y Fn(DM)585 b Fy(D)565 b FA(daily)29 b(motion)h(\()p +Fi(n)p FA(,)g(radians,)g(JF)m(ORM=1)h(only\))277 2711 +y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(status:)1898 +2824 y(0)30 b(=)g(OK)1825 2937 y Fl(\000)p FA(1)g(=)g(illegal)f(PMASS) +1825 3050 y Fl(\000)p FA(2)h(=)g(illegal)f(JF)m(ORMR)1825 +3163 y Fl(\000)p FA(3)h(=)g(p)s(osition/v)m(elo)s(cit)m(y)g(out)g(of)h +(allo)m(w)m(ed)f(range)0 3536 y Fy(NOTES)44 b FA(:)311 +3732 y(1.)i(The)22 b(PV)g(6-v)m(ector)i(is)d(with)f(resp)s(ect)i(to)h +(the)f(mean)g(equator)g(and)g(equino)m(x)f(of)h(ep)s(o)s(c)m(h)g +(J2000.)39 b(The)427 3845 y(orbital)29 b(elemen)m(ts)i(pro)s(duced)e +(are)i(with)e(resp)s(ect)h(to)h(the)g(J2000)h(ecliptic)d(and)h(mean)g +(equino)m(x.)311 3995 y(2.)46 b(The)e(mass,)j(PMASS,)c(is)g(imp)s +(ortan)m(t)g(only)g(for)g(the)h(larger)g(planets.)80 +b(F)-8 b(or)44 b(most)g(purp)s(oses)427 4108 y(\()p Fn(e.g.)30 +b FA(asteroids\))h(use)f(0D0.)42 b(V)-8 b(alues)30 b(less)g(than)g +(zero)h(are)g(illegal.)311 4258 y(3.)46 b(Three)30 b(di\013eren)m(t)g +(elemen)m(t-format)i(options)d(are)i(supp)s(orted,)e(as)h(follo)m(ws.) +427 4503 y(JF)m(ORM=1,)h(suitable)e(for)i(the)f(ma)5 +b(jor)30 b(planets:)602 4703 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1910 4717 y Fr(0)1980 4703 +y FA(\(TT)g(MJD\))602 4816 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 4929 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +5041 y(PERIH)122 b(=)55 b(longitude)29 b(of)h(p)s(erihelion)d +Fi($)34 b FA(\(radians\))602 5154 y(A)m(OR)m(Q)143 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 5267 y(E)352 +b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g FA(\(0)26 b Fl(\024)f +Fi(e)h(<)f FA(1\))602 5380 y(A)m(ORL)154 b(=)55 b(mean)30 +b(longitude)f Fi(L)i FA(\(radians\))602 5493 y(DM)262 +b(=)55 b(daily)29 b(motion)h Fi(n)g FA(\(radians\))427 +5693 y(JF)m(ORM=2,)h(suitable)e(for)i(minor)d(planets:)p +eop +%%Page: 126 128 +126 127 bop 0 52 a FA(126)602 351 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1910 365 y Fr(0)1980 351 y +FA(\(TT)g(MJD\))602 464 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 577 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +690 y(PERIH)122 b(=)55 b(argumen)m(t)31 b(of)f(p)s(erihelion)d +Fi(!)33 b FA(\(radians\))602 803 y(A)m(OR)m(Q)143 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 916 y(E)352 +b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g FA(\(0)26 b Fl(\024)f +Fi(e)h(<)f FA(1\))602 1029 y(A)m(ORL)154 b(=)55 b(mean)30 +b(anomaly)h Fi(M)40 b FA(\(radians\))427 1220 y(JF)m(ORM=3,)31 +b(suitable)e(for)i(comets:)602 1411 y(EPOCH)85 b(=)55 +b(ep)s(o)s(c)m(h)30 b(of)h(p)s(erihelion)c Fi(T)43 b +FA(\(TT)30 b(MJD\))602 1523 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 1636 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +1749 y(PERIH)122 b(=)55 b(argumen)m(t)31 b(of)f(p)s(erihelion)d +Fi(!)33 b FA(\(radians\))602 1862 y(A)m(OR)m(Q)143 b(=)55 +b(p)s(erihelion)27 b(distance)j Fi(q)j FA(\(A)m(U\))602 +1975 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g +FA(\(0)26 b Fl(\024)f Fi(e)h Fl(\024)f FA(10\))311 2166 +y(4.)46 b(It)26 b(ma)m(y)g(not)g(b)s(e)f(p)s(ossible)e(to)j(generate)h +(elemen)m(ts)f(in)f(the)g(form)g(requested)h(through)f(JF)m(ORMR.)427 +2279 y(The)45 b(caller)f(is)g(noti\014ed)g(of)h(the)g(form)f(of)h +(elemen)m(ts)g(actually)g(returned)f(b)m(y)g(means)h(of)g(the)427 +2392 y(JF)m(ORM)31 b(argumen)m(t:)554 2583 y(JF)m(ORMR)119 +b(JF)m(ORM)234 b(meaning)705 2809 y(1)465 b(1)362 b(OK:)30 +b(elemen)m(ts)g(are)h(in)e(the)i(requested)f(format)705 +2922 y(1)465 b(2)362 b(nev)m(er)30 b(happ)s(ens)705 3034 +y(1)465 b(3)362 b(orbit)29 b(not)i(elliptical)705 3147 +y(2)465 b(1)362 b(nev)m(er)30 b(happ)s(ens)705 3260 y(2)465 +b(2)362 b(OK:)30 b(elemen)m(ts)g(are)h(in)e(the)i(requested)f(format) +705 3373 y(2)465 b(3)362 b(orbit)29 b(not)i(elliptical)705 +3486 y(3)465 b(1)362 b(nev)m(er)30 b(happ)s(ens)705 3599 +y(3)465 b(2)362 b(nev)m(er)30 b(happ)s(ens)705 3712 y(3)465 +b(3)362 b(OK:)30 b(elemen)m(ts)g(are)h(in)e(the)i(requested)f(format) +311 3903 y(5.)46 b(The)32 b(argumen)m(ts)g(returned)f(for)h(eac)m(h)h +(v)-5 b(alue)31 b(of)h(JF)m(ORM)h(\()p Fn(cf)51 b FA(Note)33 +b(5:)45 b(JF)m(ORM)32 b(ma)m(y)h(not)f(b)s(e)427 4016 +y(the)f(same)g(as)f(JF)m(ORMR\))h(are)g(as)g(follo)m(ws:)602 +4207 y(JF)m(ORM)282 b(1)273 b(2)g(3)602 4432 y(EPOCH)k +Fi(t)1241 4446 y Fr(0)1526 4432 y Fi(t)1559 4446 y Fr(0)1844 +4432 y Fi(T)602 4545 y FA(ORBINC)237 b Fi(i)287 b(i)g(i)602 +4658 y FA(ANODE)268 b(\012)252 b(\012)g(\012)602 4771 +y(PERIH)314 b Fi($)243 b(!)261 b(!)602 4884 y FA(A)m(OR)m(Q)335 +b Fi(a)270 b(a)g(q)602 4997 y FA(E)544 b Fi(e)276 b(e)g(e)602 +5110 y FA(A)m(ORL)346 b Fi(L)256 b(M)230 b FA(-)602 5223 +y(DM)454 b Fi(n)263 b FA(-)288 b(-)427 5414 y(where:)602 +5580 y Fi(t)635 5594 y Fr(0)1016 5580 y FA(is)29 b(the)i(ep)s(o)s(c)m +(h)f(of)g(the)h(elemen)m(ts)g(\(MJD,)g(TT\))602 5693 +y Fi(T)361 b FA(is)29 b(the)i(ep)s(o)s(c)m(h)f(of)g(p)s(erihelion)d +(\(MJD,)32 b(TT\))p eop +%%Page: 127 129 +127 128 bop 0 52 a Ft(SUN/67.45)3206 b FA(127)602 351 +y Fi(i)383 b FA(is)29 b(the)i(inclination)c(\(radians\))602 +464 y(\012)348 b(is)29 b(the)i(longitude)e(of)h(the)h(ascending)e(no)s +(de)h(\(radians\))602 577 y Fi($)339 b FA(is)29 b(the)i(longitude)e(of) +h(p)s(erihelion)d(\(radians\))602 690 y Fi(!)357 b FA(is)29 +b(the)i(argumen)m(t)f(of)h(p)s(erihelion)c(\(radians\))602 +803 y Fi(a)366 b FA(is)29 b(the)i(mean)f(distance)g(\(A)m(U\))602 +916 y Fi(q)373 b FA(is)29 b(the)i(p)s(erihelion)c(distance)j(\(A)m(U\)) +602 1029 y Fi(e)372 b FA(is)29 b(the)i(eccen)m(tricit)m(y)602 +1142 y Fi(L)352 b FA(is)29 b(the)i(longitude)e(\(radians,)g(0)21 +b Fl(\000)f FA(2)p Fi(\031)s FA(\))602 1255 y Fi(M)326 +b FA(is)29 b(the)i(mean)f(anomaly)g(\(radians,)g(0)20 +b Fl(\000)g FA(2)p Fi(\031)s FA(\))602 1367 y Fi(n)359 +b FA(is)29 b(the)i(daily)d(motion)i(\(radians\))602 1480 +y(-)384 b(means)30 b(no)g(v)-5 b(alue)30 b(is)f(set)311 +1736 y(6.)46 b(A)m(t)c(v)m(ery)g(small)e(inclinations,)h(the)h +(longitude)e(of)h(the)g(ascending)g(no)s(de)g(ANODE)g(b)s(ecomes)427 +1849 y(indeterminate)36 b(and)g(under)f(some)i(circumstances)f(ma)m(y)h +(b)s(e)f(set)h(arbitrarily)d(to)j(zero.)60 b(Simi-)427 +1962 y(larly)-8 b(,)38 b(if)d(the)i(orbit)f(is)f(close)i(to)h +(circular,)e(the)h(true)g(anomaly)f(b)s(ecomes)h(indeterminate)e(and) +427 2075 y(under)h(some)i(circumstances)g(ma)m(y)g(b)s(e)f(set)h +(arbitrarily)d(to)j(zero.)63 b(In)37 b(suc)m(h)g(cases,)j(the)e(other) +427 2188 y(elemen)m(ts)h(are)g(automatically)g(adjusted)f(to)i(comp)s +(ensate,)h(and)d(so)h(the)g(elemen)m(ts)g(remain)f(a)427 +2301 y(v)-5 b(alid)29 b(description)f(of)j(the)f(orbit.)0 +2958 y Fy(REFERENCE)44 b FA(:)55 b(Sterne,)40 b(Theo)s(dore)d(E.,)j +Fn(A)n(n)e(Intr)-5 b(o)g(duction)42 b(to)e(Celestial)g(Me)-5 +b(chanics,)40 b FA(In)m(terscience)227 3071 y(Publishers,)27 +b(1960.)p 0 3322 3780 8 v 0 3435 a Fu(SLA)p Fk(_)p Fu(PV2UE)91 +b Fj(P)m(osition/V)-10 b(elo)s(cit)m(y)34 b(to)k(Univ)m(ersal)e(Elemen) +m(ts)90 b Fu(SLA)p Fk(_)p Fu(PV2UE)0 3785 y Fy(A)m(CTION)44 +b FA(:)39 b(Construct)26 b(a)g(univ)m(ersal)f(elemen)m(t)i(set)g(based) +f(on)g(an)h(instan)m(taneous)f(p)s(osition)e(and)i(v)m(elo)s(cit)m(y)-8 +b(.)0 3973 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PV2UE)g(\(PV,)g +(DATE,)h(PMASS,)f(U,)h(JSTAT\))0 4500 y Fy(GIVEN)e FA(:)277 +4646 y Fn(PV)606 b Fy(D\(6\))431 b FA(helio)s(cen)m(tric)29 +b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 b Fi(x)r(;)32 +b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 b FA(],)31 +b(equatorial,)f(J2000)1825 4759 y(\(A)m(U,)i(A)m(U/s;)f(Note)h(1\))277 +4872 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(date)29 b(\(TT)f(Mo)s +(di\014ed)e(Julian)g(Date)k(=)e(JD)p Fl(\000)p FA(2400000.5\))277 +4985 y Fn(PMASS)422 b Fy(D)565 b FA(mass)30 b(of)h(the)f(planet)g +(\(Sun)f(=)h(1;)h(Note)h(2\))0 5634 y Fy(RETURNED)46 +b FA(:)p eop +%%Page: 128 130 +128 129 bop 0 52 a FA(128)277 339 y Fn(U)668 b Fy(D\(13\))379 +b FA(univ)m(ersal)29 b(orbital)g(elemen)m(ts)i(\(Note)h(3\))537 +452 y(\(1\))1006 b(com)m(bined)30 b(mass)g(\()p Fi(M)h +FA(+)20 b Fi(m)p FA(\))537 565 y(\(2\))1006 b(total)31 +b(energy)g(of)g(the)f(orbit)g(\()p Fi(\013)p FA(\))537 +678 y(\(3\))1006 b(reference)31 b(\(osculating\))f(ep)s(o)s(c)m(h)h(\() +p Fi(t)2869 692 y Fr(0)2908 678 y FA(\))499 791 y(\(4-6\))969 +b(p)s(osition)29 b(at)i(reference)g(ep)s(o)s(c)m(h)f(\()p +Fy(r)2836 805 y Fr(0)2876 791 y FA(\))499 904 y(\(7-9\))969 +b(v)m(elo)s(cit)m(y)31 b(at)g(reference)g(ep)s(o)s(c)m(h)f(\()p +Fy(v)2837 918 y Fr(0)2877 904 y FA(\))514 1016 y(\(10\))984 +b(helio)s(cen)m(tric)29 b(distance)h(at)h(reference)g(ep)s(o)s(c)m(h) +514 1129 y(\(11\))984 b Fy(r)1701 1143 y Fr(0)1741 1129 +y Fi(:)p Fy(v)1821 1143 y Fr(0)514 1242 y FA(\(12\))g(date)31 +b(\()p Fi(t)p FA(\))514 1355 y(\(13\))984 b(univ)m(ersal)29 +b(eccen)m(tric)i(anomaly)f(\()p Fi( )s FA(\))i(of)e(date,)i(appro)m(x) +277 1468 y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(status:)1866 +1581 y(0)30 b(=)h(OK)1798 1694 y Fl(\000)p FA(1)f(=)g(illegal)f(PMASS) +1798 1807 y Fl(\000)p FA(2)h(=)g(to)s(o)h(close)g(to)g(Sun)1798 +1920 y Fl(\000)p FA(3)f(=)g(to)s(o)h(slo)m(w)0 2383 y +Fy(NOTES)44 b FA(:)311 2615 y(1.)i(The)30 b(PV)h(6-v)m(ector)i(can)e(b) +s(e)e(with)h(resp)s(ect)g(to)h(an)m(y)g(c)m(hosen)g(inertial)e(frame,)i +(and)f(the)g(resulting)427 2728 y(univ)m(ersal-elemen)m(t)h(set)h(will) +d(b)s(e)h(with)h(resp)s(ect)g(to)h(the)g(same)g(frame.)44 +b(A)31 b(common)h(c)m(hoice)g(will)427 2841 y(b)s(e)e(mean)g(equator)h +(and)f(ecliptic)f(of)i(ep)s(o)s(c)m(h)f(J2000.)311 3009 +y(2.)46 b(The)e(mass,)j(PMASS,)c(is)g(imp)s(ortan)m(t)g(only)g(for)g +(the)h(larger)g(planets.)80 b(F)-8 b(or)44 b(most)g(purp)s(oses)427 +3122 y(\()p Fn(e.g.)30 b FA(asteroids\))h(use)f(0D0.)42 +b(V)-8 b(alues)30 b(less)g(than)g(zero)h(are)g(illegal.)311 +3290 y(3.)46 b(The)40 b(\\univ)m(ersal")f(elemen)m(ts)h(are)g(those)h +(whic)m(h)d(de\014ne)h(the)h(orbit)f(for)h(the)g(purp)s(oses)e(of)i +(the)427 3403 y(metho)s(d)32 b(of)g(univ)m(ersal)e(v)-5 +b(ariables)31 b(\(see)i(reference\).)47 b(They)32 b(consist)f(of)i(the) +f(com)m(bined)f(mass)h(of)427 3516 y(the)h(t)m(w)m(o)h(b)s(o)s(dies,)e +(an)g(ep)s(o)s(c)m(h,)h(and)f(the)h(p)s(osition)e(and)h(v)m(elo)s(cit)m +(y)h(v)m(ectors)h(\(arbitrary)e(reference)427 3629 y(frame\))j(at)g +(that)g(ep)s(o)s(c)m(h.)53 b(The)34 b(parameter)h(set)g(used)f(here)g +(includes)e(also)j(v)-5 b(arious)33 b(quan)m(tities)427 +3742 y(that)i(can,)g(in)d(fact,)k(b)s(e)d(deriv)m(ed)f(from)i(the)f +(other)h(information.)49 b(This)32 b(approac)m(h)i(is)f(tak)m(en)i(to) +427 3854 y(a)m(v)m(oiding)d(unnecessary)f(computation)h(and)g(loss)f +(of)h(accuracy)-8 b(.)48 b(The)31 b(supplemen)m(tary)g(quan)m(ti-)427 +3967 y(ties)22 b(are)h(\(i\))f Fi(\013)p FA(,)i(whic)m(h)d(is)g(prop)s +(ortional)f(to)j(the)g(total)g(energy)f(of)h(the)f(orbit,)h(\(ii\))e +(the)i(helio)s(cen)m(tric)427 4080 y(distance)35 b(at)g(ep)s(o)s(c)m +(h,)h(\(iii\))d(the)i(out)m(w)m(ards)g(comp)s(onen)m(t)g(of)g(the)g(v)m +(elo)s(cit)m(y)g(at)h(the)f(giv)m(en)f(ep)s(o)s(c)m(h,)427 +4193 y(\(iv\))29 b(an)f(estimate)h(of)g Fi( )s FA(,)h(the)e(\\univ)m +(ersal)g(eccen)m(tric)h(anomaly")g(at)g(a)g(giv)m(en)g(date)g(and)f +(\(v\))h(that)427 4306 y(date.)0 4778 y Fy(REFERENCE)44 +b FA(:)d(Ev)m(erhart,)31 b(E.)f(&)g(Pitkin,)f(E.T.,)h(Am.)h(J.)f(Ph)m +(ys.)g(51,)i(712,)g(1983.)p 0 4955 3780 8 v 0 5068 a +Fu(SLA)p Fk(_)p Fu(PV)l(OBS)277 b Fj(Observ)-7 b(atory)37 +b(P)m(osition)f(&)j(V)-10 b(elo)s(cit)m(y)278 b Fu(SLA)p +Fk(_)p Fu(PV)l(OBS)0 5418 y Fy(A)m(CTION)44 b FA(:)c(P)m(osition)30 +b(and)g(v)m(elo)s(cit)m(y)h(of)f(an)h(observing)e(station.)0 +5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_PVOBS)g(\(P,)h(H,)g +(STL,)f(PV\))p eop +%%Page: 129 131 +129 130 bop 0 52 a Ft(SUN/67.45)3206 b FA(129)0 351 y +Fy(GIVEN)45 b FA(:)277 497 y Fn(P)674 b Fy(D)565 b FA(latitude)30 +b(\(geo)s(detic,)h(radians\))277 610 y Fn(H)668 b Fy(D)565 +b FA(heigh)m(t)31 b(ab)s(o)m(v)m(e)i(reference)f(spheroid)d(\(geo)s +(detic,)k(metres\))277 836 y Fn(STL)563 b Fy(D)i FA(lo)s(cal)30 +b(apparen)m(t)g(sidereal)f(time)h(\(radians\))0 1199 +y Fy(RETURNED)46 b FA(:)277 1345 y Fn(PV)606 b Fy(D\(6\))431 +b FA([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 b Fi(x)r(;)32 +b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 b FA(])37 +b(\(A)m(U,)i(A)m(U)f(s)2709 1312 y Fm(\000)p Fr(1)2803 +1345 y FA(,)h(true)e(equator)h(and)e(e-)1658 1458 y(quino)m(x)30 +b(of)g(date\))0 1821 y Fy(NOTE)44 b FA(:)d(IA)m(U)31 +b(1976)h(constan)m(ts)f(are)g(used.)p 0 1940 3780 8 v +0 2053 a Fu(SLA)p Fk(_)p Fu(PXY)756 b Fj(Apply)38 b(Linear)g(Mo)s(del) +758 b Fu(SLA)p Fk(_)p Fu(PXY)0 2403 y Fy(A)m(CTION)44 +b FA(:)64 b(Giv)m(en)42 b(arra)m(ys)h(of)f Fn(exp)-5 +b(e)g(cte)g(d)53 b FA(and)42 b Fn(me)-5 b(asur)g(e)g(d)60 +b FA([)15 b Fi(x;)g(y)j FA(])43 b(co)s(ordinates,)i(and)c(a)i(linear)e +(mo)s(del)227 2516 y(relating)36 b(them)h(\(as)g(pro)s(duced)f(b)m(y)g +(sla)p Fq(_)p FA(FITXY\),)h(compute)g(the)g(arra)m(y)g(of)g +Fn(pr)-5 b(e)g(dicte)g(d)49 b FA(co)s(ordinates)227 2629 +y(and)30 b(the)h(RMS)f(residuals.)0 2817 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_PXY)g(\(NP,XYE,XYM,COEFFS,XYP,XR)o(MS,Y)o +(RMS)o(,RRM)o(S\))0 3172 y Fy(GIVEN)f FA(:)277 3318 y +Fn(NP)606 b Fy(I)f FA(n)m(um)m(b)s(er)29 b(of)i(samples)277 +3431 y Fn(XYE)538 b Fy(D\(2,NP\))249 b FA(exp)s(ected)31 +b([)15 b Fi(x;)g(y)k FA(])30 b(for)g(eac)m(h)i(sample)277 +3544 y Fn(XYM)518 b Fy(D\(2,NP\))249 b FA(measured)30 +b([)15 b Fi(x;)g(y)k FA(])30 b(for)g(eac)m(h)i(sample)277 +3657 y Fn(COEFFS)370 b Fy(D\(6\))431 b FA(co)s(e\016cien)m(ts)31 +b(of)g(mo)s(del)e(\(see)i(b)s(elo)m(w\))0 4020 y Fy(RETURNED)46 +b FA(:)277 4166 y Fn(XYP)538 b Fy(D\(2,NP\))249 b FA(predicted)29 +b([)15 b Fi(x;)g(y)k FA(])31 b(for)f(eac)m(h)h(sample)277 +4278 y Fn(XRMS)469 b Fy(D)565 b FA(RMS)30 b(in)f(X)277 +4391 y Fn(YRMS)469 b Fy(D)565 b FA(RMS)30 b(in)f(Y)277 +4504 y Fn(RRMS)471 b Fy(D)565 b FA(total)31 b(RMS)f(\(v)m(ector)j(sum)c +(of)i(XRMS)f(and)g(YRMS\))0 4867 y Fy(NOTES)44 b FA(:)311 +5058 y(1.)i(The)33 b(mo)s(del)g(is)f(supplied)f(in)h(the)i(arra)m(y)g +(COEFFS.)f(Naming)g(the)h(six)e(elemen)m(ts)i(of)g(COEFFS)427 +5171 y Fi(a;)15 b(b;)g(c;)g(d;)g(e)40 b FA(&)d Fi(f)10 +b FA(,)39 b(the)e(mo)s(del)f(transforms)h Fn(me)-5 b(asur)g(e)g(d)49 +b FA(co)s(ordinates)37 b([)p Fi(x)2945 5185 y Fc(m)3012 +5171 y Fi(;)15 b(y)3097 5185 y Fc(m)3178 5171 y FA(])38 +b(in)m(to)f Fn(pr)-5 b(e)g(dicte)g(d)427 5284 y FA(co)s(ordinates)30 +b([)p Fi(x)987 5298 y Fc(p)1027 5284 y Fi(;)15 b(y)1112 +5298 y Fc(p)1167 5284 y FA(])31 b(as)f(follo)m(ws:)597 +5432 y Fi(x)649 5446 y Fc(p)714 5432 y FA(=)25 b Fi(a)20 +b FA(+)g Fi(bx)1060 5446 y Fc(m)1147 5432 y FA(+)g Fi(cy)1322 +5446 y Fc(m)597 5545 y Fi(y)642 5559 y Fc(p)707 5545 +y FA(=)25 b Fi(d)20 b FA(+)g Fi(ex)1055 5559 y Fc(m)1142 +5545 y FA(+)g Fi(f)10 b(y)1333 5559 y Fc(m)311 5693 y +FA(2.)46 b(The)30 b(residuals)e(are)j(\()p Fi(x)1228 +5707 y Fc(p)1288 5693 y Fl(\000)20 b Fi(x)1431 5707 y +Fc(e)1468 5693 y FA(\))31 b(and)e(\()p Fi(y)1790 5707 +y Fc(p)1850 5693 y Fl(\000)20 b Fi(y)1986 5707 y Fc(e)2022 +5693 y FA(\).)p eop +%%Page: 130 132 +130 131 bop 0 52 a FA(130)311 351 y(3.)46 b(If)38 b(NP)g(is)f(less)h +(than)g(or)g(equal)g(to)h(zero,)i(no)d(co)s(ordinates)g(are)g +(transformed,)i(and)d(the)i(RMS)427 464 y(residuals)28 +b(are)j(all)e(zero.)311 613 y(4.)46 b(See)31 b(also)f(sla)p +Fq(_)p FA(FITXY,)g(sla)p Fq(_)p FA(INVF,)h(sla)p Fq(_)p +FA(XY2XY,)g(sla)p Fq(_)p FA(DCMPF)p 0 753 3780 8 v 0 +865 a Fu(SLA)p Fk(_)p Fu(RANDOM)489 b Fj(Random)37 b(Num)m(b)s(er)489 +b Fu(SLA)p Fk(_)p Fu(RANDOM)0 1216 y Fy(A)m(CTION)44 +b FA(:)c(Generate)32 b(pseudo-random)d(real)h(n)m(um)m(b)s(er)f(in)h +(the)g(range)h(0)26 b Fl(\024)e Fi(x)i(<)f FA(1.)0 1403 +y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_RANDOM)d(\(SEED\))0 +1759 y Fy(GIVEN)g FA(:)277 1930 y Fn(SEED)492 b Fy(R)567 +b FA(an)30 b(arbitrary)g(real)g(n)m(um)m(b)s(er)0 2308 +y Fy(RETURNED)46 b FA(:)277 2454 y Fn(SEED)492 b Fy(R)567 +b FA(a)31 b(new)f(arbitrary)f(v)-5 b(alue)277 2567 y +Fn(sla)p Fq(_)p Fn(RANDOM)159 b Fy(R)567 b FA(Pseudo-random)30 +b(real)g(n)m(um)m(b)s(er)f(0)c Fl(\024)g Fi(x)h(<)f FA(1.)0 +2937 y Fy(NOTE)44 b FA(:)d(The)30 b(implemen)m(tation)f(is)g(mac)m +(hine-dep)s(enden)m(t.)p 0 3076 V 0 3189 a Fu(SLA)p Fk(_)p +Fu(RANGE)407 b Fj(Put)38 b(Angle)g(in)m(to)f(Range)h +Fe(\006)p Fd(\031)413 b Fu(SLA)p Fk(_)p Fu(RANGE)0 3540 +y Fy(A)m(CTION)44 b FA(:)c(Normalize)31 b(an)f(angle)g(in)m(to)h(the)f +(range)h Fl(\006)p Fi(\031)i FA(\(single)c(precision\).)0 +3727 y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_RANGE)d(\(ANGLE\))0 +4083 y Fy(GIVEN)g FA(:)277 4254 y Fn(ANGLE)411 b Fy(R)567 +b FA(angle)31 b(in)e(radians)0 4632 y Fy(RETURNED)46 +b FA(:)277 4804 y Fn(sla)p Fq(_)p Fn(RANGE)248 b Fy(R)567 +b FA(ANGLE)31 b(expressed)f(in)f(the)h(range)h Fl(\006)p +Fi(\031)s FA(.)p 0 4959 V 0 5072 a Fu(SLA)p Fk(_)p Fu(RANORM)206 +b Fj(Put)39 b(Angle)e(in)m(to)h(Range)g(0)7 b Fe(\000)g +Fj(2)p Fd(\031)211 b Fu(SLA)p Fk(_)p Fu(RANORM)0 5422 +y Fy(A)m(CTION)44 b FA(:)c(Normalize)31 b(an)f(angle)g(in)m(to)h(the)f +(range)h(0)5 b Fl(\000)g FA(2)p Fi(\031)34 b FA(\(single)29 +b(precision\).)0 5610 y Fy(CALL)45 b FA(:)77 b Fq(R)47 +b(=)h(sla_RANORM)d(\(ANGLE\))p eop +%%Page: 131 133 +131 132 bop 0 52 a Ft(SUN/67.45)3206 b FA(131)0 351 y +Fy(GIVEN)45 b FA(:)277 523 y Fn(ANGLE)411 b Fy(R)567 +b FA(angle)31 b(in)e(radians)0 888 y Fy(RETURNED)46 b +FA(:)277 1060 y Fn(sla)p Fq(_)p Fn(RANORM)162 b Fy(R)567 +b FA(ANGLE)31 b(expressed)f(in)f(the)h(range)h(0)5 b +Fl(\000)g FA(2)p Fi(\031)p 0 1210 3780 8 v 0 1323 a Fu(SLA)p +Fk(_)p Fu(R)l(CC)528 b Fj(Barycen)m(tric)36 b(Co)s(ordinate)g(Time)526 +b Fu(SLA)p Fk(_)p Fu(R)l(CC)0 1673 y Fy(CALL)45 b FA(:)77 +b Fq(D)47 b(=)h(sla_RCC)d(\(TDB,)i(UT1,)f(WL,)h(U,)h(V\))0 +1861 y Fy(A)m(CTION)c FA(:)c(The)28 b(relativistic)g(clo)s(c)m(k)h +(correction)h(TDB)p Fl(\000)p FA(TT,)f(the)g(di\013erence)f(b)s(et)m(w) +m(een)i Fn(pr)-5 b(op)g(er)34 b(time)45 b FA(on)227 1974 +y(Earth)33 b(and)f Fn(c)-5 b(o)g(or)g(dinate)37 b(time)j +FA(in)31 b(the)i(solar)f(system)h(barycen)m(tric)f(space-time)h(frame)g +(of)g(reference.)227 2087 y(The)d(prop)s(er)f(time)h(is)g(TT;)f(the)i +(co)s(ordinate)f(time)g(is)g Fn(an)j(implementation)39 +b FA(of)31 b(TDB.)0 2443 y Fy(GIVEN)45 b FA(:)277 2589 +y Fn(TDB)538 b Fy(D)565 b FA(co)s(ordinate)30 b(time)g(\(MJD:)i(JD)p +Fl(\000)p FA(2400000.5\))277 2702 y Fn(UT1)557 b Fy(D)565 +b FA(univ)m(ersal)29 b(time)h(\(fraction)g(of)h(one)f(da)m(y\))277 +2815 y Fn(WL)588 b Fy(D)565 b FA(clo)s(c)m(k)31 b(longitude)e +(\(radians)g(w)m(est\))277 2928 y Fn(U)668 b Fy(D)565 +b FA(clo)s(c)m(k)31 b(distance)f(from)g(Earth)g(spin)e(axis)i(\(km\)) +277 3041 y Fn(V)668 b Fy(D)565 b FA(clo)s(c)m(k)23 b(distance)e(north)h +(of)g(Earth)g(equatorial)g(plane)f(\(km\))0 3511 y Fy(RETURNED)46 +b FA(:)277 3682 y Fn(sla)p Fq(_)p Fn(R)n(CC)388 b Fy(D)565 +b FA(TDB)p Fl(\000)p FA(TT)30 b(\(sec\))0 4048 y Fy(NOTES)44 +b FA(:)311 4237 y(1.)i(TDB)39 b(ma)m(y)h(b)s(e)e(considered)g(to)h(b)s +(e)f(the)h(co)s(ordinate)g(time)f(in)g(the)h(solar)f(system)h(barycen)m +(tre)427 4349 y(frame)c(of)f(reference,)i(and)e(TT)f(is)h(the)g(prop)s +(er)f(time)h(giv)m(en)g(b)m(y)h(clo)s(c)m(ks)f(at)h(mean)g(sea)g(lev)m +(el)f(on)427 4462 y(the)d(Earth.)311 4609 y(2.)46 b(The)32 +b(result)e(has)i(a)g(main)f(\(ann)m(ual\))g(sin)m(usoidal)e(term)j(of)g +(amplitude)e(appro)m(ximately)h(1.66ms,)427 4722 y(plus)e(planetary)h +(terms)g(up)f(to)j(ab)s(out)e(20)p Fi(\026)p FA(s,)h(and)f(lunar)f(and) +h(diurnal)d(terms)j(up)g(to)h(2)p Fi(\026)p FA(s.)41 +b(The)427 4835 y(v)-5 b(ariation)32 b(arises)f(from)h(the)g(transv)m +(erse)h(Doppler)e(e\013ect)j(and)e(the)g(gra)m(vitational)h(red-shift)d +(as)427 4948 y(the)h(observ)m(er)f(v)-5 b(aries)30 b(in)f(sp)s(eed)h +(and)g(mo)m(v)m(es)h(through)f(di\013eren)m(t)g(gra)m(vitational)g(p)s +(oten)m(tials.)311 5095 y(3.)46 b(The)29 b(argumen)m(t)g(TDB)h(is,)f +(strictly)-8 b(,)29 b(the)g(barycen)m(tric)g(co)s(ordinate)g(time;)h +(ho)m(w)m(ev)m(er,)h(the)e(terres-)427 5208 y(trial)g(prop)s(er)g(time) +h(\(TT\))h(can)f(in)g(practice)g(b)s(e)g(used.)311 5354 +y(4.)46 b(The)27 b(geo)s(cen)m(tric)i(mo)s(del)e(is)f(that)i(of)g(F)-8 +b(airhead)28 b(&)f(Bretagnon)i(\(1990\),)h(in)d(its)g(full)e(form.)39 +b(It)28 b(w)m(as)427 5467 y(supplied)34 b(b)m(y)j(F)-8 +b(airhead)37 b(\(priv)-5 b(ate)36 b(comm)m(unication\))h(as)g(a)h(F)-8 +b(ortran)37 b(subroutine.)59 b(A)37 b(n)m(um)m(b)s(er)427 +5580 y(of)32 b(co)s(ding)f(c)m(hanges)i(w)m(ere)g(made)f(to)h(this)e +(subroutine)e(in)i(order)h(matc)m(h)g(the)h(calling)d(sequence)427 +5693 y(of)41 b(previous)e(v)m(ersions)h(of)h(the)g(presen)m(t)g +(routine,)h(to)g(comply)e(with)f(Starlink)g(programming)p +eop +%%Page: 132 134 +132 133 bop 0 52 a FA(132)427 351 y(standards)26 b(and)g(to)i(a)m(v)m +(oid)f(compilation)e(problems)g(on)i(certain)f(mac)m(hines.)40 +b(On)25 b(the)i(supp)s(orted)427 464 y(computer)i(t)m(yp)s(es,)g(the)h +(n)m(umerical)d(results)h(are)h(essen)m(tially)f(una\013ected)h(b)m(y)g +(the)g(c)m(hanges.)41 b(The)427 577 y(top)s(o)s(cen)m(tric)23 +b(mo)s(del)e(is)h(from)g(Mo)m(y)m(er)i(\(1981\))i(and)21 +b(Murra)m(y)i(\(1983\).)41 b(During)21 b(the)i(in)m(terv)-5 +b(al)21 b(1950-)427 690 y(2050,)38 b(the)d(absolute)f(accuracy)i(of)e +(the)h(geo)s(cen)m(tric)h(mo)s(del)d(is)h(b)s(etter)h(than)f +Fl(\006)p FA(3)h(nanoseconds)427 803 y(relativ)m(e)i(to)h(direct)f(n)m +(umerical)e(in)m(tegrations)i(using)f(the)h(JPL)g(DE200/LE200)j(solar)c +(system)427 916 y(ephemeris.)311 1056 y(5.)46 b(The)36 +b(IA)m(U)h(de\014nition)e(of)h(TDB)h(is)f(that)h(it)f(m)m(ust)g +(di\013er)g(from)g(TT)f(only)h(b)m(y)g(p)s(erio)s(dic)e(terms.)427 +1169 y(Though)e(practical,)i(this)d(is)h(an)h(imprecise)e(de\014nition) +g(whic)m(h)g(ignores)i(the)g(existence)g(of)g(v)m(ery)427 +1282 y(long-p)s(erio)s(d)22 b(and)h(secular)g(e\013ects)i(in)e(the)g +(dynamics)g(of)h(the)g(solar)f(system.)39 b(As)23 b(a)h(consequence,) +427 1395 y(di\013eren)m(t)33 b(implemen)m(tations)f(of)i(TDB)g(will,)e +(in)g(general,)j(di\013er)d(in)g(zero-p)s(oin)m(t)i(and)f(will)e(drift) +427 1508 y(linearly)d(relativ)m(e)j(to)g(one)g(other.)0 +1831 y Fy(REFERENCES)44 b FA(:)311 2013 y(1.)i(F)-8 b(airhead,)31 +b(L.)f(&)g(Bretagnon,)i(P)-8 b(.,)31 b(1990.)h Fn(Astr.Astr)-5 +b(ophys.)33 b Fy(229)p FA(,)e(240-247.)311 2154 y(2.)46 +b(Mo)m(y)m(er,)33 b(T.D.,)e(1981.)h Fn(Cel.Me)-5 b(ch.)30 +b Fy(23)p FA(,)h(33.)311 2294 y(3.)46 b(Murra)m(y)-8 +b(,)31 b(C.A.,)g(1983,)h Fn(V)-7 b(e)i(ctorial)34 b(Astr)-5 +b(ometry)p FA(,)33 b(Adam)d(Hilger.)p 0 2410 3780 8 v +0 2523 a Fu(SLA)p Fk(_)p Fu(RDPLAN)329 b Fj(Apparen)m(t)38 +b([)20 b Fd(\013)q(;)g(\016)j Fj(])39 b(of)f(Planet)329 +b Fu(SLA)p Fk(_)p Fu(RDPLAN)0 2874 y Fy(A)m(CTION)44 +b FA(:)c(Appro)m(ximate)31 b(top)s(o)s(cen)m(tric)f(apparen)m(t)h([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(and)e(angular)h(size)g(of)h(a)f +(planet.)0 3061 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_RDPLAN)f +(\(DATE,)h(NP,)h(ELONG,)f(PHI,)h(RA,)g(DEC,)g(DIAM\))0 +3389 y Fy(GIVEN)e FA(:)277 3535 y Fn(D)n(A)-7 b(TE)481 +b Fy(D)565 b FA(MJD)31 b(of)f(observ)-5 b(ation)31 b(\(JD)p +Fl(\000)p FA(2400000.5\))277 3648 y Fn(NP)606 b Fy(I)f +FA(planet:)1825 3761 y(1)15 b(=)g(Mercury)1825 3873 y(2)g(=)g(V)-8 +b(en)m(us)1825 3986 y(3)15 b(=)g(Mo)s(on)1825 4099 y(4)g(=)g(Mars)1825 +4212 y(5)g(=)g(Jupiter)1825 4325 y(6)g(=)g(Saturn)1825 +4438 y(7)g(=)g(Uran)m(us)1825 4551 y(8)g(=)g(Neptune)1825 +4664 y(9)g(=)g(Pluto)1728 4777 y(else)h(=)e(Sun)277 4890 +y Fn(ELONG,PHI)216 b Fy(D)565 b FA(observ)m(er's)30 b(longitude)f +(\(east)i(+v)m(e\))g(and)f(latitude)f(\(radi-)1658 5003 +y(ans\))0 5317 y Fy(RETURNED)46 b FA(:)277 5463 y Fn(RA,DEC)378 +b Fy(D)565 b FA(top)s(o)s(cen)m(tric)31 b(apparen)m(t)f([)15 +b Fi(\013;)g(\016)21 b FA(])30 b(\(radians\))277 5576 +y Fn(DIAM)482 b Fy(D)565 b FA(angular)30 b(diameter)g(\(equatorial,)g +(radians\))p eop +%%Page: 133 135 +133 134 bop 0 52 a Ft(SUN/67.45)3206 b FA(133)0 351 y +Fy(NOTES)44 b FA(:)311 548 y(1.)i(The)37 b(date)i(is)d(in)h(a)h +(dynamical)e(timescale)i(\(TDB,)g(formerly)f(ET\))g(and)g(is)g(in)f +(the)i(form)f(of)h(a)427 661 y(Mo)s(di\014ed)c(Julian)g(Date)j(\(JD)p +Fl(\000)p FA(2400000.5\).)61 b(F)-8 b(or)37 b(all)d(practical)i(purp)s +(oses,)f(TT)g(can)h(b)s(e)f(used)427 774 y(instead)30 +b(of)g(TDB,)h(and)f(for)g(man)m(y)h(applications)d(UT)j(will)c(do)k +(\(except)g(for)f(the)h(Mo)s(on\).)311 925 y(2.)46 b(The)32 +b(longitude)f(and)h(latitude)f(allo)m(w)h(correction)g(for)g(geo)s(cen) +m(tric)i(parallax.)45 b(This)30 b(is)i(a)g(ma)5 b(jor)427 +1038 y(e\013ect)31 b(for)d(the)h(Mo)s(on,)h(but)e(in)f(the)i(con)m +(text)i(of)e(the)g(limited)e(accuracy)j(of)f(the)g(presen)m(t)f +(routine)427 1151 y(its)35 b(e\013ect)h(on)f(planetary)f(p)s(ositions)f +(is)h(small)f(\(negligible)g(for)h(the)h(outer)g(planets\).)54 +b(Geo)s(cen-)427 1264 y(tric)32 b(p)s(ositions)e(can)j(b)s(e)e +(generated)i(b)m(y)f(appropriate)g(use)g(of)g(the)g(routines)f(sla)p +Fq(_)p FA(DMOON)h(and)427 1377 y(sla)p Fq(_)p FA(PLANET.)311 +1528 y(3.)46 b(The)30 b(direction)f(accuracy)j(\(arcsec,)g(1000-3000)19 +b(AD\))31 b(is)f(of)g(order:)793 1702 y(Sun)787 b(5)793 +1815 y(Mercury)606 b(2)793 1927 y(V)-8 b(en)m(us)659 +b(10)793 2040 y(Mo)s(on)667 b(30)793 2153 y(Mars)694 +b(50)793 2266 y(Jupiter)608 b(90)793 2379 y(Saturn)625 +b(90)793 2492 y(Uran)m(us)610 b(90)793 2605 y(Neptune)558 +b(10)793 2718 y(Pluto)721 b(1)91 b(\(1885-2099)20 b(AD)31 +b(only\))427 2892 y(The)40 b(angular)g(diameter)g(accuracy)h(is)f(ab)s +(out)g(0.4\045)h(for)f(the)h(Mo)s(on,)i(and)d(0.01\045)i(or)e(b)s +(etter)427 3005 y(for)g(the)g(Sun)f(and)h(planets.)69 +b(F)-8 b(or)41 b(more)f(information)e(on)i(accuracy)-8 +b(,)45 b(refer)39 b(to)i(the)g(routines)427 3118 y(sla)p +Fq(_)p FA(PLANET)29 b(and)h(sla)p Fq(_)p FA(DMOON,)g(whic)m(h)g(the)g +(presen)m(t)h(routine)e(uses.)p 0 3260 3780 8 v 0 3373 +a Fu(SLA)p Fk(_)p Fu(REF)l(CO)562 b Fj(Refraction)36 +b(Constan)m(ts)560 b Fu(SLA)p Fk(_)p Fu(REF)l(CO)0 3723 +y Fy(A)m(CTION)44 b FA(:)36 b(Determine)21 b(the)g(constan)m(ts)g +Fi(a)g FA(and)f Fi(b)h FA(in)f(the)h(atmospheric)f(refraction)h(mo)s +(del)e(\001)p Fi(\020)32 b FA(=)25 b Fi(a)15 b FA(tan)g +Fi(\020)8 b FA(+)227 3836 y Fi(b)15 b FA(tan)413 3803 +y Fr(3)467 3836 y Fi(\020)7 b FA(,)25 b(where)f Fi(\020)30 +b FA(is)23 b(the)i Fn(observe)-5 b(d)34 b FA(zenith)24 +b(distance)f(\()p Fn(i.e.)h FA(a\013ected)i(b)m(y)e(refraction\))g(and) +f(\001)p Fi(\020)30 b FA(is)24 b(what)227 3949 y(to)31 +b(add)f(to)h Fi(\020)37 b FA(to)31 b(giv)m(e)g(the)g +Fn(top)-5 b(o)g(c)g(entric)48 b FA(\()p Fn(i.e.)32 b(in)h(vacuo)p +FA(\))e(zenith)e(distance.)0 4137 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_REFCO)g(\(HM,)g(TDK,)h(PMB,)g(RH,)f(WL,)h(PHI,)g +(TLR,)g(EPS,)f(REFA,)h(REFB\))0 4501 y Fy(GIVEN)e FA(:)277 +4647 y Fn(HM)586 b Fy(D)565 b FA(heigh)m(t)30 b(of)h(the)g(observ)m(er) +f(ab)s(o)m(v)m(e)i(sea)f(lev)m(el)f(\(metre\))277 4760 +y Fn(TDK)532 b Fy(D)565 b FA(am)m(bien)m(t)31 b(temp)s(erature)f(at)h +(the)g(observ)m(er)f(\(degrees)h(K\))277 4873 y Fn(PMB)528 +b Fy(D)565 b FA(pressure)29 b(at)i(the)g(observ)m(er)f(\(mB\))277 +4985 y Fn(RH)602 b Fy(D)565 b FA(relativ)m(e)31 b(h)m(umidit)m(y)d(at)j +(the)g(observ)m(er)f(\(range)h(0)16 b({)g(1\))277 5098 +y Fn(WL)588 b Fy(D)565 b FA(e\013ectiv)m(e)32 b(w)m(a)m(v)m(elength)g +(of)e(the)h(source)g(\()p Fi(\026)p FA(m\))277 5211 y +Fn(PHI)571 b Fy(D)565 b FA(latitude)30 b(of)g(the)h(observ)m(er)f +(\(radian,)g(astronomical\))277 5324 y Fn(TLR)548 b Fy(D)565 +b FA(temp)s(erature)27 b(lapse)g(rate)h(in)e(the)i(trop)s(osphere)e +(\(degrees)1658 5437 y(K)k(p)s(er)g(metre\))277 5550 +y Fn(EPS)561 b Fy(D)k FA(precision)27 b(required)f(to)j(terminate)f +(iteration)g(\(radian\))p eop +%%Page: 134 136 +134 135 bop 0 52 a FA(134)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(REF)-9 b(A)490 b Fy(D)565 b FA(tan)16 b Fi(\020)36 +b FA(co)s(e\016cien)m(t)c(\(radians\))277 610 y Fn(REFB)485 +b Fy(D)565 b FA(tan)1789 577 y Fr(3)1844 610 y Fi(\020)37 +b FA(co)s(e\016cien)m(t)31 b(\(radians\))0 1022 y Fy(NOTES)44 +b FA(:)311 1233 y(1.)i(Suggested)36 b(v)-5 b(alues)34 +b(for)g(the)h(TLR)g(and)f(EPS)g(argumen)m(ts)h(are)g(0.0065D0)j(and)d +(1D)p Fl(\000)p FA(8)h(resp)s(ec-)427 1346 y(tiv)m(ely)-8 +b(.)311 1503 y(2.)46 b(The)30 b(radio)g(refraction)g(is)f(c)m(hosen)i +(b)m(y)f(sp)s(ecifying)f(WL)h Fi(>)25 b FA(100)32 b Fi(\026)p +FA(m.)311 1661 y(3.)46 b(The)34 b(routine)f(is)g(a)i(slo)m(w)m(er)f +(but)f(more)i(accurate)g(alternativ)m(e)g(to)g(the)f(sla)p +Fq(_)p FA(REF)m(COQ)f(routine.)427 1774 y(The)21 b(constan)m(ts)i(it)e +(pro)s(duces)g(giv)m(e)h(p)s(erfect)g(agreemen)m(t)h(with)d(sla)p +Fq(_)p FA(REFR)m(O)h(at)i(zenith)e(distances)427 1887 +y(tan)559 1854 y Fm(\000)p Fr(1)668 1887 y FA(1)27 b(\(45)865 +1854 y Fm(\016)906 1887 y FA(\))g(and)f(tan)1273 1854 +y Fm(\000)p Fr(1)1382 1887 y FA(4)i(\()p Fl(\030)d FA(76)1676 +1854 y Fm(\016)1716 1887 y FA(\).)40 b(A)m(t)28 b(other)f(zenith)f +(distances,)i(the)f(mo)s(del)e(ac)m(hiev)m(es:)40 b(0)3704 +1850 y Fh(0)m(0)3708 1887 y Fi(:)p FA(5)427 2000 y(accuracy)32 +b(for)e Fi(\020)i(<)25 b FA(80)1201 1967 y Fm(\016)1241 +2000 y FA(,)31 b(0)1337 1963 y Fh(0)l(0)1341 2000 y Fi(:)p +FA(01)g(accuracy)h(for)e Fi(\020)i(<)25 b FA(60)2261 +1967 y Fm(\016)2301 2000 y FA(,)31 b(and)e(0)2573 1963 +y Fh(0)m(0)2577 2000 y Fi(:)p FA(001)k(accuracy)e(for)f +Fi(\020)i(<)25 b FA(45)3543 1967 y Fm(\016)3583 2000 +y FA(.)p 0 2158 3780 8 v 0 2270 a Fu(SLA)p Fk(_)p Fu(REF)l(COQ)303 +b Fj(Refraction)36 b(Constan)m(ts)h(\(fast\))301 b Fu(SLA)p +Fk(_)p Fu(REF)l(COQ)0 2621 y Fy(A)m(CTION)44 b FA(:)36 +b(Determine)21 b(the)g(constan)m(ts)g Fi(a)g FA(and)f +Fi(b)h FA(in)f(the)h(atmospheric)f(refraction)h(mo)s(del)e(\001)p +Fi(\020)32 b FA(=)25 b Fi(a)15 b FA(tan)g Fi(\020)8 b +FA(+)227 2734 y Fi(b)15 b FA(tan)413 2701 y Fr(3)467 +2734 y Fi(\020)7 b FA(,)25 b(where)f Fi(\020)30 b FA(is)23 +b(the)i Fn(observe)-5 b(d)34 b FA(zenith)24 b(distance)f(\()p +Fn(i.e.)h FA(a\013ected)i(b)m(y)e(refraction\))g(and)f(\001)p +Fi(\020)30 b FA(is)24 b(what)227 2847 y(to)g(add)e(to)i +Fi(\020)29 b FA(to)24 b(giv)m(e)g(the)f Fn(top)-5 b(o)g(c)g(entric)41 +b FA(\()p Fn(i.e.)25 b(in)h(vacuo)p FA(\))d(zenith)g(distance.)38 +b(\(This)21 b(is)h(a)i(fast)f(alternativ)m(e)227 2960 +y(to)31 b(the)g(sla)p Fq(_)p FA(REF)m(CO)f(routine)f({)i(see)g +(notes.\))0 3147 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_REFCOQ)f(\(TDK,)i(PMB,)f(RH,)h(WL,)g(REFA,)g(REFB\))0 +3532 y Fy(GIVEN)e FA(:)277 3678 y Fn(TDK)532 b Fy(D)565 +b FA(am)m(bien)m(t)31 b(temp)s(erature)f(at)h(the)g(observ)m(er)f +(\(degrees)h(K\))277 3791 y Fn(PMB)528 b Fy(D)565 b FA(pressure)29 +b(at)i(the)g(observ)m(er)f(\(mB\))277 3904 y Fn(RH)602 +b Fy(D)565 b FA(relativ)m(e)31 b(h)m(umidit)m(y)d(at)j(the)g(observ)m +(er)f(\(range)h(0)16 b({)g(1\))277 4016 y Fn(WL)588 b +Fy(D)565 b FA(e\013ectiv)m(e)32 b(w)m(a)m(v)m(elength)g(of)e(the)h +(source)g(\()p Fi(\026)p FA(m\))0 4428 y Fy(RETURNED)46 +b FA(:)277 4574 y Fn(REF)-9 b(A)490 b Fy(D)565 b FA(tan)16 +b Fi(\020)36 b FA(co)s(e\016cien)m(t)c(\(radians\))277 +4687 y Fn(REFB)485 b Fy(D)565 b FA(tan)1789 4654 y Fr(3)1844 +4687 y Fi(\020)37 b FA(co)s(e\016cien)m(t)31 b(\(radians\))0 +5099 y Fy(NOTES)44 b FA(:)311 5309 y(1.)i(The)30 b(radio)g(refraction)g +(is)f(c)m(hosen)i(b)m(y)f(sp)s(ecifying)f(WL)h Fi(>)25 +b FA(100)32 b Fi(\026)p FA(m.)311 5467 y(2.)46 b(The)41 +b(mo)s(del)e(is)h(an)h(appro)m(ximation,)h(for)f(mo)s(derate)g(zenith)f +(distances,)j(to)f(the)f(prediction-)427 5580 y(s)g(of)g(the)g(sla)p +Fq(_)p FA(REFR)m(O)f(routine.)72 b(The)40 b(appro)m(ximation)g(is)g +(main)m(tained)f(across)j(a)f(range)g(of)427 5693 y(conditions,)29 +b(and)h(applies)f(to)i(b)s(oth)e(optical/IR)i(and)e(radio.)p +eop +%%Page: 135 137 +135 136 bop 0 52 a Ft(SUN/67.45)3206 b FA(135)311 351 +y(3.)46 b(The)35 b(algorithm)f(is)g(a)h(fast)g(alternativ)m(e)g(to)h +(the)f(sla)p Fq(_)p FA(REF)m(CO)f(routine.)54 b(The)34 +b(latter)h(calls)f(the)427 464 y(sla)p Fq(_)p FA(REFR)m(O)39 +b(routine)f(itself:)57 b(this)38 b(in)m(v)m(olv)m(es)i(in)m(tegrations) +f(through)f(a)i(mo)s(del)e(atmosphere,)427 577 y(and)d(is)g(costly)g +(in)f(pro)s(cessor)h(time.)56 b(Ho)m(w)m(ev)m(er,)39 +b(the)d(mo)s(del)e(whic)m(h)g(is)h(pro)s(duced)e(is)i(precisely)427 +690 y(correct)44 b(for)e(t)m(w)m(o)i(zenith)e(distances)f(\(45)1889 +657 y Fm(\016)1972 690 y FA(and)h Fl(\030)30 b FA(76)2352 +657 y Fm(\016)2392 690 y FA(\))43 b(and)f(at)h(other)g(zenith)e +(distances)h(is)427 803 y(limited)23 b(in)h(accuracy)j(only)d(b)m(y)i +(the)f(\001)p Fi(\020)32 b FA(=)25 b Fi(a)15 b FA(tan)g +Fi(\020)i FA(+)10 b Fi(b)15 b FA(tan)2446 770 y Fr(3)2501 +803 y Fi(\020)32 b FA(form)m(ulation)24 b(itself.)38 +b(The)24 b(presen)m(t)427 916 y(routine)30 b(is)f(not)i(as)f(accurate,) +i(though)f(it)e(satis\014es)h(most)h(practical)f(requiremen)m(ts.)311 +1151 y(4.)46 b(The)40 b(mo)s(del)f(omits)g(the)i(e\013ects)g(of)f +(\(i\))g(heigh)m(t)g(ab)s(o)m(v)m(e)h(sea)g(lev)m(el)f(\(apart)g(from)g +(the)g(reduced)427 1264 y(pressure)34 b(itself)7 b(\),)36 +b(\(ii\))e(latitude)g(\()p Fn(i.e.)h FA(the)g(\015attening)f(of)i(the)f +(Earth\))g(and)f(\(iii\))g(v)-5 b(ariations)34 b(in)427 +1377 y(trop)s(ospheric)29 b(lapse)h(rate.)311 1612 y(5.)46 +b(The)30 b(mo)s(del)f(has)h(b)s(een)g(tested)h(using)e(the)i(follo)m +(wing)e(range)h(of)h(conditions:)527 1847 y Fl(\001)45 +b FA(lapse)30 b(rates)h(0.0055,)i(0.0065,)g(0.0075)g(degrees)e(K)f(p)s +(er)f(metre)527 2021 y Fl(\001)45 b FA(latitudes)30 b(0)1017 +1988 y Fm(\016)1056 2021 y FA(,)h(25)1202 1988 y Fm(\016)1242 +2021 y FA(,)g(50)1388 1988 y Fm(\016)1428 2021 y FA(,)g(75)1574 +1988 y Fm(\016)527 2194 y Fl(\001)45 b FA(heigh)m(ts)30 +b(0,)h(2500,)i(5000)f(metres)f(ab)s(o)m(v)m(e)g(sea)g(lev)m(el)527 +2368 y Fl(\001)45 b FA(pressures)29 b(mean)i(for)f(heigh)m(t)g +Fl(\000)p FA(10\045)h(to)g(+5\045)f(in)f(steps)h(of)h(5\045)527 +2542 y Fl(\001)45 b FA(temp)s(eratures)30 b Fl(\000)p +FA(10)1312 2509 y Fm(\016)1383 2542 y FA(to)h(+20)1655 +2509 y Fm(\016)1725 2542 y FA(with)e(resp)s(ect)i(to)g(280)2490 +2509 y Fm(\016)2530 2542 y FA(K)f(at)i(sea)f(lev)m(el)527 +2716 y Fl(\001)45 b FA(relativ)m(e)31 b(h)m(umidit)m(y)d(0,)j(0.5,)h(1) +527 2890 y Fl(\001)45 b FA(w)m(a)m(v)m(elength)32 b(0.4,)g(0.6,)f(.)16 +b(.)f(.)46 b(2)p Fi(\026)p FA(m,)30 b(+)g(radio)527 3064 +y Fl(\001)45 b FA(zenith)30 b(distances)g(15)1350 3031 +y Fm(\016)1390 3064 y FA(,)h(45)1536 3031 y Fm(\016)1576 +3064 y FA(,)g(75)1722 3031 y Fm(\016)427 3299 y FA(F)-8 +b(or)31 b(the)g(ab)s(o)m(v)m(e)h(conditions,)d(the)h(comparison)g(with) +f(sla)p Fq(_)p FA(REFR)m(O)h(w)m(as)g(as)h(follo)m(ws:)p +761 3468 1124 4 v 759 3581 4 113 v 1271 3581 V 1323 3547 +a Fn(worst)p 1584 3581 V 101 w(RMS)p 1882 3581 V 761 +3584 1124 4 v 759 3697 4 113 v 810 3663 a FA(optical/IR)p +1271 3697 V 222 w(62)p 1584 3697 V 254 w(8)p 1882 3697 +V 759 3810 V 1021 3776 a(radio)p 1271 3810 V 175 w(319)p +1584 3810 V 209 w(49)p 1882 3810 V 761 3813 1124 4 v +759 3926 4 113 v 1271 3926 V 1378 3892 a(mas)p 1584 3926 +V 142 w(mas)p 1882 3926 V 761 3929 1124 4 v 427 4179 +a(F)-8 b(or)31 b(this)f(particular)e(set)j(of)g(conditions:)527 +4414 y Fl(\001)45 b FA(lapse)30 b(rate)h(6)p Fi(:)p FA(5)1127 +4381 y Fm(\016)1168 4414 y Fi(K)7 b(k)s(m)1382 4381 y +Fm(\000)p Fr(1)527 4588 y Fl(\001)45 b FA(latitude)30 +b(50)1026 4555 y Fm(\016)527 4762 y Fl(\001)45 b FA(sea)31 +b(lev)m(el)527 4936 y Fl(\001)45 b FA(pressure)29 b(1005)17 +b(mB)527 5110 y Fl(\001)45 b FA(temp)s(erature)30 b(7)1160 +5077 y Fm(\016)1200 5110 y FA(C)527 5284 y Fl(\001)45 +b FA(h)m(umidit)m(y)29 b(80\045)527 5458 y Fl(\001)45 +b FA(w)m(a)m(v)m(elength)32 b(5740)1285 5435 y(_)1264 +5458 y(A)427 5693 y(the)f(results)e(w)m(ere)i(as)f(follo)m(ws:)p +eop +%%Page: 136 138 +136 137 bop 0 52 a FA(136)p 761 263 2106 4 v 759 376 +4 113 v 855 342 a Fi(\020)p 995 376 V 151 w FA(sla)p +Fq(_)p FA(REFR)m(O)p 1572 376 V 100 w(sla)p Fq(_)p FA(REF)m(COQ)p +2219 376 V 98 w(Saastamoinen)p 2864 376 V 761 379 2106 +4 v 759 492 4 113 v 856 459 a(10)p 995 492 V 371 w(10.27)p +1572 492 V 441 w(10.27)p 2219 492 V 441 w(10.27)p 2864 +492 V 759 605 V 856 571 a(20)p 995 605 V 371 w(21.19)p +1572 605 V 441 w(21.20)p 2219 605 V 441 w(21.19)p 2864 +605 V 759 718 V 856 684 a(30)p 995 718 V 371 w(33.61)p +1572 718 V 441 w(33.61)p 2219 718 V 441 w(33.60)p 2864 +718 V 759 831 V 856 797 a(40)p 995 831 V 371 w(48.82)p +1572 831 V 441 w(48.83)p 2219 831 V 441 w(48.81)p 2864 +831 V 759 944 V 856 910 a(45)p 995 944 V 371 w(58.16)p +1572 944 V 441 w(58.18)p 2219 944 V 441 w(58.16)p 2864 +944 V 759 1057 V 856 1023 a(50)p 995 1057 V 371 w(69.28)p +1572 1057 V 441 w(69.30)p 2219 1057 V 441 w(69.27)p 2864 +1057 V 759 1170 V 856 1136 a(55)p 995 1170 V 371 w(82.97)p +1572 1170 V 441 w(82.99)p 2219 1170 V 441 w(82.95)p 2864 +1170 V 759 1283 V 856 1249 a(60)p 995 1283 V 325 w(100.51)p +1572 1283 V 397 w(100.54)p 2219 1283 V 396 w(100.50)p +2864 1283 V 759 1396 V 856 1362 a(65)p 995 1396 V 325 +w(124.23)p 1572 1396 V 397 w(124.26)p 2219 1396 V 396 +w(124.20)p 2864 1396 V 759 1509 V 856 1475 a(70)p 995 +1509 V 325 w(158.63)p 1572 1509 V 397 w(158.68)p 2219 +1509 V 396 w(158.61)p 2864 1509 V 759 1621 V 856 1588 +a(72)p 995 1621 V 325 w(177.32)p 1572 1621 V 397 w(177.37)p +2219 1621 V 396 w(177.31)p 2864 1621 V 759 1734 V 856 +1701 a(74)p 995 1734 V 325 w(200.35)p 1572 1734 V 397 +w(200.38)p 2219 1734 V 396 w(200.32)p 2864 1734 V 759 +1847 V 856 1813 a(76)p 995 1847 V 325 w(229.45)p 1572 +1847 V 397 w(229.43)p 2219 1847 V 396 w(229.42)p 2864 +1847 V 759 1960 V 856 1926 a(78)p 995 1960 V 325 w(267.44)p +1572 1960 V 397 w(267.29)p 2219 1960 V 396 w(267.41)p +2864 1960 V 759 2073 V 856 2039 a(80)p 995 2073 V 325 +w(319.13)p 1572 2073 V 397 w(318.55)p 2219 2073 V 396 +w(319.10)p 2864 2073 V 761 2076 2106 4 v 759 2189 4 113 +v 810 2155 a(deg)p 995 2189 V 340 w(arcsec)p 1572 2189 +V 409 w(arcsec)p 2219 2189 V 409 w(arcsec)p 2864 2189 +V 761 2193 2106 4 v 427 2408 a(The)33 b(v)-5 b(alues)33 +b(for)h(Saastamoinen's)f(form)m(ula)g(\(whic)m(h)g(includes)e(terms)j +(up)e(to)j(tan)3299 2375 y Fr(5)3338 2408 y FA(\))f(are)g(tak)m(en)427 +2521 y(from)c(Hohenk)m(erk)h(and)f(Sinclair)d(\(1985\).)427 +2647 y(The)36 b(results)f(from)h(the)g(m)m(uc)m(h)g(slo)m(w)m(er)h(but) +e(more)h(accurate)i(sla)p Fq(_)p FA(REF)m(CO)e(routine)f(ha)m(v)m(e)i +(not)427 2760 y(b)s(een)k(included)e(in)i(the)h(tabulation)f(as)h(they) +g(are)g(iden)m(tical)f(to)h(those)g(in)f(the)h(sla)p +Fq(_)p FA(REFR)m(O)427 2873 y(column)29 b(to)j(the)e(0)1053 +2836 y Fh(0)l(0)1057 2873 y Fi(:)p FA(01)i(resolution)d(used.)311 +3013 y(6.)46 b(Outlandish)25 b(input)h(parameters)i(are)h(silen)m(tly)d +(limited)g(to)i(mathematically)g(safe)g(v)-5 b(alues.)40 +b(Zero)427 3126 y(pressure)29 b(is)h(p)s(ermissible,)c(and)k(causes)h +(zero)s(es)g(to)g(b)s(e)f(returned.)311 3265 y(7.)46 +b(The)30 b(algorithm)g(dra)m(ws)f(on)i(sev)m(eral)f(sources,)h(as)g +(follo)m(ws:)506 3405 y Fl(\017)46 b FA(The)27 b(form)m(ula)g(for)g +(the)g(saturation)h(v)-5 b(ap)s(our)26 b(pressure)g(of)h(w)m(ater)i(as) +e(a)h(function)e(of)i(temp)s(er-)597 3518 y(ature)j(and)f(temp)s +(erature)g(is)f(tak)m(en)j(from)e(expressions)f(A4.5-A4.7)k(of)d(Gill)f +(\(1982\).)506 3645 y Fl(\017)46 b FA(The)25 b(form)m(ula)g(for)h(the)g +(w)m(ater)g(v)-5 b(ap)s(our)25 b(pressure,)h(giv)m(en)f(the)h +(saturation)g(pressure)e(and)h(the)597 3758 y(relativ)m(e)31 +b(h)m(umidit)m(y)d(is)i(from)f(Crane)h(\(1976\),)j(expression)d(2.5.5.) +506 3884 y Fl(\017)46 b FA(The)30 b(refractivit)m(y)f(of)h(air)f(is)g +(a)h(function)f(of)h(temp)s(erature,)g(total)g(pressure,)f(w)m(ater-v) +-5 b(ap)s(our)597 3997 y(pressure)29 b(and,)i(in)e(the)h(case)i(of)f +(optical/IR)f(but)g(not)g(radio,)g(w)m(a)m(v)m(elength.)43 +b(The)30 b(form)m(ulae)597 4110 y(for)g(the)f(t)m(w)m(o)i(cases)g(are)f +(dev)m(elop)s(ed)f(from)g(the)h(Essen)f(and)g(F)-8 b(ro)s(ome)30 +b(expressions)e(adopted)597 4223 y(in)e(Resolution)g(1)i(of)g(the)f +(12th)h(In)m(ternational)f(Geo)s(desy)g(Asso)s(ciation)g(General)g +(Assem)m(bly)597 4336 y(\(1963\).)427 4475 y(The)j(ab)s(o)m(v)m(e)i +(three)e(items)g(are)h(as)g(used)e(in)g(the)i(sla)p Fq(_)p +FA(REFR)m(O)f(routine.)506 4615 y Fl(\017)46 b FA(The)33 +b(form)m(ula)f(for)h Fi(\014)38 b FA(\(=)30 b Fi(H)1566 +4629 y Fr(0)1605 4615 y Fi(=r)1691 4629 y Fr(0)1731 4615 +y FA(\))j(is)f(an)h(adaption)g(of)g(expression)f(9)h(from)g(Stone)g +(\(1996\).)597 4728 y(The)e(adaptations,)i(arriv)m(ed)d(at)j +(empirically)-8 b(,)29 b(consist)i(of)h(\(i\))g(a)f(small)g(adjustmen)m +(t)g(to)h(the)597 4841 y(co)s(e\016cien)m(t)g(and)d(\(ii\))h(a)h(h)m +(umidit)m(y)d(term)i(for)g(the)h(radio)f(case)h(only)-8 +b(.)506 4968 y Fl(\017)46 b FA(The)32 b(form)m(ulae)f(for)h(the)g +(refraction)f(constan)m(ts)i(as)g(a)f(function)e(of)i +Fi(n)21 b Fl(\000)g FA(1)32 b(and)g Fi(\014)37 b FA(are)32 +b(from)597 5080 y(Green)f(\(1987\),)i(expression)c(4.31.)0 +5399 y Fy(REFERENCES)44 b FA(:)311 5580 y(1.)i(Crane,)h(R.K.,)h(Meeks,) +g(M.L.)c(\(ed\),)k(\\Refraction)d(E\013ects)f(in)f(the)h(Neutral)f(A)m +(tmosphere",)427 5693 y Fn(Metho)-5 b(ds)34 b(of)f(Exp)-5 +b(erimental)34 b(Physics:)43 b(Astr)-5 b(ophysics)34 +b(12B,)d FA(Academic)g(Press,)f(1976.)p eop +%%Page: 137 139 +137 138 bop 0 52 a Ft(SUN/67.45)3206 b FA(137)311 351 +y(2.)46 b(Gill,)29 b(Adrian)g(E.,)h Fn(A)n(tmospher)-5 +b(e-Oc)g(e)g(an)35 b(Dynamics,)c FA(Academic)f(Press,)g(1982.)311 +488 y(3.)46 b(Hohenk)m(erk,)31 b(C.Y.,)g(&)f(Sinclair,)e(A.T.,)j(NA)m +(O)g(T)-8 b(ec)m(hnical)30 b(Note)i(No.)f(63,)g(1985.)311 +626 y(4.)46 b(In)m(ternational)32 b(Geo)s(desy)h(Asso)s(ciation)f +(General)g(Assem)m(bly)-8 b(,)32 b(Bulletin)f(G)m(\023)-43 +b(eo)s(d)m(\023)g(esique)34 b Fy(70)e FA(p390,)427 739 +y(1963.)311 876 y(5.)46 b(Stone,)31 b(Ronald)e(C.,)i(P)-8 +b(.A.S.P)g(.)31 b Fy(108)h FA(1051-1058,)i(1996.)311 +1013 y(6.)46 b(Green,)31 b(R.M.,)g Fn(Spheric)-5 b(al)35 +b(Astr)-5 b(onomy,)32 b FA(Cam)m(bridge)e(Univ)m(ersit)m(y)f(Press,)h +(1987.)p 0 1119 3780 8 v 0 1232 a Fu(SLA)p Fk(_)p Fu(REFR)l(O)834 +b Fj(Refraction)e Fu(SLA)p Fk(_)p Fu(REFR)l(O)0 1582 +y Fy(A)m(CTION)44 b FA(:)c(A)m(tmospheric)31 b(refraction,)f(for)g +(radio)g(or)g(optical/IR)g(w)m(a)m(v)m(elengths.)0 1770 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_REFRO)g(\(ZOBS,)g(HM,)h(TDK,) +f(PMB,)h(RH,)g(WL,)g(PHI,)f(TLR,)h(EPS,)g(REF\))0 2083 +y Fy(GIVEN)e FA(:)277 2230 y Fn(ZOBS)495 b Fy(D)565 b +FA(observ)m(ed)31 b(zenith)e(distance)h(of)h(the)g(source)f +(\(radians\))277 2342 y Fn(HM)586 b Fy(D)565 b FA(heigh)m(t)30 +b(of)h(the)g(observ)m(er)f(ab)s(o)m(v)m(e)i(sea)f(lev)m(el)f(\(metre\)) +277 2455 y Fn(TDK)532 b Fy(D)565 b FA(am)m(bien)m(t)31 +b(temp)s(erature)f(at)h(the)g(observ)m(er)f(\(degrees)h(K\))277 +2568 y Fn(PMB)528 b Fy(D)565 b FA(pressure)29 b(at)i(the)g(observ)m(er) +f(\(mB\))277 2681 y Fn(RH)602 b Fy(D)565 b FA(relativ)m(e)31 +b(h)m(umidit)m(y)d(at)j(the)g(observ)m(er)f(\(range)h(0)16 +b({)g(1\))277 2794 y Fn(WL)588 b Fy(D)565 b FA(e\013ectiv)m(e)32 +b(w)m(a)m(v)m(elength)g(of)e(the)h(source)g(\()p Fi(\026)p +FA(m\))277 2907 y Fn(PHI)571 b Fy(D)565 b FA(latitude)30 +b(of)g(the)h(observ)m(er)f(\(radian,)g(astronomical\))277 +3020 y Fn(TLR)548 b Fy(D)565 b FA(temp)s(erature)27 b(lapse)g(rate)h +(in)e(the)i(trop)s(osphere)e(\(degrees)1658 3133 y(K)k(p)s(er)g +(metre\))277 3246 y Fn(EPS)561 b Fy(D)k FA(precision)27 +b(required)f(to)j(terminate)f(iteration)g(\(radian\))0 +3537 y Fy(RETURNED)46 b FA(:)277 3683 y Fn(REF)549 b +Fy(D)565 b FA(refraction:)42 b Fn(in)34 b(vacuo)j FA(ZD)31 +b(min)m(us)e(observ)m(ed)j(ZD)f(\(radi-)1658 3796 y(ans\))0 +4087 y Fy(NOTES)44 b FA(:)311 4265 y(1.)i(A)30 b(suggested)h(v)-5 +b(alue)30 b(for)g(the)g(TLR)f(argumen)m(t)i(is)e(0.0065D0.)44 +b(The)29 b(refraction)h(is)f(signi\014can)m(tly)427 4378 +y(a\013ected)d(b)m(y)f(TLR,)f(and)h(if)e(studies)h(of)h(the)f(lo)s(cal) +g(atmosphere)h(ha)m(v)m(e)h(b)s(een)e(carried)g(out)h(a)g(b)s(etter)427 +4491 y(TLR)30 b(v)-5 b(alue)30 b(ma)m(y)h(b)s(e)f(a)m(v)-5 +b(ailable.)311 4628 y(2.)46 b(A)31 b(suggested)h(v)-5 +b(alue)30 b(for)g(the)h(EPS)f(argumen)m(t)h(is)f(1D)p +Fl(\000)p FA(8.)43 b(The)30 b(result)f(is)h(usually)f(at)i(least)g(t)m +(w)m(o)427 4741 y(orders)f(of)h(magnitude)e(more)i(computationally)e +(precise)h(than)g(the)g(supplied)d(EPS)j(v)-5 b(alue.)311 +4878 y(3.)46 b(The)36 b(routine)g(computes)g(the)h(refraction)f(for)h +(zenith)e(distances)h(up)g(to)h(and)f(a)h(little)e(b)s(ey)m(ond)427 +4991 y(90)517 4958 y Fm(\016)598 4991 y FA(using)k(the)i(metho)s(d)g +(of)f(Hohenk)m(erk)i(&)e(Sinclair)e(\(NA)m(O)j(T)-8 b(ec)m(hnical)41 +b(Notes)h(59)f(and)f(63,)427 5104 y(subsequen)m(tly)31 +b(adopted)h(in)f(the)h Fn(Explanatory)37 b(Supplement)e(to)g(the)f +(Astr)-5 b(onomic)g(al)37 b(A)n(lmanac,)427 5217 y FA(1992)32 +b({)f(see)g(section)g(3.281\).)311 5354 y(4.)46 b(The)39 +b(co)s(de)h(is)f(based)g(on)h(the)g(AREF)g(optical/IR)f(refraction)h +(subroutine)d(of)j(C.)15 b(Hohenk)m(erk)427 5467 y(\(HMNA)m(O,)37 +b(Septem)m(b)s(er)d(1984\),)k(with)33 b(extensions)h(to)h(supp)s(ort)e +(the)i(radio)f(case.)55 b(The)34 b(mo)s(di-)427 5580 +y(\014cations)f(to)g(the)g(original)e(HMNA)m(O)i(optical/IR)g +(refraction)f(co)s(de)h(whic)m(h)f(a\013ect)i(the)f(results)427 +5693 y(are:)p eop +%%Page: 138 140 +138 139 bop 0 52 a FA(138)506 351 y Fl(\017)46 b FA(Murra)m(y's)f(v)-5 +b(alues)45 b(for)f(the)i(gas)f(constan)m(ts)h(ha)m(v)m(e)h(b)s(een)d +(used)g(\()p Fn(V)-7 b(e)i(ctorial)48 b(Astr)-5 b(ometry,)597 +464 y FA(Adam)30 b(Hilger,)g(1983\).)506 603 y Fl(\017)46 +b FA(A)29 b(b)s(etter)f(mo)s(del)f(for)i Fi(P)1426 617 +y Fc(s)1463 603 y FA(\()p Fi(T)13 b FA(\))29 b(has)f(b)s(een)f(adopted) +i(\(tak)m(en)h(from)e(Gill,)f Fn(A)n(tmospher)-5 b(e-Oc)g(e)g(an)597 +716 y(Dynamics,)31 b FA(Academic)g(Press,)f(1982\).)506 +854 y Fl(\017)46 b FA(More)31 b(accurate)h(expressions)d(for)h +Fi(P)13 b(w)1945 868 y Fc(o)2014 854 y FA(ha)m(v)m(e)32 +b(b)s(een)d(adopted)i(\(again)g(from)e(Gill)g(1982\).)506 +993 y Fl(\017)46 b FA(Pro)m(vision)c(for)i(radio)e(w)m(a)m(v)m +(elengths)j(has)e(b)s(een)g(added)f(using)g(expressions)g(devised)h(b)m +(y)597 1106 y(A.)16 b(T.)f(Sinclair,)23 b(R)m(GO)h(\(priv)-5 +b(ate)24 b(comm)m(unication)g(1989\),)k(based)c(on)g(the)g(Essen)g(&)g +(F)-8 b(ro)s(ome)597 1219 y(refractivit)m(y)35 b(form)m(ula)g(adopted)g +(in)f(Resolution)h(1)g(of)h(the)f(12th)h(In)m(ternational)f(Geo)s(desy) +597 1332 y(Asso)s(ciation)30 b(General)g(Assem)m(bly)g(\(Bulletin)f(G)m +(\023)-43 b(eo)s(d)m(\023)g(esique)31 b Fy(70)g FA(p390,)h(1963\).)427 +1496 y(None)39 b(of)f(the)g(c)m(hanges)h(signi\014can)m(tly)d +(a\013ects)j(the)f(optical/IR)g(results)e(with)h(resp)s(ect)h(to)g(the) +427 1609 y(algorithm)i(giv)m(en)g(in)g(the)g(1992)j Fn(Explanatory)h +(Supplement.)73 b FA(F)-8 b(or)41 b(example,)i(at)e(70)3456 +1576 y Fm(\016)3537 1609 y FA(zenith)427 1722 y(distance)f(the)g +(presen)m(t)g(routine)f(agrees)i(with)e(the)h(ES)f(algorithm)g(to)i(b)s +(etter)f(than)f(0)3510 1685 y Fh(0)m(0)3514 1722 y Fi(:)p +FA(05)j(for)427 1835 y(an)m(y)j(reasonable)e(com)m(bination)h(of)g +(parameters.)82 b(Ho)m(w)m(ev)m(er,)50 b(the)44 b(impro)m(v)m(ed)f(w)m +(ater-v)-5 b(ap)s(our)427 1948 y(expressions)28 b(do)h(mak)m(e)h(a)g +(signi\014can)m(t)e(di\013erence)g(in)g(the)h(radio)g(band,)f(at)i(70) +3115 1915 y Fm(\016)3184 1948 y FA(zenith)f(distance)427 +2061 y(reac)m(hing)e(almost)f(4)1114 2024 y Fh(0)l(0)1181 +2061 y FA(for)g(a)h(hot,)g(h)m(umid,)f(lo)m(w-altitude)f(site)h(during) +e(a)j(p)s(erio)s(d)d(of)i(lo)m(w)h(pressure.)311 2225 +y(5.)46 b(The)34 b(radio)g(refraction)g(is)f(c)m(hosen)i(b)m(y)f(sp)s +(ecifying)e(WL)j Fi(>)c FA(100)36 b Fi(\026)p FA(m.)52 +b(Because)36 b(the)e(algorithm)427 2338 y(tak)m(es)23 +b(no)f(accoun)m(t)h(of)f(the)g(ionosphere,)h(the)e(accuracy)i +(deteriorates)g(at)f(lo)m(w)g(frequencies,)g(b)s(elo)m(w)427 +2451 y(ab)s(out)30 b(30)16 b(MHz.)311 2616 y(6.)46 b(Before)38 +b(use,)g(the)f(v)-5 b(alue)37 b(of)g(ZOBS)e(is)h(expressed)g(in)g(the)h +(range)g Fl(\006)p Fi(\031)s FA(.)60 b(If)36 b(this)g(ranged)g(ZOBS)427 +2729 y(is)f(negativ)m(e,)k(the)d(result)f(REF)h(is)e(computed)i(from)f +(its)h(absolute)f(v)-5 b(alue)36 b(b)s(efore)f(b)s(eing)f(made)427 +2842 y(negativ)m(e)g(to)g(matc)m(h.)50 b(In)32 b(addition,)g(if)g(it)h +(has)f(an)h(absolute)g(v)-5 b(alue)33 b(greater)h(than)f(93)3413 +2809 y Fm(\016)3453 2842 y FA(,)h(a)f(\014xed)427 2955 +y(REF)e(v)-5 b(alue)30 b(equal)f(to)j(the)e(result)f(for)i(ZOBS)e(=)c +(93)2238 2922 y Fm(\016)2309 2955 y FA(is)k(returned,)g(appropriately)g +(signed.)311 3119 y(7.)46 b(As)27 b(in)e(the)i(original)e(Hohenk)m(erk) +i(and)f(Sinclair)e(algorithm,)j(\014xed)f(v)-5 b(alues)26 +b(of)h(the)g(w)m(ater)h(v)-5 b(ap)s(our)427 3232 y(p)s(olytrop)s(e)27 +b(exp)s(onen)m(t,)i(the)g(heigh)m(t)f(of)h(the)f(trop)s(opause,)h(and)f +(the)g(heigh)m(t)g(at)i(whic)m(h)d(refraction)427 3345 +y(is)j(negligible)e(are)i(used.)311 3509 y(8.)46 b(The)27 +b(radio)f(refraction)h(has)g(b)s(een)g(tested)g(against)h(w)m(ork)f +(done)g(b)m(y)g(Iain)f(Coulson,)h(JA)m(CH,)h(\(pri-)427 +3622 y(v)-5 b(ate)32 b(comm)m(unication)e(1995\))j(for)e(the)f(James)h +(Clerk)f(Maxw)m(ell)g(T)-8 b(elescop)s(e,)32 b(Mauna)e(Kea.)43 +b(F)-8 b(or)427 3735 y(t)m(ypical)27 b(conditions,)g(agreemen)m(t)i(at) +g(the)e(0)1916 3698 y Fh(0)l(0)1920 3735 y Fi(:)p FA(1)i(lev)m(el)e(is) +f(ac)m(hiev)m(ed)j(for)e(mo)s(derate)h(ZD,)f(w)m(orsening)427 +3848 y(to)h(p)s(erhaps)d(0)913 3811 y Fh(0)m(0)917 3848 +y Fi(:)p FA(5)17 b({)e(1)1104 3811 y Fh(0)l(0)1108 3848 +y Fi(:)p FA(0)28 b(at)g(ZD)f(80)1556 3815 y Fm(\016)1596 +3848 y FA(.)40 b(A)m(t)28 b(hot)f(and)g(h)m(umid)e(sea-lev)m(el)j +(sites)e(the)i(accuracy)g(will)c(not)427 3961 y(b)s(e)30 +b(as)h(go)s(o)s(d.)311 4126 y(9.)46 b(It)d(should)d(b)s(e)h(noted)h +(that)h(the)f(relativ)m(e)h(h)m(umidit)m(y)d(RH)i(is)f(formally)g +(de\014ned)f(in)h(terms)h(of)427 4238 y(\\mixing)36 b(ratio")h(rather)g +(than)g(pressures)e(or)i(densities)e(as)j(is)e(often)h(stated.)61 +b(It)37 b(is)f(the)i(mass)427 4351 y(of)45 b(w)m(ater)h(p)s(er)d(unit)h +(mass)g(of)h(dry)f(air)g(divided)e(b)m(y)j(that)g(for)g(saturated)g +(air)f(at)h(the)g(same)427 4464 y(temp)s(erature)c(and)e(pressure)h +(\(see)h(Gill)d(1982\).)73 b(The)40 b(familiar)f Fi(\027)47 +b FA(=)42 b Fi(p)2995 4478 y Fc(w)3051 4464 y Fi(=p)3142 +4478 y Fc(s)3220 4464 y FA(or)e Fi(\027)48 b FA(=)42 +b Fi(\032)3594 4478 y Fc(w)3650 4464 y Fi(=\032)3742 +4478 y Fc(s)427 4577 y FA(expressions)27 b(can)i(di\013er)e(from)h(the) +h(formal)e(de\014nition)f(b)m(y)j(sev)m(eral)g(p)s(ercen)m(t,)g +(signi\014can)m(t)e(in)g(the)427 4690 y(radio)j(case.)p +0 4842 3780 8 v 0 4955 a Fu(SLA)p Fk(_)p Fu(REFV)497 +b Fj(Apply)38 b(Refraction)e(to)i(V)-10 b(ector)497 b +Fu(SLA)p Fk(_)p Fu(REFV)0 5305 y Fy(A)m(CTION)44 b FA(:)39 +b(Adjust)26 b(an)h(unrefracted)g(Cartesian)f(v)m(ector)j(to)f(include)d +(the)i(e\013ect)i(of)e(atmospheric)g(refrac-)227 5418 +y(tion,)j(using)f(the)i(simple)d(\001)p Fi(\020)k FA(=)25 +b Fi(a)15 b FA(tan)g Fi(\020)27 b FA(+)20 b Fi(b)15 b +FA(tan)1913 5385 y Fr(3)1968 5418 y Fi(\020)37 b FA(mo)s(del.)0 +5606 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_REFV)g(\(VU,)h(REFA,)f +(REFB,)g(VR\))p eop +%%Page: 139 141 +139 140 bop 0 52 a Ft(SUN/67.45)3206 b FA(139)0 351 y +Fy(GIVEN)45 b FA(:)277 497 y Fn(VU)600 b Fy(D)565 b FA(unrefracted)50 +b(p)s(osition)e(of)i(the)h(source)f(\([)15 b Fi(Az)t(;)g(E)5 +b(l)54 b FA(])c(3-)1658 610 y(v)m(ector\))277 723 y Fn(REF)-9 +b(A)490 b Fy(D)565 b FA(tan)16 b Fi(\020)36 b FA(co)s(e\016cien)m(t)c +(\(radians\))277 836 y Fn(REFB)485 b Fy(D)565 b FA(tan)1789 +803 y Fr(3)1844 836 y Fi(\020)37 b FA(co)s(e\016cien)m(t)31 +b(\(radians\))0 1235 y Fy(RETURNED)46 b FA(:)277 1381 +y Fn(VR)602 b Fy(D)565 b FA(refracted)25 b(p)s(osition)e(of)j(the)f +(source)g(\([)15 b Fi(Az)t(;)g(E)5 b(l)28 b FA(])d(3-v)m(ector\))0 +1893 y Fy(NOTES)44 b FA(:)311 2098 y(1.)i(This)30 b(routine)g(applies)g +(the)h(adjustmen)m(t)g(for)g(refraction)g(in)f(the)i(opp)s(osite)e +(sense)h(to)h(the)g(usual)427 2211 y(one)24 b({)f(it)g(tak)m(es)h(an)f +(unrefracted)f(\()p Fn(in)27 b(vacuo)6 b FA(\))23 b(p)s(osition)e(and)i +(pro)s(duces)e(an)i(observ)m(ed)g(\(refracted\))427 2324 +y(p)s(osition,)28 b(whereas)g(the)h(\001)p Fi(\020)i +FA(=)25 b Fi(a)15 b FA(tan)h Fi(\020)23 b FA(+)16 b Fi(b)f +FA(tan)2083 2291 y Fr(3)2138 2324 y Fi(\020)35 b FA(mo)s(del)27 +b(strictly)h(applies)e(to)k(the)e(case)i(where)427 2437 +y(an)g(observ)m(ed)g(p)s(osition)e(is)h(to)i(ha)m(v)m(e)g(the)f +(refraction)g(remo)m(v)m(ed.)41 b(The)30 b(unrefracted)f(to)i +(refracted)427 2550 y(case)h(is)d(harder,)h(and)f(requires)g(an)i(in)m +(v)m(erted)f(form)g(of)g(the)h(text-b)s(o)s(ok)g(refraction)f(mo)s +(dels;)f(the)427 2663 y(algorithm)38 b(used)g(here)g(is)g(equiv)-5 +b(alen)m(t)38 b(to)i(one)e(iteration)h(of)g(the)f(Newton-Raphson)h +(metho)s(d)427 2776 y(applied)28 b(to)k(the)e(ab)s(o)m(v)m(e)i(form)m +(ula.)311 2931 y(2.)46 b(Though)31 b(optimized)f(for)h(sp)s(eed)f +(rather)h(than)g(precision,)f(the)i(presen)m(t)f(routine)f(ac)m(hiev)m +(es)j(con-)427 3044 y(sistency)41 b(with)e(the)i +(refracted-to-unrefracted)h(\001)p Fi(\020)49 b FA(=)43 +b Fi(a)15 b FA(tan)g Fi(\020)34 b FA(+)27 b Fi(b)15 b +FA(tan)2995 3011 y Fr(3)3050 3044 y Fi(\020)47 b FA(mo)s(del)40 +b(at)h(b)s(etter)427 3157 y(than)32 b(1)g(microarcsecond)f(within)e(30) +1730 3124 y Fm(\016)1802 3157 y FA(of)j(the)g(zenith)f(and)g(remains)f +(within)f(1)j(milliarcsecond)427 3270 y(to)j Fi(\020)j +FA(=)31 b(70)812 3237 y Fm(\016)853 3270 y FA(.)52 b(The)33 +b(inheren)m(t)h(accuracy)h(of)f(the)g(mo)s(del)f(is,)i(of)f(course,)i +(far)e(w)m(orse)g(than)g(this)f({)427 3383 y(see)e(the)g(do)s(cumen)m +(tation)f(for)g(sla)p Fq(_)p FA(REF)m(CO)g(for)g(more)g(information.) +311 3538 y(3.)46 b(A)m(t)34 b(lo)m(w)f(elev)-5 b(ations)33 +b(\(b)s(elo)m(w)g(ab)s(out)g(3)1752 3505 y Fm(\016)1791 +3538 y FA(\))h(the)f(refraction)g(correction)g(is)f(held)g(bac)m(k)i +(to)g(prev)m(en)m(t)427 3651 y(arithmetic)28 b(problems)e(and)i(wildly) +d(wrong)j(results.)39 b(Ov)m(er)28 b(a)h(wide)e(range)i(of)f(observ)m +(er)h(heigh)m(ts)427 3764 y(and)36 b(corresp)s(onding)e(temp)s +(eratures)i(and)f(pressures,)i(the)f(follo)m(wing)f(lev)m(els)g(of)i +(accuracy)g(are)427 3876 y(ac)m(hiev)m(ed,)32 b(relativ)m(e)e(to)h(n)m +(umerical)e(in)m(tegration)i(through)e(a)i(mo)s(del)e(atmosphere:)1519 +4078 y Fi(\020)1559 4093 y Fc(obs)1769 4078 y Fn(err)-5 +b(or)1525 4304 y FA(80)1615 4271 y Fm(\016)1811 4304 +y FA(0)1851 4267 y Fh(0)l(0)1855 4304 y Fi(:)p FA(4)1525 +4417 y(81)1615 4384 y Fm(\016)1811 4417 y FA(0)1851 4380 +y Fh(0)l(0)1855 4417 y Fi(:)p FA(8)1525 4530 y(82)1615 +4497 y Fm(\016)1811 4530 y FA(1)1851 4493 y Fh(0)l(0)1855 +4530 y Fi(:)p FA(6)1525 4643 y(83)1615 4610 y Fm(\016)1828 +4643 y FA(3)1868 4606 y Fh(0)l(0)1525 4756 y FA(84)1615 +4723 y Fm(\016)1828 4756 y FA(7)1868 4719 y Fh(0)l(0)1525 +4869 y FA(85)1615 4836 y Fm(\016)1805 4869 y FA(17)1890 +4832 y Fh(0)m(0)1525 4982 y FA(86)1615 4949 y Fm(\016)1805 +4982 y FA(45)1890 4945 y Fh(0)m(0)1525 5095 y FA(87)1615 +5062 y Fm(\016)1782 5095 y FA(150)1912 5058 y Fh(0)n(0)1525 +5207 y FA(88)1615 5175 y Fm(\016)1782 5207 y FA(340)1912 +5171 y Fh(0)n(0)1525 5320 y FA(89)1615 5287 y Fm(\016)1782 +5320 y FA(620)1912 5284 y Fh(0)n(0)1525 5433 y FA(90)1615 +5400 y Fm(\016)1760 5433 y FA(1100)1935 5396 y Fh(0)m(0)1525 +5546 y FA(91)1615 5513 y Fm(\016)1760 5546 y FA(1900)1935 +5509 y Fh(0)m(0)2076 5546 y Fi(<)30 b FA(high-altitude)1525 +5659 y(92)1615 5626 y Fm(\016)1760 5659 y FA(3200)1935 +5622 y Fh(0)m(0)2076 5659 y Fi(<)g FA(sites)g(only)p +eop +%%Page: 140 142 +140 141 bop 0 52 a FA(140)311 351 y(4.)46 b(See)27 b(also)f(the)g +(routine)f(sla)p Fq(_)p FA(REFZ,)g(whic)m(h)g(p)s(erforms)g(the)h +(adjustmen)m(t)g(to)h(the)f(zenith)g(distance)427 464 +y(rather)40 b(than)f(in)f([)15 b Fi(x;)g(y)s(;)g(z)21 +b FA(].)68 b(The)39 b(presen)m(t)h(routine)f(is)f(faster)i(than)f(sla)p +Fq(_)p FA(REFZ)g(and,)i(except)427 577 y(v)m(ery)28 b(lo)m(w)f(do)m +(wn,)g(is)g(equally)f(accurate)i(for)f(all)f(practical)h(purp)s(oses.) +38 b(Ho)m(w)m(ev)m(er,)30 b(b)s(ey)m(ond)d(ab)s(out)427 +690 y Fi(\020)54 b FA(=)47 b(84)729 657 y Fm(\016)812 +690 y FA(sla)p Fq(_)p FA(REFZ)c(should)e(b)s(e)i(used,)j(and)d(for)g +(the)h(utmost)g(accuracy)g(iterativ)m(e)g(use)f(of)427 +803 y(sla)p Fq(_)p FA(REFR)m(O)30 b(should)e(b)s(e)i(considered.)p +0 919 3780 8 v 0 1031 a Fu(SLA)p Fk(_)p Fu(REFZ)602 b +Fj(Apply)38 b(Refraction)f(to)h(ZD)603 b Fu(SLA)p Fk(_)p +Fu(REFZ)0 1382 y Fy(A)m(CTION)44 b FA(:)f(Adjust)31 b(an)h(unrefracted) +f(zenith)h(distance)f(to)i(include)c(the)j(e\013ect)i(of)e(atmospheric) +f(refrac-)227 1495 y(tion,)f(using)f(the)i(simple)d(\001)p +Fi(\020)k FA(=)25 b Fi(a)15 b FA(tan)g Fi(\020)27 b FA(+)20 +b Fi(b)15 b FA(tan)1913 1462 y Fr(3)1968 1495 y Fi(\020)37 +b FA(mo)s(del.)0 1682 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_REFZ)g(\(ZU,)h(REFA,)f(REFB,)g(ZR\))0 2021 y Fy(GIVEN)f +FA(:)277 2167 y Fn(ZU)612 b Fy(D)565 b FA(unrefracted)29 +b(zenith)f(distance)h(of)g(the)h(source)f(\(radians\))277 +2393 y Fn(REF)-9 b(A)490 b Fy(D)565 b FA(tan)16 b Fi(\020)36 +b FA(co)s(e\016cien)m(t)c(\(radians\))277 2506 y Fn(REFB)485 +b Fy(D)565 b FA(tan)1789 2473 y Fr(3)1844 2506 y Fi(\020)37 +b FA(co)s(e\016cien)m(t)31 b(\(radians\))0 2841 y Fy(RETURNED)46 +b FA(:)277 3013 y Fn(ZR)614 b Fy(D)565 b FA(refracted)31 +b(zenith)f(distance)g(\(radians\))0 3356 y Fy(NOTES)44 +b FA(:)311 3541 y(1.)i(This)30 b(routine)g(applies)g(the)h(adjustmen)m +(t)g(for)g(refraction)g(in)f(the)i(opp)s(osite)e(sense)h(to)h(the)g +(usual)427 3654 y(one)24 b({)f(it)g(tak)m(es)h(an)f(unrefracted)f(\()p +Fn(in)27 b(vacuo)6 b FA(\))23 b(p)s(osition)e(and)i(pro)s(duces)e(an)i +(observ)m(ed)g(\(refracted\))427 3767 y(p)s(osition,)28 +b(whereas)g(the)h(\001)p Fi(\020)i FA(=)25 b Fi(a)15 +b FA(tan)h Fi(\020)23 b FA(+)16 b Fi(b)f FA(tan)2083 +3734 y Fr(3)2138 3767 y Fi(\020)35 b FA(mo)s(del)27 b(strictly)h +(applies)e(to)k(the)e(case)i(where)427 3879 y(an)g(observ)m(ed)g(p)s +(osition)e(is)h(to)i(ha)m(v)m(e)g(the)f(refraction)g(remo)m(v)m(ed.)41 +b(The)30 b(unrefracted)f(to)i(refracted)427 3992 y(case)h(is)d(harder,) +h(and)f(requires)g(an)i(in)m(v)m(erted)f(form)g(of)g(the)h(text-b)s(o)s +(ok)g(refraction)f(mo)s(dels;)f(the)427 4105 y(form)m(ula)21 +b(used)f(here)h(is)f(based)g(on)h(the)h(Newton-Raphson)f(metho)s(d.)37 +b(F)-8 b(or)21 b(the)h(utmost)f(n)m(umerical)427 4218 +y(consistency)35 b(with)f(the)h(refracted)g(to)h(unrefracted)e(mo)s +(del,)h(t)m(w)m(o)h(iterations)f(are)g(carried)f(out,)427 +4331 y(ac)m(hieving)29 b(agreemen)m(t)h(at)g(the)f(10)1615 +4298 y Fm(\000)p Fr(11)1774 4331 y FA(arcsecond)g(lev)m(el)g(for)f +Fi(\020)k FA(=)25 b(80)2788 4298 y Fm(\016)2828 4331 +y FA(.)40 b(The)29 b(inheren)m(t)e(accuracy)427 4444 +y(of)d(the)g(mo)s(del)f(is,)h(of)g(course,)h(far)f(w)m(orse)g(than)f +(this)g({)h(see)g(the)g(do)s(cumen)m(tation)g(for)f(sla)p +Fq(_)p FA(REF)m(CO)427 4557 y(for)30 b(more)h(information.)311 +4700 y(2.)46 b(A)m(t)28 b Fi(\020)k FA(=)25 b(83)813 +4667 y Fm(\016)853 4700 y FA(,)j(the)f(rapidly-w)m(orsening)d(\001)p +Fi(\020)31 b FA(=)25 b Fi(a)15 b FA(tan)h Fi(\020)k FA(+)13 +b Fi(b)i FA(tan)2571 4667 y Fr(3)2626 4700 y Fi(\020)33 +b FA(mo)s(del)26 b(is)g(abandoned)g(and)h(an)427 4813 +y(empirical)h(form)m(ula)i(tak)m(es)i(o)m(v)m(er:)1201 +5085 y(\001)p Fi(\020)g FA(=)25 b Fi(F)1531 4941 y Ff( )1607 +5024 y FA(0)1652 4991 y Fm(\016)1658 5024 y Fi(:)r FA(55445)d +Fl(\000)e FA(0)2068 4991 y Fm(\016)2074 5024 y Fi(:)r +FA(01133)p Fi(E)29 b FA(+)19 b(0)2557 4991 y Fm(\016)2563 +5024 y Fi(:)r FA(00202)p Fi(E)2887 4991 y Fr(2)p 1607 +5064 1324 4 v 1744 5147 a FA(1)i(+)f(0)p Fi(:)p FA(28385)p +Fi(E)28 b FA(+)20 b(0)p Fi(:)p FA(02390)p Fi(E)2749 5121 +y Fr(2)2940 4941 y Ff(!)427 5354 y FA(where)33 b Fi(E)j +FA(=)30 b(90)987 5321 y Fm(\016)1050 5354 y Fl(\000)22 +b Fi(\020)1183 5368 y Fc(tr)r(ue)1353 5354 y FA(and)33 +b Fi(F)47 b FA(is)32 b(a)i(factor)g(c)m(hosen)g(to)h(meet)f(the)g(\001) +p Fi(\020)i FA(=)31 b Fi(a)15 b FA(tan)g Fi(\020)29 b +FA(+)22 b Fi(b)15 b FA(tan)3678 5321 y Fr(3)3733 5354 +y Fi(\020)427 5467 y FA(form)m(ula)34 b(at)h Fi(\020)j +FA(=)32 b(83)1151 5434 y Fm(\016)1191 5467 y FA(.)53 +b(Ov)m(er)34 b(a)h(wide)e(range)i(of)f(observ)m(er)h(heigh)m(ts)f(and)f +(corresp)s(onding)g(tem-)427 5580 y(p)s(eratures)42 b(and)h(pressures,) +i(the)e(follo)m(wing)f(lev)m(els)g(of)i(accuracy)g(are)f(ac)m(hiev)m +(ed,)48 b(relativ)m(e)43 b(to)427 5693 y(n)m(umerical)29 +b(in)m(tegration)i(through)e(a)i(mo)s(del)e(atmosphere:)p +eop +%%Page: 141 143 +141 142 bop 0 52 a Ft(SUN/67.45)3206 b FA(141)1528 339 +y Fi(\020)1568 354 y Fc(obs)1769 339 y Fn(err)-5 b(or)1534 +565 y FA(80)1624 532 y Fm(\016)1811 565 y FA(0)1851 528 +y Fh(0)l(0)1855 565 y Fi(:)p FA(4)1534 678 y(81)1624 +645 y Fm(\016)1811 678 y FA(0)1851 641 y Fh(0)l(0)1855 +678 y Fi(:)p FA(8)1534 791 y(82)1624 758 y Fm(\016)1811 +791 y FA(1)1851 754 y Fh(0)l(0)1855 791 y Fi(:)p FA(5)1534 +904 y(83)1624 871 y Fm(\016)1811 904 y FA(3)1851 867 +y Fh(0)l(0)1855 904 y Fi(:)p FA(2)1534 1016 y(84)1624 +983 y Fm(\016)1811 1016 y FA(4)1851 980 y Fh(0)l(0)1855 +1016 y Fi(:)p FA(9)1534 1129 y(85)1624 1096 y Fm(\016)1811 +1129 y FA(5)1851 1092 y Fh(0)l(0)1855 1129 y Fi(:)p FA(8)1534 +1242 y(86)1624 1209 y Fm(\016)1811 1242 y FA(6)1851 1205 +y Fh(0)l(0)1855 1242 y Fi(:)p FA(1)1534 1355 y(87)1624 +1322 y Fm(\016)1811 1355 y FA(7)1851 1318 y Fh(0)l(0)1855 +1355 y Fi(:)p FA(1)1534 1468 y(88)1624 1435 y Fm(\016)1805 +1468 y FA(11)1890 1431 y Fh(0)m(0)1534 1581 y FA(89)1624 +1548 y Fm(\016)1805 1581 y FA(21)1890 1544 y Fh(0)m(0)1534 +1694 y FA(90)1624 1661 y Fm(\016)1805 1694 y FA(43)1890 +1657 y Fh(0)m(0)1534 1807 y FA(91)1624 1774 y Fm(\016)1805 +1807 y FA(92)1890 1770 y Fh(0)m(0)2067 1807 y Fi(<)30 +b FA(high-altitude)1534 1920 y(92)1624 1887 y Fm(\016)1782 +1920 y FA(220)1912 1883 y Fh(0)n(0)2067 1920 y Fi(<)g +FA(sites)g(only)311 2130 y(3.)46 b(See)29 b(also)f(the)h(routine)f(sla) +p Fq(_)p FA(REFV,)g(whic)m(h)f(p)s(erforms)g(the)i(adjustmen)m(t)f(in)f +([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(],)29 b(and)f(with)427 +2242 y(the)j(emphasis)e(on)h(sp)s(eed)g(rather)g(than)g(n)m(umerical)f +(accuracy)-8 b(.)p 0 2396 3780 8 v 0 2509 a Fu(SLA)p +Fk(_)p Fu(R)-15 b(VER)l(OT)326 b Fj(R)-13 b(V)39 b(Corrn)e(to)h(Earth)f +(Cen)m(tre)326 b Fu(SLA)p Fk(_)p Fu(R)-15 b(VER)l(OT)0 +2859 y Fy(A)m(CTION)44 b FA(:)c(V)-8 b(elo)s(cit)m(y)31 +b(comp)s(onen)m(t)g(in)e(a)i(giv)m(en)f(direction)f(due)h(to)h(Earth)f +(rotation.)0 3047 y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_RVEROT)d +(\(PHI,)h(RA,)h(DA,)g(ST\))0 3427 y Fy(GIVEN)e FA(:)277 +3573 y Fn(PHI)571 b Fy(R)c FA(geo)s(detic)31 b(latitude)f(of)g +(observing)f(station)i(\(radians\))277 3686 y Fn(RA,D)n(A)439 +b Fy(R)567 b FA(apparen)m(t)31 b([)15 b Fi(\013;)g(\016)20 +b FA(])31 b(\(radians\))277 3799 y Fn(ST)620 b Fy(R)567 +b FA(lo)s(cal)30 b(apparen)m(t)g(sidereal)f(time)h(\(radians\))0 +4204 y Fy(RETURNED)46 b FA(:)277 4350 y Fn(sla)p Fq(_)p +Fn(R)-9 b(VER)n(OT)196 b Fy(R)567 b FA(Comp)s(onen)m(t)33 +b(of)h(Earth)f(rotation)h(in)e(direction)g(RA,D)m(A)1658 +4463 y(\(km)f(s)1884 4430 y Fm(\000)p Fr(1)1978 4463 +y FA(\))0 4868 y Fy(NOTES)44 b FA(:)311 5076 y(1.)i(Sign)22 +b(con)m(v)m(en)m(tion:)38 b(the)24 b(result)e(is)g(p)s(ositiv)m(e)g +(when)g(the)h(observ)-5 b(atory)24 b(is)e(receding)h(from)f(the)h(giv)m +(en)427 5189 y(p)s(oin)m(t)30 b(on)g(the)g(sky)-8 b(.)311 +5346 y(2.)46 b(Accuracy:)60 b(the)40 b(simple)e(algorithm)h(used)f +(assumes)i(a)g(spherical)e(Earth)h(and)g(an)h(observing)427 +5459 y(station)j(at)g(sea)h(lev)m(el;)k(for)43 b(actual)g(observing)e +(sites,)46 b(the)d(error)f(is)g(unlik)m(ely)e(to)j(b)s(e)f(greater)427 +5571 y(than)f(0.0005)j(km)c(s)1144 5538 y Fm(\000)p Fr(1)1239 +5571 y FA(.)72 b(F)-8 b(or)42 b(applications)d(requiring)g(greater)j +(precision,)g(use)f(the)g(routine)427 5684 y(sla)p Fq(_)p +FA(PV)m(OBS.)p eop +%%Page: 142 144 +142 143 bop 0 52 a FA(142)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(R)-15 b(V)l(GALC)258 b Fj(R)-13 b(V)39 b(Corrn)e(to)h +(Galactic)f(Cen)m(tre)258 b Fu(SLA)p Fk(_)p Fu(R)-15 +b(V)l(GALC)0 730 y Fy(A)m(CTION)44 b FA(:)c(V)-8 b(elo)s(cit)m(y)31 +b(comp)s(onen)m(t)g(in)e(a)i(giv)m(en)f(direction)f(due)h(to)h(the)g +(rotation)f(of)h(the)g(Galaxy)-8 b(.)0 918 y Fy(CALL)45 +b FA(:)77 b Fq(R)47 b(=)h(sla_RVGALC)d(\(R2000,)g(D2000\))0 +1241 y Fy(GIVEN)g FA(:)277 1412 y Fn(R2000,D2000)205 +b Fy(R)567 b FA(J2000.0)33 b(mean)d([)15 b Fi(\013;)g(\016)20 +b FA(])31 b(\(radians\))0 1727 y Fy(RETURNED)46 b FA(:)277 +1873 y Fn(sla)p Fq(_)p Fn(R)-9 b(V)n(GALC)199 b Fy(R)567 +b FA(Comp)s(onen)m(t)30 b(of)h(dynamical)f(LSR)g(motion)g(in)f +(direction)1658 1986 y(R2000,D2000)35 b(\(km)30 b(s)2439 +1953 y Fm(\000)p Fr(1)2533 1986 y FA(\))0 2292 y Fy(NOTES)44 +b FA(:)311 2473 y(1.)i(Sign)26 b(con)m(v)m(en)m(tion:)41 +b(the)27 b(result)f(is)g(p)s(ositiv)m(e)h(when)f(the)h(LSR)g(is)f +(receding)h(from)g(the)g(giv)m(en)g(p)s(oin)m(t)427 2586 +y(on)k(the)f(sky)-8 b(.)311 2725 y(2.)46 b(The)33 b(Lo)s(cal)g +(Standard)g(of)g(Rest)h(used)f(here)g(is)f(a)i(p)s(oin)m(t)f(in)f(the)h +(vicinit)m(y)f(of)i(the)f(Sun)f(whic)m(h)g(is)427 2838 +y(in)c(a)h(circular)f(orbit)g(around)f(the)j(Galactic)f(cen)m(tre.)42 +b(Sometimes)28 b(called)g(the)i Fn(dynamic)-5 b(al)40 +b FA(LSR,)427 2951 y(it)31 b(is)g(not)h(to)g(b)s(e)f(confused)g(with)g +(a)h Fn(kinematic)-5 b(al)42 b FA(LSR,)31 b(whic)m(h)f(is)h(the)h(mean) +g(standard)f(of)g(rest)427 3064 y(of)g(star)f(catalogues)i(or)f +(stellar)e(p)s(opulations.)311 3203 y(3.)46 b(The)34 +b(dynamical)f(LSR)g(v)m(elo)s(cit)m(y)i(due)f(to)h(Galactic)g(rotation) +g(is)e(assumed)h(to)h(b)s(e)f(220)h(km)f(s)3685 3170 +y Fm(\000)p Fr(1)427 3316 y FA(to)m(w)m(ards)d Fi(l)795 +3283 y Fc(I)-7 b(I)885 3316 y FA(=)24 b(90)1070 3283 +y Fm(\016)1111 3316 y FA(,)30 b Fi(b)1205 3283 y Fc(I)-7 +b(I)1295 3316 y FA(=)25 b(0.)0 3631 y Fy(REFERENCE)44 +b FA(:)d(Kerr)29 b(&)h(Lynden-Bell)f(\(1986\),)k(MNRAS,)e(221,)h +(p1023.)p 0 3748 V 0 3861 a Fu(SLA)p Fk(_)p Fu(R)-15 +b(VLG)534 b Fj(R)-13 b(V)39 b(Corrn)e(to)h(Lo)s(cal)g(Group)534 +b Fu(SLA)p Fk(_)p Fu(R)-15 b(VLG)0 4211 y Fy(A)m(CTION)44 +b FA(:)c(V)-8 b(elo)s(cit)m(y)30 b(comp)s(onen)m(t)g(in)f(a)h(giv)m(en) +g(direction)e(due)h(to)i(the)e(com)m(bination)g(of)h(the)g(rotation)g +(of)227 4324 y(the)h(Galaxy)f(and)g(the)g(motion)g(of)h(the)f(Galaxy)h +(relativ)m(e)f(to)h(the)f(mean)h(motion)e(of)i(the)f(lo)s(cal)g(group.) +0 4512 y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_RVLG)d(\(R2000,)h +(D2000\))0 4835 y Fy(GIVEN)f FA(:)277 5006 y Fn(R2000,D2000)205 +b Fy(R)567 b FA(J2000.0)33 b(mean)d([)15 b Fi(\013;)g(\016)20 +b FA(])31 b(\(radians\))0 5321 y Fy(RETURNED)46 b FA(:)277 +5467 y Fn(sla)p Fq(_)p Fn(R)-9 b(VLG)330 b Fy(R)567 b +FA(Comp)s(onen)m(t)47 b(of)h Fy(solar)g FA(\()p Fn(n.b.)p +FA(\))92 b(motion)47 b(in)f(direction)1658 5580 y(R2000,D2000)35 +b(\(km)30 b(s)2439 5547 y Fm(\000)p Fr(1)2533 5580 y +FA(\))p eop +%%Page: 143 145 +143 144 bop 0 52 a Ft(SUN/67.45)3206 b FA(143)0 351 y +Fy(NOTE)44 b FA(:)d(Sign)28 b(con)m(v)m(en)m(tion:)42 +b(the)30 b(result)f(is)g(p)s(ositiv)m(e)g(when)g(the)i(Sun)d(is)h +(receding)h(from)f(the)h(giv)m(en)g(p)s(oin)m(t)227 464 +y(on)h(the)f(sky)-8 b(.)0 773 y Fy(REFERENCE)44 b FA(:)d +Fn(IA)n(U)31 b(T)-7 b(r)i(ans.)32 b FA(1976.)g Fy(16B)p +FA(,)g(p201.)p 0 883 3780 8 v 0 996 a Fu(SLA)p Fk(_)p +Fu(R)-15 b(VLSRD)278 b Fj(R)-13 b(V)38 b(Corrn)g(to)g(Dynamical)e(LSR) +279 b Fu(SLA)p Fk(_)p Fu(R)-15 b(VLSRD)0 1347 y Fy(A)m(CTION)44 +b FA(:)i(V)-8 b(elo)s(cit)m(y)34 b(comp)s(onen)m(t)f(in)f(a)h(giv)m(en) +g(direction)f(due)g(to)i(the)f(Sun's)f(motion)h(with)f(resp)s(ect)h(to) +227 1459 y(the)e(\\dynamical")f(Lo)s(cal)g(Standard)f(of)i(Rest.)0 +1647 y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_RVLSRD)d(\(R2000,)g +(D2000\))0 1967 y Fy(GIVEN)g FA(:)277 2138 y Fn(R2000,D2000)205 +b Fy(R)567 b FA(J2000.0)33 b(mean)d([)15 b Fi(\013;)g(\016)20 +b FA(])31 b(\(radians\))0 2447 y Fy(RETURNED)46 b FA(:)277 +2593 y Fn(sla)p Fq(_)p Fn(R)-9 b(VLSRD)214 b Fy(R)567 +b FA(Comp)s(onen)m(t)43 b(of)h Fn(p)-5 b(e)g(culiar)55 +b FA(solar)44 b(motion)f(in)f(direction)1658 2706 y(R2000,D2000)35 +b(\(km)30 b(s)2439 2673 y Fm(\000)p Fr(1)2533 2706 y +FA(\))0 3007 y Fy(NOTES)44 b FA(:)311 3187 y(1.)i(Sign)28 +b(con)m(v)m(en)m(tion:)41 b(the)29 b(result)f(is)g(p)s(ositiv)m(e)g +(when)g(the)h(Sun)e(is)h(receding)h(from)f(the)i(giv)m(en)e(p)s(oin)m +(t)427 3300 y(on)j(the)f(sky)-8 b(.)311 3439 y(2.)46 +b(The)32 b(Lo)s(cal)f(Standard)g(of)h(Rest)g(used)f(here)h(is)f(the)h +Fn(dynamic)-5 b(al)43 b FA(LSR,)31 b(a)i(p)s(oin)m(t)e(in)f(the)i +(vicinit)m(y)427 3551 y(of)e(the)g(Sun)e(whic)m(h)g(is)h(in)f(a)i +(circular)e(orbit)g(around)h(the)h(Galactic)g(cen)m(tre.)42 +b(The)29 b(Sun's)f(motion)427 3664 y(with)h(resp)s(ect)i(to)g(the)f +(dynamical)f(LSR)h(is)f(called)h(the)g Fn(p)-5 b(e)g(culiar)42 +b FA(solar)30 b(motion.)311 3803 y(3.)46 b(There)35 b(is)f(another)i(t) +m(yp)s(e)f(of)g(LSR,)g(called)f(a)i Fn(kinematic)-5 b(al)46 +b FA(LSR.)34 b(A)i(kinematical)e(LSR)g(is)g(the)427 3916 +y(mean)d(standard)g(of)g(rest)g(of)g(sp)s(eci\014ed)f(star)h +(catalogues)h(or)f(stellar)g(p)s(opulations,)e(and)h(sev)m(eral)427 +4029 y(sligh)m(tly)h(di\013eren)m(t)h(kinematical)g(LSRs)f(are)i(in)f +(use.)47 b(The)32 b(Sun's)f(motion)h(with)g(resp)s(ect)g(to)i(an)427 +4142 y(agreed)c(kinematical)f(LSR)f(is)g(kno)m(wn)h(as)h(the)f +Fn(standar)-5 b(d)42 b FA(solar)29 b(motion.)40 b(The)29 +b(dynamical)e(LSR)427 4255 y(is)35 b(seldom)f(used)h(b)m(y)h(observ)-5 +b(ational)34 b(astronomers,)k(who)d(con)m(v)m(en)m(tionally)g(use)h(a)f +(kinematical)427 4367 y(LSR)30 b(suc)m(h)g(as)g(the)h(one)g(implemen)m +(ted)e(in)g(the)h(routine)g(sla)p Fq(_)p FA(R)-10 b(VLSRK.)311 +4506 y(4.)46 b(The)25 b(p)s(eculiar)f(solar)h(motion)g(is)g(from)g +(Delha)m(y)m(e)i(\(1965\),)i(in)24 b Fn(Stars)29 b(and)g(Stel)5 +b(lar)30 b(Systems)p FA(,)d(v)m(ol)f(5,)427 4619 y(p73:)57 +b(in)37 b(Galactic)j(Cartesian)e(co)s(ordinates)g(\(+9,+12,+7\))i(km)e +(s)2792 4586 y Fm(\000)p Fr(1)2886 4619 y FA(.)65 b(This)37 +b(corresp)s(onds)g(to)427 4732 y(ab)s(out)30 b(16.6)i(km)e(s)1069 +4699 y Fm(\000)p Fr(1)1194 4732 y FA(to)m(w)m(ards)h(Galactic)g(co)s +(ordinates)f Fi(l)2404 4699 y Fc(I)-7 b(I)2493 4732 y +FA(=)25 b(53)2679 4699 y Fm(\016)2720 4732 y Fi(;)15 +b(b)2799 4699 y Fc(I)-7 b(I)2888 4732 y FA(=)25 b(+25)3145 +4699 y Fm(\016)3185 4732 y FA(.)p 0 4842 V 0 4955 a Fu(SLA)p +Fk(_)p Fu(R)-15 b(VLSRK)241 b Fj(R)-13 b(V)39 b(Corrn)e(to)h +(Kinematical)d(LSR)242 b Fu(SLA)p Fk(_)p Fu(R)-15 b(VLSRK)0 +5305 y Fy(A)m(CTION)44 b FA(:)39 b(V)-8 b(elo)s(cit)m(y)29 +b(comp)s(onen)m(t)f(in)f(a)h(giv)m(en)g(direction)f(due)g(to)i(the)f +(Sun's)e(motion)i(with)e(resp)s(ect)i(to)h(a)227 5418 +y(kinematical)h(Lo)s(cal)g(Standard)f(of)i(Rest.)0 5606 +y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_RVLSRK)d(\(R2000,)g(D2000\)) +p eop +%%Page: 144 146 +144 145 bop 0 52 a FA(144)0 351 y Fy(GIVEN)45 b FA(:)277 +523 y Fn(R2000,D2000)205 b Fy(R)567 b FA(J2000.0)33 b(mean)d([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(\(radians\))0 786 y +Fy(RETURNED)46 b FA(:)277 932 y Fn(sla)p Fq(_)p Fn(R)-9 +b(VLSRK)213 b Fy(R)567 b FA(Comp)s(onen)m(t)38 b(of)h +Fn(standar)-5 b(d)50 b FA(solar)38 b(motion)g(in)f(direction)1658 +1044 y(R2000,D2000)e(\(km)30 b(s)2439 1011 y Fm(\000)p +Fr(1)2533 1044 y FA(\))0 1299 y Fy(NOTES)44 b FA(:)311 +1472 y(1.)i(Sign)28 b(con)m(v)m(en)m(tion:)41 b(the)29 +b(result)f(is)g(p)s(ositiv)m(e)g(when)g(the)h(Sun)e(is)h(receding)h +(from)f(the)i(giv)m(en)e(p)s(oin)m(t)427 1585 y(on)j(the)f(sky)-8 +b(.)311 1717 y(2.)46 b(The)29 b(Lo)s(cal)f(Standard)g(of)h(Rest)h(used) +e(here)h(is)e(one)j(of)f(sev)m(eral)g Fn(kinematic)-5 +b(al)40 b FA(LSRs)28 b(in)f(common)427 1830 y(use.)49 +b(A)33 b(kinematical)g(LSR)f(is)g(the)h(mean)h(standard)e(of)h(rest)h +(of)f(sp)s(eci\014ed)e(star)j(catalogues)g(or)427 1943 +y(stellar)h(p)s(opulations.)52 b(The)35 b(Sun's)e(motion)i(with)f(resp) +s(ect)h(to)h(a)f(kinematical)g(LSR)f(is)g(kno)m(wn)427 +2056 y(as)d(the)f Fn(standar)-5 b(d)43 b FA(solar)30 +b(motion.)311 2188 y(3.)46 b(There)33 b(is)g(another)g(sort)h(of)f +(LSR,)g(seldom)g(used)f(b)m(y)h(observ)-5 b(ational)33 +b(astronomers,)i(called)d(the)427 2301 y Fn(dynamic)-5 +b(al)42 b FA(LSR.)29 b(This)f(is)g(a)i(p)s(oin)m(t)f(in)g(the)h +(vicinit)m(y)e(of)h(the)h(Sun)f(whic)m(h)f(is)h(in)f(a)i(circular)e +(orbit)427 2414 y(around)h(the)h(Galactic)h(cen)m(tre.)42 +b(The)30 b(Sun's)e(motion)i(with)f(resp)s(ect)h(to)g(the)h(dynamical)d +(LSR)h(is)427 2526 y(called)j(the)h Fn(p)-5 b(e)g(culiar)44 +b FA(solar)32 b(motion.)47 b(T)-8 b(o)34 b(obtain)e(a)h(radial)e(v)m +(elo)s(cit)m(y)i(correction)g(with)e(resp)s(ect)427 2639 +y(to)g(the)g(dynamical)e(LSR)g(use)h(the)h(routine)e(sla)p +Fq(_)p FA(R)-10 b(VLSRD.)311 2771 y(4.)46 b(The)30 b(adopted)h +(standard)e(solar)h(motion)g(is)g(20)h(km)f(s)2271 2738 +y Fm(\000)p Fr(1)2395 2771 y FA(to)m(w)m(ards)h Fi(\013)26 +b FA(=)f(18)3004 2738 y Fr(h)3048 2771 y Fi(;)15 b(\016)30 +b FA(=)25 b(+30)3415 2738 y Fm(\016)3485 2771 y FA(\(1900\).)0 +3034 y Fy(REFERENCES)44 b FA(:)311 3207 y(1.)i(Delha)m(y)m(e)32 +b(\(1965\),)h(in)c Fn(Stars)34 b(and)f(Stel)5 b(lar)34 +b(Systems)p FA(,)e(v)m(ol)e(5,)h(p73.)311 3339 y(2.)46 +b Fn(Metho)-5 b(ds)34 b(of)f(Exp)-5 b(erimental)34 b(Physics)39 +b FA(\(ed)30 b(Meeks\),)i(v)m(ol)e(12,)i(part)e(C,)g(sec)h(6.1.5.2,)i +(p281.)p 0 3434 3780 8 v 0 3547 a Fu(SLA)p Fk(_)p Fu(S2TP)545 +b Fj(Spherical)37 b(to)h(T)-10 b(angen)m(t)38 b(Plane)546 +b Fu(SLA)p Fk(_)p Fu(S2TP)0 3898 y Fy(A)m(CTION)44 b +FA(:)c(Pro)5 b(jection)31 b(of)f(spherical)f(co)s(ordinates)h(on)m(to)i +(the)e(tangen)m(t)i(plane)d(\(single)h(precision\).)0 +4085 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_S2TP)g(\(RA,)h(DEC,)f +(RAZ,)h(DECZ,)f(XI,)h(ETA,)g(J\))0 4378 y Fy(GIVEN)e +FA(:)277 4524 y Fn(RA,DEC)378 b Fy(R)567 b FA(spherical)29 +b(co)s(ordinates)h(of)g(star)h(\(radians\))277 4637 y +Fn(RAZ,DECZ)266 b Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h(of)g +(tangen)m(t)i(p)s(oin)m(t)e(\(radians\))0 4891 y Fy(RETURNED)46 +b FA(:)277 5038 y Fn(XI,ET)-7 b(A)417 b Fy(R)567 b FA(tangen)m(t)32 +b(plane)d(co)s(ordinates)h(\(radians\))277 5150 y Fn(J)688 +b Fy(I)605 b FA(status:)1825 5263 y(0)31 b(=)f(OK,)g(star)g(on)g +(tangen)m(t)i(plane)1825 5376 y(1)f(=)f(error,)g(star)g(to)s(o)h(far)g +(from)f(axis)1825 5489 y(2)h(=)f(error,)g(an)m(tistar)g(on)h(tangen)m +(t)h(plane)1825 5602 y(3)f(=)f(error,)g(an)m(tistar)g(to)s(o)i(far)e +(from)g(axis)p eop +%%Page: 145 147 +145 146 bop 0 52 a Ft(SUN/67.45)3206 b FA(145)0 351 y +Fy(NOTES)44 b FA(:)311 561 y(1.)i(The)24 b(pro)5 b(jection)25 +b(is)f(called)f(the)i Fn(gnomonic)31 b FA(pro)5 b(jection;)27 +b(the)d(Cartesian)h(co)s(ordinates)f([)15 b Fi(\030)t(;)g(\021)k +FA(])25 b(are)427 674 y(called)30 b Fn(standar)-5 b(d)37 +b(c)-5 b(o)g(or)g(dinates.)45 b FA(The)30 b(latter)i(are)f(in)f(units)f +(of)i(the)h(distance)e(from)h(the)g(tangen)m(t)427 787 +y(plane)f(to)h(the)f(pro)5 b(jection)30 b(p)s(oin)m(t,)g +Fn(i.e.)g FA(radians)f(near)h(the)h(origin.)311 944 y(2.)46 +b(When)26 b(w)m(orking)g(in)e([)15 b Fi(x;)g(y)s(;)g(z)21 +b FA(])26 b(rather)g(than)g(spherical)e(co)s(ordinates,)j(the)f(equiv) +-5 b(alen)m(t)26 b(Cartesian)427 1057 y(routine)k(sla)p +Fq(_)p FA(V2TP)f(is)h(a)m(v)-5 b(ailable.)p 0 1203 3780 +8 v 0 1316 a Fu(SLA)p Fk(_)p Fu(SEP)432 b Fj(Angle)38 +b(Bet)m(w)m(een)f(2)i(P)m(oin)m(ts)e(on)h(Sphere)433 +b Fu(SLA)p Fk(_)p Fu(SEP)0 1667 y Fy(A)m(CTION)44 b FA(:)c(Angle)31 +b(b)s(et)m(w)m(een)g(t)m(w)m(o)g(p)s(oin)m(ts)f(on)g(a)h(sphere)e +(\(single)h(precision\).)0 1854 y Fy(CALL)45 b FA(:)77 +b Fq(R)47 b(=)h(sla_SEP)d(\(A1,)i(B1,)g(A2,)g(B2\))0 +2238 y Fy(GIVEN)e FA(:)277 2384 y Fn(A1,B1)484 b Fy(R)567 +b FA(spherical)29 b(co)s(ordinates)h(of)g(one)h(p)s(oin)m(t)e +(\(radians\))277 2497 y Fn(A2,B2)484 b Fy(R)567 b FA(spherical)26 +b(co)s(ordinates)i(of)h(the)f(other)g(p)s(oin)m(t)g(\(radians\))0 +2906 y Fy(RETURNED)46 b FA(:)277 3078 y Fn(sla)p Fq(_)p +Fn(SEP)407 b Fy(R)567 b FA(angle)31 b(b)s(et)m(w)m(een)g([A1,B1])h(and) +e([A2,B2])i(in)d(radians)0 3496 y Fy(NOTES)44 b FA(:)311 +3706 y(1.)i(The)26 b(spherical)e(co)s(ordinates)h(are)h(righ)m(t)g +(ascension)f(and)g(declination,)h(longitude)e(and)h(latitude,)427 +3819 y Fn(etc.)30 b FA(in)f(radians.)311 3976 y(2.)46 +b(The)30 b(result)f(is)h(alw)m(a)m(ys)h(p)s(ositiv)m(e.)p +0 4131 V 0 4244 a Fu(SLA)p Fk(_)p Fu(SMA)-11 b(T)413 +b Fj(Solv)m(e)38 b(Sim)m(ultaneous)d(Equations)414 b +Fu(SLA)p Fk(_)p Fu(SMA)-11 b(T)0 4594 y Fy(A)m(CTION)44 +b FA(:)c(Matrix)31 b(in)m(v)m(ersion)e(and)h(solution)f(of)h(sim)m +(ultaneous)f(equations)h(\(single)f(precision\).)0 4782 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_SMAT)g(\(N,)h(A,)g(Y,)g(D,)g +(JF,)g(IW\))0 5165 y Fy(GIVEN)e FA(:)277 5311 y Fn(N)668 +b Fy(I)605 b FA(n)m(um)m(b)s(er)29 b(of)i(unkno)m(wns)277 +5424 y Fn(A)668 b Fy(R\(N,N\))292 b FA(matrix)277 5537 +y Fn(Y)668 b Fy(R\(N\))403 b FA(v)m(ector)p eop +%%Page: 146 148 +146 147 bop 0 52 a FA(146)0 351 y Fy(RETURNED)46 b FA(:)277 +497 y Fn(A)668 b Fy(R\(N,N\))292 b FA(matrix)30 b(in)m(v)m(erse)277 +610 y Fn(Y)668 b Fy(R\(N\))403 b FA(solution)277 723 +y Fn(D)667 b Fy(R)567 b FA(determinan)m(t)277 836 y Fn(JF)629 +b Fy(I)605 b FA(singularit)m(y)28 b(\015ag:)41 b(0=OK)277 +949 y Fn(IW)610 b Fy(I\(N\))441 b FA(w)m(orkspace)0 1313 +y Fy(NOTES)44 b FA(:)311 1505 y(1.)i(F)-8 b(or)31 b(the)g(set)g(of)f +Fi(n)g FA(sim)m(ultaneous)f(linear)g(equations)h(in)f +Fi(n)h FA(unkno)m(wns:)597 1653 y Fy(A)p Fl(\001)p Fy(y)h +FA(=)f Fy(x)427 1802 y FA(where:)506 1950 y Fl(\017)46 +b Fy(A)31 b FA(is)e(a)i(non-singular)d Fi(n)20 b Fl(\002)f +Fi(n)30 b FA(matrix,)506 2081 y Fl(\017)46 b Fy(y)31 +b FA(is)e(the)i(v)m(ector)h(of)e Fi(n)g FA(unkno)m(wns,)f(and)506 +2211 y Fl(\017)46 b Fy(x)31 b FA(is)e(the)i(kno)m(wn)f(v)m(ector,)427 +2359 y(sla)p Fq(_)p FA(SMA)-8 b(T)30 b(computes:)506 +2508 y Fl(\017)46 b FA(the)31 b(in)m(v)m(erse)f(of)h(matrix)e +Fy(A)p FA(,)506 2638 y Fl(\017)46 b FA(the)31 b(determinan)m(t)f(of)g +(matrix)g Fy(A)p FA(,)h(and)506 2769 y Fl(\017)46 b FA(the)31 +b(v)m(ector)h(of)e Fi(n)g FA(unkno)m(wns)f Fy(y)p FA(.)427 +2917 y(Argumen)m(t)h(N)f(is)g(the)h(order)f Fi(n)p FA(,)g(A)h(\(giv)m +(en\))g(is)e(the)i(matrix)f Fy(A)p FA(,)g(Y)h(\(giv)m(en\))g(is)f(the)g +(v)m(ector)i Fy(x)f FA(and)427 3030 y(Y)g(\(returned\))g(is)f(the)i(v)m +(ector)g Fy(y)p FA(.)41 b(The)30 b(argumen)m(t)g(A)g(\(returned\))g(is) +f(the)h(in)m(v)m(erse)g(matrix)g Fy(A)3660 2997 y Fm(\000)p +Fr(1)3754 3030 y FA(,)427 3143 y(and)g(D)h(is)e Fn(det)9 +b FA(\()p Fy(A)p FA(\).)311 3291 y(2.)46 b(JF)40 b(is)e(the)i +(singularit)m(y)d(\015ag.)68 b(If)39 b(the)g(matrix)g(is)f +(non-singular,)i(JF=0)f(is)g(returned.)66 b(If)39 b(the)427 +3404 y(matrix)32 b(is)f(singular,)h(JF=)p Fl(\000)p FA(1)g(and)g(D=0.0) +h(are)g(returned.)46 b(In)31 b(the)i(latter)g(case,)h(the)f(con)m(ten)m +(ts)427 3517 y(of)e(arra)m(y)g(A)f(on)g(return)g(are)g(unde\014ned.)311 +3665 y(3.)46 b(The)38 b(algorithm)g(is)f(Gaussian)h(elimination)e(with) +h(partial)h(piv)m(oting.)64 b(This)37 b(metho)s(d)h(is)f(v)m(ery)427 +3778 y(fast;)49 b(some)43 b(m)m(uc)m(h)f(slo)m(w)m(er)h(algorithms)e +(can)i(giv)m(e)f(b)s(etter)h(accuracy)-8 b(,)47 b(but)42 +b(only)f(b)m(y)h(a)h(small)427 3891 y(factor.)311 4039 +y(4.)j(This)29 b(routine)g(replaces)h(the)h(obsolete)g(sla)p +Fq(_)p FA(SMA)-8 b(TRX.)p 0 4176 3780 8 v 0 4289 a Fu(SLA)p +Fk(_)p Fu(SUBET)691 b Fj(Remo)m(v)m(e)36 b(E-terms)690 +b Fu(SLA)p Fk(_)p Fu(SUBET)0 4640 y Fy(A)m(CTION)44 b +FA(:)36 b(Remo)m(v)m(e)25 b(the)d(E-terms)g(\(elliptic)f(comp)s(onen)m +(t)h(of)h(ann)m(ual)e(ab)s(erration\))h(from)f(a)i(pre)f(IA)m(U)h(1976) +227 4753 y(catalogue)32 b([)15 b Fi(\013;)g(\016)21 b +FA(])30 b(to)h(giv)m(e)g(a)g(mean)f(place.)0 4940 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_SUBET)g(\(RC,)g(DC,)h(EQ,)g(RM,)g(DM\))0 +5296 y Fy(GIVEN)e FA(:)277 5442 y Fn(R)n(C,DC)445 b Fy(D)565 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])31 b(with)e(E-terms)i(included)c +(\(radians\))277 5555 y Fn(EQ)604 b Fy(D)565 b FA(Besselian)30 +b(ep)s(o)s(c)m(h)g(of)g(mean)h(equator)g(and)f(equino)m(x)p +eop +%%Page: 147 149 +147 148 bop 0 52 a Ft(SUN/67.45)3206 b FA(147)0 351 y +Fy(RETURNED)46 b FA(:)277 523 y Fn(RM,DM)409 b Fy(D)565 +b FA([)15 b Fi(\013;)g(\016)20 b FA(])31 b(without)e(E-terms)i +(\(radians\))0 1043 y Fy(NOTE)44 b FA(:)39 b(Most)28 +b(star)g(p)s(ositions)d(from)i(pre-1984)h(optical)f(catalogues)i(\(or)e +(obtained)g(b)m(y)g(astrometry)h(with)227 1156 y(resp)s(ect)k(to)g(suc) +m(h)f(stars\))g(ha)m(v)m(e)i(the)e(E-terms)h(built-in.)40 +b(This)30 b(routine)g(con)m(v)m(erts)j(suc)m(h)e(a)g(p)s(osition)f(to) +227 1269 y(a)h(formal)f(mean)g(place)g(\(allo)m(wing,)g(for)g(example,) +h(comparison)e(with)g(a)i(pulsar)d(timing)h(p)s(osition\).)0 +1790 y Fy(REFERENCE)44 b FA(:)56 b Fn(Explanatory)42 +b(Supplement)f(to)f(the)g(Astr)-5 b(onomic)g(al)43 b(Ephemeris)p +FA(,)e(section)d(2D,)h(page)227 1903 y(48.)p 0 2081 3780 +8 v 0 2194 a Fu(SLA)p Fk(_)p Fu(SUPGAL)365 b Fj(Sup)s(ergalactic)36 +b(to)i(Galactic)365 b Fu(SLA)p Fk(_)p Fu(SUPGAL)0 2544 +y Fy(A)m(CTION)44 b FA(:)39 b(T)-8 b(ransformation)26 +b(from)h(de)g(V)-8 b(aucouleurs)27 b(sup)s(ergalactic)f(co)s(ordinates) +h(to)h(IA)m(U)g(1958)h(galac-)227 2657 y(tic)i(co)s(ordinates.)0 +2845 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_GALSUP)f(\(DL,)i(DB,)g +(DSL,)g(DSB\))0 3290 y Fy(GIVEN)e FA(:)277 3462 y Fn(DSL,DSB)347 +b Fy(D)565 b FA(sup)s(ergalactic)30 b(longitude)f(and)h(latitude)f +(\(radians\))0 3982 y Fy(RETURNED)46 b FA(:)277 4154 +y Fn(DL,DB)449 b Fy(D)565 b FA(galactic)29 b(longitude)e(and)h +(latitude)f([)15 b Fi(l)2966 4121 y Fc(I)-7 b(I)3030 +4154 y Fi(;)15 b(b)3109 4121 y Fc(I)-7 b(I)3189 4154 +y FA(])28 b(\(radians\))0 4674 y Fy(REFERENCES)44 b FA(:)311 +4925 y(1.)i(de)41 b(V)-8 b(aucouleurs,)42 b(de)f(V)-8 +b(aucouleurs,)43 b(&)d(Corwin,)h Fn(Se)-5 b(c)g(ond)43 +b(R)-5 b(efer)g(enc)g(e)43 b(Catalo)-5 b(gue)44 b(of)e(Bright)427 +5038 y(Galaxies)p FA(,)32 b(U.T)-8 b(exas,)32 b(p8.)311 +5216 y(2.)46 b(Systems)31 b(&)h(Applied)d(Sciences)i(Corp.,)g(do)s +(cumen)m(tation)h(for)f(the)h(mac)m(hine-readable)f(v)m(ersion)427 +5329 y(of)g(the)f(ab)s(o)m(v)m(e)i(catalogue,)g(Con)m(tract)g(NAS)e +(5-26490.)227 5580 y(\(These)k(t)m(w)m(o)h(references)g(giv)m(e)f +(di\013eren)m(t)f(v)-5 b(alues)33 b(for)h(the)g(galactic)h(longitude)d +(of)i(the)g(sup)s(ergalactic)227 5693 y(origin.)39 b(Both)31 +b(are)g(wrong;)f(the)h(correct)h(v)-5 b(alue)29 b(is)h +Fi(l)2012 5660 y Fc(I)-7 b(I)2101 5693 y FA(=)25 b(137)p +Fi(:)p FA(37.\))p eop +%%Page: 148 150 +148 149 bop 0 52 a FA(148)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(SVD)518 b Fj(Singular)37 b(V)-10 b(alue)38 +b(Decomp)s(osition)517 b Fu(SLA)p Fk(_)p Fu(SVD)0 730 +y Fy(A)m(CTION)44 b FA(:)60 b(Singular)37 b(v)-5 b(alue)40 +b(decomp)s(osition.)69 b(This)38 b(routine)h(expresses)h(a)g(giv)m(en)g +(matrix)g Fy(A)g FA(as)g(the)227 843 y(pro)s(duct)29 +b(of)i(three)g(matrices)f Fy(U)p FA(,)h Fy(W)p FA(,)g +Fy(V)1648 810 y Fc(T)1703 843 y FA(:)667 1068 y Fy(A)f +FA(=)g Fy(U)h Fl(\001)f Fy(W)h Fl(\001)f Fy(V)1316 1035 +y Fc(T)227 1293 y FA(where:)667 1518 y Fy(A)224 b FA(is)29 +b(an)m(y)i Fi(m)f FA(\(ro)m(ws\))h Fl(\002)p Fi(n)f FA(\(columns\))f +(matrix,)h(where)g Fi(m)25 b Fl(\025)g Fi(n)667 1631 +y Fy(U)223 b FA(is)29 b(an)h Fi(m)20 b Fl(\002)g Fi(n)30 +b FA(column-orthogonal)g(matrix)667 1744 y Fy(W)195 b +FA(is)29 b(an)h Fi(n)20 b Fl(\002)g Fi(n)30 b FA(diagonal)g(matrix)f +(with)g Fi(w)2369 1758 y Fc(ii)2447 1744 y Fl(\025)c +FA(0)667 1857 y Fy(V)746 1824 y Fc(T)970 1857 y FA(is)k(the)i(transp)s +(ose)f(of)g(an)g Fi(n)20 b Fl(\002)g Fi(n)30 b FA(orthogonal)h(matrix)0 +2082 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_SVD)g(\(M,)h(N,)g(MP,)g +(NP,)g(A,)g(W,)g(V,)h(WORK,)e(JSTAT\))0 2427 y Fy(GIVEN)f +FA(:)277 2573 y Fn(M,N)558 b Fy(I)605 b Fi(m)p FA(,)32 +b Fi(n)p FA(,)h(the)f(n)m(um)m(b)s(ers)e(of)i(ro)m(ws)g(and)g(columns)e +(in)h(matrix)1658 2686 y Fy(A)277 2799 y Fn(MP,NP)434 +b Fy(I)605 b FA(ph)m(ysical)29 b(dimensions)e(of)j(arra)m(y)g(con)m +(taining)g(matrix)f Fy(A)277 2912 y Fn(A)668 b Fy(D\(MP)-9 +b(,NP\))140 b FA(arra)m(y)31 b(con)m(taining)f Fi(m)20 +b Fl(\002)g Fi(n)30 b FA(matrix)f Fy(A)0 3257 y(RETURNED)46 +b FA(:)277 3403 y Fn(A)668 b Fy(D\(MP)-9 b(,NP\))140 +b FA(arra)m(y)32 b(con)m(taining)f Fi(m)21 b Fl(\002)g +Fi(n)31 b FA(column-orthogonal)g(matrix)1658 3516 y Fy(U)277 +3629 y Fn(W)645 b Fy(D\(N\))401 b Fi(n)15 b Fl(\002)g +Fi(n)28 b FA(diagonal)f(matrix)h Fy(W)g FA(\(diagonal)f(elemen)m(ts)i +(only\))277 3855 y Fn(V)668 b Fy(D\(NP)-9 b(,NP\))157 +b FA(arra)m(y)35 b(con)m(taining)e Fi(n)22 b Fl(\002)g +Fi(n)34 b FA(orthogonal)g(matrix)f Fy(V)h FA(\()p Fn(n.b.)1658 +3968 y FA(not)d Fy(V)1899 3935 y Fc(T)1954 3968 y FA(\))277 +4081 y Fn(WORK)439 b Fy(D\(N\))401 b FA(w)m(orkspace)277 +4194 y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(0)24 b(=)g(OK,)f +Fl(\000)p FA(1)h(=)g(arra)m(y)g(A)g(wrong)f(shap)s(e,)i +Fi(>)p FA(0)f(=)g(index)e(of)1658 4307 y(W)29 b(for)e(whic)m(h)g(con)m +(v)m(ergence)j(failed)d(\(see)i(note)f(3,)i(b)s(elo)m(w\))0 +4765 y Fy(NOTES)44 b FA(:)311 4951 y(1.)i(M)27 b(and)g(N)g(are)g(the)g +Fn(lo)-5 b(gic)g(al)38 b FA(dimensions)24 b(of)j(the)g(matrices)g(and)f +(v)m(ectors)j(concerned,)f(whic)m(h)d(can)427 5064 y(b)s(e)30 +b(lo)s(cated)h(in)e(arra)m(ys)h(of)h(larger)f Fn(physic)-5 +b(al)42 b FA(dimensions,)28 b(giv)m(en)i(b)m(y)g(MP)h(and)f(NP)-8 +b(.)311 5209 y(2.)46 b(V)31 b(con)m(tains)f(matrix)g(V,)h(not)f(the)h +(transp)s(ose)f(of)g(matrix)g(V.)311 5354 y(3.)46 b(If)36 +b(the)h(status)g(JST)-8 b(A)g(T)37 b(is)e(greater)j(than)f(zero,)i +(this)c(need)i(not)g(necessarily)e(b)s(e)h(treated)i(as)f(a)427 +5467 y(failure.)h(It)28 b(means)g(that,)h(due)e(to)h(c)m(hance)h(prop)s +(erties)d(of)i(the)f(matrix)g(A,)h(the)g(QR)f(transforma-)427 +5580 y(tion)i(phase)g(of)h(the)f(routine)g(did)e(not)j(fully)d(con)m(v) +m(erge)32 b(in)c(a)h(prede\014ned)f(n)m(um)m(b)s(er)g(of)i(iterations,) +427 5693 y(something)39 b(that)g(v)m(ery)h(seldom)e(o)s(ccurs.)66 +b(When)39 b(this)e(condition)h(do)s(es)h(arise,)h(it)f(is)f(p)s +(ossible)p eop +%%Page: 149 151 +149 150 bop 0 52 a Ft(SUN/67.45)3206 b FA(149)427 351 +y(that)29 b(the)f(elemen)m(ts)g(of)g(the)g(diagonal)f(matrix)h(W)g(ha)m +(v)m(e)h(not)f(b)s(een)f(correctly)i(found.)38 b(Ho)m(w)m(ev)m(er,)427 +464 y(in)e(practice)h(the)f(results)g(are)h(lik)m(ely)e(to)i(b)s(e)f +(trust)m(w)m(orth)m(y)-8 b(.)61 b(Applications)35 b(should)f(rep)s(ort) +i(the)427 577 y(condition)29 b(as)i(a)g(w)m(arning,)e(but)h(then)g(pro) +s(ceed)g(normally)-8 b(.)0 1170 y Fy(REFERENCES)44 b +FA(:)54 b(The)37 b(algorithm)f(is)g(an)h(adaptation)g(of)g(the)h +(routine)e(SVD)h(in)f(the)h Fn(EISP)-7 b(A)n(CK)51 b +FA(li-)227 1282 y(brary)26 b(\(Garb)s(o)m(w)g Fn(et)j(al.)d +FA(1977,)k Fn(EISP)-7 b(A)n(CK)27 b(Guide)i(Extension)p +FA(,)f(Springer)c(V)-8 b(erlag\),)28 b(whic)m(h)d(is)g(a)i(F)m(OR-)227 +1395 y(TRAN)j(66)g(implemen)m(tation)e(of)h(the)h(Algol)f(routine)f +(SVD)i(of)f(Wilkinson)e(&)i(Reinsc)m(h)g(1971)i(\()p +Fn(Hand-)227 1508 y(b)-5 b(o)g(ok)29 b(for)e(A)n(utomatic)h +(Computation)p FA(,)g(v)m(ol)d(2,)h(ed)e(Bauer)h Fn(et)i(al.)p +FA(,)g(Springer)22 b(V)-8 b(erlag\).)40 b(These)24 b(references)227 +1621 y(giv)m(e)37 b(full)e(details)g(of)i(the)g(algorithm)f(used)g +(here.)59 b(A)37 b(go)s(o)s(d)f(accoun)m(t)i(of)f(the)g(use)f(of)h(SVD) +g(in)e(least)227 1734 y(squares)d(problems)f(is)h(giv)m(en)g(in)f +Fn(Numeric)-5 b(al)36 b(R)-5 b(e)g(cip)g(es)41 b FA(\(Press)32 +b Fn(et)j(al.)e FA(1987,)i(Cam)m(bridge)c(Univ)m(ersit)m(y)227 +1847 y(Press\),)g(whic)m(h)e(includes)f(another)i(v)-5 +b(arian)m(t)31 b(of)f(the)h(EISP)-8 b(A)m(CK)30 b(co)s(de.)p +0 2077 3780 8 v 0 2190 a Fu(SLA)p Fk(_)p Fu(SVDCO)l(V)240 +b Fj(Co)m(v)-7 b(ariance)37 b(Matrix)g(from)f(SVD)243 +b Fu(SLA)p Fk(_)p Fu(SVDCO)l(V)0 2540 y Fy(A)m(CTION)44 +b FA(:)c(F)-8 b(rom)29 b(the)g Fy(W)g FA(and)f Fy(V)g +FA(matrices)h(from)f(the)h(SVD)g(factorization)h(of)f(a)g(matrix)f +(\(as)h(obtained)227 2653 y(from)h(the)h(sla)p Fq(_)p +FA(SVD)e(routine\),)h(obtain)g(the)h(co)m(v)-5 b(ariance)31 +b(matrix.)0 2841 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_SVDCOV)f(\(N,)i(NP,)g(NC,)g(W,)g(V,)g(WORK,)g(CVM\))0 +3329 y Fy(GIVEN)e FA(:)277 3475 y Fn(N)668 b Fy(I)605 +b Fi(n)p FA(,)28 b(the)h(n)m(um)m(b)s(er)d(of)i(ro)m(ws)g(and)g +(columns)e(in)h(matrices)h Fy(W)1658 3588 y FA(and)i +Fy(V)277 3701 y Fn(NP)606 b Fy(I)f FA(\014rst)27 b(dimension)f(of)i +(arra)m(y)h(con)m(taining)e Fi(n)15 b Fl(\002)g Fi(n)28 +b FA(matrix)f Fy(V)277 3926 y Fn(NC)603 b Fy(I)i FA(\014rst)30 +b(dimension)e(of)i(arra)m(y)h(CVM)277 4039 y Fn(W)645 +b Fy(D\(N\))401 b Fi(n)15 b Fl(\002)g Fi(n)28 b FA(diagonal)f(matrix)h +Fy(W)g FA(\(diagonal)f(elemen)m(ts)i(only\))277 4265 +y Fn(V)668 b Fy(D\(NP)-9 b(,NP\))157 b FA(arra)m(y)31 +b(con)m(taining)f Fi(n)20 b Fl(\002)g Fi(n)30 b FA(orthogonal)g(matrix) +g Fy(V)0 4849 y(RETURNED)46 b FA(:)277 4995 y Fn(WORK)439 +b Fy(D\(N\))401 b FA(w)m(orkspace)277 5108 y Fn(CVM)521 +b Fy(D\(NC,NC\))138 b FA(arra)m(y)31 b(to)g(receiv)m(e)g(co)m(v)-5 +b(ariance)32 b(matrix)0 5693 y Fy(REFERENCE)44 b FA(:)d +Fn(Numeric)-5 b(al)33 b(R)-5 b(e)g(cip)g(es)p FA(,)32 +b(section)e(14.3.)p eop +%%Page: 150 152 +150 151 bop 0 52 a FA(150)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(SVDSOL)357 b Fj(Solution)37 b(V)-10 b(ector)38 +b(from)e(SVD)360 b Fu(SLA)p Fk(_)p Fu(SVDSOL)0 730 y +Fy(A)m(CTION)44 b FA(:)60 b(F)-8 b(rom)41 b(a)g(giv)m(en)f(v)m(ector)i +(and)d(the)i(SVD)f(of)g(a)h(matrix)f(\(as)g(obtained)g(from)g(the)g +(sla)p Fq(_)p FA(SVD)227 843 y(routine\),)30 b(obtain)g(the)h(solution) +e(v)m(ector.)42 b(This)29 b(routine)g(solv)m(es)h(the)h(equation:)667 +1068 y Fy(A)f Fl(\001)h Fy(x)f FA(=)g Fy(b)227 1293 y +FA(where:)667 1518 y Fy(A)224 b FA(is)29 b(a)i(giv)m(en)f +Fi(m)g FA(\(ro)m(ws\))h Fl(\002)p Fi(n)f FA(\(columns\))g(matrix,)g +(where)g Fi(m)25 b Fl(\025)g Fi(n)667 1631 y Fy(x)248 +b FA(is)29 b(the)i Fi(n)p FA(-v)m(ector)h(w)m(e)e(wish)f(to)i(\014nd,)e +(and)667 1744 y Fy(b)245 b FA(is)29 b(a)i(giv)m(en)f +Fi(m)p FA(-v)m(ector)227 1969 y(b)m(y)h(means)f(of)g(the)h +Fn(Singular)i(V)-7 b(alue)33 b(De)-5 b(c)g(omp)g(osition)40 +b FA(metho)s(d)29 b(\(SVD\).)0 2157 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_SVDSOL)f(\(M,)i(N,)g(MP,)g(NP,)g(B,)g(U,)h(W,)f(V,)g +(WORK,)f(X\))0 2528 y Fy(GIVEN)f FA(:)277 2675 y Fn(M,N)558 +b Fy(I)605 b Fi(m)p FA(,)32 b Fi(n)p FA(,)h(the)f(n)m(um)m(b)s(ers)e +(of)i(ro)m(ws)g(and)g(columns)e(in)h(matrix)1658 2787 +y Fy(A)277 2900 y Fn(MP,NP)434 b Fy(I)605 b FA(ph)m(ysical)29 +b(dimensions)e(of)j(arra)m(y)g(con)m(taining)g(matrix)f +Fy(A)277 3013 y Fn(B)672 b Fy(D\(M\))384 b FA(kno)m(wn)30 +b(v)m(ector)i Fy(b)277 3126 y Fn(U)668 b Fy(D\(MP)-9 +b(,NP\))140 b FA(arra)m(y)31 b(con)m(taining)f Fi(m)20 +b Fl(\002)g Fi(n)30 b FA(matrix)f Fy(U)277 3239 y Fn(W)645 +b Fy(D\(N\))401 b Fi(n)15 b Fl(\002)g Fi(n)28 b FA(diagonal)f(matrix)h +Fy(W)g FA(\(diagonal)f(elemen)m(ts)i(only\))277 3465 +y Fn(V)668 b Fy(D\(NP)-9 b(,NP\))157 b FA(arra)m(y)31 +b(con)m(taining)f Fi(n)20 b Fl(\002)g Fi(n)30 b FA(orthogonal)g(matrix) +g Fy(V)0 3855 y(RETURNED)46 b FA(:)277 4002 y Fn(WORK)439 +b Fy(D\(N\))401 b FA(w)m(orkspace)277 4114 y Fn(X)668 +b Fy(D\(N\))401 b FA(unkno)m(wn)29 b(v)m(ector)j Fy(x)0 +4505 y(NOTES)44 b FA(:)311 4707 y(1.)i(In)28 b(the)h(Singular)d(V)-8 +b(alue)29 b(Decomp)s(osition)g(metho)s(d)f(\(SVD\),)h(the)g(matrix)f +Fy(A)h FA(is)f(\014rst)g(factorized)427 4820 y(\(for)j(example)f(b)m(y) +g(the)h(routine)e(sla)p Fq(_)p FA(SVD\))h(in)m(to)g(the)h(follo)m(wing) +e(comp)s(onen)m(ts:)867 4998 y Fy(A)h FA(=)g Fy(U)h Fl(\001)f +Fy(W)h Fl(\001)f Fy(V)1516 4965 y Fc(T)427 5176 y FA(where:)867 +5354 y Fy(A)224 b FA(is)29 b(an)m(y)i Fi(m)f FA(\(ro)m(ws\))h +Fl(\002)p Fi(n)f FA(\(columns\))f(matrix,)h(where)g Fi(m)25 +b(>)g(n)867 5467 y Fy(U)223 b FA(is)29 b(an)h Fi(m)20 +b Fl(\002)g Fi(n)30 b FA(column-orthogonal)g(matrix)867 +5580 y Fy(W)195 b FA(is)29 b(an)h Fi(n)20 b Fl(\002)g +Fi(n)30 b FA(diagonal)g(matrix)f(with)g Fi(w)2569 5594 +y Fc(ii)2647 5580 y Fl(\025)c FA(0)867 5693 y Fy(V)946 +5660 y Fc(T)1170 5693 y FA(is)k(the)i(transp)s(ose)f(of)g(an)g +Fi(n)20 b Fl(\002)g Fi(n)30 b FA(orthogonal)h(matrix)p +eop +%%Page: 151 153 +151 152 bop 0 52 a Ft(SUN/67.45)3206 b FA(151)427 351 +y(Note)30 b(that)g Fi(m)f FA(and)f Fi(n)g FA(are)h(the)h +Fn(lo)-5 b(gic)g(al)39 b FA(dimensions)26 b(of)k(the)f(matrices)f(and)h +(v)m(ectors)h(concerned,)427 464 y(whic)m(h)22 b(can)i(b)s(e)e(lo)s +(cated)i(in)e(arra)m(ys)h(of)h(larger)e Fn(physic)-5 +b(al)35 b FA(dimensions)20 b(MP)k(and)e(NP)-8 b(.)24 +b(The)f(solution)427 577 y(is)30 b(then)g(found)f(from)h(the)g +(expression:)867 734 y Fy(x)g FA(=)g Fy(V)h Fl(\001)f +FA([)p Fi(diag)s FA(\(1)p Fi(=)p Fy(W)1648 748 y Fc(j)1687 +734 y FA(\)])21 b Fl(\001)g FA(\()p Fy(U)1929 701 y Fc(T)1985 +734 y Fl(\001)p Fy(b)p FA(\))311 891 y(2.)46 b(If)37 +b(matrix)f Fy(A)h FA(is)f(square,)j(and)d(if)g(the)h(diagonal)f(matrix) +h Fy(W)g FA(is)f(not)h(altered,)i(the)e(metho)s(d)f(is)427 +1004 y(equiv)-5 b(alen)m(t)30 b(to)h(con)m(v)m(en)m(tional)g(solution)e +(of)i(sim)m(ultaneous)e(equations.)311 1140 y(3.)46 b(If)30 +b Fi(m)25 b(>)g(n)p FA(,)30 b(the)h(result)e(is)h(a)g(least-squares)h +(\014t.)311 1277 y(4.)46 b(If)32 b(the)g(solution)f(is)g(p)s(o)s(orly)f +(determined,)h(this)g(sho)m(ws)h(up)f(in)g(the)h(SVD)g(factorization)h +(as)f(v)m(ery)427 1390 y(small)23 b(or)h(zero)h Fy(W)1058 +1404 y Fc(j)1119 1390 y FA(v)-5 b(alues.)38 b(Where)24 +b(a)h Fy(W)1885 1404 y Fc(j)1946 1390 y FA(v)-5 b(alue)23 +b(is)g(small)g(but)h(non-zero)g(it)g(can)g(b)s(e)g(set)h(to)g(zero)427 +1503 y(to)32 b(a)m(v)m(oid)g(ill)d(e\013ects.)44 b(The)30 +b(presen)m(t)i(routine)e(detects)i(suc)m(h)f(zero)h Fy(W)2835 +1517 y Fc(j)2902 1503 y FA(v)-5 b(alues)31 b(and)f(pro)s(duces)g(a)427 +1615 y(sensible)h(solution,)g(with)g(highly)g(correlated)h(terms)h(k)m +(ept)g(under)e(con)m(trol)h(rather)h(than)f(b)s(eing)427 +1728 y(allo)m(w)m(ed)f(to)g(elop)s(e)e(to)j(in\014nit)m(y)-8 +b(,)28 b(and)i(with)f(meaningful)f(v)-5 b(alues)30 b(for)g(the)h(other) +f(terms.)0 2022 y Fy(REFERENCE)44 b FA(:)d Fn(Numeric)-5 +b(al)33 b(R)-5 b(e)g(cip)g(es)p FA(,)32 b(section)e(2.9.)p +0 2125 3780 8 v 0 2238 a Fu(SLA)p Fk(_)p Fu(TP2S)545 +b Fj(T)-10 b(angen)m(t)37 b(Plane)h(to)g(Spherical)546 +b Fu(SLA)p Fk(_)p Fu(TP2S)0 2588 y Fy(A)m(CTION)44 b +FA(:)c(T)-8 b(ransform)30 b(tangen)m(t)i(plane)d(co)s(ordinates)h(in)m +(to)h(spherical)d(co)s(ordinates)i(\(single)g(precision\))0 +2776 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_TP2S)g(\(XI,)h(ETA,)f +(RAZ,)h(DECZ,)f(RA,)h(DEC\))0 3086 y Fy(GIVEN)e FA(:)277 +3232 y Fn(XI,ET)-7 b(A)417 b Fy(R)567 b FA(tangen)m(t)32 +b(plane)d(rectangular)i(co)s(ordinates)f(\(radians\))277 +3345 y Fn(RAZ,DECZ)266 b Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h +(of)g(tangen)m(t)i(p)s(oin)m(t)e(\(radians\))0 3630 y +Fy(RETURNED)46 b FA(:)277 3802 y Fn(RA,DEC)378 b Fy(R)567 +b FA(spherical)29 b(co)s(ordinates)h(\(radians\))0 4095 +y Fy(NOTES)44 b FA(:)311 4273 y(1.)i(The)24 b(pro)5 b(jection)25 +b(is)f(called)f(the)i Fn(gnomonic)31 b FA(pro)5 b(jection;)27 +b(the)d(Cartesian)h(co)s(ordinates)f([)15 b Fi(\030)t(;)g(\021)k +FA(])25 b(are)427 4386 y(called)30 b Fn(standar)-5 b(d)37 +b(c)-5 b(o)g(or)g(dinates.)45 b FA(The)30 b(latter)i(are)f(in)f(units)f +(of)i(the)h(distance)e(from)h(the)g(tangen)m(t)427 4498 +y(plane)f(to)h(the)f(pro)5 b(jection)30 b(p)s(oin)m(t,)g +Fn(i.e.)g FA(radians)f(near)h(the)h(origin.)311 4635 +y(2.)46 b(When)26 b(w)m(orking)g(in)e([)15 b Fi(x;)g(y)s(;)g(z)21 +b FA(])26 b(rather)g(than)g(spherical)e(co)s(ordinates,)j(the)f(equiv) +-5 b(alen)m(t)26 b(Cartesian)427 4748 y(routine)k(sla)p +Fq(_)p FA(TP2V)f(is)h(a)m(v)-5 b(ailable.)p 0 4842 V +0 4955 a Fu(SLA)p Fk(_)p Fu(TP2V)304 b Fj(T)-10 b(angen)m(t)37 +b(Plane)h(to)g(Direction)f(Cosines)305 b Fu(SLA)p Fk(_)p +Fu(TP2V)0 5305 y Fy(A)m(CTION)44 b FA(:)63 b(Giv)m(en)42 +b(the)g(tangen)m(t-plane)h(co)s(ordinates)e(of)h(a)g(star)g(and)f(the)h +(direction)f(cosines)g(of)h(the)227 5418 y(tangen)m(t)32 +b(p)s(oin)m(t,)e(determine)f(the)i(direction)e(cosines)h(of)g(the)h +(star)g(\(single)e(precision\).)0 5606 y Fy(CALL)45 b +FA(:)77 b Fq(CALL)46 b(sla_TP2V)g(\(XI,)h(ETA,)f(V0,)h(V\))p +eop +%%Page: 152 154 +152 153 bop 0 52 a FA(152)0 351 y Fy(GIVEN)45 b FA(:)277 +497 y Fn(XI,ET)-7 b(A)417 b Fy(R)567 b FA(tangen)m(t)32 +b(plane)d(co)s(ordinates)h(of)h(star)g(\(radians\))277 +610 y Fn(V0)622 b Fy(R\(3\))433 b FA(direction)29 b(cosines)h(of)h +(tangen)m(t)h(p)s(oin)m(t)0 1062 y Fy(RETURNED)46 b FA(:)277 +1233 y Fn(V)668 b Fy(R\(3\))433 b FA(direction)29 b(cosines)h(of)h +(star)0 1693 y Fy(NOTES)44 b FA(:)311 1920 y(1.)i(If)30 +b(v)m(ector)i(V0)f(is)f(not)g(of)h(unit)e(length,)h(the)g(returned)f(v) +m(ector)j(V)f(will)d(b)s(e)h(wrong.)311 2085 y(2.)46 +b(If)35 b(v)m(ector)i(V0)f(p)s(oin)m(ts)e(at)i(a)f(p)s(ole,)h(the)g +(returned)e(v)m(ector)j(V)e(will)e(b)s(e)h(based)h(on)g(the)h +(arbitrary)427 2198 y(assumption)29 b(that)i Fi(\013)26 +b FA(=)f(0)31 b(at)g(the)f(tangen)m(t)i(p)s(oin)m(t.)311 +2364 y(3.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +2477 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 2590 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 2755 y(4.)46 b(This)29 b(routine)g(is)h(the)g(Cartesian)g +(equiv)-5 b(alen)m(t)30 b(of)g(the)h(routine)e(sla)p +Fq(_)p FA(TP2S.)p 0 2927 3780 8 v 0 3040 a Fu(SLA)p Fk(_)p +Fu(TPS2C)368 b Fj(Plate)37 b(cen)m(tre)h(from)f Fd(\030)6 +b(;)20 b(\021)42 b Fj(and)d Fd(\013)q(;)20 b(\016)373 +b Fu(SLA)p Fk(_)p Fu(TPS2C)0 3391 y Fy(A)m(CTION)44 b +FA(:)39 b(F)-8 b(rom)27 b(the)h(tangen)m(t)g(plane)e(co)s(ordinates)h +(of)g(a)g(star)h(of)f(kno)m(wn)f([)15 b Fi(\013;)g(\016)21 +b FA(],)28 b(determine)e(the)h([)15 b Fi(\013;)g(\016)20 +b FA(])227 3503 y(of)31 b(the)f(tangen)m(t)i(p)s(oin)m(t)e(\(single)f +(precision\))0 3691 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_TPS2C)g(\(XI,)g(ETA,)h(RA,)g(DEC,)f(RAZ1,)h(DECZ1,)f(RAZ2,)g +(DECZ2,)g(N\))0 4099 y Fy(GIVEN)f FA(:)277 4245 y Fn(XI,ET)-7 +b(A)417 b Fy(R)567 b FA(tangen)m(t)32 b(plane)d(rectangular)i(co)s +(ordinates)f(\(radians\))277 4358 y Fn(RA,DEC)378 b Fy(R)567 +b FA(spherical)29 b(co)s(ordinates)h(\(radians\))0 4810 +y Fy(RETURNED)46 b FA(:)277 4956 y Fn(RAZ1,DECZ1)174 +b Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h(of)g(tangen)m(t)i(p)s +(oin)m(t,)e(solution)f(1)277 5069 y Fn(RAZ2,DECZ2)174 +b Fy(R)567 b FA(spherical)29 b(co)s(ordinates)h(of)g(tangen)m(t)i(p)s +(oin)m(t,)e(solution)f(2)277 5182 y Fn(N)668 b Fy(I)605 +b FA(n)m(um)m(b)s(er)29 b(of)i(solutions:)1779 5295 y(0)g(=)f(no)g +(solutions)f(returned)g(\(note)j(2\))1779 5407 y(1)f(=)f(only)g(the)g +(\014rst)g(solution)f(is)g(useful)g(\(note)i(3\))1779 +5520 y(2)g(=)f(there)h(are)f(t)m(w)m(o)i(useful)d(solutions)g(\(note)i +(3\))p eop +%%Page: 153 155 +153 154 bop 0 52 a Ft(SUN/67.45)3206 b FA(153)0 351 y +Fy(NOTES)44 b FA(:)311 573 y(1.)i(The)30 b(RAZ1)h(and)e(RAZ2)i(v)-5 +b(alues)29 b(returned)h(are)g(in)f(the)i(range)g(0)5 +b Fl(\000)g FA(2)p Fi(\031)s FA(.)311 736 y(2.)46 b(Cases)39 +b(where)f(there)h(is)f(no)g(solution)f(can)i(only)f(arise)g(near)g(the) +h(p)s(oles.)64 b(F)-8 b(or)40 b(example,)g(it)e(is)427 +849 y(clearly)27 b(imp)s(ossible)d(for)j(a)h(star)f(at)h(the)g(p)s(ole) +e(itself)g(to)j(ha)m(v)m(e)f(a)g(non-zero)g Fi(\030)j +FA(v)-5 b(alue,)28 b(and)e(hence)i(it)427 962 y(is)k(meaningless)g(to)h +(ask)g(where)f(the)h(tangen)m(t)i(p)s(oin)m(t)c(w)m(ould)h(ha)m(v)m(e)i +(to)f(b)s(e)g(to)g(bring)e(ab)s(out)i(this)427 1075 y(com)m(bination)d +(of)g Fi(\030)35 b FA(and)30 b Fi(\016)s FA(.)311 1238 +y(3.)46 b(Also)33 b(near)f(the)h(p)s(oles,)f(cases)i(can)f(arise)f +(where)g(there)h(are)g(t)m(w)m(o)g(useful)e(solutions.)46 +b(The)32 b(argu-)427 1351 y(men)m(t)j(N)g(indicates)e(whether)h(the)h +(second)g(of)g(the)f(t)m(w)m(o)i(solutions)d(returned)h(is)f(useful.)52 +b(N)15 b(=)g(1)427 1464 y(indicates)41 b(only)h(one)g(useful)e +(solution,)k(the)e(usual)f(case;)49 b(under)41 b(these)h +(circumstances,)j(the)427 1577 y(second)35 b(solution)e(corresp)s(onds) +g(to)j(the)f(\\o)m(v)m(er-the-p)s(ole")i(case,)g(and)d(this)f(is)h +(re\015ected)h(in)e(the)427 1690 y(v)-5 b(alues)30 b(of)h(RAZ2)f(and)g +(DECZ2)g(whic)m(h)f(are)i(returned.)311 1853 y(4.)46 +b(The)35 b(DECZ1)g(and)f(DECZ2)h(v)-5 b(alues)34 b(returned)g(are)h(in) +f(the)h(range)g Fl(\006)p Fi(\031)s FA(,)h(but)f(in)e(the)i(ordinary)-8 +b(,)427 1966 y(non-p)s(ole-crossing,)29 b(case,)j(the)f(range)f(is)g +Fl(\006)p Fi(\031)s(=)p FA(2.)311 2129 y(5.)46 b(RA,)31 +b(DEC,)f(RAZ1,)h(DECZ1,)g(RAZ2,)f(DECZ2)h(are)f(all)g(in)f(radians.)311 +2292 y(6.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +2405 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 2518 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 2681 y(7.)46 b(When)26 b(w)m(orking)g(in)e([)15 +b Fi(x;)g(y)s(;)g(z)21 b FA(])26 b(rather)g(than)g(spherical)e(co)s +(ordinates,)j(the)f(equiv)-5 b(alen)m(t)26 b(Cartesian)427 +2794 y(routine)k(sla)p Fq(_)p FA(TPV2C)f(is)g(a)m(v)-5 +b(ailable.)p 0 2952 3780 8 v 0 3065 a Fu(SLA)p Fk(_)p +Fu(TPV2C)287 b Fj(Plate)37 b(cen)m(tre)h(from)e Fd(\030)6 +b(;)20 b(\021)43 b Fj(and)38 b Fd(x;)20 b(y)t(;)g(z)294 +b Fu(SLA)p Fk(_)p Fu(TPV2C)0 3415 y Fy(A)m(CTION)44 b +FA(:)38 b(F)-8 b(rom)26 b(the)f(tangen)m(t)i(plane)d(co)s(ordinates)h +(of)g(a)h(star)f(of)h(kno)m(wn)e(direction)g(cosines,)i(determine)227 +3528 y(the)31 b(direction)e(cosines)h(of)g(the)h(tangen)m(t)h(p)s(oin)m +(t)d(\(single)h(precision\))0 3716 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_TPV2C)g(\(XI,)g(ETA,)h(V,)g(V01,)g(V02,)f(N\))0 +4117 y Fy(GIVEN)f FA(:)277 4263 y Fn(XI,ET)-7 b(A)417 +b Fy(R)567 b FA(tangen)m(t)32 b(plane)d(co)s(ordinates)h(of)h(star)g +(\(radians\))277 4376 y Fn(V)668 b Fy(R\(3\))433 b FA(direction)29 +b(cosines)h(of)h(star)0 4815 y Fy(RETURNED)46 b FA(:)277 +4961 y Fn(V01)576 b Fy(R\(3\))433 b FA(direction)29 b(cosines)h(of)h +(tangen)m(t)h(p)s(oin)m(t,)d(solution)g(1)277 5074 y +Fn(V01)576 b Fy(R\(3\))433 b FA(direction)29 b(cosines)h(of)h(tangen)m +(t)h(p)s(oin)m(t,)d(solution)g(2)277 5187 y Fn(N)668 +b Fy(I)605 b FA(n)m(um)m(b)s(er)29 b(of)i(solutions:)1779 +5300 y(0)g(=)f(no)g(solutions)f(returned)g(\(note)j(2\))1779 +5412 y(1)f(=)f(only)g(the)g(\014rst)g(solution)f(is)g(useful)g(\(note)i +(3\))1779 5525 y(2)g(=)f(there)h(are)f(t)m(w)m(o)i(useful)d(solutions)g +(\(note)i(3\))p eop +%%Page: 154 156 +154 155 bop 0 52 a FA(154)0 351 y Fy(NOTES)44 b FA(:)311 +616 y(1.)i(The)30 b(v)m(ector)i(V)f(m)m(ust)f(b)s(e)g(of)g(unit)f +(length)h(or)g(the)h(result)e(will)f(b)s(e)h(wrong.)311 +801 y(2.)46 b(Cases)39 b(where)f(there)h(is)f(no)g(solution)f(can)i +(only)f(arise)g(near)g(the)h(p)s(oles.)64 b(F)-8 b(or)40 +b(example,)g(it)e(is)427 914 y(clearly)30 b(imp)s(ossible)d(for)j(a)h +(star)f(at)h(the)g(p)s(ole)e(itself)h(to)h(ha)m(v)m(e)g(a)g(non-zero)g +(XI)f(v)-5 b(alue.)311 1099 y(3.)46 b(Also)33 b(near)f(the)h(p)s(oles,) +f(cases)i(can)f(arise)f(where)g(there)h(are)g(t)m(w)m(o)g(useful)e +(solutions.)46 b(The)32 b(argu-)427 1212 y(men)m(t)j(N)g(indicates)e +(whether)h(the)h(second)g(of)g(the)f(t)m(w)m(o)i(solutions)d(returned)h +(is)f(useful.)52 b(N)15 b(=)g(1)427 1325 y(indicates)41 +b(only)h(one)g(useful)e(solution,)k(the)e(usual)f(case;)49 +b(under)41 b(these)h(circumstances,)j(the)427 1438 y(second)27 +b(solution)f(can)h(b)s(e)g(regarded)f(as)i(v)-5 b(alid)25 +b(if)h(the)h(v)m(ector)i(V02)f(is)e(in)m(terpreted)g(as)h(the)g(\\o)m +(v)m(er-)427 1551 y(the-p)s(ole")k(case.)311 1735 y(4.)46 +b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i Fn(gnomonic)31 +b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s(ordinates)f([)15 +b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 1848 y(called)30 +b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 1961 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 2146 y(5.)46 b(This)29 b(routine)g(is)h(the)g(Cartesian)g +(equiv)-5 b(alen)m(t)30 b(of)g(the)h(routine)e(sla)p +Fq(_)p FA(TPS2C.)p 0 2356 3780 8 v 0 2469 a Fu(SLA)p +Fk(_)p Fu(UE2EL)224 b Fj(Univ)m(ersal)37 b(to)h(Con)m(v)m(en)m(tional)d +(Elemen)m(ts)222 b Fu(SLA)p Fk(_)p Fu(UE2EL)0 2820 y +Fy(A)m(CTION)44 b FA(:)c(T)-8 b(ransform)30 b(univ)m(ersal)e(elemen)m +(ts)j(in)m(to)g(con)m(v)m(en)m(tional)g(helio)s(cen)m(tric)e +(osculating)h(elemen)m(ts.)0 3007 y Fy(CALL)45 b FA(:)77 +b Fq(CALL)46 b(sla_UE2EL)g(\(U,)h(JFORMR,)1192 3120 y(JFORM,)e(EPOCH,)i +(ORBINC,)e(ANODE,)h(PERIH,)1192 3233 y(AORQ,)g(E,)h(AORL,)f(DM,)h +(JSTAT\))0 3699 y Fy(GIVEN)e FA(:)277 3845 y Fn(U)668 +b Fy(D\(13\))379 b FA(univ)m(ersal)29 b(orbital)g(elemen)m(ts)i(\(up)s +(dated;)e(Note)j(1\))537 3958 y(\(1\))1006 b(com)m(bined)30 +b(mass)g(\()p Fi(M)h FA(+)20 b Fi(m)p FA(\))537 4071 +y(\(2\))1006 b(total)31 b(energy)g(of)g(the)f(orbit)g(\()p +Fi(\013)p FA(\))537 4184 y(\(3\))1006 b(reference)31 +b(\(osculating\))f(ep)s(o)s(c)m(h)h(\()p Fi(t)2869 4198 +y Fr(0)2908 4184 y FA(\))499 4297 y(\(4-6\))969 b(p)s(osition)29 +b(at)i(reference)g(ep)s(o)s(c)m(h)f(\()p Fy(r)2836 4311 +y Fr(0)2876 4297 y FA(\))499 4410 y(\(7-9\))969 b(v)m(elo)s(cit)m(y)31 +b(at)g(reference)g(ep)s(o)s(c)m(h)f(\()p Fy(v)2837 4424 +y Fr(0)2877 4410 y FA(\))514 4522 y(\(10\))984 b(helio)s(cen)m(tric)29 +b(distance)h(at)h(reference)g(ep)s(o)s(c)m(h)514 4635 +y(\(11\))984 b Fy(r)1701 4649 y Fr(0)1741 4635 y Fi(:)p +Fy(v)1821 4649 y Fr(0)514 4748 y FA(\(12\))g(date)31 +b(\()p Fi(t)p FA(\))514 4861 y(\(13\))984 b(univ)m(ersal)29 +b(eccen)m(tric)i(anomaly)f(\()p Fi( )s FA(\))i(of)e(date,)i(appro)m(x) +277 5087 y Fn(JF)n(ORMR)347 b Fy(I)605 b FA(requested)30 +b(elemen)m(t)h(set)g(\(1-3;)h(Note)g(3\))0 5634 y Fy(RETURNED)46 +b FA(:)p eop +%%Page: 155 157 +155 156 bop 0 52 a Ft(SUN/67.45)3206 b FA(155)277 339 +y Fn(JF)n(ORM)413 b Fy(I)605 b FA(elemen)m(t)31 b(set)g(actually)f +(returned)f(\(1-3;)j(Note)g(4\))277 452 y Fn(EPOCH)409 +b Fy(D)565 b FA(ep)s(o)s(c)m(h)30 b(of)h(elemen)m(ts)g(\()p +Fi(t)2462 466 y Fr(0)2531 452 y FA(or)g Fi(T)13 b FA(,)30 +b(TT)g(MJD\))277 565 y Fn(ORBINC)368 b Fy(D)565 b FA(inclination)28 +b(\()p Fi(i)p FA(,)j(radians\))277 678 y Fn(ANODE)399 +b Fy(D)565 b FA(longitude)29 b(of)i(the)f(ascending)g(no)s(de)g +(\(\012,)g(radians\))277 791 y Fn(PERIH)443 b Fy(D)565 +b FA(longitude)29 b(or)i(argumen)m(t)f(of)h(p)s(erihelion)c(\()p +Fi($)33 b FA(or)e Fi(!)s FA(,)1825 904 y(radians\))277 +1016 y Fn(A)n(OR)n(Q)466 b Fy(D)565 b FA(mean)30 b(distance)f(or)g(p)s +(erihelion)d(distance)k(\()p Fi(a)f FA(or)h Fi(q)s FA(,)g(A)m(U\))277 +1129 y Fn(E)674 b Fy(D)565 b FA(eccen)m(tricit)m(y)32 +b(\()p Fi(e)p FA(\))277 1242 y Fn(A)n(ORL)477 b Fy(D)565 +b FA(mean)31 b(anomaly)f(or)g(longitude)f(\()p Fi(M)41 +b FA(or)30 b Fi(L)p FA(,)h(radians,)1825 1355 y(JF)m(ORM=1,2)g(only\)) +277 1468 y Fn(DM)585 b Fy(D)565 b FA(daily)29 b(motion)h(\()p +Fi(n)p FA(,)g(radians,)g(JF)m(ORM=1)h(only\))277 1581 +y Fn(JST)-7 b(A)g(T)453 b Fy(I)605 b FA(status:)1898 +1694 y(0)30 b(=)g(OK)1825 1807 y Fl(\000)p FA(1)g(=)g(illegal)f(PMASS) +1825 1920 y Fl(\000)p FA(2)h(=)g(illegal)f(JF)m(ORMR)1825 +2033 y Fl(\000)p FA(3)h(=)g(p)s(osition/v)m(elo)s(cit)m(y)g(out)g(of)h +(allo)m(w)m(ed)f(range)0 2387 y Fy(NOTES)44 b FA(:)311 +2575 y(1.)i(The)40 b(\\univ)m(ersal")f(elemen)m(ts)h(are)g(those)h +(whic)m(h)d(de\014ne)h(the)h(orbit)f(for)h(the)g(purp)s(oses)e(of)i +(the)427 2688 y(metho)s(d)26 b(of)g(univ)m(ersal)f(v)-5 +b(ariables)25 b(\(see)i(reference)f(2\).)41 b(They)25 +b(consist)h(of)g(the)h(com)m(bined)e(mass)h(of)427 2801 +y(the)33 b(t)m(w)m(o)h(b)s(o)s(dies,)e(an)g(ep)s(o)s(c)m(h,)h(and)f +(the)h(p)s(osition)e(and)h(v)m(elo)s(cit)m(y)h(v)m(ectors)h +(\(arbitrary)e(reference)427 2914 y(frame\))j(at)g(that)g(ep)s(o)s(c)m +(h.)53 b(The)34 b(parameter)h(set)g(used)f(here)g(includes)e(also)j(v) +-5 b(arious)33 b(quan)m(tities)427 3027 y(that)i(can,)g(in)d(fact,)k(b) +s(e)d(deriv)m(ed)f(from)i(the)f(other)h(information.)49 +b(This)32 b(approac)m(h)i(is)f(tak)m(en)i(to)427 3140 +y(a)m(v)m(oiding)d(unnecessary)f(computation)h(and)g(loss)f(of)h +(accuracy)-8 b(.)48 b(The)31 b(supplemen)m(tary)g(quan)m(ti-)427 +3252 y(ties)22 b(are)h(\(i\))f Fi(\013)p FA(,)i(whic)m(h)d(is)g(prop)s +(ortional)f(to)j(the)g(total)g(energy)f(of)h(the)f(orbit,)h(\(ii\))e +(the)i(helio)s(cen)m(tric)427 3365 y(distance)35 b(at)g(ep)s(o)s(c)m +(h,)h(\(iii\))d(the)i(out)m(w)m(ards)g(comp)s(onen)m(t)g(of)g(the)g(v)m +(elo)s(cit)m(y)g(at)h(the)f(giv)m(en)f(ep)s(o)s(c)m(h,)427 +3478 y(\(iv\))29 b(an)f(estimate)h(of)g Fi( )s FA(,)h(the)e(\\univ)m +(ersal)g(eccen)m(tric)h(anomaly")g(at)g(a)g(giv)m(en)g(date)g(and)f +(\(v\))h(that)427 3591 y(date.)311 3771 y(2.)46 b(The)34 +b(univ)m(ersal)f(elemen)m(ts)h(are)h(with)e(resp)s(ect)i(to)g(the)f +(mean)h(equator)g(and)e(equino)m(x)h(of)h(ep)s(o)s(c)m(h)427 +3884 y(J2000.)40 b(The)23 b(orbital)f(elemen)m(ts)h(pro)s(duced)f(are)h +(with)f(resp)s(ect)h(to)h(the)f(J2000)i(ecliptic)d(and)g(mean)427 +3997 y(equino)m(x.)311 4176 y(3.)46 b(Three)30 b(di\013eren)m(t)g +(elemen)m(t-format)i(options)d(are)i(supp)s(orted,)e(as)h(follo)m(ws.) +427 4452 y(JF)m(ORM=1,)h(suitable)e(for)i(the)f(ma)5 +b(jor)30 b(planets:)602 4677 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1910 4691 y Fr(0)1980 4677 +y FA(\(TT)g(MJD\))602 4790 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 4903 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +5016 y(PERIH)122 b(=)55 b(longitude)29 b(of)h(p)s(erihelion)d +Fi($)34 b FA(\(radians\))602 5129 y(A)m(OR)m(Q)143 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 5242 y(E)352 +b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g FA(\(0)26 b Fl(\024)f +Fi(e)h(<)f FA(1\))602 5355 y(A)m(ORL)154 b(=)55 b(mean)30 +b(longitude)f Fi(L)i FA(\(radians\))602 5468 y(DM)262 +b(=)55 b(daily)29 b(motion)h Fi(n)g FA(\(radians\))427 +5693 y(JF)m(ORM=2,)h(suitable)e(for)i(minor)d(planets:)p +eop +%%Page: 156 158 +156 157 bop 0 52 a FA(156)602 351 y(EPOCH)85 b(=)55 b(ep)s(o)s(c)m(h)30 +b(of)h(elemen)m(ts)f Fi(t)1910 365 y Fr(0)1980 351 y +FA(\(TT)g(MJD\))602 464 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 577 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +690 y(PERIH)122 b(=)55 b(argumen)m(t)31 b(of)f(p)s(erihelion)d +Fi(!)33 b FA(\(radians\))602 803 y(A)m(OR)m(Q)143 b(=)55 +b(mean)30 b(distance)g Fi(a)h FA(\(A)m(U\))602 916 y(E)352 +b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g FA(\(0)26 b Fl(\024)f +Fi(e)h(<)f FA(1\))602 1029 y(A)m(ORL)154 b(=)55 b(mean)30 +b(anomaly)h Fi(M)40 b FA(\(radians\))427 1260 y(JF)m(ORM=3,)31 +b(suitable)e(for)i(comets:)602 1490 y(EPOCH)85 b(=)55 +b(ep)s(o)s(c)m(h)30 b(of)h(p)s(erihelion)c Fi(T)43 b +FA(\(TT)30 b(MJD\))602 1603 y(ORBINC)45 b(=)55 b(inclination)27 +b Fi(i)k FA(\(radians\))602 1716 y(ANODE)76 b(=)55 b(longitude)29 +b(of)h(the)h(ascending)f(no)s(de)f(\012)h(\(radians\))602 +1829 y(PERIH)122 b(=)55 b(argumen)m(t)31 b(of)f(p)s(erihelion)d +Fi(!)33 b FA(\(radians\))602 1942 y(A)m(OR)m(Q)143 b(=)55 +b(p)s(erihelion)27 b(distance)j Fi(q)j FA(\(A)m(U\))602 +2055 y(E)352 b(=)55 b(eccen)m(tricit)m(y)31 b Fi(e)g +FA(\(0)26 b Fl(\024)f Fi(e)h Fl(\024)f FA(10\))311 2286 +y(4.)46 b(It)26 b(ma)m(y)g(not)g(b)s(e)f(p)s(ossible)e(to)j(generate)h +(elemen)m(ts)f(in)f(the)g(form)g(requested)h(through)f(JF)m(ORMR.)427 +2399 y(The)45 b(caller)f(is)g(noti\014ed)g(of)h(the)g(form)f(of)h +(elemen)m(ts)g(actually)g(returned)f(b)m(y)g(means)h(of)g(the)427 +2512 y(JF)m(ORM)31 b(argumen)m(t:)554 2742 y(JF)m(ORMR)119 +b(JF)m(ORM)234 b(meaning)705 2968 y(1)465 b(1)362 b(OK:)30 +b(elemen)m(ts)g(are)h(in)e(the)i(requested)f(format)705 +3081 y(1)465 b(2)362 b(nev)m(er)30 b(happ)s(ens)705 3194 +y(1)465 b(3)362 b(orbit)29 b(not)i(elliptical)705 3307 +y(2)465 b(1)362 b(nev)m(er)30 b(happ)s(ens)705 3420 y(2)465 +b(2)362 b(OK:)30 b(elemen)m(ts)g(are)h(in)e(the)i(requested)f(format) +705 3533 y(2)465 b(3)362 b(orbit)29 b(not)i(elliptical)705 +3646 y(3)465 b(1)362 b(nev)m(er)30 b(happ)s(ens)705 3759 +y(3)465 b(2)362 b(nev)m(er)30 b(happ)s(ens)705 3871 y(3)465 +b(3)362 b(OK:)30 b(elemen)m(ts)g(are)h(in)e(the)i(requested)f(format) +311 4102 y(5.)46 b(The)32 b(argumen)m(ts)g(returned)f(for)h(eac)m(h)h +(v)-5 b(alue)31 b(of)h(JF)m(ORM)h(\()p Fn(cf)51 b FA(Note)33 +b(5:)45 b(JF)m(ORM)32 b(ma)m(y)h(not)f(b)s(e)427 4215 +y(the)f(same)g(as)f(JF)m(ORMR\))h(are)g(as)g(follo)m(ws:)602 +4446 y(JF)m(ORM)282 b(1)273 b(2)g(3)602 4672 y(EPOCH)k +Fi(t)1241 4686 y Fr(0)1526 4672 y Fi(t)1559 4686 y Fr(0)1844 +4672 y Fi(T)602 4785 y FA(ORBINC)237 b Fi(i)287 b(i)g(i)602 +4898 y FA(ANODE)268 b(\012)252 b(\012)g(\012)602 5011 +y(PERIH)314 b Fi($)243 b(!)261 b(!)602 5123 y FA(A)m(OR)m(Q)335 +b Fi(a)270 b(a)g(q)602 5236 y FA(E)544 b Fi(e)276 b(e)g(e)602 +5349 y FA(A)m(ORL)346 b Fi(L)256 b(M)230 b FA(-)602 5462 +y(DM)454 b Fi(n)263 b FA(-)288 b(-)427 5693 y(where:)p +eop +%%Page: 157 159 +157 158 bop 0 52 a Ft(SUN/67.45)3206 b FA(157)602 351 +y Fi(t)635 365 y Fr(0)1016 351 y FA(is)29 b(the)i(ep)s(o)s(c)m(h)f(of)g +(the)h(elemen)m(ts)g(\(MJD,)g(TT\))602 464 y Fi(T)361 +b FA(is)29 b(the)i(ep)s(o)s(c)m(h)f(of)g(p)s(erihelion)d(\(MJD,)32 +b(TT\))602 577 y Fi(i)383 b FA(is)29 b(the)i(inclination)c(\(radians\)) +602 690 y(\012)348 b(is)29 b(the)i(longitude)e(of)h(the)h(ascending)e +(no)s(de)h(\(radians\))602 803 y Fi($)339 b FA(is)29 +b(the)i(longitude)e(of)h(p)s(erihelion)d(\(radians\))602 +916 y Fi(!)357 b FA(is)29 b(the)i(argumen)m(t)f(of)h(p)s(erihelion)c +(\(radians\))602 1029 y Fi(a)366 b FA(is)29 b(the)i(mean)f(distance)g +(\(A)m(U\))602 1142 y Fi(q)373 b FA(is)29 b(the)i(p)s(erihelion)c +(distance)j(\(A)m(U\))602 1255 y Fi(e)372 b FA(is)29 +b(the)i(eccen)m(tricit)m(y)602 1367 y Fi(L)352 b FA(is)29 +b(the)i(longitude)e(\(radians,)g(0)21 b Fl(\000)f FA(2)p +Fi(\031)s FA(\))602 1480 y Fi(M)326 b FA(is)29 b(the)i(mean)f(anomaly)g +(\(radians,)g(0)20 b Fl(\000)g FA(2)p Fi(\031)s FA(\))602 +1593 y Fi(n)359 b FA(is)29 b(the)i(daily)d(motion)i(\(radians\))602 +1706 y(-)384 b(means)30 b(no)g(v)-5 b(alue)30 b(is)f(set)311 +1962 y(6.)46 b(A)m(t)c(v)m(ery)g(small)e(inclinations,)h(the)h +(longitude)e(of)h(the)g(ascending)g(no)s(de)g(ANODE)g(b)s(ecomes)427 +2075 y(indeterminate)36 b(and)g(under)f(some)i(circumstances)f(ma)m(y)h +(b)s(e)f(set)h(arbitrarily)d(to)j(zero.)60 b(Simi-)427 +2187 y(larly)-8 b(,)38 b(if)d(the)i(orbit)f(is)f(close)i(to)h +(circular,)e(the)h(true)g(anomaly)f(b)s(ecomes)h(indeterminate)e(and) +427 2300 y(under)h(some)i(circumstances)g(ma)m(y)g(b)s(e)f(set)h +(arbitrarily)d(to)j(zero.)63 b(In)37 b(suc)m(h)g(cases,)j(the)e(other) +427 2413 y(elemen)m(ts)h(are)g(automatically)g(adjusted)f(to)i(comp)s +(ensate,)h(and)d(so)h(the)g(elemen)m(ts)g(remain)f(a)427 +2526 y(v)-5 b(alid)29 b(description)f(of)j(the)f(orbit.)0 +3027 y Fy(REFERENCES)44 b FA(:)311 3270 y(1.)i(Sterne,)25 +b(Theo)s(dore)f(E.,)h Fn(A)n(n)h(Intr)-5 b(o)g(duction)29 +b(to)f(Celestial)f(Me)-5 b(chanics,)25 b FA(In)m(terscience)g +(Publishers,)427 3383 y(1960.)43 b(Section)30 b(6.7,)i(p199.)311 +3556 y(2.)46 b(Ev)m(erhart,)31 b(E.)g(&)f(Pitkin,)e(E.T.,)j(Am.)f(J.)h +(Ph)m(ys.)f(51,)h(712,)h(1983.)p 0 3745 3780 8 v 0 3857 +a Fu(SLA)p Fk(_)p Fu(UE2PV)267 b Fj(P)m(os/V)-10 b(el)37 +b(from)f(Univ)m(ersal)h(Elemen)m(ts)265 b Fu(SLA)p Fk(_)p +Fu(UE2PV)0 4208 y Fy(A)m(CTION)44 b FA(:)59 b(Helio)s(cen)m(tric)40 +b(p)s(osition)e(and)h(v)m(elo)s(cit)m(y)h(of)g(a)g(planet,)i(asteroid)e +(or)g(comet,)j(starting)d(from)227 4321 y(orbital)29 +b(elemen)m(ts)i(in)e(the)i(\\univ)m(ersal)e(v)-5 b(ariables")29 +b(form.)0 4508 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_UE2PV)g +(\(DATE,)g(U,)h(PV,)g(JSTAT\))0 4941 y Fy(GIVEN)e FA(:)277 +5087 y Fn(D)n(A)-7 b(TE)481 b Fy(D)565 b FA(date)34 b(\(TT)e(Mo)s +(di\014ed)g(Julian)e(Date)35 b(=)d(JD)p Fl(\000)p FA(2400000.5\))0 +5693 y Fy(GIVEN)i(and)h(RETURNED)46 b FA(:)p eop +%%Page: 158 160 +158 159 bop 0 52 a FA(158)277 339 y Fn(U)668 b Fy(D\(13\))379 +b FA(univ)m(ersal)29 b(orbital)g(elemen)m(ts)i(\(up)s(dated;)e(Note)j +(1\))537 452 y(\(1\))1006 b(com)m(bined)30 b(mass)g(\()p +Fi(M)h FA(+)20 b Fi(m)p FA(\))537 565 y(\(2\))1006 b(total)31 +b(energy)g(of)g(the)f(orbit)g(\()p Fi(\013)p FA(\))537 +678 y(\(3\))1006 b(reference)31 b(\(osculating\))f(ep)s(o)s(c)m(h)h(\() +p Fi(t)2869 692 y Fr(0)2908 678 y FA(\))499 791 y(\(4-6\))969 +b(p)s(osition)29 b(at)i(reference)g(ep)s(o)s(c)m(h)f(\()p +Fy(r)2836 805 y Fr(0)2876 791 y FA(\))499 904 y(\(7-9\))969 +b(v)m(elo)s(cit)m(y)31 b(at)g(reference)g(ep)s(o)s(c)m(h)f(\()p +Fy(v)2837 918 y Fr(0)2877 904 y FA(\))514 1016 y(\(10\))984 +b(helio)s(cen)m(tric)29 b(distance)h(at)h(reference)g(ep)s(o)s(c)m(h) +514 1129 y(\(11\))984 b Fy(r)1701 1143 y Fr(0)1741 1129 +y Fi(:)p Fy(v)1821 1143 y Fr(0)514 1242 y FA(\(12\))g(date)31 +b(\()p Fi(t)p FA(\))514 1355 y(\(13\))984 b(univ)m(ersal)29 +b(eccen)m(tric)i(anomaly)f(\()p Fi( )s FA(\))i(of)e(date,)i(appro)m(x)0 +1631 y Fy(RETURNED)46 b FA(:)277 1777 y Fn(PV)606 b Fy(D\(6\))431 +b FA(helio)s(cen)m(tric)29 b([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 +b FA(_)-43 b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(],)31 b(equatorial,)f(J2000)1825 1890 +y(\(A)m(U,)i(A)m(U/s;)f(Note)h(1\))277 2003 y Fn(JST)-7 +b(A)g(T)453 b Fy(I)605 b FA(status:)1866 2116 y(0)30 +b(=)h(OK)1798 2229 y Fl(\000)p FA(1)f(=)g(radius)f(v)m(ector)i(zero) +1798 2342 y Fl(\000)p FA(2)f(=)g(failed)f(to)i(con)m(v)m(erge)0 +2618 y Fy(NOTES)44 b FA(:)311 2795 y(1.)i(The)40 b(\\univ)m(ersal")f +(elemen)m(ts)h(are)g(those)h(whic)m(h)d(de\014ne)h(the)h(orbit)f(for)h +(the)g(purp)s(oses)e(of)i(the)427 2908 y(metho)s(d)32 +b(of)g(univ)m(ersal)e(v)-5 b(ariables)31 b(\(see)i(reference\).)47 +b(They)32 b(consist)f(of)i(the)f(com)m(bined)f(mass)h(of)427 +3021 y(the)h(t)m(w)m(o)h(b)s(o)s(dies,)e(an)g(ep)s(o)s(c)m(h,)h(and)f +(the)h(p)s(osition)e(and)h(v)m(elo)s(cit)m(y)h(v)m(ectors)h +(\(arbitrary)e(reference)427 3134 y(frame\))j(at)g(that)g(ep)s(o)s(c)m +(h.)53 b(The)34 b(parameter)h(set)g(used)f(here)g(includes)e(also)j(v) +-5 b(arious)33 b(quan)m(tities)427 3247 y(that)i(can,)g(in)d(fact,)k(b) +s(e)d(deriv)m(ed)f(from)i(the)f(other)h(information.)49 +b(This)32 b(approac)m(h)i(is)f(tak)m(en)i(to)427 3359 +y(a)m(v)m(oiding)d(unnecessary)f(computation)h(and)g(loss)f(of)h +(accuracy)-8 b(.)48 b(The)31 b(supplemen)m(tary)g(quan)m(ti-)427 +3472 y(ties)22 b(are)h(\(i\))f Fi(\013)p FA(,)i(whic)m(h)d(is)g(prop)s +(ortional)f(to)j(the)g(total)g(energy)f(of)h(the)f(orbit,)h(\(ii\))e +(the)i(helio)s(cen)m(tric)427 3585 y(distance)35 b(at)g(ep)s(o)s(c)m +(h,)h(\(iii\))d(the)i(out)m(w)m(ards)g(comp)s(onen)m(t)g(of)g(the)g(v)m +(elo)s(cit)m(y)g(at)h(the)f(giv)m(en)f(ep)s(o)s(c)m(h,)427 +3698 y(\(iv\))29 b(an)f(estimate)h(of)g Fi( )s FA(,)h(the)e(\\univ)m +(ersal)g(eccen)m(tric)h(anomaly")g(at)g(a)g(giv)m(en)g(date)g(and)f +(\(v\))h(that)427 3811 y(date.)311 3974 y(2.)46 b(The)34 +b(companion)g(routine)f(is)h(sla)p Fq(_)p FA(EL2UE.)g(This)e(tak)m(es)k +(the)f(con)m(v)m(en)m(tional)g(orbital)e(elemen)m(ts)427 +4087 y(and)27 b(transforms)g(them)h(in)m(to)f(the)h(set)h(of)e(n)m(um)m +(b)s(ers)g(needed)g(b)m(y)h(the)f(presen)m(t)h(routine.)39 +b(A)28 b(single)427 4200 y(prediction)39 b(requires)f(one)j(one)f(call) +f(to)i(sla)p Fq(_)p FA(EL2UE)f(follo)m(w)m(ed)f(b)m(y)h(one)h(call)e +(to)i(the)f(presen)m(t)427 4313 y(routine;)48 b(for)43 +b(con)m(v)m(enience,)k(the)c(t)m(w)m(o)h(calls)e(are)h(pac)m(k)-5 +b(aged)45 b(as)e(the)f(routine)g(sla)p Fq(_)p FA(PLANEL.)427 +4425 y(Multiple)25 b(predictions)g(ma)m(y)i(b)s(e)g(made)f(b)m(y)h +(again)g(calling)e(sla)p Fq(_)p FA(EL2UE)i(once,)h(but)e(then)h +(calling)427 4538 y(the)c(presen)m(t)f(routine)f(m)m(ultiple)f(times,)k +(whic)m(h)d(is)g(faster)i(than)f(m)m(ultiple)e(calls)h(to)i(sla)p +Fq(_)p FA(PLANEL.)427 4690 y(It)g(is)f(not)h(obligatory)g(to)g(use)g +(sla)p Fq(_)p FA(EL2UE)f(to)h(obtain)g(the)g(parameters.)38 +b(Ho)m(w)m(ev)m(er,)27 b(it)22 b(should)f(b)s(e)427 4803 +y(noted)k(that)f(b)s(ecause)g(sla)p Fq(_)p FA(EL2UE)g(p)s(erforms)e +(its)i(o)m(wn)g(v)-5 b(alidation,)24 b(no)g(c)m(hec)m(ks)h(on)f(the)h +(con)m(ten)m(ts)427 4916 y(of)31 b(the)f(arra)m(y)h(U)g(are)g(made)f(b) +m(y)g(the)h(presen)m(t)f(routine.)311 5079 y(3.)46 b(D)m(A)-8 +b(TE)35 b(is)f(the)g(instan)m(t)g(for)g(whic)m(h)f(the)i(prediction)d +(is)h(required.)51 b(It)34 b(is)g(in)e(the)j(TT)e(timescale)427 +5192 y(\(formerly)d(Ephemeris)e(Time,)i(ET\))g(and)g(is)f(a)i(Mo)s +(di\014ed)e(Julian)f(Date)k(\(JD)p Fl(\000)p FA(2400000.5\).)311 +5354 y(4.)46 b(The)32 b(univ)m(ersal)e(elemen)m(ts)i(supplied)c(in)j +(the)h(arra)m(y)g(U)g(are)g(in)f(canonical)g(units)f(\(solar)i(masses,) +427 5467 y(A)m(U)f(and)f(canonical)g(da)m(ys\).)41 b(The)30 +b(p)s(osition)e(and)i(v)m(elo)s(cit)m(y)h(are)g(not)f(sensitiv)m(e)g +(to)h(the)f(c)m(hoice)h(of)427 5580 y(reference)36 b(frame.)56 +b(The)35 b(sla)p Fq(_)p FA(EL2UE)g(routine)g(in)f(fact)j(pro)s(duces)d +(co)s(ordinates)h(with)f(resp)s(ect)427 5693 y(to)d(the)g(J2000)h +(equator)f(and)f(equino)m(x.)p eop +%%Page: 159 161 +159 160 bop 0 52 a Ft(SUN/67.45)3206 b FA(159)311 351 +y(5.)46 b(The)36 b(algorithm)f(w)m(as)h(originally)e(adapted)i(from)g +(the)g(EPHSLA)f(program)h(of)g(D.)16 b(H.)g(P)-8 b(.)16 +b(Jones)427 464 y(\(priv)-5 b(ate)36 b(comm)m(unication,)h(1996\).)59 +b(The)35 b(metho)s(d)h(is)f(based)g(on)h(Stump\013)7 +b('s)35 b(Univ)m(ersal)f(V)-8 b(ari-)427 577 y(ables.)0 +924 y Fy(REFERENCE)44 b FA(:)d(Ev)m(erhart,)31 b(E.)f(&)g(Pitkin,)f +(E.T.,)h(Am.)h(J.)f(Ph)m(ys.)g(51,)i(712,)g(1983.)p 0 +1051 3780 8 v 0 1164 a Fu(SLA)p Fk(_)p Fu(UNPCD)404 b +Fj(Remo)m(v)m(e)36 b(Radial)i(Distortion)401 b Fu(SLA)p +Fk(_)p Fu(UNPCD)0 1514 y Fy(A)m(CTION)44 b FA(:)c(Remo)m(v)m(e)30 +b(pincushion/barrel)25 b(distortion)j(from)g(a)i(distorted)e([)15 +b Fi(x;)g(y)j FA(])30 b(to)f(giv)m(e)h(tangen)m(t-plane)227 +1627 y([)15 b Fi(x;)g(y)k FA(].)0 1814 y Fy(CALL)45 b +FA(:)77 b Fq(CALL)46 b(sla_UNPCD)g(\(DISCO,X,Y\))0 2156 +y Fy(GIVEN)f FA(:)277 2302 y Fn(DISCO)446 b Fy(D)565 +b FA(pincushion/barrel)26 b(distortion)j(co)s(e\016cien)m(t)277 +2415 y Fn(X,Y)572 b Fy(D)565 b FA(distorted)30 b([)15 +b Fi(x;)g(y)k FA(])0 2753 y Fy(RETURNED)46 b FA(:)277 +2925 y Fn(X,Y)572 b Fy(D)565 b FA(tangen)m(t-plane)31 +b([)15 b Fi(x;)g(y)k FA(])0 3272 y Fy(NOTES)44 b FA(:)311 +3458 y(1.)i(The)32 b(distortion)e(is)h(of)h(the)g(form)g +Fi(\032)c FA(=)f Fi(r)s FA(\(1)22 b(+)f Fi(cr)2099 3425 +y Fr(2)2138 3458 y FA(\),)33 b(where)e Fi(r)k FA(is)c(the)h(radial)e +(distance)i(from)f(the)427 3571 y(tangen)m(t)g(p)s(oin)m(t,)d +Fi(c)h FA(is)f(the)h(DISCO)f(argumen)m(t,)i(and)f Fi(\032)g +FA(is)f(the)h(radial)e(distance)i(in)e(the)i(presence)427 +3684 y(of)i(the)f(distortion.)311 3828 y(2.)46 b(F)-8 +b(or)31 b Fn(pincushion)39 b FA(distortion,)29 b(C)h(is)f(+v)m(e;)i +(for)g Fn(b)-5 b(arr)g(el)41 b FA(distortion,)29 b(C)h(is)g +Fl(\000)p FA(v)m(e.)311 3972 y(3.)46 b(F)-8 b(or)37 b(X,Y)g(in)e(units) +f(of)j(one)f(pro)5 b(jection)36 b(radius)e(\(in)h(the)i(case)g(of)f(a)h +(photographic)e(plate,)j(the)427 4084 y(fo)s(cal)30 b(length\),)h(the)f +(follo)m(wing)f(DISCO)h(v)-5 b(alues)29 b(apply:)p 912 +4213 1243 4 v 910 4326 4 113 v 962 4292 a(Geometry)p +1684 4326 V 423 w(DISCO)p 2153 4326 V 912 4329 1243 4 +v 912 4345 V 910 4458 4 113 v 962 4425 a(astrograph)p +1684 4458 V 475 w(0.0)p 2153 4458 V 912 4462 1243 4 v +910 4575 4 113 v 962 4541 a(Sc)m(hmidt)p 1684 4575 V +470 w Fl(\000)p FA(0.3333)p 2153 4575 V 912 4578 1243 +4 v 910 4691 4 113 v 962 4657 a(AA)-8 b(T)31 b(PF)f(doublet)p +1684 4691 V 99 w(+147.069)p 2153 4691 V 912 4694 1243 +4 v 910 4807 4 113 v 962 4773 a(AA)-8 b(T)31 b(PF)f(triplet)p +1684 4807 V 149 w(+178.585)p 2153 4807 V 912 4810 1243 +4 v 910 4923 4 113 v 962 4889 a(AA)-8 b(T)31 b(f/8)p +1684 4923 V 476 w(+21.20)p 2153 4923 V 912 4927 1243 +4 v 910 5040 4 113 v 962 5006 a(JKT)e(f/8)p 1684 5040 +V 511 w(+14.6)p 2153 5040 V 912 5043 1243 4 v 311 5224 +a(4.)46 b(The)23 b(presen)m(t)h(routine)e(is)h(an)g(appro)m(ximate)h +(in)m(v)m(erse)f(to)h(the)g(companion)f(routine)f(sla)p +Fq(_)p FA(PCD,)h(ob-)427 5337 y(tained)j(from)g(t)m(w)m(o)i(iterations) +d(of)i(Newton's)g(metho)s(d.)39 b(The)26 b(mismatc)m(h)g(b)s(et)m(w)m +(een)h(the)f(sla)p Fq(_)p FA(PCD)427 5450 y(and)35 b(sla)p +Fq(_)p FA(UNPCD)g(is)g(negligible)e(for)i(astrometric)h(applications;)g +(to)g(reac)m(h)h(1)e(milliarcsec)f(at)427 5562 y(the)29 +b(edge)g(of)g(the)g(AA)-8 b(T)29 b(triplet)e(or)i(Sc)m(hmidt)e(\014eld) +h(w)m(ould)f(require)g(\014eld)h(diameters)g(of)h(2)3526 +5529 y Fm(\016)3532 5562 y Fi(:)r FA(4)g(and)427 5675 +y(42)517 5642 y Fm(\016)588 5675 y FA(resp)s(ectiv)m(ely)-8 +b(.)p eop +%%Page: 160 162 +160 161 bop 0 52 a FA(160)p 0 267 3780 8 v 0 380 a Fu(SLA)p +Fk(_)p Fu(V2TP)304 b Fj(Direction)37 b(Cosines)h(to)g(T)-10 +b(angen)m(t)37 b(Plane)305 b Fu(SLA)p Fk(_)p Fu(V2TP)0 +730 y Fy(A)m(CTION)44 b FA(:)39 b(Giv)m(en)27 b(the)g(direction)f +(cosines)h(of)g(a)h(star)f(and)g(of)g(the)h(tangen)m(t)g(p)s(oin)m(t,)f +(determine)g(the)g(star's)227 843 y(tangen)m(t-plane)32 +b(co)s(ordinates)e(\(single)f(precision\).)0 1031 y Fy(CALL)45 +b FA(:)77 b Fq(CALL)46 b(sla_V2TP)g(\(V,)h(V0,)g(XI,)g(ETA,)f(J\))0 +1384 y Fy(GIVEN)f FA(:)277 1530 y Fn(V)668 b Fy(R\(3\))433 +b FA(direction)29 b(cosines)h(of)h(star)277 1643 y Fn(V0)622 +b Fy(R\(3\))433 b FA(direction)29 b(cosines)h(of)h(tangen)m(t)h(p)s +(oin)m(t)0 2003 y Fy(RETURNED)46 b FA(:)277 2149 y Fn(XI,ET)-7 +b(A)417 b Fy(R)567 b FA(tangen)m(t)32 b(plane)d(co)s(ordinates)h +(\(radians\))277 2262 y Fn(J)688 b Fy(I)605 b FA(status:)1825 +2375 y(0)31 b(=)f(OK,)g(star)g(on)g(tangen)m(t)i(plane)1825 +2488 y(1)f(=)f(error,)g(star)g(to)s(o)h(far)g(from)f(axis)1825 +2601 y(2)h(=)f(error,)g(an)m(tistar)g(on)h(tangen)m(t)h(plane)1825 +2714 y(3)f(=)f(error,)g(an)m(tistar)g(to)s(o)i(far)e(from)g(axis)0 +3074 y Fy(NOTES)44 b FA(:)311 3264 y(1.)i(If)32 b(v)m(ector)h(V0)f(is)f +(not)h(of)g(unit)e(length,)i(or)f(if)g(v)m(ector)i(V)f(is)f(of)h(zero)g +(length,)g(the)g(results)e(will)f(b)s(e)427 3377 y(wrong.)311 +3525 y(2.)46 b(If)35 b(V0)i(p)s(oin)m(ts)d(at)i(a)g(p)s(ole,)h(the)e +(returned)g Fi(\030)t(;)15 b(\021)39 b FA(will)33 b(b)s(e)i(based)g(on) +h(the)g(arbitrary)e(assumption)427 3638 y(that)d Fi(\013)26 +b FA(=)f(0)31 b(at)g(the)f(tangen)m(t)i(p)s(oin)m(t.)311 +3785 y(3.)46 b(The)24 b(pro)5 b(jection)25 b(is)f(called)f(the)i +Fn(gnomonic)31 b FA(pro)5 b(jection;)27 b(the)d(Cartesian)h(co)s +(ordinates)f([)15 b Fi(\030)t(;)g(\021)k FA(])25 b(are)427 +3898 y(called)30 b Fn(standar)-5 b(d)37 b(c)-5 b(o)g(or)g(dinates.)45 +b FA(The)30 b(latter)i(are)f(in)f(units)f(of)i(the)h(distance)e(from)h +(the)g(tangen)m(t)427 4011 y(plane)f(to)h(the)f(pro)5 +b(jection)30 b(p)s(oin)m(t,)g Fn(i.e.)g FA(radians)f(near)h(the)h +(origin.)311 4158 y(4.)46 b(This)29 b(routine)g(is)h(the)g(Cartesian)g +(equiv)-5 b(alen)m(t)30 b(of)g(the)h(routine)e(sla)p +Fq(_)p FA(S2TP)-8 b(.)p 0 4293 V 0 4406 a Fu(SLA)p Fk(_)p +Fu(VD)l(V)884 b Fj(Scalar)37 b(Pro)s(duct)884 b Fu(SLA)p +Fk(_)p Fu(VD)l(V)0 4757 y Fy(A)m(CTION)44 b FA(:)c(Scalar)30 +b(pro)s(duct)g(of)g(t)m(w)m(o)i(3-v)m(ectors)g(\(single)e(precision\).) +0 4944 y Fy(CALL)45 b FA(:)77 b Fq(R)47 b(=)h(sla_VDV)d(\(VA,)i(VB\))0 +5298 y Fy(GIVEN)e FA(:)277 5444 y Fn(V)-9 b(A)609 b Fy(R\(3\))433 +b FA(\014rst)30 b(v)m(ector)277 5557 y Fn(VB)604 b Fy(R\(3\))433 +b FA(second)31 b(v)m(ector)p eop +%%Page: 161 163 +161 162 bop 0 52 a Ft(SUN/67.45)3206 b FA(161)0 351 y +Fy(RETURNED)46 b FA(:)277 523 y Fn(sla)p Fq(_)p Fn(VD)n(V)379 +b Fy(R)567 b FA(scalar)30 b(pro)s(duct)g(V)-10 b(A.VB)p +0 677 3780 8 v 0 790 a Fu(SLA)p Fk(_)p Fu(VN)919 b Fj(Normalize)35 +b(V)-10 b(ector)919 b Fu(SLA)p Fk(_)p Fu(VN)0 1140 y +Fy(A)m(CTION)44 b FA(:)c(Normalize)31 b(a)f(3-v)m(ector,)j(also)e +(giving)e(the)h(mo)s(dulus)e(\(single)h(precision\).)0 +1328 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_VN)g(\(V,)h(UV,)g(VM\))0 +1686 y Fy(GIVEN)e FA(:)277 1857 y Fn(V)668 b Fy(R\(3\))433 +b FA(v)m(ector)0 2233 y Fy(RETURNED)46 b FA(:)277 2379 +y Fn(UV)600 b Fy(R\(3\))433 b FA(unit)29 b(v)m(ector)j(in)d(direction)g +(of)i(V)277 2492 y Fn(VM)586 b Fy(R)567 b FA(mo)s(dulus)28 +b(of)i(V)0 2860 y Fy(NOTE)44 b FA(:)d(If)30 b(the)g(mo)s(dulus)e(of)j +(V)f(is)f(zero,)j(UV)f(is)e(set)i(to)g(zero)g(as)g(w)m(ell.)p +0 2998 V 0 3111 a Fu(SLA)p Fk(_)p Fu(VXV)871 b Fj(V)-10 +b(ector)38 b(Pro)s(duct)872 b Fu(SLA)p Fk(_)p Fu(VXV)0 +3461 y Fy(A)m(CTION)44 b FA(:)c(V)-8 b(ector)33 b(pro)s(duct)c(of)h(t)m +(w)m(o)i(3-v)m(ectors)h(\(single)c(precision\).)0 3649 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_VXV)g(\(VA,)h(VB,)g(VC\))0 +4007 y Fy(GIVEN)e FA(:)277 4153 y Fn(V)-9 b(A)609 b Fy(R\(3\))433 +b FA(\014rst)30 b(v)m(ector)277 4266 y Fn(VB)604 b Fy(R\(3\))433 +b FA(second)31 b(v)m(ector)0 4633 y Fy(RETURNED)46 b +FA(:)277 4805 y Fn(V)n(C)605 b Fy(R\(3\))433 b FA(v)m(ector)32 +b(pro)s(duct)d(V)-10 b(A)p Fl(\002)p FA(VB)p 0 4959 V +0 5072 a Fu(SLA)p Fk(_)p Fu(W)-15 b(AIT)901 b Fj(Time)37 +b(Dela)m(y)903 b Fu(SLA)p Fk(_)p Fu(W)-15 b(AIT)0 5422 +y Fy(A)m(CTION)44 b FA(:)c(W)-8 b(ait)32 b(for)e(a)h(sp)s(eci\014ed)d +(in)m(terv)-5 b(al.)0 5610 y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 +b(sla_WAIT)g(\(DELAY\))p eop +%%Page: 162 164 +162 163 bop 0 52 a FA(162)0 351 y Fy(GIVEN)45 b FA(:)277 +523 y Fn(DELA)-7 b(Y)419 b Fy(R)567 b FA(dela)m(y)31 +b(in)e(seconds)0 907 y Fy(NOTES)44 b FA(:)311 1104 y(1.)i(The)30 +b(implemen)m(tation)f(is)h(mac)m(hine-sp)s(eci\014c.)311 +1254 y(2.)46 b(The)d(dela)m(y)h(actually)f(requested)h(is)e(restricted) +i(to)g(the)g(range)g(100ns-200s)h(in)e(the)g(presen)m(t)427 +1367 y(implemen)m(tation.)311 1518 y(3.)j(There)20 b(is)g(no)g(guaran)m +(tee)i(of)f(accuracy)-8 b(,)24 b(though)d(on)f(almost)h(all)e(t)m(yp)s +(es)i(of)f(computer)h(the)g(program)427 1631 y(will)28 +b(certainly)i(not)g(resume)g(execution)h Fn(b)-5 b(efor)g(e)37 +b FA(the)31 b(stated)g(in)m(terv)-5 b(al)30 b(has)g(elapsed.)p +0 1772 3780 8 v 0 1885 a Fu(SLA)p Fk(_)p Fu(XY2XY)262 +b Fj(Apply)38 b(Linear)g(Mo)s(del)h(to)f(an)g([)20 b +Fd(x;)g(y)j Fj(])264 b Fu(SLA)p Fk(_)p Fu(XY2XY)0 2235 +y Fy(A)m(CTION)44 b FA(:)50 b(T)-8 b(ransform)35 b(one)g([)15 +b Fi(x;)g(y)k FA(])35 b(in)m(to)h(another)f(using)f(a)i(linear)d(mo)s +(del)i(of)g(the)g(t)m(yp)s(e)h(pro)s(duced)e(b)m(y)227 +2348 y(the)d(sla)p Fq(_)p FA(FITXY)f(routine.)0 2536 +y Fy(CALL)45 b FA(:)77 b Fq(CALL)46 b(sla_XY2XY)g +(\(X1,Y1,COEFFS,X2,Y2\))0 2899 y Fy(GIVEN)f FA(:)277 +3045 y Fn(X1,Y1)480 b Fy(D)565 b FA([)15 b Fi(x;)g(y)k +FA(])30 b(b)s(efore)g(transformation)277 3158 y Fn(COEFFS)370 +b Fy(D\(6\))431 b FA(transformation)30 b(co)s(e\016cien)m(ts)h(\(see)g +(note\))0 3534 y Fy(RETURNED)46 b FA(:)277 3705 y Fn(X2,Y2)480 +b Fy(D)565 b FA([)15 b Fi(x;)g(y)k FA(])30 b(after)h(transformation)0 +4090 y Fy(NOTES)44 b FA(:)311 4286 y(1.)i(The)30 b(mo)s(del)f(relates)h +(t)m(w)m(o)h(sets)g(of)f([)15 b Fi(x;)g(y)k FA(])30 b(co)s(ordinates)f +(as)i(follo)m(ws.)39 b(Naming)30 b(the)g(six)f(elemen)m(ts)427 +4399 y(of)i(COEFFS)f Fi(a;)15 b(b;)g(c;)g(d;)g(e)33 b +FA(&)d Fi(f)10 b FA(,)29 b(the)i(presen)m(t)f(routine)g(p)s(erforms)f +(the)h(transformation:)597 4550 y Fi(x)649 4564 y Fr(2)714 +4550 y FA(=)25 b Fi(a)20 b FA(+)g Fi(bx)1060 4564 y Fr(1)1120 +4550 y FA(+)g Fi(cy)1295 4564 y Fr(1)597 4663 y Fi(y)642 +4677 y Fr(2)707 4663 y FA(=)k Fi(d)d FA(+)f Fi(ex)1055 +4677 y Fr(1)1115 4663 y FA(+)g Fi(f)10 b(y)1306 4677 +y Fr(1)311 4813 y FA(2.)46 b(See)31 b(also)f(sla)p Fq(_)p +FA(FITXY,)g(sla)p Fq(_)p FA(PXY,)g(sla)p Fq(_)p FA(INVF,)h(sla)p +Fq(_)p FA(DCMPF.)p 0 4955 V 0 5068 a Fu(SLA)p Fk(_)p +Fu(ZD)800 b Fd(h;)20 b(\016)43 b Fj(to)38 b(Zenith)g(Distance)800 +b Fu(SLA)p Fk(_)p Fu(ZD)0 5418 y Fy(A)m(CTION)44 b FA(:)c(Hour)31 +b(angle)f(and)g(declination)e(to)j(zenith)f(distance)g(\(double)f +(precision\).)0 5606 y Fy(CALL)45 b FA(:)77 b Fq(D)47 +b(=)h(sla_ZD)e(\(HA,)g(DEC,)h(PHI\))p eop +%%Page: 163 165 +163 164 bop 0 52 a Ft(SUN/67.45)3206 b FA(163)0 351 y +Fy(GIVEN)45 b FA(:)277 497 y Fn(HA)600 b Fy(D)565 b FA(hour)30 +b(angle)g(in)f(radians)277 610 y Fn(DEC)540 b Fy(D)565 +b FA(declination)29 b(in)g(radians)277 723 y Fn(PHI)571 +b Fy(D)565 b FA(latitude)30 b(in)f(radians)0 1765 y Fy(RETURNED)46 +b FA(:)277 1937 y Fn(sla)p Fq(_)p Fn(ZD)457 b Fy(D)565 +b FA(zenith)30 b(distance)g(\(radians,)f(0)5 b Fl(\000)g +Fi(\031)s FA(\))0 2987 y Fy(NOTES)44 b FA(:)311 3450 +y(1.)i(The)32 b(latitude)f(m)m(ust)i(b)s(e)e(geo)s(detic.)48 +b(In)31 b(critical)h(applications,)f(corrections)i(for)f(p)s(olar)f +(motion)427 3563 y(should)e(b)s(e)g(applied)g(\(see)i(sla)p +Fq(_)p FA(POLMO\).)311 3847 y(2.)46 b(In)36 b(some)h(applications)e(it) +i(will)d(b)s(e)i(imp)s(ortan)m(t)g(to)h(sp)s(ecify)f(the)h(correct)h(t) +m(yp)s(e)f(of)g(hour)e(angle)427 3960 y(and)e(declination)f(in)h(order) +g(to)h(pro)s(duce)f(the)h(required)e(t)m(yp)s(e)h(of)h(zenith)f +(distance.)51 b(In)33 b(partic-)427 4073 y(ular,)h(it)g(ma)m(y)h(b)s(e) +e(imp)s(ortan)m(t)g(to)i(distinguish)30 b(b)s(et)m(w)m(een)35 +b(the)f(zenith)g(distance)g(as)g(a\013ected)i(b)m(y)427 +4186 y(refraction,)28 b(whic)m(h)e(w)m(ould)f(require)h(the)h +Fn(observe)-5 b(d)38 b FA([)15 b Fi(h;)g(\016)20 b FA(],)28 +b(and)e(the)i(zenith)e(distance)h Fn(in)i(vacuo)p FA(,)427 +4299 y(whic)m(h)e(w)m(ould)g(require)g(the)i Fn(top)-5 +b(o)g(c)g(entric)36 b FA([)15 b Fi(h;)g(\016)20 b FA(].)40 +b(If)28 b(the)h(e\013ects)g(of)g(diurnal)c(ab)s(erration)i(can)i(b)s(e) +427 4412 y(neglected,)j(the)e Fn(app)-5 b(ar)g(ent)42 +b FA([)15 b Fi(h;)g(\016)20 b FA(])31 b(ma)m(y)g(b)s(e)e(used)h +(instead)g(of)g(the)h Fn(top)-5 b(o)g(c)g(entric)38 b +FA([)15 b Fi(h;)g(\016)20 b FA(].)311 4695 y(3.)46 b(No)31 +b(range)g(c)m(hec)m(king)g(of)g(argumen)m(ts)f(is)g(done.)311 +4979 y(4.)46 b(In)33 b(applications)e(whic)m(h)h(in)m(v)m(olv)m(e)i +(man)m(y)f(zenith)g(distance)g(calculations,)g(rather)g(than)g(calling) +427 5092 y(the)44 b(presen)m(t)f(routine)f(it)g(will)f(b)s(e)h(more)h +(e\016cien)m(t)h(to)g(use)e(inline)e(co)s(de,)47 b(ha)m(ving)c +(previously)427 5205 y(computed)26 b(\014xed)f(terms)g(suc)m(h)g(as)h +(sine)f(and)g(cosine)g(of)h(latitude,)f(and)g(p)s(erhaps)f(sine)h(and)g +(cosine)427 5318 y(of)31 b(declination.)p eop +%%Page: 164 166 +164 165 bop 0 52 a FA(164)0 351 y Fu(4)135 b(EXPLANA)-11 +b(TION)43 b(AND)i(EXAMPLES)0 606 y FA(T)-8 b(o)38 b(guide)f(the)h +(writer)f(of)h(p)s(ositional-astronom)m(y)e(applications)g(soft)m(w)m +(are,)42 b(this)36 b(\014nal)h(c)m(hapter)h(puts)f(the)0 +719 y(SLALIB)22 b(routines)g(in)m(to)g(the)h(con)m(text)i(of)d +(astronomical)h(phenomena)f(and)g(tec)m(hniques,)i(and)e(presen)m(ts)h +(a)g(few)0 832 y(\\co)s(okb)s(o)s(ok")28 b(examples)f(of)h(the)g +(SLALIB)e(calls)h(in)f(action.)40 b(The)27 b(astronomical)g(con)m(ten)m +(t)i(of)f(the)f(c)m(hapter)h(is)0 945 y(not,)g(of)f(course,)h(in)m +(tended)e(to)i(b)s(e)e(a)h(substitute)f(for)h(sp)s(ecialist)e(text-b)s +(o)s(oks)i(on)g(p)s(ositional)e(astronom)m(y)-8 b(,)29 +b(but)0 1058 y(ma)m(y)37 b(help)e(bridge)g(the)i(gap)g(b)s(et)m(w)m +(een)g(suc)m(h)f(b)s(o)s(oks)g(and)f(the)i(SLALIB)f(routines.)58 +b(F)-8 b(or)37 b(further)e(reading,)0 1171 y(the)c(follo)m(wing)d(co)m +(v)m(er)33 b(a)d(wide)f(range)i(of)g(material)e(and)h(st)m(yles:)136 +1412 y Fl(\017)46 b Fn(Explanatory)32 b(Supplement)d(to)h(the)f(Astr)-5 +b(onomic)g(al)31 b(A)n(lmanac)p FA(,)d(ed.)e(P)-8 b(.)16 +b(Kenneth)25 b(Seidelmann)f(\(1992\),)227 1525 y(Univ)m(ersit)m(y)30 +b(Science)g(Bo)s(oks.)136 1715 y Fl(\017)46 b Fn(V)-7 +b(e)i(ctorial)34 b(Astr)-5 b(ometry)p FA(,)32 b(C.)16 +b(A.)f(Murra)m(y)30 b(\(1983\),)j(Adam)e(Hilger.)136 +1906 y Fl(\017)46 b Fn(Spheric)-5 b(al)35 b(Astr)-5 b(onomy)p +FA(,)32 b(Robin)d(M.)16 b(Green)31 b(\(1985\),)i(Cam)m(bridge)c(Univ)m +(ersit)m(y)h(Press.)136 2096 y Fl(\017)46 b Fn(Sp)-5 +b(ac)g(e)g(cr)g(aft)36 b(A)n(ttitude)c(Determination)i(and)f(Contr)-5 +b(ol)p FA(,)33 b(ed.)d(James)h(R.)15 b(W)-8 b(ertz)32 +b(\(1986\),)h(Reidel.)136 2287 y Fl(\017)46 b Fn(Pr)-5 +b(actic)g(al)41 b(Astr)-5 b(onomy)41 b(with)f(your)g(Calculator)p +FA(,)i(P)m(eter)c(Du\013ett-Smith)g(\(1981\),)k(Cam)m(bridge)36 +b(Uni-)227 2400 y(v)m(ersit)m(y)31 b(Press.)0 2641 y(Also)f(of)h +(considerable)d(v)-5 b(alue,)31 b(though)f(out)g(of)h(date)g(in)e +(places,)h(are:)136 2882 y Fl(\017)46 b Fn(Explanatory)31 +b(Supplement)f(to)f(the)f(Astr)-5 b(onomic)g(al)31 b(Ephemeris)f(and)f +(the)g(A)n(meric)-5 b(an)28 b(Ephemeris)h(and)227 2995 +y(Nautic)-5 b(al)34 b(A)n(lmanac)p FA(,)d(R)m(GO/USNO)g(\(1974\),)i +(HMSO.)136 3185 y Fl(\017)46 b Fn(T)-7 b(extb)i(o)g(ok)34 +b(on)f(Spheric)-5 b(al)35 b(Astr)-5 b(onomy)p FA(,)33 +b(W.)15 b(M.)h(Smart)30 b(\(1977\),)j(Cam)m(bridge)d(Univ)m(ersit)m(y)f +(Press.)0 3426 y(Only)i(brief)h(details)g(of)h(individual)28 +b(SLALIB)33 b(routines)f(are)h(giv)m(en)g(here,)h(and)e(readers)h(will) +d(\014nd)i(it)g(useful)0 3539 y(to)i(refer)g(to)g(the)g(subprogram)e +(sp)s(eci\014cations)h(elsewhere)g(in)f(this)h(do)s(cumen)m(t.)50 +b(The)33 b(source)h(co)s(de)g(for)f(the)0 3652 y(SLALIB)22 +b(routines)g(\(a)m(v)-5 b(ailable)23 b(in)e(b)s(oth)h(F)-8 +b(ortran)24 b(and)e(C\))h(is)f(also)h(in)m(tended)e(to)j(b)s(e)e(used)g +(as)h(do)s(cumen)m(tation.)0 3950 y Fs(4.1)112 b(Spherical)37 +b(T)-9 b(rigonometry)0 4174 y FA(Celestial)41 b(phenomena)h(o)s(ccur)g +(at)h(suc)m(h)f(v)-5 b(ast)43 b(distances)f(from)g(the)g(observ)m(er)h +(that)g(for)f(most)h(practical)0 4287 y(purp)s(oses)35 +b(there)i(is)f(no)h(need)f(to)i(w)m(ork)f(in)e(3D;)j(only)e(the)h +(direction)e(of)i(a)g(source)g(matters,)j(not)d(ho)m(w)g(far)0 +4400 y(a)m(w)m(a)m(y)27 b(it)d(is.)38 b(Things)23 b(can)i(therefore)h +(b)s(e)e(view)m(ed)g(as)i(if)d(they)i(w)m(ere)h(happ)s(ening)c(on)j +(the)g(inside)e(of)i(sphere)f(with)0 4513 y(the)32 b(observ)m(er)g(at)h +(the)f(cen)m(tre)g({)h(the)f Fn(c)-5 b(elestial)34 b(spher)-5 +b(e)p FA(.)47 b(Problems)30 b(in)m(v)m(olving)h(p)s(ositions)e(and)j +(orien)m(tations)0 4626 y(in)g(the)i(sky)f(can)h(then)f(b)s(e)g(solv)m +(ed)g(b)m(y)h(using)e(the)i(form)m(ulae)f(of)g Fn(spheric)-5 +b(al)38 b(trigonometry)p FA(,)e(whic)m(h)d(apply)f(to)0 +4738 y Fn(spheric)-5 b(al)35 b(triangles)p FA(,)c(the)g(sides)e(of)h +(whic)m(h)f(are)i Fn(gr)-5 b(e)g(at)34 b(cir)-5 b(cles)p +FA(.)0 4903 y(P)m(ositions)29 b(on)h(the)g(celestial)g(sphere)f(ma)m(y) +i(b)s(e)e(sp)s(eci\014ed)f(b)m(y)i(using)f(a)h(spherical)e(p)s(olar)h +(co)s(ordinate)h(system,)0 5016 y(de\014ned)k(in)g(terms)i(of)g(some)f +(fundamen)m(tal)g(plane)f(and)h(a)h(line)e(in)g(that)i(plane)f(c)m +(hosen)h(to)g(represen)m(t)g(zero)0 5128 y(longitude.)54 +b(Mathematicians)35 b(usually)e(w)m(ork)i(with)f(the)h(co-latitude,)i +(with)d(zero)i(at)g(the)f(principal)d(p)s(ole,)0 5241 +y(whereas)g(most)g(astronomical)g(co)s(ordinate)f(systems)h(use)g +(latitude,)f(rec)m(k)m(oned)i(plus)d(and)i(min)m(us)e(from)h(the)0 +5354 y(equator.)81 b(Astronomical)43 b(co)s(ordinate)g(systems)h(ma)m +(y)g(b)s(e)f(either)g(righ)m(t-handed)f(\()p Fn(e.g.)i +FA(righ)m(t)f(ascension)0 5467 y(and)29 b(declination)f([)15 +b Fi(\013;)g(\016)20 b FA(],)30 b(Galactic)g(longitude)f(and)f +(latitude)h([)15 b Fi(l)2257 5434 y Fc(I)-7 b(I)2321 +5467 y Fi(;)15 b(b)2400 5434 y Fc(I)-7 b(I)2480 5467 +y FA(]\))30 b(or)f(left-handed)g(\()p Fn(e.g.)g FA(hour)f(angle)0 +5580 y(and)44 b(declination)g([)15 b Fi(h;)g(\016)20 +b FA(]\).)85 b(In)44 b(some)i(cases)g(di\013eren)m(t)e(con)m(v)m(en)m +(tions)i(ha)m(v)m(e)h(b)s(een)d(used)g(in)g(the)h(past,)k(a)0 +5693 y(fruitful)30 b(source)j(of)g(mistak)m(es.)49 b(Azim)m(uth)33 +b(and)f(geographical)h(longitude)f(are)i(examples;)g(azim)m(uth)e(is)g +(no)m(w)p eop +%%Page: 165 167 +165 166 bop 0 52 a Ft(SUN/67.45)3206 b FA(165)0 351 y(generally)36 +b(rec)m(k)m(oned)j(north)d(through)h(east)h(\(making)f(a)h(left-handed) +e(system\);)41 b(geographical)d(longitude)0 464 y(is)g(no)m(w)i +(usually)d(tak)m(en)j(to)g(increase)g(east)m(w)m(ards)g(\(a)g(righ)m +(t-handed)e(system\))i(but)f(astronomers)g(used)g(to)0 +577 y(emplo)m(y)f(a)i(w)m(est-p)s(ositiv)m(e)e(con)m(v)m(en)m(tion.)67 +b(In)38 b(rep)s(orts)g(and)g(program)h(commen)m(ts)g(it)g(is)e(wise)h +(to)i(sp)s(ell)c(out)0 690 y(what)30 b(con)m(v)m(en)m(tion)i(is)d(b)s +(eing)g(used,)h(if)f(there)i(is)e(an)m(y)i(p)s(ossibilit)m(y)c(of)j +(confusion.)0 843 y(When)e(applying)e(spherical)h(trigonometry)h(form)m +(ulae,)h(atten)m(tion)g(m)m(ust)f(b)s(e)g(paid)f(to)i(rounding)d +(errors)h(\(for)0 956 y(example)43 b(it)f(is)g(a)i(bad)e(idea)h(to)h +(\014nd)d(a)j(small)d(angle)i(through)g(its)f(cosine\))h(and)g(to)h +(the)f(p)s(ossibilit)m(y)c(of)0 1069 y(problems)30 b(close)i(to)g(p)s +(oles.)43 b(Also,)32 b(if)e(a)i(form)m(ulation)e(relies)g(on)i(insp)s +(ection)d(to)j(establish)e(the)i(quadran)m(t)f(of)0 1181 +y(the)g(result,)e(it)h(is)f(an)i(indication)d(that)j(a)g(v)m +(ector-related)h(metho)s(d)e(migh)m(t)g(b)s(e)g(preferable.)0 +1334 y(As)c(w)m(ell)f(as)i(pro)m(viding)d(man)m(y)i(routines)f(whic)m +(h)g(w)m(ork)i(in)e(terms)h(of)g(sp)s(eci\014c)f(spherical)f(co)s +(ordinates)i(suc)m(h)g(as)0 1447 y([)15 b Fi(\013;)g(\016)20 +b FA(],)37 b(SLALIB)d(pro)m(vides)g(t)m(w)m(o)i(routines)e(whic)m(h)g +(op)s(erate)h(directly)f(on)h(generic)f(spherical)f(co)s(ordinates:)0 +1560 y(sla)p Fq(_)p FA(SEP)k(computes)i(the)g(separation)f(b)s(et)m(w)m +(een)h(t)m(w)m(o)h(p)s(oin)m(ts)e(\(the)h(distance)f(along)h(a)g(great) +h(circle\))e(and)0 1673 y(sla)p Fq(_)p FA(BEAR)j(computes)h(the)g(b)s +(earing)f(\(or)h Fn(p)-5 b(osition)45 b(angle)p FA(\))e(of)f(one)g(p)s +(oin)m(t)e(seen)i(from)g(the)g(other.)75 b(The)0 1786 +y(routines)21 b(sla)p Fq(_)p FA(DSEP)h(and)f(sla)p Fq(_)p +FA(DBEAR)i(are)g(double)e(precision)f(equiv)-5 b(alen)m(ts.)38 +b(As)22 b(a)h(simple)d(demonstration)0 1899 y(of)29 b(SLALIB,)g(w)m(e)g +(will)d(use)j(these)g(facilities)e(to)j(estimate)g(the)f(distance)f +(from)h(London)f(to)h(Sydney)f(and)g(the)0 2012 y(initial)g(compass)i +(heading:)573 2234 y Fq(IMPLICIT)45 b(NONE)286 2460 y(*)96 +b(Degrees)45 b(to)j(radians)573 2573 y(REAL)e(D2R)573 +2686 y(PARAMETER)f(\(D2R=0.01745329252\))286 2912 y(*)96 +b(Longitudes)45 b(and)h(latitudes)g(\(radians\))f(for)i(London)f(and)h +(Sydney)573 3025 y(REAL)f(AL,BL,AS,BS)573 3137 y(PARAMETER)f +(\(AL=-0.2*D2R,BL=51.5*D2R)o(,AS=)o(151.)o(2*D)o(2R,B)o(S=-3)o(3.9)o +(*D2R)o(\))286 3363 y(*)96 b(Earth)46 b(radius)g(in)h(km)g(\(spherical) +e(approximation\))573 3476 y(REAL)h(RKM)573 3589 y(PARAMETER)f +(\(RKM=6375.0\))573 3815 y(REAL)h(sla_SEP,sla_BEAR)286 +4154 y(*)96 b(Distance)45 b(and)i(initial)f(heading)g(\(N=0,)g(E=90\)) +573 4267 y(WRITE)g(\(*,'\(1X,I5,'')e(km,'',I4,'')h(deg''\)'\))525 +4379 y(:)191 b(NINT\(sla_SEP\(AL,BL,AS,B)o(S\)*R)o(KM\))o(,NIN)o(T\(sl) +o(a_B)o(EAR\()o(AL,B)o(L,A)o(S,BS)o(\)/D2)o(R\))573 4605 +y(END)0 4828 y FA(\(The)30 b(result)g(is)f(17011)j(km,)f(61)1094 +4795 y Fm(\016)1134 4828 y FA(.\))0 4980 y(The)24 b(routines)f(sla)p +Fq(_)p FA(P)-8 b(A)e(V)25 b(and)f(sla)p Fq(_)p FA(DP)-8 +b(A)e(V)25 b(are)g(equiv)-5 b(alen)m(ts)23 b(of)i(sla)p +Fq(_)p FA(BEAR)f(and)g(sla)p Fq(_)p FA(DBEAR)h(but)f(starting)0 +5093 y(from)30 b(direction-cosines)f(instead)h(of)g(spherical)f(co)s +(ordinates.)0 5369 y Fy(4.1.1)105 b(F)-9 b(ormatting)34 +b(angles)0 5580 y FA(SLALIB)28 b(has)g(routines)g(for)g(deco)s(ding)g +(decimal)f(n)m(um)m(b)s(ers)g(from)h(c)m(haracter)j(form)d(and)g(for)g +(con)m(v)m(erting)h(an-)0 5693 y(gles)e(to)h(and)e(from)g(sexagesimal)h +(form)g(\(hours,)g(min)m(utes,)g(seconds)g(or)g(degrees,)h(arcmin)m +(utes,)f(arcseconds\).)p eop +%%Page: 166 168 +166 167 bop 0 52 a FA(166)0 351 y(These)33 b(apparen)m(tly)g(straigh)m +(tforw)m(ard)h(op)s(erations)e(con)m(tain)i(hidden)d(traps)j(whic)m(h)e +(the)i(SLALIB)f(routines)0 464 y(a)m(v)m(oid.)0 626 y(There)d(are)h +(\014v)m(e)f(routines)f(for)h(deco)s(ding)g(n)m(um)m(b)s(ers)f(from)g +(a)i(c)m(haracter)h(string,)e(suc)m(h)g(as)g(migh)m(t)g(b)s(e)g(en)m +(tered)0 739 y(using)38 b(a)i(k)m(eyb)s(oard.)67 b(They)39 +b(all)f(w)m(ork)i(in)e(the)h(same)h(st)m(yle,)i(and)d(successiv)m(e)g +(calls)g(can)h(w)m(ork)f(their)f(w)m(a)m(y)0 852 y(along)c(a)h(single)e +(string)g(deco)s(ding)h(a)g(sequence)h(of)g(n)m(um)m(b)s(ers)e(of)h +(assorted)h(t)m(yp)s(es.)52 b(Num)m(b)s(er)34 b(\014elds)e(can)j(b)s(e) +0 965 y(separated)c(b)m(y)f(spaces)h(or)f(commas,)i(and)d(can)i(b)s(e)f +(defaulted)f(to)i(previous)e(v)-5 b(alues)30 b(or)g(to)h(preset)g +(defaults.)0 1126 y(Three)23 b(of)g(the)h(routines)e(deco)s(de)h +(single)f(n)m(um)m(b)s(ers:)36 b(sla)p Fq(_)p FA(INTIN)22 +b(\(in)m(teger\),)k(sla)p Fq(_)p FA(FLOTIN)c(\(single)g(precision)0 +1239 y(\015oating)35 b(p)s(oin)m(t\))g(and)g(sla)p Fq(_)p +FA(DFL)-8 b(TIN)35 b(\(double)f(precision\).)54 b(A)36 +b(min)m(us)d(sign)i(can)g(b)s(e)g(detected)h(ev)m(en)g(when)0 +1352 y(the)26 b(n)m(um)m(b)s(er)f(is)h(zero;)i(this)d(a)m(v)m(oids)i +(the)f(frequen)m(tly-encoun)m(tered)h(\\min)m(us)d(zero")k(bug,)f +(where)e(declinations)0 1465 y Fn(etc.)j FA(in)f(the)h(range)h(0)719 +1432 y Fm(\016)787 1465 y FA(to)f Fl(\000)p FA(1)1011 +1432 y Fm(\016)1079 1465 y FA(m)m(ysteriously)f(migrate)h(to)h(the)g +(range)f(0)2491 1432 y Fm(\016)2559 1465 y FA(to)h(+1)2784 +1432 y Fm(\016)2824 1465 y FA(.)40 b(Here)28 b(is)f(an)i(example)e +(\(in)0 1578 y(F)-8 b(ortran\))30 b(where)f(w)m(e)g(wish)f(to)i(read)f +(t)m(w)m(o)h(n)m(um)m(b)s(ers,)e(and)h(in)m(teger)h Fq(IX)e +FA(and)h(a)g(real,)g Fq(Y)p FA(,)h(with)d Fq(X)i FA(defaulting)f(to)0 +1691 y(zero)j(and)f Fq(Y)g FA(defaulting)f(to)i Fq(X)p +FA(:)573 1949 y Fq(DOUBLE)46 b(PRECISION)f(Y)573 2062 +y(CHARACTER*80)f(A)573 2175 y(INTEGER)i(IX,I,J)286 2401 +y(*)96 b(Input)46 b(the)h(string)f(to)h(be)g(decoded)573 +2514 y(READ)f(\(*,'\(A\)'\))g(A)286 2740 y(*)96 b(Preset)46 +b(IX)h(to)g(its)g(default)f(value)573 2853 y(IX)h(=)g(0)286 +3079 y(*)96 b(Point)46 b(to)h(the)g(start)f(of)i(the)e(string)573 +3191 y(I)h(=)h(1)286 3417 y(*)96 b(Decode)46 b(an)h(integer)573 +3530 y(CALL)f(sla_INTIN\(A,I,IX,J\))573 3643 y(IF)h(\(J.GT.1\))e(GO)j +(TO)f(...)g(\(bad)f(IX\))286 3869 y(*)96 b(Preset)46 +b(Y)h(to)g(its)g(default)f(value)573 3982 y(Y)h(=)h(DBLE\(IX\))286 +4208 y(*)96 b(Decode)46 b(a)h(double)f(precision)f(number)573 +4321 y(CALL)h(sla_DFLTIN\(A,I,Y,J\))573 4434 y(IF)h(\(J.GT.1\))e(GO)j +(TO)f(...)g(\(bad)f(Y\))0 4692 y FA(Tw)m(o)34 b(additional)d(routines)i +(deco)s(de)h(a)g(3-\014eld)f(sexagesimal)h(n)m(um)m(b)s(er:)46 +b(sla)p Fq(_)p FA(AFIN)33 b(\(degrees,)j(arcmin)m(utes,)0 +4805 y(arcseconds)e(to)g(single)d(precision)h(radians\))g(and)h(sla)p +Fq(_)p FA(D)m(AFIN)g(\(the)h(same)g(but)e(double)g(precision\).)48 +b(They)0 4918 y(also)41 b(w)m(ork)g(using)e(other)i(units)e(suc)m(h)h +(as)h(hours)f Fn(etc)p FA(.)h(if)e(y)m(ou)i(m)m(ultiply)d(the)j(result) +f(b)m(y)h(the)f(appropriate)0 5031 y(factor.)i(An)30 +b(example)g(F)-8 b(ortran)31 b(program)f(whic)m(h)f(uses)h(sla)p +Fq(_)p FA(D)m(AFIN)h(w)m(as)g(giv)m(en)f(earlier,)g(in)f(section)h +(1.2.)0 5193 y(SLALIB)39 b(pro)m(vides)g(four)f(routines)h(for)g +(expressing)f(an)i(angle)f(in)g(radians)f(in)g(a)i(preferred)e(range.) +69 b(The)0 5305 y(function)30 b(sla)p Fq(_)p FA(RANGE)h(expresses)g(an) +g(angle)h(in)e(the)h(range)h Fl(\006)p Fi(\031)s FA(;)f(sla)p +Fq(_)p FA(RANORM)g(expresses)g(an)g(angle)h(in)0 5418 +y(the)26 b(range)g(0)11 b Fl(\000)g FA(2)p Fi(\031)s +FA(.)40 b(The)26 b(functions)e(sla)p Fq(_)p FA(DRANGE)i(and)f(sla)p +Fq(_)p FA(DRANRM)h(are)g(double)f(precision)f(v)m(ersions.)0 +5580 y(Sev)m(eral)41 b(routines)g(\(sla)p Fq(_)p FA(CTF2D,)h(sla)p +Fq(_)p FA(CR2AF)f Fn(etc.)p FA(\))73 b(are)42 b(pro)m(vided)e(to)j(con) +m(v)m(ert)g(angles)e(to)h(and)f(from)0 5693 y(sexagesimal)33 +b(form)g(\(hours,)h(min)m(ute,)f(seconds)h(or)f(degrees,)i(arcmin)m +(utes)e(and)g(arcseconds\).)50 b(They)33 b(a)m(v)m(oid)p +eop +%%Page: 167 169 +167 168 bop 0 52 a Ft(SUN/67.45)3206 b FA(167)0 351 y(the)37 +b(common)f(\\con)m(v)m(erting)i(from)e(in)m(teger)h(to)g(real)g(at)g +(the)g(wrong)f(time")g(bug,)i(whic)m(h)d(pro)s(duces)h(angles)0 +464 y(lik)m(e)30 b(24)257 431 y Fr(h)316 464 y FA(59)406 +431 y Fr(m)485 464 y FA(59)575 431 y Fr(s)580 464 y Fi(:)p +FA(999.)43 b(Here)31 b(is)e(a)i(program)f(whic)m(h)f(displa)m(ys)g(an)h +(hour)f(angle)i(stored)f(in)f(radians:)573 749 y Fq(DOUBLE)46 +b(PRECISION)f(HA)573 862 y(CHARACTER)g(SIGN)573 975 y(INTEGER)h +(IHMSF\(4\))573 1088 y(:)573 1201 y(CALL)g +(sla_DR2TF\(3,HA,SIGN,IHMSF\))573 1314 y(WRITE)g +(\(*,'\(1X,A,3I3.2,''.'',I3.)o(3\)')o(\))c(SIGN,IHMSF)0 +1748 y Fs(4.2)112 b(V)-9 b(ectors)37 b(and)h(Matrices)0 +1980 y FA(As)33 b(an)h(alternativ)m(e)g(to)g(emplo)m(ying)e(a)i +(spherical)e(p)s(olar)g(co)s(ordinate)h(system,)i(the)e(direction)g(of) +g(an)h(ob)5 b(ject)0 2093 y(can)36 b(b)s(e)f(de\014ned)g(in)f(terms)i +(of)g(the)g(sum)f(of)h(an)m(y)g(three)g(v)m(ectors)i(as)e(long)f(as)h +(they)g(are)h(di\013eren)m(t)e(and)g(not)0 2206 y(coplanar.)73 +b(In)41 b(practice,)k(three)c(v)m(ectors)i(at)f(righ)m(t)f(angles)g +(are)h(usually)d(c)m(hosen,)45 b(forming)40 b(a)i(system)f(of)0 +2319 y Fn(Cartesian)k(c)-5 b(o)g(or)g(dinates)p FA(.)81 +b(The)42 b Fn(x)p FA(-)h(and)f Fn(y)p FA(-axes)i(lie)e(in)f(the)i +(fundamen)m(tal)e(plane)h(\()p Fn(e.g.)h FA(the)f(equator)i(in)0 +2432 y(the)f(case)g(of)g([)15 b Fi(\013;)g(\016)20 b +FA(]\),)46 b(with)41 b(the)i Fn(x)p FA(-axis)f(p)s(oin)m(ting)f(to)i +(zero)g(longitude.)75 b(The)42 b Fn(z)p FA(-axis)g(is)g(normal)f(to)i +(the)0 2545 y(fundamen)m(tal)28 b(plane)g(and)g(p)s(oin)m(ts)f(to)m(w)m +(ards)j(p)s(ositiv)m(e)e(latitudes.)39 b(The)28 b Fn(y)p +FA(-axis)h(can)g(lie)e(in)h(either)g(of)h(the)g(t)m(w)m(o)0 +2658 y(p)s(ossible)c(directions,)i(dep)s(ending)d(on)k(whether)e(the)i +(co)s(ordinate)f(system)h(is)e(righ)m(t-handed)g(or)h(left-handed.)0 +2771 y(The)i(three)g(axes)h(are)g(sometimes)f(called)f(a)i +Fn(triad)p FA(.)42 b(F)-8 b(or)30 b(most)f(applications)f(in)m(v)m +(olving)f(arbitrarily)g(distan)m(t)0 2884 y(ob)5 b(jects)38 +b(suc)m(h)e(as)h(stars,)i(the)e(v)m(ector)i(whic)m(h)c(de\014nes)h(the) +h(direction)f(concerned)h(is)f(constrained)g(to)h(ha)m(v)m(e)0 +2996 y(unit)d(length.)55 b(The)35 b Fn(x)p FA(-,)i Fn(y-)e +FA(and)g Fn(z-)p FA(comp)s(onen)m(ts)g(can)g(b)s(e)g(regarded)g(as)h +(the)f(scalar)h(\(dot\))g(pro)s(duct)e(of)i(this)0 3109 +y(v)m(ector)41 b(on)m(to)f(the)f(three)g(axes)h(of)f(the)g(triad)f(in)g +(turn.)65 b(Because)41 b(the)e(v)m(ector)h(is)e(a)i(unit)d(v)m(ector,) +43 b(eac)m(h)d(of)0 3222 y(the)c(three)g(dot-pro)s(ducts)f(is)g(simply) +e(the)j(cosine)g(of)g(the)g(angle)g(b)s(et)m(w)m(een)g(the)g(unit)e(v)m +(ector)k(and)d(the)h(axis)0 3335 y(concerned,)31 b(and)f(the)g +Fn(x)p FA(-,)h Fn(y-)f FA(and)g Fn(z-)p FA(comp)s(onen)m(ts)g(are)h +(sometimes)f(called)g Fn(dir)-5 b(e)g(ction)34 b(c)-5 +b(osines)p FA(.)0 3506 y(F)d(or)34 b(some)f(applications)e(in)m(v)m +(olving)h(ob)5 b(jects)33 b(with)f(the)h(Solar)f(System,)i(unit)e(v)m +(ectors)i(are)f(inappropriate,)0 3618 y(and)e(it)f(is)h(necessary)g(to) +h(use)f(v)m(ectors)i(scaled)e(in)f(length-units)f(suc)m(h)i(as)h(A)m +(U,)g(km)f Fn(etc.)43 b FA(In)30 b(these)i(cases)g(the)0 +3731 y(origin)37 b(of)i(the)f(co)s(ordinate)h(system)g(ma)m(y)g(not)g +(b)s(e)e(the)i(observ)m(er,)i(but)d(instead)g(migh)m(t)g(b)s(e)g(the)h +(Sun,)g(the)0 3844 y(Solar-System)c(barycen)m(tre,)i(the)f(cen)m(tre)g +(of)g(the)f(Earth)h Fn(etc.)55 b FA(But)35 b(whatev)m(er)h(the)g +(application,)f(the)h(\014nal)0 3957 y(direction)29 b(in)g(whic)m(h)g +(the)i(observ)m(er)f(sees)h(the)g(ob)5 b(ject)31 b(can)g(b)s(e)e +(expressed)h(as)h(direction)e(cosines.)0 4128 y(But)40 +b(where)g(has)g(this)f(got)j(us?)69 b(Instead)40 b(of)g(t)m(w)m(o)i(n)m +(um)m(b)s(ers)d({)h(a)h(longitude)e(and)g(a)i(latitude)e({)i(w)m(e)f +(no)m(w)0 4240 y(ha)m(v)m(e)30 b(three)f(n)m(um)m(b)s(ers)f(to)i(lo)s +(ok)e(after)i({)f(the)g Fn(x)p FA(-,)h Fn(y-)f FA(and)f +Fn(z-)p FA(comp)s(onen)m(ts)h({)g(whose)g(quadratic)g(sum)f(w)m(e)h(ha) +m(v)m(e)0 4353 y(someho)m(w)36 b(to)h(con)m(triv)m(e)f(to)h(b)s(e)e +(unit)m(y)-8 b(.)56 b(And,)36 b(in)f(addition)e(to)k(this)e(apparen)m +(t)g(redundancy)-8 b(,)36 b(most)g(p)s(eople)0 4466 y(\014nd)25 +b(it)h(harder)g(to)h(visualize)e(problems)g(in)h(terms)g(of)h([)15 +b Fi(x;)g(y)s(;)g(z)20 b FA(])27 b(than)g(in)e([)15 b +Fi(\022)s(;)g(\036)27 b FA(].)39 b(Despite)27 b(these)g(ob)5 +b(jections,)0 4579 y(the)38 b(v)m(ector)i(approac)m(h)e(turns)f(out)h +(to)h(ha)m(v)m(e)g(signi\014can)m(t)e(adv)-5 b(an)m(tages)40 +b(o)m(v)m(er)f(the)f(spherical)e(trigonometry)0 4692 +y(approac)m(h:)136 4949 y Fl(\017)46 b FA(V)-8 b(ector)33 +b(form)m(ulae)d(tend)g(to)i(b)s(e)e(m)m(uc)m(h)h(more)f(succinct;)h +(one)g(v)m(ector)h(op)s(eration)f(is)e(the)i(equiv)-5 +b(alen)m(t)30 b(of)227 5061 y(strings)f(of)i(sines)e(and)h(cosines.)136 +5264 y Fl(\017)46 b FA(The)30 b(form)m(ulae)g(are)h(as)g(a)f(rule)f +(rigorous,)h(ev)m(en)h(at)g(the)g(p)s(oles.)136 5467 +y Fl(\017)46 b FA(Accuracy)37 b(is)f(main)m(tained)f(all)g(o)m(v)m(er)i +(the)g(celestial)e(sphere.)58 b(When)36 b(one)g(Cartesian)g(comp)s +(onen)m(t)g(is)227 5580 y(nearly)30 b(unit)m(y)g(and)g(therefore)h +(insensitiv)m(e)d(to)k(direction,)d(the)i(others)g(b)s(ecome)g(small)e +(and)h(therefore)227 5693 y(more)h(precise.)p eop +%%Page: 168 170 +168 169 bop 0 52 a FA(168)136 351 y Fl(\017)46 b FA(F)-8 +b(orm)m(ulations)24 b(usually)e(deliv)m(er)h(the)h(quadran)m(t)g(of)g +(the)h(result)e(without)g(the)h(need)g(for)g(an)m(y)h(insp)s(ection)227 +464 y(\(except)32 b(within)c(the)i(library)e(function)h(A)-8 +b(T)g(AN2\).)0 731 y(A)35 b(n)m(um)m(b)s(er)f(of)i(imp)s(ortan)m(t)e +(transformations)h(in)f(p)s(ositional)f(astronom)m(y)j(turn)e(out)h(to) +h(b)s(e)f(nothing)f(more)0 844 y(than)h(c)m(hanges)i(of)f(co)s +(ordinate)f(system,)i(something)e(whic)m(h)g(is)f(esp)s(ecially)g(con)m +(v)m(enien)m(t)j(if)d(the)i(v)m(ector)h(ap-)0 957 y(proac)m(h)30 +b(is)f(used.)40 b(A)30 b(direction)f(with)g(resp)s(ect)h(to)h(one)f +(triad)f(can)h(b)s(e)g(expressed)f(relativ)m(e)h(to)h(another)f(triad)0 +1069 y(simply)j(b)m(y)i(m)m(ultiplying)d(the)j([)15 b +Fi(x;)g(y)s(;)g(z)21 b FA(])35 b(column)f(v)m(ector)j(b)m(y)f(the)f +(appropriate)f(3)24 b Fl(\002)g FA(3)35 b(orthogonal)h(matrix)0 +1182 y(\(a)f(tensor)f(of)h(Rank)f(2,)i(or)e Fn(dyadic)p +FA(\).)54 b(The)33 b(three)i(ro)m(ws)f(of)g(this)g Fn(r)-5 +b(otation)38 b(matrix)47 b FA(are)34 b(the)h(v)m(ectors)g(in)e(the)0 +1295 y(old)d(co)s(ordinate)i(system)f(of)h(the)f(three)h(new)e(axes,)j +(and)d(the)i(transformation)f(amoun)m(ts)g(to)h(obtaining)e(the)0 +1408 y(dot-pro)s(duct)d(of)g(the)g(direction-v)m(ector)h(with)e(eac)m +(h)i(of)g(the)f(three)h(new)e(axes.)41 b(Precession,)27 +b(n)m(utation,)h([)15 b Fi(h;)g(\016)20 b FA(])0 1521 +y(to)k([)15 b Fi(Az)t(;)g(E)5 b(l)27 b FA(],)e([)15 b +Fi(\013;)g(\016)20 b FA(])k(to)g([)15 b Fi(l)919 1488 +y Fc(I)-7 b(I)983 1521 y Fi(;)15 b(b)1062 1488 y Fc(I)-7 +b(I)1142 1521 y FA(])23 b(and)g(so)h(on)f(are)h(t)m(ypical)f(examples)g +(of)g(the)h(tec)m(hnique.)38 b(A)24 b(useful)d(prop)s(ert)m(y)0 +1634 y(of)31 b(the)f(rotation)h(matrices)f(is)g(that)h(they)f(can)h(b)s +(e)f(in)m(v)m(erted)g(simply)e(b)m(y)i(taking)g(the)h(transp)s(ose.)0 +1808 y(The)i(elemen)m(ts)h(of)g(these)g(v)m(ectors)h(and)e(matrices)h +(are)g(assorted)g(com)m(binations)f(of)g(the)h(sines)f(and)g(cosines)0 +1921 y(of)d(the)h(v)-5 b(arious)29 b(angles)h(in)m(v)m(olv)m(ed)g +(\(hour)g(angle,)g(declination)f(and)h(so)g(on,)h(dep)s(ending)c(on)k +(whic)m(h)e(transfor-)0 2034 y(mation)g(is)g(b)s(eing)e(applied\).)39 +b(If)29 b(y)m(ou)h(write)e(out)i(the)f(matrix)g(m)m(ultiplications)d +(in)i(full)g(y)m(ou)h(get)i(expressions)0 2147 y(whic)m(h)c(are)h +(essen)m(tially)f(the)h(same)g(as)g(the)h(equiv)-5 b(alen)m(t)27 +b(spherical)f(trigonometry)i(form)m(ulae.)40 b(Indeed,)27 +b(man)m(y)0 2260 y(of)38 b(the)h(standard)e(form)m(ulae)g(of)i +(spherical)d(trigonometry)i(are)h(most)f(easily)f(deriv)m(ed)g(b)m(y)h +(expressing)f(the)0 2373 y(problem)29 b(initially)e(in)i(terms)h(of)h +(v)m(ectors.)0 2702 y Fy(4.2.1)105 b(Using)36 b(v)m(ectors)0 +2941 y FA(SLALIB)k(pro)m(vides)f(con)m(v)m(ersions)i(b)s(et)m(w)m(een)g +(spherical)d(and)i(v)m(ector)i(form)e(\(sla)p Fq(_)p +FA(CS2C,)f(sla)p Fq(_)p FA(CC2S)g Fn(etc.)p FA(\),)0 +3053 y(plus)28 b(an)i(assortmen)m(t)i(of)e(standard)f(v)m(ector)j(and)e +(matrix)f(op)s(erations)h(\(sla)p Fq(_)p FA(VD)m(V,)h(sla)p +Fq(_)p FA(MXV)f Fn(etc.)p FA(\).)41 b(There)0 3166 y(are)j(also)g +(routines)e(\(sla)p Fq(_)p FA(EULER)h Fn(etc.)p FA(\))81 +b(for)44 b(creating)g(a)g(rotation)g(matrix)f(from)g(three)h +Fn(Euler)h(angles)0 3279 y FA(\(successiv)m(e)29 b(rotations)f(ab)s +(out)g(sp)s(eci\014ed)e(Cartesian)i(axes\).)41 b(Instead)28 +b(of)g(Euler)f(angles,)h(a)h(rotation)f(matrix)0 3392 +y(can)j(b)s(e)f(expressed)g(as)h(an)g Fn(axial)i(ve)-5 +b(ctor)42 b FA(\(the)31 b(p)s(ole)f(of)g(the)h(rotation,)h(and)e(the)g +(amoun)m(t)i(of)e(rotation\),)i(and)0 3505 y(routines)d(are)i(pro)m +(vided)e(for)h(this)f(\(sla)p Fq(_)p FA(A)-10 b(V2M,)32 +b(sla)p Fq(_)p FA(M2A)-10 b(V)30 b Fn(etc.)p FA(\).)0 +3679 y(Here)f(is)f(an)g(example)g(where)g(spherical)f(co)s(ordinates)h +Fq(P1)g FA(and)g Fq(Q1)g FA(undergo)g(a)h(co)s(ordinate)f +(transformation)0 3792 y(and)20 b(b)s(ecome)i Fq(P2)e +FA(and)g Fq(Q2)p FA(;)k(the)d(transformation)g(consists)f(of)h(a)h +(rotation)f(of)g(the)g(co)s(ordinate)g(system)g(through)0 +3905 y(angles)30 b Fq(A)p FA(,)h Fq(B)f FA(and)f Fq(C)h +FA(ab)s(out)g(the)h Fn(z)p FA(,)g(new)f Fn(y)38 b FA(and)30 +b(new)g Fn(z)41 b FA(axes)31 b(resp)s(ectiv)m(ely:)573 +4203 y Fq(REAL)46 b(A,B,C,R\(3,3\),P1,Q1,V1\(3\),V)o(2\(3)o(\),P2)o +(,Q2)620 4315 y(:)286 4428 y(*)96 b(Create)46 b(rotation)f(matrix)573 +4541 y(CALL)h(sla_EULER\('ZYZ',A,B,C,R\))286 4767 y(*)96 +b(Transform)45 b(position)g(\(P,Q\))i(from)f(spherical)g(to)h +(Cartesian)573 4880 y(CALL)f(sla_CS2C\(P1,Q1,V1\))286 +5106 y(*)96 b(Multiply)45 b(by)i(rotation)f(matrix)573 +5219 y(CALL)g(sla_MXV\(R,V1,V2\))286 5445 y(*)96 b(Back)46 +b(to)h(spherical)573 5557 y(CALL)f(sla_CC2S\(V2,P2,Q2\))p +eop +%%Page: 169 171 +169 170 bop 0 52 a Ft(SUN/67.45)3206 b FA(169)0 351 y(Small)26 +b(adjustmen)m(ts)i(to)g(the)g(direction)f(of)h(a)g(p)s(osition)e(v)m +(ector)k(are)e(often)g(most)h(con)m(v)m(enien)m(tly)f(describ)s(ed)e +(in)0 464 y(terms)c(of)h([)15 b(\001)p Fi(x;)g FA(\001)p +Fi(y)s(;)g FA(\001)p Fi(z)k FA(].)39 b(Adding)20 b(the)j(correction)f +(v)m(ector)i(needs)e(careful)g(handling)e(if)h(the)h(p)s(osition)f(v)m +(ector)0 577 y(is)j(to)h(remain)f(of)h(length)f(unit)m(y)-8 +b(,)26 b(an)f(advisable)e(precaution)h(whic)m(h)g(ensures)g(that)h(the) +g([)15 b Fi(x;)g(y)s(;)g(z)20 b FA(])25 b(comp)s(onen)m(ts)0 +690 y(are)f(alw)m(a)m(ys)h(a)m(v)-5 b(ailable)23 b(to)i(mean)f(the)g +(cosines)g(of)g(the)g(angles)g(b)s(et)m(w)m(een)g(the)h(v)m(ector)g +(and)e(the)i(axis)e(concerned.)0 803 y(Tw)m(o)33 b(t)m(yp)s(es)g(of)h +(shifts)d(are)j(commonly)e(used,)i(the)f(\014rst)f(where)h(a)g(small)f +(v)m(ector)j(of)e(arbitrary)f(direction)f(is)0 916 y(added)24 +b(to)h(the)f(unit)f(v)m(ector,)k(and)d(the)g(second)h(where)e(there)i +(is)e(a)i(displacemen)m(t)e(in)g(the)h(latitude)g(co)s(ordinate)0 +1029 y(\(declination,)29 b(elev)-5 b(ation)31 b Fn(etc.)p +FA(\))40 b(alone.)0 1187 y(F)-8 b(or)39 b(a)g(shift)e(pro)s(duced)g(b)m +(y)i(adding)e(a)i(small)e([)15 b Fi(x;)g(y)s(;)g(z)20 +b FA(])39 b(v)m(ector)h Fy(D)e FA(to)i(a)e(unit)g(v)m(ector)i +Fy(V1)p FA(,)h(the)d(resulting)0 1300 y(v)m(ector)c Fy(V2)f +FA(has)g(direction)e Fi(<)e Fy(V1)22 b FA(+)f Fy(D)30 +b Fi(>)i FA(but)g(is)g(no)g(longer)h(of)g(unit)e(length.)47 +b(A)33 b(b)s(etter)g(appro)m(ximation)0 1413 y(is)f(a)m(v)-5 +b(ailable)32 b(if)g(the)g(result)g(is)g(m)m(ultiplied)d(b)m(y)k(a)g +(scaling)f(factor)h(of)g(\(1)23 b Fl(\000)e Fy(D)h Fl(\001)g +Fy(V1)q FA(\),)33 b(where)g(the)g(dot)g(means)0 1526 +y(scalar)d(pro)s(duct.)40 b(In)29 b(F)-8 b(ortran:)573 +1770 y Fq(F)47 b(=)h(\(1D0-\(DX*V1X+DY*V1Y+DZ*)o(V1Z\))o(\))573 +1883 y(V2X)f(=)g(F*\(V1X+DX\))573 1996 y(V2Y)g(=)g(F*\(V1Y+DY\))573 +2108 y(V2Z)g(=)g(F*\(V1Z+DZ\))0 2353 y FA(The)30 b(correction)h(for)f +(diurnal)d(ab)s(erration)j(\(discussed)e(later\))j(is)f(an)g(example)g +(of)g(this)g(form)g(of)g(shift.)0 2511 y(As)39 b(an)f(example)g(of)h +(the)g(second)f(kind)f(of)i(displacemen)m(t)e(w)m(e)i(will)d(apply)i(a) +h(small)e(c)m(hange)i(in)f(elev)-5 b(ation)0 2624 y Fi(\016)s(E)37 +b FA(to)32 b(an)e([)15 b Fi(Az)t(;)g(E)5 b(l)35 b FA(])c(direction)e(v) +m(ector.)44 b(The)30 b(direction)g(of)h(the)g(result)f(can)h(b)s(e)f +(obtained)g(b)m(y)h(making)f(the)0 2737 y(allo)m(w)m(able)j(appro)m +(ximation)f(tan)15 b Fi(\016)s(E)32 b Fl(\031)25 b Fi(\016)s(E)39 +b FA(and)32 b(adding)g(a)i(adjustmen)m(t)f(v)m(ector)i(of)e(length)f +Fi(\016)s(E)40 b FA(normal)32 b(to)0 2850 y(the)i(direction)f(v)m +(ector)j(in)c(the)j(v)m(ertical)f(plane)f(con)m(taining)g(the)i +(direction)d(v)m(ector.)54 b(The)33 b Fi(z)t FA(-comp)s(onen)m(t)i(of)0 +2962 y(the)k(adjustmen)m(t)g(v)m(ector)h(is)e Fi(\016)s(E)21 +b FA(cos)16 b Fi(E)5 b FA(,)41 b(and)d(the)h(horizon)m(tal)g(comp)s +(onen)m(t)g(is)f Fi(\016)s(E)21 b FA(sin)14 b Fi(E)44 +b FA(whic)m(h)37 b(has)i(then)0 3075 y(to)34 b(b)s(e)f(resolv)m(ed)g +(in)m(to)h Fi(x)f FA(and)g Fi(y)j FA(in)c(prop)s(ortion)f(to)k(their)d +(curren)m(t)h(sizes.)50 b(T)-8 b(o)34 b(appro)m(ximate)f(a)h(unit)e(v)m +(ector)0 3188 y(more)f(closely)-8 b(,)32 b(a)g(correction)f(factor)i +(of)e(cos)16 b Fi(\016)s(E)37 b FA(can)32 b(then)f(b)s(e)f(applied,)g +(whic)m(h)g(is)g(nearly)h(\(1)21 b Fl(\000)g Fi(\016)s(E)3473 +3155 y Fr(2)3513 3188 y Fi(=)p FA(2\))33 b(for)0 3301 +y(small)g Fi(\016)s(E)5 b FA(.)54 b(Expressed)33 b(in)g(F)-8 +b(ortran,)36 b(for)e(initial)e(v)m(ector)k Fq(V1X,V1Y,V1Z)p +FA(,)31 b(c)m(hange)36 b(in)d(elev)-5 b(ation)34 b Fq(DEL)g +FA(\(+v)m(e)0 3414 y Fl(\021)c FA(up)m(w)m(ards\),)g(and)g(result)f(v)m +(ector)j Fq(V2X,V2Y,V2Z)p FA(:)573 3658 y Fq(COSDEL)46 +b(=)h(1D0-DEL*DEL/2D0)573 3771 y(R1)g(=)g(SQRT\(V1X*V1X+V1Y*V1Y\))573 +3884 y(F)g(=)h(COSDEL*\(R1-DEL*V1Z\)/R1)573 3997 y(V2X)f(=)g(F*V1X)573 +4110 y(V2Y)g(=)g(F*V1Y)573 4223 y(V2Z)g(=)g(COSDEL*\(V1Z+DEL*R1\))0 +4467 y FA(An)38 b(example)h(of)f(this)g(t)m(yp)s(e)h(of)f(shift)g(is)f +(the)i(correction)g(for)g(atmospheric)f(refraction)g(\(see)i(later\).) +65 b(De-)0 4580 y(p)s(ending)27 b(on)i(the)h(relationship)d(b)s(et)m(w) +m(een)j Fi(\016)s(E)36 b FA(and)28 b Fi(E)5 b FA(,)31 +b(sp)s(ecial)d(handling)e(at)31 b(the)e(p)s(ole)g(\(the)h(zenith)f(for) +g(our)0 4693 y(example\))h(ma)m(y)h(b)s(e)f(required.)0 +4851 y(SLALIB)20 b(includes)f(routines)g(for)i(the)g(case)h(where)e(b)s +(oth)g(a)h(p)s(osition)e(and)h(a)i(v)m(elo)s(cit)m(y)f(are)g(in)m(v)m +(olv)m(ed.)37 b(The)21 b(rou-)0 4964 y(tines)27 b(sla)p +Fq(_)p FA(CS2C6)g(and)g(sla)p Fq(_)p FA(CC62S)g(con)m(v)m(ert)i(from)e +([)p Fi(\022)s(;)15 b(\036;)2052 4940 y FA(_)2034 4964 +y Fi(\022)s(;)2143 4940 y FA(_)2120 4964 y Fi(\036)q +FA(])28 b(to)g([)15 b Fi(x;)g(y)s(;)g(z)t(;)33 b FA(_)-43 +b Fi(x)r(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 +b FA(])28 b(and)f(bac)m(k;)j(sla)p Fq(_)p FA(DCS26)0 +5077 y(and)g(sla)p Fq(_)p FA(DC62S)g(are)h(double)e(precision)f(equiv) +-5 b(alen)m(ts.)0 5363 y Fs(4.3)112 b(Celestial)36 b(Co)s(ordinate)h +(Systems)0 5580 y FA(SLALIB)22 b(has)f(routines)g(to)i(p)s(erform)e +(transformations)g(of)h(celestial)g(p)s(ositions)e(b)s(et)m(w)m(een)j +(di\013eren)m(t)e(spherical)0 5693 y(co)s(ordinate)30 +b(systems,)h(including)c(those)k(sho)m(wn)e(in)g(the)i(follo)m(wing)e +(table:)p eop +%%Page: 170 172 +170 171 bop 0 52 a FA(170)p 2 263 3775 4 v 0 376 4 113 +v 52 342 a Fn(system)p 619 376 V 399 w(symb)-5 b(ols)p +1109 376 V 150 w(longitude)p 1572 376 V 131 w(latitude)p +2022 376 V 185 w(x-y)32 b(plane)p 2595 376 V 304 w(long.)h(zer)-5 +b(o)p 3371 376 V 248 w(RH/LH)p 3776 376 V 2 379 3775 +4 v 2 396 V 0 509 4 113 v 52 475 a FA(horizon)p 619 509 +V 497 w({)p 1109 509 V 293 w(azim)m(uth)p 1572 509 V +121 w(elev)g(ation)p 2022 509 V 138 w(horizon)m(tal)p +2595 509 V 367 w(north)p 3371 509 V 452 w(L)p 3776 509 +V 2 512 3775 4 v 0 625 4 113 v 52 591 a(equatorial)p +619 625 V 345 w Fi(\013;)15 b(\016)p 1109 625 V 317 w +FA(R.A.)p 1572 625 V 277 w(Dec.)p 2022 625 V 275 w(equator)p +2595 625 V 372 w(equino)m(x)p 3371 625 V 403 w(R)p 3776 +625 V 2 629 3775 4 v 0 741 4 113 v 52 708 a(lo)s(cal)30 +b(equ.)p 619 741 V 366 w Fi(h;)15 b(\016)p 1109 741 V +319 w FA(H.A.)p 1572 741 V 277 w(Dec.)p 2022 741 V 275 +w(equator)p 2595 741 V 350 w(meridian)p 3371 741 V 385 +w(L)p 3776 741 V 2 745 3775 4 v 0 858 4 113 v 52 824 +a(ecliptic)p 619 858 V 454 w Fi(\025;)g(\014)p 1109 858 +V 231 w FA(ecl.)31 b(long.)p 1572 858 V 133 w(ecl.)g(lat.)p +2022 858 V 224 w(ecliptic)p 2595 858 V 379 w(equino)m(x)p +3371 858 V 403 w(R)p 3776 858 V 2 861 3775 4 v 0 974 +4 113 v 52 940 a(galactic)p 619 974 V 393 w Fi(l)776 +907 y Fc(I)-7 b(I)840 940 y Fi(;)15 b(b)919 907 y Fc(I)-7 +b(I)p 1109 974 V 1160 940 a FA(gal.)31 b(long.)p 1572 +974 V 123 w(gal.)g(lat.)p 2022 974 V 124 w(gal.)g(equator)p +2595 974 V 232 w(gal.)g(cen)m(tre)p 3371 974 V 352 w(R)p +3776 974 V 2 977 3775 4 v 0 1090 4 113 v 52 1056 a(sup)s(ergalactic)p +619 1090 V 99 w(SGL,SGB)p 1109 1090 V 110 w(SG)f(long.)p +1572 1090 V 143 w(SG)g(lat.)p 2022 1090 V 144 w(SG)g(equator)p +2595 1090 V 110 w(no)s(de)g(w.)g(gal.)h(equ.)p 3371 1090 +V 218 w(R)p 3776 1090 V 2 1093 3775 4 v 0 1448 a(T)-8 +b(ransformations)23 b(b)s(et)m(w)m(een)h([)15 b Fi(h;)g(\016)20 +b FA(])k(and)f([)15 b Fi(Az)t(;)g(E)5 b(l)27 b FA(])d(can)f(b)s(e)g(p)s +(erformed)g(b)m(y)g(calling)f(sla)p Fq(_)p FA(E2H)h(and)g(sla)p +Fq(_)p FA(H2E,)0 1561 y(or,)36 b(in)e(double)g(precision,)g(sla)p +Fq(_)p FA(DE2H)h(and)g(sla)p Fq(_)p FA(DH2E.)g(There)f(is)g(also)h(a)h +(routine)e(for)g(obtaining)g(zenith)0 1674 y(distance)28 +b(alone)h(for)f(a)h(giv)m(en)f([)15 b Fi(h;)g(\016)20 +b FA(],)30 b(sla)p Fq(_)p FA(ZD,)e(and)g(one)g(for)h(determining)d(the) +j(parallactic)e(angle,)j(sla)p Fq(_)p FA(P)-8 b(A.)0 +1787 y(Three)31 b(routines)f(are)h(included)e(whic)m(h)h(relate)h(to)h +(altazim)m(uth)f(telescop)s(e)h(moun)m(tings.)42 b(F)-8 +b(or)32 b(a)g(giv)m(en)f([)15 b Fi(h;)g(\016)20 b FA(])0 +1900 y(and)37 b(latitude,)i(sla)p Fq(_)p FA(AL)-8 b(T)g(AZ)38 +b(returns)f(the)h(azim)m(uth,)h(elev)-5 b(ation)38 b(and)g(parallactic) +f(angle,)j(plus)c(v)m(elo)s(cities)0 2013 y(and)i(accelerations)i(for)f +(sidereal)e(trac)m(king.)67 b(The)39 b(routines)f(sla)p +Fq(_)p FA(PD)m(A2H)i(and)e(sla)p Fq(_)p FA(PDQ2H)h(predict)f(at)0 +2126 y(what)30 b(hour)g(angle)g(a)h(giv)m(en)f(azim)m(uth)g(or)h +(parallactic)e(angle)i(will)c(b)s(e)j(reac)m(hed.)0 2331 +y(The)37 b(routines)g(sla)p Fq(_)p FA(EQECL)f(and)h(sla)p +Fq(_)p FA(ECLEQ)e(transform)i(b)s(et)m(w)m(een)i(ecliptic)d(co)s +(ordinates)i(and)f([)15 b Fi(\013;)g(\016)20 b FA(];)0 +2444 y(there)30 b(is)g(also)g(a)h(routine)e(for)h(generating)h(the)f +(equatorial)g(to)h(ecliptic)e(rotation)i(matrix)f(for)g(a)g(giv)m(en)h +(date:)0 2557 y(sla)p Fq(_)p FA(ECMA)-8 b(T.)0 2763 y(F)g(or)26 +b(con)m(v)m(ersion)f(b)s(et)m(w)m(een)h(Galactic)g(co)s(ordinates)e +(and)h([)15 b Fi(\013;)g(\016)20 b FA(])25 b(there)g(are)h(t)m(w)m(o)g +(sets)g(of)f(routines,)g(dep)s(ending)0 2876 y(on)f(whether)g(the)h([) +15 b Fi(\013;)g(\016)20 b FA(])k(is)g(old-st)m(yle,)i(B1950,)i(or)c +(new-st)m(yle,)i(J2000;)i(sla)p Fq(_)p FA(EG50)d(and)e(sla)p +Fq(_)p FA(GE50)i(are)g([)15 b Fi(\013;)g(\016)20 b FA(])0 +2989 y(to)28 b([)15 b Fi(l)177 2956 y Fc(I)-7 b(I)241 +2989 y Fi(;)15 b(b)320 2956 y Fc(I)-7 b(I)400 2989 y +FA(])27 b(and)f Fn(vic)-5 b(e)30 b(versa)k FA(for)27 +b(the)h(B1950)h(case,)g(while)c(sla)p Fq(_)p FA(EQGAL)h(and)h(sla)p +Fq(_)p FA(GALEQ)f(are)i(the)f(J2000)0 3101 y(equiv)-5 +b(alen)m(ts.)0 3307 y(Finally)d(,)31 b(the)i(routines)e(sla)p +Fq(_)p FA(GALSUP)h(and)f(sla)p Fq(_)p FA(SUPGAL)h(transform)f([)15 +b Fi(l)2633 3274 y Fc(I)-7 b(I)2698 3307 y Fi(;)15 b(b)2777 +3274 y Fc(I)-7 b(I)2856 3307 y FA(])33 b(to)g(de)f(V)-8 +b(aucouleurs)32 b(su-)0 3420 y(p)s(ergalactic)e(longitude)f(and)h +(latitude)g(and)f Fn(vic)-5 b(e)32 b(versa.)0 3626 y +FA(It)23 b(should)e(b)s(e)h(appreciated)g(that)i(the)f(table,)h(ab)s(o) +m(v)m(e,)i(constitutes)d(a)g(gross)g(o)m(v)m(ersimpli\014cation.)36 +b(Apparen)m(tly)0 3739 y(simple)20 b(concepts)k(suc)m(h)e(as)g +(equator,)j(equino)m(x)d Fn(etc.)g FA(are)h(apt)g(to)g(b)s(e)f(v)m(ery) +g(hard)g(to)h(pin)d(do)m(wn)i(precisely)f(\(p)s(olar)0 +3851 y(motion,)38 b(orbital)d(p)s(erturbations)f(.)15 +b(.)g(.)h(\))58 b(and)35 b(some)i(ha)m(v)m(e)g(sev)m(eral)g(in)m +(terpretations,)g(all)e(subtly)g(di\013eren)m(t.)0 3964 +y(The)45 b(v)-5 b(arious)44 b(frames)i(mo)m(v)m(e)h(in)d(complicated)h +(w)m(a)m(ys)h(with)f(resp)s(ect)g(to)h(one)g(another)g(or)f(to)i(the)e +(stars)0 4077 y(\(themselv)m(es)36 b(in)e(motion\).)55 +b(And)34 b(in)g(some)i(instances)f(the)g(co)s(ordinate)g(system)h(is)e +(sligh)m(tly)f(distorted,)j(so)0 4190 y(that)31 b(the)g(ordinary)d +(rules)h(of)i(spherical)d(trigonometry)j(no)f(longer)g(strictly)f +(apply)-8 b(.)0 4396 y(These)25 b Fn(c)-5 b(ave)g(ats)34 +b FA(apply)23 b(particularly)g(to)j(the)f(b)s(ewildering)c(v)-5 +b(ariet)m(y)26 b(of)f(di\013eren)m(t)f([)15 b Fi(\013;)g(\016)21 +b FA(])k(systems)g(that)g(are)h(in)0 4509 y(use.)40 b(Figure)29 +b(1)h(sho)m(ws)g(ho)m(w)f(some)h(of)g(these)g(systems)g(are)g(related,) +g(to)g(one)g(another)g(and)f(to)h(the)g(direction)0 4622 +y(in)25 b(whic)m(h)g(a)h(celestial)g(source)g(actually)g(app)s(ears)g +(in)e(the)j(sky)-8 b(.)39 b(A)m(t)27 b(the)g(top)f(of)h(the)f(diagram)g +(are)g(the)g(v)-5 b(arious)0 4735 y(sorts)23 b(of)h Fn(me)-5 +b(an)27 b(plac)-5 b(e)31 b FA(found)22 b(in)g(star)i(catalogues)h(and)d +(pap)s(ers;)2180 4702 y Fr(2)2244 4735 y FA(at)j(the)e(b)s(ottom)h(is)e +(the)i Fn(observe)-5 b(d)33 b FA([)15 b Fi(Az)t(;)g(E)5 +b(l)27 b FA(],)0 4848 y(where)k(a)h(p)s(erfect)g(theo)s(dolite)f(w)m +(ould)f(b)s(e)h(p)s(oin)m(ted)g(to)h(see)g(the)g(source;)h(and)e(in)f +(the)i(b)s(o)s(dy)e(of)i(the)g(diagram)0 4960 y(are)26 +b(the)g(in)m(termediate)g(pro)s(cessing)e(steps)i(and)f(co)s(ordinate)g +(systems.)40 b(T)-8 b(o)26 b(help)e(understand)g(this)h(diagram,)0 +5073 y(and)j(the)g(SLALIB)f(routines)g(that)i(can)g(b)s(e)e(used)g(to)i +(carry)f(out)h(the)f(v)-5 b(arious)27 b(calculations,)h(w)m(e)h(will)c +(lo)s(ok)j(at)0 5186 y(the)j(co)s(ordinate)f(systems)g(in)m(v)m(olv)m +(ed,)g(and)g(the)h(astronomical)f(phenomena)g(that)h(a\013ect)h(them.)p +0 5334 1512 4 v 104 5387 a Fp(2)138 5419 y Fo(One)c(frame)h(not)g +(included)f(in)g(Figure)i(1)f(is)g(that)f(of)i(the)e(Hipparcos)h +(catalogue.)45 b(This)29 b(is)h(curren)n(tly)d(the)i(b)r(est)f(a)n(v)l +(ailable)0 5510 y(implemen)n(tation)f(in)i(the)f(optical)h(of)g(the)g +Fa(International)i(Celestial)f(R)l(efer)l(enc)l(e)i(System)j +Fo(\(ICRS\),)28 b(whic)n(h)h(is)g(based)f(on)h(extra-)0 +5602 y(galactic)34 b(radio)f(sources)g(observ)n(ed)f(b)n(y)f(VLBI.)h +(The)g(distinction)h(b)r(et)n(w)n(een)f(FK5)g(J2000)i(and)e(Hipparcos)g +(co)r(ordinates)i(only)0 5693 y(b)r(ecomes)26 b(imp)r(ortan)n(t)e(when) +i(accuracies)h(of)g(50)f(mas)f(or)h(b)r(etter)g(are)g(required.)34 +b(More)27 b(details)f(are)g(giv)n(en)g(in)g(Section)f(4.14.)p +eop +%%Page: 171 173 +171 172 bop 0 52 a Ft(SUN/67.45)3206 b FA(171)p 227 263 +3326 4 v 225 376 4 113 v 3551 376 V 225 489 V 3551 489 +V 225 785 4 297 v 367 492 830 4 v 367 782 4 290 v 420 +607 a(mean)31 b([)15 b Fi(\013;)g(\016)20 b FA(],)31 +b(FK4,)528 720 y(an)m(y)f(equino)m(x)p 1193 782 V 367 +785 830 4 v 1475 492 V 1475 782 4 290 v 1529 607 a(mean)g([)15 +b Fi(\013;)g(\016)20 b FA(],)31 b(FK4,)1518 720 y(no)f +Fi(\026)p FA(,)g(an)m(y)h(equino)m(x)p 2301 782 V 1475 +785 830 4 v 2584 492 V 2584 782 4 290 v 2637 607 a(mean)f([)15 +b Fi(\013;)g(\016)21 b FA(],)30 b(FK5,)2744 720 y(an)m(y)h(equino)m(x)p +3409 782 V 2584 785 830 4 v 3551 785 4 297 v 225 898 +4 113 v 780 898 V 1888 898 V 2996 898 V 3551 898 V 225 +1011 V 521 977 a(space)g(motion)p 1888 1011 V 1696 w(space)g(motion)p +3551 1011 V 225 1124 V 586 1090 a({)g(E-terms)717 b({)31 +b(E-terms)p 2996 1124 V 3551 1124 V 225 1237 V 448 1203 +a(precess)f(to)i(B1950)443 b(precess)31 b(to)g(B1950)453 +b(precess)30 b(to)h(J2000)p 3551 1237 V 225 1350 V 573 +1316 a(+)f(E-terms)693 b(+)30 b(E-terms)p 2996 1350 V +3551 1350 V 225 1463 V 417 1429 a(FK4)h(to)g(FK5,)g(no)f +Fi(\026)379 b FA(FK4)31 b(to)g(FK5,)g(no)f Fi(\026)p +2996 1463 V 3551 1463 V 225 1576 V 621 1542 a FA(parallax)p +1888 1576 V 1895 w(parallax)p 3551 1576 V 225 1688 V +780 1688 V 1888 1688 V 2996 1688 V 3551 1688 V 781 1692 +2217 4 v 225 1801 4 113 v 1888 1801 V 3551 1801 V 225 +1980 4 179 v 1043 1805 1693 4 v 1043 1976 4 172 v 1117 +1914 a(FK5,)h(J2000,)h(curren)m(t)e(ep)s(o)s(c)m(h,)g(geo)s(cen)m(tric) +p 2733 1976 V 1043 1979 1693 4 v 3551 1980 4 179 v 225 +2092 4 113 v 1888 2092 V 3551 2092 V 225 2205 V 1596 +2172 a(ligh)m(t)f(de\015ection)p 3551 2205 V 225 2318 +V 1536 2284 a(ann)m(ual)g(ab)s(erration)p 3551 2318 V +225 2431 V 1499 2397 a(precession/n)m(utation)p 3551 +2431 V 225 2544 V 1888 2544 V 3551 2544 V 225 2691 4 +148 v 1548 2547 685 4 v 1548 2688 4 141 v 1576 2641 a(Apparen)m(t)h([) +15 b Fi(\013;)g(\016)20 b FA(])p 2229 2688 V 1548 2691 +685 4 v 3551 2691 4 148 v 225 2804 4 113 v 1888 2804 +V 3551 2804 V 225 2917 V 1601 2883 a(Earth)30 b(rotation)p +3551 2917 V 225 3030 V 1888 3030 V 3551 3030 V 225 3178 +4 148 v 1551 3034 679 4 v 1551 3174 4 141 v 1579 3127 +a(Apparen)m(t)g([)15 b Fi(h;)g(\016)20 b FA(])p 2226 +3174 V 1551 3177 679 4 v 3551 3178 4 148 v 225 3290 4 +113 v 1888 3290 V 3551 3290 V 225 3403 V 1527 3370 a(diurnal)27 +b(ab)s(erration)p 3551 3403 V 225 3516 V 1888 3516 V +3551 3516 V 225 3664 4 148 v 1503 3520 775 4 v 1503 3660 +4 141 v 1531 3613 a(T)-8 b(op)s(o)s(cen)m(tric)30 b([)15 +b Fi(h;)g(\016)20 b FA(])p 2274 3660 V 1503 3663 775 +4 v 3551 3664 4 148 v 225 3777 4 113 v 1888 3777 V 3551 +3777 V 225 3890 V 1534 3856 a([)15 b Fi(h;)g(\016)20 +b FA(])31 b(to)g([)15 b Fi(Az)t(;)g(E)5 b(l)34 b FA(])p +3551 3890 V 225 4002 V 1888 4002 V 3551 4002 V 225 4150 +4 148 v 1435 4006 909 4 v 1435 4146 4 141 v 1464 4099 +a(T)-8 b(op)s(o)s(cen)m(tric)30 b([)15 b Fi(Az)t(;)g(E)5 +b(l)34 b FA(])p 2341 4146 V 1435 4149 909 4 v 3551 4150 +4 148 v 225 4263 4 113 v 1888 4263 V 3551 4263 V 225 +4376 V 1699 4342 a(refraction)p 3551 4376 V 225 4489 +V 1888 4489 V 3551 4489 V 225 4636 4 148 v 1486 4492 +809 4 v 1486 4633 4 141 v 1514 4585 a(Observ)m(ed)c([)15 +b Fi(Az)t(;)g(E)5 b(l)33 b FA(])p 2291 4633 V 1486 4636 +809 4 v 3551 4636 4 148 v 225 4749 4 113 v 3551 4749 +V 225 4862 V 3551 4862 V 227 4865 3326 4 v 822 5100 a(Figure)d(1:)41 +b(Relationship)28 b(Bet)m(w)m(een)33 b(Celestial)c(Co)s(ordinates)0 +5212 y(Star)22 b(p)s(ositions)f(are)i(published)c(or)j(catalogued)i +(using)d(one)i(of)f(the)h(mean)g([)15 b Fi(\013;)g(\016)20 +b FA(])j(systems)f(sho)m(wn)g(at)h(the)g(top.)0 5325 +y(The)33 b(\\FK4")i(systems)f(w)m(ere)h(used)e(b)s(efore)g(ab)s(out)h +(1980)h(and)e(are)i(usually)c(equino)m(x)j(B1950.)53 +b(The)33 b(\\FK5")0 5438 y(system,)47 b(equino)m(x)c(J2000,)48 +b(is)42 b(no)m(w)i(preferred,)h(or)f(rather)f(its)f(mo)s(dern)g(equiv) +-5 b(alen)m(t,)47 b(the)c(In)m(ternational)0 5551 y(Celestial)31 +b(Reference)h(F)-8 b(rame)33 b(\(in)d(the)i(optical,)g(the)g(Hipparcos) +f(catalogue\).)47 b(The)31 b(\014gure)g(relates)h(a)g(star's)0 +5664 y(mean)39 b([)15 b Fi(\013;)g(\016)20 b FA(])39 +b(to)h(the)f(actual)g(line-of-sigh)m(t)f(to)i(the)f(star.)66 +b(Note)41 b(that)e(for)g(the)g(con)m(v)m(en)m(tional)h(c)m(hoices)f(of) +0 5777 y(equino)m(x,)30 b(namely)g(B1950)i(or)f(J2000,)h(all)d(of)i +(the)f(precession)g(and)f(E-terms)i(corrections)f(are)h(sup)s +(er\015uous.)p eop +%%Page: 172 174 +172 173 bop 0 52 a FA(172)0 351 y Fs(4.4)112 b(Precession)37 +b(and)h(Nutation)0 574 y Fn(R)n(ight)46 b(asc)-5 b(ension)47 +b(and)g(de)-5 b(clination)p FA(,)50 b(\([)15 b Fi(\013;)g(\016)21 +b FA(]\),)49 b(are)c(the)g(names)f(of)h(the)g(longitude)e(and)h +(latitude)g(in)f(a)0 687 y(spherical)35 b(p)s(olar)g(co)s(ordinate)i +(system)g(based)g(on)f(the)h(Earth's)g(axis)f(of)h(rotation.)60 +b(The)37 b(zero)g(p)s(oin)m(t)f(of)h Fi(\013)0 800 y +FA(is)f(the)i(p)s(oin)m(t)e(of)i(in)m(tersection)f(of)g(the)h +Fn(c)-5 b(elestial)40 b(e)-5 b(quator)48 b FA(and)37 +b(the)g Fn(e)-5 b(cliptic)43 b FA(\(the)38 b(apparen)m(t)g(path)f(of)g +(the)0 912 y(Sun)29 b(through)h(the)h(y)m(ear\))g(where)f(the)h(Sun)e +(mo)m(v)m(es)j(in)m(to)f(the)f(northern)g(hemisphere.)39 +b(This)29 b(p)s(oin)m(t)h(is)f(called)0 1025 y(the)k +Fn(\014rst)j(p)-5 b(oint)37 b(of)e(A)n(ries)p FA(,)f(the)f +Fn(vernal)j(e)-5 b(quinox)45 b FA(\(with)32 b(ap)s(ologies)g(to)i +(southern-hemisphere)d(readers\))i(or)0 1138 y(simply)28 +b(the)i Fn(e)-5 b(quinox)p FA(.)767 1105 y Fr(3)0 1302 +y FA(This)28 b(simple)f(picture)i(is)f(unfortunately)g(complicated)i(b) +m(y)f(the)h(di\016cult)m(y)e(of)h(de\014ning)f(a)i(suitable)e(equator)0 +1415 y(and)i(equino)m(x.)43 b(One)30 b(problem)g(is)g(that)i(the)f +(Sun's)e(apparen)m(t)j(motion)e(is)h(not)g(completely)g(regular,)f(due) +h(to)0 1528 y(the)25 b(ellipticit)m(y)e(of)i(the)g(Earth's)g(orbit)f +(and)h(its)f(con)m(tin)m(uous)h(disturbance)e(b)m(y)i(the)g(Mo)s(on)h +(and)e(planets.)38 b(This)0 1640 y(is)d(dealt)i(with)e(b)m(y)h +(separating)g(the)h(motion)f(in)m(to)g(\(i\))g(a)h(smo)s(oth)f(and)g +(steady)h Fn(me)-5 b(an)39 b(Sun)k FA(and)36 b(\(ii\))f(a)i(set)0 +1753 y(of)d(p)s(erio)s(dic)e(corrections)i(and)g(p)s(erturbations;)g +(only)f(the)i(former)e(is)h(in)m(v)m(olv)m(ed)f(in)g(establishing)f +(reference)0 1866 y(frames)24 b(and)g(timescales.)39 +b(A)24 b(second,)i(far)e(larger)g(problem,)g(is)g(that)h(the)f +(celestial)g(equator)h(and)f(the)h(ecliptic)0 1979 y(are)39 +b(b)s(oth)f(mo)m(ving)h(with)e(resp)s(ect)i(to)g(the)g(stars.)66 +b(These)38 b(motions)h(arise)f(b)s(ecause)g(of)h(the)g(gra)m +(vitational)0 2092 y(in)m(teractions)30 b(b)s(et)m(w)m(een)h(the)g +(Earth)f(and)g(the)g(other)h(solar-system)f(b)s(o)s(dies.)0 +2256 y(By)25 b(far)f(the)h(largest)g(e\013ect)h(is)d(the)i(so-called)f +(\\precession)g(of)h(the)g(equino)m(xes",)h(where)e(the)h(Earth's)f +(rotation)0 2368 y(axis)32 b(sw)m(eeps)h(out)g(a)h(cone)f(cen)m(tred)h +(on)e(the)h(ecliptic)f(p)s(ole,)h(completing)f(one)h(rev)m(olution)f +(in)f(ab)s(out)i(26,000)0 2481 y(y)m(ears.)57 b(The)35 +b(cause)i(of)e(the)h(motion)g(is)e(the)i(torque)g(exerted)g(on)g(the)g +(distorted)f(and)g(spinning)d(Earth)k(b)m(y)0 2594 y(the)e(Sun)e(and)h +(the)h(Mo)s(on.)51 b(Consider)32 b(the)i(e\013ect)h(of)f(the)g(Sun)e +(alone,)j(at)g(or)e(near)h(the)g(northern)f(summer)0 +2707 y(solstice.)46 b(The)31 b(Sun)g(`sees')i(the)f(top)g(\(north)g(p)s +(ole\))f(of)i(the)f(Earth)g(tilted)f(to)m(w)m(ards)i(it)e(\(b)m(y)i(ab) +s(out)e(23)3516 2674 y Fm(\016)3522 2707 y Fi(:)r FA(5,)j(the)0 +2820 y Fn(obliquity)i(of)f(the)h(e)-5 b(cliptic)5 b FA(\),)35 +b(and)e(sees)h(the)f(nearer)h(part)f(of)h(the)f(Earth's)g(equatorial)g +(bulge)g(b)s(elo)m(w)f(cen)m(tre)0 2933 y(and)e(the)h(further)e(part)h +(ab)s(o)m(v)m(e)i(cen)m(tre.)42 b(Although)30 b(the)h(Earth)f(is)g(in)f +(free)h(fall,)g(the)h(gra)m(vitational)f(force)i(on)0 +3046 y(the)f(nearer)h(part)f(of)g(the)g(equatorial)g(bulge)g(is)f +(greater)i(than)f(that)h(on)f(the)g(further)f(part,)i(and)f(so)g(there) +g(is)0 3159 y(a)h(net)g(torque)g(acting)g(as)g(if)f(to)h(eliminate)e +(the)i(tilt.)44 b(Six)31 b(mon)m(ths)g(later)h(the)g(same)g(thing)f(is) +g(happ)s(ening)e(in)0 3272 y(rev)m(erse,)g(except)f(that)g(the)f +(torque)h(is)e(still)f(trying)i(to)h(eliminate)e(the)h(tilt.)39 +b(In)27 b(b)s(et)m(w)m(een)h(\(at)g(the)f(equino)m(xes\))0 +3385 y(the)i(torque)f(shrinks)e(to)j(zero.)41 b(A)29 +b(torque)f(acting)h(on)f(a)h(spinning)c(b)s(o)s(dy)i(is)h +(gyroscopically)f(translated)h(in)m(to)0 3498 y(a)39 +b(precessional)e(motion)g(of)i(the)f(spin)e(axis)i(at)h(righ)m +(t-angles)f(to)h(the)f(torque,)i(and)e(this)f(happ)s(ens)f(to)j(the)0 +3610 y(Earth.)51 b(The)33 b(motion)h(v)-5 b(aries)33 +b(during)f(the)i(y)m(ear,)i(going)d(through)h(t)m(w)m(o)h(maxima,)f +(but)f(alw)m(a)m(ys)i(acts)g(in)d(the)0 3723 y(same)37 +b(direction.)60 b(The)36 b(Mo)s(on)i(pro)s(duces)d(the)j(same)f +(e\013ect,)k(adding)35 b(a)j(con)m(tribution)d(to)j(the)f(precession)0 +3836 y(whic)m(h)22 b(p)s(eaks)h(t)m(wice)h(p)s(er)f(mon)m(th.)38 +b(The)23 b(Mo)s(on's)h(pro)m(ximit)m(y)e(to)i(the)g(Earth)f(more)h +(than)f(comp)s(ensates)h(for)f(its)0 3949 y(smaller)k(mass)h(and)f(gra) +m(vitational)h(attraction,)i(so)f(that)f(it)g(in)f(fact)i(con)m +(tributes)f(most)g(of)g(the)h(precessional)0 4062 y(e\013ect.)0 +4226 y(The)24 b(complex)f(in)m(teractions)h(b)s(et)m(w)m(een)h(the)f +(three)g(b)s(o)s(dies)e(pro)s(duce)h(a)h(precessional)f(motion)h(that)h +(is)e(w)m(obbly)0 4338 y(rather)32 b(than)h(completely)f(smo)s(oth.)47 +b(Ho)m(w)m(ev)m(er,)36 b(the)d(main)e(26,000-y)m(ear)37 +b(comp)s(onen)m(t)c(is)e(on)i(suc)m(h)f(a)h(grand)0 4451 +y(scale)40 b(that)g(it)f(dw)m(arfs)g(the)h(remaining)e(terms,)k(the)e +(biggest)f(of)h(whic)m(h)e(has)i(an)f(amplitude)f(of)i(only)e(17)3738 +4414 y Fh(0)m(0)0 4564 y FA(and)27 b(a)i(p)s(erio)s(d)d(of)i(ab)s(out)g +(18.6)i(y)m(ears.)40 b(This)26 b(di\013erence)i(of)g(scale)h(mak)m(es)g +(it)e(con)m(v)m(enien)m(t)j(to)e(treat)i(these)e(t)m(w)m(o)0 +4677 y(comp)s(onen)m(ts)d(of)g(the)g(motion)g(separately)-8 +b(.)39 b(The)25 b(main)e(26,000-y)m(ear)29 b(e\013ect)d(is)e(called)g +Fn(luni-solar)29 b(pr)-5 b(e)g(c)g(ession)p FA(;)0 4790 +y(the)31 b(smaller,)e(faster,)i(p)s(erio)s(dic)c(terms)k(are)g(called)e +(the)i Fn(nutation)p FA(.)0 4954 y(Note)22 b(that)f(precession)e(and)h +(n)m(utation)g(are)g(simply)e(di\013eren)m(t)i(frequency)g(comp)s(onen) +m(ts)g(of)h(the)f(same)h(ph)m(ysical)0 5066 y(e\013ect.)40 +b(It)25 b(is)e(a)i(common)g(misconception)e(that)i(precession)f(is)f +(caused)i(b)m(y)f(the)h(Sun)e(and)h(n)m(utation)g(is)f(caused)0 +5179 y(b)m(y)33 b(the)g(Mo)s(on.)50 b(In)32 b(fact)j(the)e(Mo)s(on)g +(is)g(resp)s(onsible)d(for)j(t)m(w)m(o-thirds)g(of)g(the)h(precession,) +f(and,)g(while)f(it)g(is)p 0 5242 1512 4 v 104 5296 a +Fp(3)138 5328 y Fo(With)25 b(the)h(in)n(tro)r(duction)f(of)h(the)f(In)n +(ternational)h(Celestial)i(Reference)e(System)e(\(ICRS\),)h(the)g +(connection)h(b)r(et)n(w)n(een)f(\(i\))h(s-)0 5419 y(tar)36 +b(co)r(ordinates)i(and)e(\(ii\))g(the)g(Earth's)h(orien)n(tation)g(and) +f(orbit)g(has)h(b)r(een)f(brok)n(en.)65 b(Ho)n(w)n(ev)n(er,)39 +b(the)d(orien)n(tation)h(of)g(the)0 5510 y(In)n(ternational)27 +b(Celestial)j(Reference)d(F)-6 b(rame)27 b(\(ICRF\))f(axes)h(w)n(as,)i +(for)f(con)n(v)n(enience,)g(c)n(hosen)f(to)g(matc)n(h)f(J2000)j(FK5,)f +(and)f(for)0 5602 y(most)i(practical)h(purp)r(oses)g(ICRF)f(co)r +(ordinates)i(\(for)f(example)e(en)n(tries)i(in)f(the)g(Hipparcos)h +(catalogue\))g(can)g(b)r(e)f(regarded)h(as)0 5693 y(synon)n(ymous)24 +b(with)i(J2000)h(FK5.)35 b(See)26 b(Section)g(4.14)h(for)f(further)g +(details.)p eop +%%Page: 173 175 +173 174 bop 0 52 a Ft(SUN/67.45)3206 b FA(173)0 351 y(true)27 +b(that)g(m)m(uc)m(h)g(of)g(the)g(complex)g(detail)f(of)h(the)g(n)m +(utation)f(is)g(a)h(re\015ection)g(of)g(the)g(in)m(tricacies)f(of)h +(the)g(lunar)0 464 y(orbit,)j(there)g(are)h(nonetheless)f(imp)s(ortan)m +(t)f(solar)h(terms)h(in)e(the)h(n)m(utation.)0 650 y(In)36 +b(addition)e(to)j(and)f(quite)f(separate)i(from)f(the)h(precession/n)m +(utation)e(e\013ect,)40 b(the)c(orbit)g(of)g(the)g(Earth-)0 +763 y(Mo)s(on)h(system)g(is)f(not)h(\014xed)f(in)g(orien)m(tation,)i(a) +g(result)d(of)i(the)g(attractions)h(of)f(the)g(planets.)60 +b(This)35 b(slo)m(w)0 876 y(\(ab)s(out)h(0)341 839 y +Fh(0)l(0)345 876 y Fi(:)p FA(5)g(p)s(er)e(y)m(ear\))j(secular)e +(rotation)h(of)f(the)h(ecliptic)e(ab)s(out)h(a)h(slo)m(wly-mo)m(ving)e +(diameter)i(is)e(called,)0 989 y(confusingly)-8 b(,)42 +b Fn(planetary)i(pr)-5 b(e)g(c)g(ession)49 b FA(and,)43 +b(along)e(with)e(the)i(luni-solar)d(precession)i(is)f(included)f(in)h +(the)0 1102 y Fn(gener)-5 b(al)38 b(pr)-5 b(e)g(c)g(ession)p +FA(.)56 b(The)35 b(equator)g(and)g(ecliptic)e(as)j(a\013ected)g(b)m(y)f +(general)g(precession)f(are)h(what)g(de\014ne)0 1215 +y(the)c(v)-5 b(arious)29 b(\\mean")i([)15 b Fi(\013;)g(\016)21 +b FA(])30 b(reference)h(frames.)0 1401 y(The)37 b(mo)s(dels)g(for)g +(precession)g(and)h(n)m(utation)f(come)i(from)e(a)i(com)m(bination)e +(of)h(observ)-5 b(ation)37 b(and)h(theory)-8 b(,)0 1514 +y(and)35 b(are)h(sub)5 b(ject)36 b(to)g(con)m(tin)m(uous)f(re\014nemen) +m(t.)57 b(Nutation)36 b(mo)s(dels)e(in)g(particular)g(ha)m(v)m(e)j +(reac)m(hed)g(a)f(high)0 1626 y(degree)h(of)f(sophistication,)h(taking) +f(in)m(to)g(accoun)m(t)i(suc)m(h)d(things)h(as)g(the)g(non-rigidit)m(y) +e(of)j(the)f(Earth)g(and)0 1739 y(the)29 b(e\013ects)h(of)f(the)g +(planets;)f(SLALIB's)h(n)m(utation)f(mo)s(del)f(\(IA)m(U)j(1980\))h(in) +m(v)m(olv)m(es)e(106)g(terms)g(in)e(eac)m(h)j(of)f Fi( )0 +1852 y FA(\(longitude\))h(and)f Fi(\017)i FA(\(obliquit)m(y\),)e(some)i +(as)f(small)f(as)i(0)1920 1815 y Fh(0)l(0)1924 1852 y +Fi(:)p FA(0001.)0 2220 y Fy(4.4.1)105 b(SLALIB)35 b(supp)s(ort)g(for)h +(precession)g(and)e(n)m(utation)0 2476 y FA(SLALIB)c(o\013ers)h(a)f(c)m +(hoice)h(of)g(three)g(precession)e(mo)s(dels:)136 2771 +y Fl(\017)46 b FA(The)29 b(old)f(Bessel-New)m(com)m(b,)k(pre)d(IA)m(U)h +(1976,)h(\\FK4")g(mo)s(del,)d(used)h(for)g(B1950)i(star)f(p)s(ositions) +d(and)227 2884 y(other)k(pre-1984.0)i(purp)s(oses)28 +b(\(sla)p Fq(_)p FA(PREBN\).)136 3118 y Fl(\017)46 b +FA(The)35 b(new)g(F)-8 b(ric)m(k)m(e,)39 b(IA)m(U)d(1976,)i(\\FK5")f +(mo)s(del,)f(used)f(for)g(J2000)i(star)f(p)s(ositions)d(and)i(other)h +(p)s(ost-)227 3231 y(1984.0)d(purp)s(oses)c(\(sla)p Fq(_)p +FA(PREC\).)136 3465 y Fl(\017)46 b FA(A)31 b(mo)s(del)e(published)e(b)m +(y)j(Simon)f Fn(et)j(al.)f FA(whic)m(h)e(is)h(more)g(accurate)i(than)e +(the)h(IA)m(U)g(1976)h(mo)s(del)d(and)227 3578 y(whic)m(h)g(is)h +(suitable)f(for)h(long)g(p)s(erio)s(ds)e(of)i(time)g(\(sla)p +Fq(_)p FA(PRECL\).)0 3874 y(In)37 b(eac)m(h)h(case,)j(the)d(named)f +(SLALIB)g(routine)f(generates)j(the)f(\(3)25 b Fl(\002)g +FA(3\))38 b Fn(pr)-5 b(e)g(c)g(ession)42 b(matrix)49 +b FA(for)38 b(a)f(giv)m(en)0 3986 y(start)32 b(and)f(\014nish)d(time.) +43 b(F)-8 b(or)33 b(example,)e(here)g(is)f(the)i(F)-8 +b(ortran)32 b(co)s(de)f(for)g(generating)h(the)f(rotation)h(matrix)0 +4099 y(whic)m(h)d(describ)s(es)g(the)h(precession)g(b)s(et)m(w)m(een)h +(the)f(ep)s(o)s(c)m(hs)g(J2000)i(and)e(J1985.372)j(\(IA)m(U)f(1976)g +(mo)s(del\):)573 4431 y Fq(DOUBLE)46 b(PRECISION)f(PMAT\(3,3\))620 +4544 y(:)573 4657 y(CALL)h(sla_PREC\(2000D0,1985.372D0)o(,PM)o(AT\))0 +4989 y FA(It)30 b(is)g(instructiv)m(e)f(to)i(examine)f(the)h(resulting) +d(matrix:)573 5321 y Fq(+0.9999936402)92 b(+0.0032709208)g +(+0.0014214694)573 5434 y(-0.0032709208)g(+0.9999946505)g +(-0.0000023247)573 5547 y(-0.0014214694)g(-0.0000023248)g +(+0.9999989897)p eop +%%Page: 174 176 +174 175 bop 0 52 a FA(174)0 351 y(Note)27 b(that)f(the)g(diagonal)f +(elemen)m(ts)h(are)g(close)g(to)h(unit)m(y)-8 b(,)26 +b(and)f(the)h(other)g(elemen)m(ts)g(are)g(small.)38 b(This)24 +b(sho)m(ws)0 464 y(that)36 b(o)m(v)m(er)g(an)f(in)m(terv)-5 +b(al)34 b(as)h(short)g(as)h(15)f(y)m(ears)h(the)f(precession)g(isn't)f +(going)h(to)h(mo)m(v)m(e)g(a)g(p)s(osition)d(v)m(ector)0 +577 y(v)m(ery)e(far)f(\(in)f(this)h(case)h(ab)s(out)f(0)1155 +544 y Fm(\016)1161 577 y Fi(:)r FA(2\).)0 736 y(F)-8 +b(or)42 b(con)m(v)m(enience,)j(a)c(direct)g([)15 b Fi(\013;)g(\016)20 +b FA(])41 b(to)h([)15 b Fi(\013;)g(\016)20 b FA(])42 +b(precession)e(routine)g(is)g(also)h(pro)m(vided)f(\(sla)p +Fq(_)p FA(PRECES\),)0 849 y(suitable)29 b(for)h(either)g(the)g(old)g +(or)g(the)h(new)f(system)g(\(but)g(not)h(a)g(mixture)e(of)h(the)h(t)m +(w)m(o\).)0 1008 y(SLALIB)44 b(pro)m(vides)f(only)g(one)h(n)m(utation)g +(mo)s(del,)j(the)d(new,)k(IA)m(U)c(1980)i(mo)s(del,)h(implemen)m(ted)42 +b(in)h(the)0 1121 y(routine)26 b(sla)p Fq(_)p FA(NUTC.)g(This)f +(returns)h(the)h(comp)s(onen)m(ts)g(of)g(n)m(utation)g(in)f(longitude)f +(and)i(latitude)f(\(and)h(also)0 1234 y(pro)m(vides)g(the)i(obliquit)m +(y\))e(from)h(whic)m(h)f(a)i(n)m(utation)g(matrix)e(can)i(b)s(e)f +(generated)i(b)m(y)e(calling)f(sla)p Fq(_)p FA(DEULER)0 +1347 y(\(and)36 b(from)g(whic)m(h)f(the)i Fn(e)-5 b(quation)39 +b(of)f(the)g(e)-5 b(quinoxes)p FA(,)39 b(describ)s(ed)34 +b(later,)k(can)f(b)s(e)f(found\).)57 b(Alternativ)m(ely)-8 +b(,)0 1460 y(the)31 b(n)m(utation)f(matrix)f(can)i(b)s(e)f(generated)h +(in)e(a)i(single)e(call)h(b)m(y)g(using)f(sla)p Fq(_)p +FA(NUT.)0 1619 y(A)k(rotation)g(matrix)f(for)g(applying)e(the)j(en)m +(tire)g(precession/n)m(utation)f(transformation)g(in)f(one)i(go)g(can)g +(b)s(e)0 1732 y(generated)e(b)m(y)g(calling)e(sla)p Fq(_)p +FA(PRENUT.)0 2020 y Fs(4.5)112 b(Mean)39 b(Places)0 2238 +y FA(The)28 b(main)g(e\013ect)j(of)e(the)g(precession/n)m(utation)f(is) +g(a)i(steady)f(increase)g(of)g(ab)s(out)g(50)2955 2201 +y Fh(0)l(0)2996 2238 y FA(/y)m(ear)h(in)e(the)h(ecliptic)0 +2351 y(longitudes)34 b(of)h(the)h(stars.)55 b(It)35 b(is)g(therefore)h +(essen)m(tial,)g(when)e(rep)s(orting)g(the)i(p)s(osition)d(of)i(an)h +(astronomi-)0 2464 y(cal)31 b(target,)h(to)g(qualify)d(the)h(co)s +(ordinates)h(with)e(a)i(date,)h(or)f Fn(ep)-5 b(o)g(ch)p +FA(.)43 b(Sp)s(ecifying)28 b(the)j(ep)s(o)s(c)m(h)g(ties)f(do)m(wn)g +(the)0 2577 y(equator)c(and)e(equino)m(x)g(whic)m(h)g(de\014ne)g(the)i +([)15 b Fi(\013;)g(\016)20 b FA(])25 b(co)s(ordinate)g(system)g(that)g +(is)g(b)s(eing)e(used.)3235 2544 y Fr(4)3313 2577 y FA(F)-8 +b(or)26 b(simplic-)0 2690 y(it)m(y)-8 b(,)34 b(only)e(the)h(smo)s(oth)f +(and)g(steady)h(\\general)g(precession")g(part)f(of)h(the)g(complete)g +(precession/n)m(utation)0 2803 y(e\013ect)h(is)e(included,)g(thereb)m +(y)h(de\014ning)e(what)h(is)g(called)h(the)g Fn(me)-5 +b(an)41 b FA(equator)33 b(and)f(equino)m(x)h(for)g(the)g(ep)s(o)s(c)m +(h)0 2916 y(concerned.)49 b(W)-8 b(e)34 b(sa)m(y)g(a)f(star)h(has)f(a)g +(mean)g(place)g(of)g(\(for)h(example\))f(12)2542 2883 +y Fr(h)2601 2916 y FA(07)2691 2883 y Fr(m)2770 2916 y +FA(58)2860 2883 y Fr(s)2865 2916 y Fi(:)p FA(09)i Fl(\000)p +FA(19)3176 2883 y Fm(\016)3231 2916 y FA(44)3321 2879 +y Fh(0)3364 2916 y FA(37)3449 2879 y Fh(0)l(0)3453 2916 +y Fi(:)p FA(1)f(\\with)0 3028 y(resp)s(ect)23 b(to)i(the)e(mean)h +(equator)g(and)f(equino)m(x)g(of)g(ep)s(o)s(c)m(h)h(J2000".)40 +b(The)23 b(short)g(w)m(a)m(y)i(of)e(sa)m(ying)h(this)e(is)h(\\[)15 +b Fi(\013;)g(\016)20 b FA(])0 3141 y(equino)m(x)30 b(J2000")i(\()p +Fy(not)e FA(\\[)15 b Fi(\013;)g(\016)21 b FA(])30 b(ep)s(o)s(c)m(h)g +(J2000",)i(whic)m(h)d(means)h(something)g(di\013eren)m(t)f(to)i(do)f +(with)f(prop)s(er)0 3254 y(motion\).)0 3542 y Fs(4.6)112 +b(Ep)s(o)s(c)m(h)0 3760 y FA(The)38 b(w)m(ord)g(\\ep)s(o)s(c)m(h")g +(just)g(means)g(a)h(momen)m(t)g(in)e(time,)j(and)d(can)i(b)s(e)e +(supplied)e(in)i(a)i(v)-5 b(ariet)m(y)38 b(of)h(forms,)0 +3873 y(using)29 b(di\013eren)m(t)h(calendar)g(systems)g(and)g +(timescales.)0 4032 y(F)-8 b(or)22 b(the)f(purp)s(ose)e(of)i(sp)s +(ecifying)e(the)i(ep)s(o)s(c)m(hs)f(asso)s(ciated)h(with)f(the)h(mean)g +(place)g(of)g(a)g(star,)i(t)m(w)m(o)f(con)m(v)m(en)m(tions)0 +4145 y(exist.)37 b(Both)22 b(sorts)e(of)h(ep)s(o)s(c)m(h)g(sup)s +(er\014cially)c(resem)m(ble)j(y)m(ears)i(AD)f(but)f(are)h(not)g(tied)g +(to)g(the)g(civil)e(\(Gregorian\))0 4258 y(calendar;)43 +b(to)c(distinguish)d(them)i(from)h(ordinary)e(calendar-y)m(ears)i +(there)h(is)d(often)j(a)f(\\.0")h(su\016x)e(\(as)i(in)0 +4371 y(\\1950.0"\),)34 b(although)c(an)m(y)h(other)f(fractional)g(part) +h(is)e(p)s(erfectly)g(legal)i(\()p Fn(e.g.)f FA(1987.5\).)0 +4530 y(The)j(older)f(system,)i Fn(Besselian)i(ep)-5 b(o)g(ch)p +FA(,)35 b(is)d(de\014ned)g(in)g(suc)m(h)h(a)g(w)m(a)m(y)h(that)g(its)e +(units)g(are)h(tropical)g(y)m(ears)g(of)0 4643 y(ab)s(out)22 +b(365.2422)27 b(da)m(ys)c(and)f(its)g(timescale)h(is)f(the)h(obsolete)g +Fn(Ephemeris)j(Time)p FA(.)39 b(The)22 b(start)h(of)g(the)g(Besselian)0 +4756 y(y)m(ear)32 b(is)e(the)h(momen)m(t)g(when)f(the)h(ecliptic)e +(longitude)h(of)h(the)g(mean)g(Sun)e(is)h(280)2819 4723 +y Fm(\016)2860 4756 y FA(;)h(this)f(happ)s(ens)f(near)h(the)0 +4869 y(start)h(of)f(the)h(calendar)f(y)m(ear)h(\(whic)m(h)f(is)f(wh)m +(y)h(280)1753 4836 y Fm(\016)1824 4869 y FA(w)m(as)h(c)m(hosen\).)0 +5028 y(The)38 b(new)h(system,)j Fn(Julian)e(ep)-5 b(o)g(ch)p +FA(,)43 b(w)m(as)d(adopted)f(as)g(part)g(of)g(the)g(IA)m(U)h(1976)h +(revisions)c(\(ab)s(out)i(whic)m(h)0 5141 y(more)34 b(will)d(b)s(e)j +(said)f(in)f(due)i(course\))g(and)f(came)i(formally)e(in)m(to)h(use)f +(at)i(the)f(b)s(eginning)d(of)k(1984.)53 b(It)34 b(uses)0 +5254 y(the)f(Julian)e(y)m(ear)j(of)g(exactly)g(365.25)h(da)m(ys;)g +(Julian)c(ep)s(o)s(c)m(h)i(2000)i(is)d(de\014ned)g(to)i(b)s(e)f(2000)i +(Jan)m(uary)d(1.5)j(in)0 5367 y(the)c(TT)e(timescale.)p +0 5425 1512 4 v 104 5479 a Fp(4)138 5510 y Fo(An)f(equino)n(x)g(is,)j +(ho)n(w)n(ev)n(er,)f(not)f(required)f(for)i(co)r(ordinates)g(in)f(the)f +(In)n(ternational)h(Celestial)j(Reference)d(System.)43 +b(Suc)n(h)0 5602 y(co)r(ordinates)31 b(m)n(ust)e(b)r(e)h(lab)r(elled)h +(simply)e(\\ICRS",)h(or)g(the)g(sp)r(eci\014c)g(catalogue)i(can)e(b)r +(e)g(men)n(tioned,)g(suc)n(h)f(as)i(\\Hipparcos";)0 5693 +y(constructions)26 b(suc)n(h)g(as)g(\\Hipparcos,)h(J2000")h(are)e +(redundan)n(t)e(and)h(misleading.)p eop +%%Page: 175 177 +175 176 bop 0 52 a Ft(SUN/67.45)3206 b FA(175)0 351 y(F)-8 +b(or)36 b(sp)s(ecifying)d(mean)j(places,)g(v)-5 b(arious)34 +b(standard)h(ep)s(o)s(c)m(hs)g(are)g(in)f(use,)j(the)e(most)h(common)f +(ones)h(b)s(eing)0 464 y(Besselian)41 b(ep)s(o)s(c)m(h)h(1950.0)i(and)e +(Julian)d(ep)s(o)s(c)m(h)j(2000.0.)78 b(T)-8 b(o)42 b(distinguish)d +(the)j(t)m(w)m(o)h(systems,)i(Besselian)0 577 y(ep)s(o)s(c)m(hs)24 +b(are)h(no)m(w)g(pre\014xed)f(\\B")i(and)e(Julian)e(ep)s(o)s(c)m(hs)j +(are)g(pre\014xed)e(\\J".)j(Ep)s(o)s(c)m(hs)e(without)g(an)g(initial)e +(letter)0 690 y(can)32 b(b)s(e)e(assumed)h(to)h(b)s(e)f(Besselian)g(if) +f(b)s(efore)h(1984.0,)k(otherwise)30 b(Julian.)42 b(These)31 +b(details)f(are)i(supp)s(orted)0 803 y(b)m(y)39 b(the)h(SLALIB)f +(routines)f(sla)p Fq(_)p FA(DBJIN)i(\(deco)s(des)f(n)m(um)m(b)s(ers)f +(from)h(a)h(c)m(haracter)h(string,)g(accepting)g(an)0 +916 y(optional)33 b(leading)g(B)i(or)f(J\),)h(sla)p Fq(_)p +FA(KBJ)e(\(decides)h(whether)g(B)g(or)h(J)f(dep)s(ending)d(on)k +(pre\014x)e(or)h(range\))h(and)0 1029 y(sla)p Fq(_)p +FA(EPCO)29 b(\(con)m(v)m(erts)j(one)f(ep)s(o)s(c)m(h)f(to)h(matc)m(h)g +(another\).)0 1187 y(SLALIB)23 b(has)f(four)h(routines)f(for)g(con)m(v) +m(erting)i(Besselian)f(and)f(Julian)f(ep)s(o)s(c)m(hs)h(in)m(to)h +(other)h(forms.)37 b(The)23 b(func-)0 1300 y(tions)30 +b(sla)p Fq(_)p FA(EPB2D)h(and)f(sla)p Fq(_)p FA(EPJ2D)g(con)m(v)m(ert)i +(Besselian)e(and)h(Julian)d(ep)s(o)s(c)m(hs)i(in)m(to)h(MJD;)g(the)g +(functions)0 1413 y(sla)p Fq(_)p FA(EPB)f(and)f(sla)p +Fq(_)p FA(EPJ)h(do)g(the)g(rev)m(erse.)42 b(F)-8 b(or)31 +b(example,)f(to)h(express)f(B1950)j(as)d(a)h(Julian)d(ep)s(o)s(c)m(h:) +573 1659 y Fq(DOUBLE)46 b(PRECISION)f(sla_EPJ,sla_EPB2D)620 +1772 y(:)573 1885 y(WRITE)h(\(*,'\(1X,''J'',F10.5\)'\))c +(sla_EPJ\(sla_EPB2D\(1950D0)o(\)\))0 2130 y FA(\(The)30 +b(answ)m(er)g(is)g(J1949.99979.\))0 2418 y Fs(4.7)112 +b(Prop)s(er)37 b(Motion)0 2635 y FA(Stars)29 b(in)f(catalogues)i +(usually)d(ha)m(v)m(e,)k(in)d(addition)f(to)j(the)f([)15 +b Fi(\013;)g(\016)21 b FA(])29 b(co)s(ordinates,)g(a)h +Fn(pr)-5 b(op)g(er)34 b(motion)c FA([)p Fi(\026)3546 +2649 y Fc(\013)3596 2635 y Fi(;)15 b(\026)3691 2650 y +Fc(\016)3729 2635 y FA(].)0 2748 y(This)37 b(is)h(an)h(in)m(trinsic)e +(motion)i(of)g(the)g(star)h(across)f(the)h(bac)m(kground.)66 +b(V)-8 b(ery)40 b(few)f(stars)g(ha)m(v)m(e)h(a)g(prop)s(er)0 +2861 y(motion)d(whic)m(h)g(exceeds)h(1)956 2824 y Fh(0)l(0)997 +2861 y FA(/y)m(ear,)j(and)c(most)g(are)h(far)g(b)s(elo)m(w)f(this)f +(lev)m(el.)62 b(A)38 b(star)f(observ)m(ed)h(as)g(part)f(of)0 +2974 y(normal)29 b(astronom)m(y)j(researc)m(h)f(will,)d(as)i(a)h(rule,) +e(ha)m(v)m(e)j(a)f(prop)s(er)d(motion)j(whic)m(h)e(is)g(unkno)m(wn.)0 +3132 y(Mean)23 b([)15 b Fi(\013;)g(\016)20 b FA(])j(and)f(rate)h(of)g +(c)m(hange)h(are)f(not)f(su\016cien)m(t)g(to)i(pin)c(do)m(wn)i(a)h +(star;)j(the)d(ep)s(o)s(c)m(h)f(at)h(whic)m(h)e(the)i([)15 +b Fi(\013;)g(\016)20 b FA(])0 3245 y(w)m(as)27 b(or)h(will)c(b)s(e)j +(correct)h(is)e(also)h(needed.)39 b(Note)29 b(the)e(distinction)e(b)s +(et)m(w)m(een)j(the)f(ep)s(o)s(c)m(h)g(whic)m(h)f(sp)s(eci\014es)f(the) +0 3358 y(co)s(ordinate)36 b(system)g(and)f(the)i(ep)s(o)s(c)m(h)e(at)i +(whic)m(h)e(the)h(star)g(passed)g(through)f(the)h(giv)m(en)g([)15 +b Fi(\013;)g(\016)20 b FA(].)58 b(The)36 b(full)0 3471 +y(sp)s(eci\014cation)28 b(for)h(a)h(star)g(is)e([)15 +b Fi(\013;)g(\016)20 b FA(],)30 b(prop)s(er)e(motions,)i(equino)m(x)e +(and)h(ep)s(o)s(c)m(h)g(\(plus)f(something)h(to)h(iden)m(tify)0 +3584 y(whic)m(h)24 b(set)h(of)g(mo)s(dels)f(for)h(the)g(precession)f +Fn(etc.)h FA(is)f(b)s(eing)f(used)i({)g(see)h(the)f(next)g(section\).) +39 b(F)-8 b(or)26 b(con)m(v)m(enience,)0 3697 y(co)s(ordinates)j(giv)m +(en)g(in)e(star)i(catalogues)i(are)e(almost)g(alw)m(a)m(ys)h(adjusted)e +(to)i(mak)m(e)g(the)f(equino)m(x)f(and)h(ep)s(o)s(c)m(h)0 +3810 y(the)i(same)f({)h(for)f(example)g(B1950)j(in)c(the)h(case)i(of)e +(the)h(SA)m(O)f(catalogue.)0 3968 y(SLALIB)36 b(pro)m(vides)f(one)h +(routine)g(to)g(handle)f(prop)s(er)g(motion)h(on)g(its)g(o)m(wn,)i(sla) +p Fq(_)p FA(PM.)d(Prop)s(er)h(motion)f(is)0 4081 y(also)29 +b(allo)m(w)m(ed)h(for)f(in)f(v)-5 b(arious)28 b(other)i(routines)e(as)i +(appropriate,)f(for)g(example)g(sla)p Fq(_)p FA(MAP)g(and)g(sla)p +Fq(_)p FA(FK425.)0 4194 y(Note)37 b(that)f(in)e(all)g(SLALIB)h +(routines)f(whic)m(h)g(in)m(v)m(olv)m(e)i(prop)s(er)e(motion)h(the)h +(units)d(are)j(radians)e(p)s(er)h(y)m(ear)0 4307 y(and)c(the)i +Fi(\013)f FA(comp)s(onen)m(t)g(is)f(in)g(the)h(form)51 +b(_)-44 b Fi(\013)32 b FA(\()p Fn(i.e.)g FA(big)f(n)m(um)m(b)s(ers)g +(near)h(the)g(p)s(oles\).)45 b(Some)32 b(star)g(catalogues)0 +4420 y(ha)m(v)m(e)e(prop)s(er)e(motion)h(p)s(er)f(cen)m(tury)-8 +b(,)31 b(and)d(in)g(some)i(catalogues)g(the)g Fi(\013)f +FA(comp)s(onen)m(t)h(is)e(in)g(the)h(form)48 b(_)-44 +b Fi(\013)16 b FA(cos)g Fi(\016)0 4533 y FA(\()p Fn(i.e.)30 +b FA(angle)g(on)h(the)f(sky\).)0 4820 y Fs(4.8)112 b(P)m(arallax)37 +b(and)h(Radial)f(V)-9 b(elo)s(cit)m(y)0 5037 y FA(F)h(or)32 +b(the)f(utmost)g(accuracy)h(and)e(the)h(nearest)g(stars,)h(allo)m(w)m +(ance)f(can)g(b)s(e)g(made)f(for)h Fn(annual)j(p)-5 b(ar)g(al)5 +b(lax)45 b FA(and)0 5150 y(for)30 b(the)h(e\013ects)g(of)g(p)s(ersp)s +(ectiv)m(e)f(on)g(the)g(prop)s(er)f(motion.)0 5309 y(P)m(arallax)k(is)g +(appreciable)f(only)g(for)h(nearb)m(y)h(stars;)h(ev)m(en)f(the)f +(nearest,)i(Pro)m(xima)e(Cen)m(tauri,)h(is)e(displaced)0 +5422 y(from)e(its)g(a)m(v)m(erage)j(p)s(osition)28 b(b)m(y)i(less)g +(than)g(an)g(arcsecond)h(as)g(the)g(Earth)f(rev)m(olv)m(es)h(in)e(its)h +(orbit.)0 5580 y(F)-8 b(or)26 b(stars)g(with)f(a)h(kno)m(wn)f +(parallax,)h(kno)m(wledge)g(of)g(the)f(radial)g(v)m(elo)s(cit)m(y)h +(allo)m(ws)f(the)h(prop)s(er)e(motion)i(to)g(b)s(e)0 +5693 y(expressed)j(as)h(an)f(actual)h(space)h(motion)e(in)f(3)i +(dimensions.)38 b(The)29 b(prop)s(er)f(motion)i(is,)f(in)f(fact,)j(a)f +(snapshot)p eop +%%Page: 176 178 +176 177 bop 0 52 a FA(176)0 351 y(of)36 b(the)h(transv)m(erse)f(comp)s +(onen)m(t)h(of)f(the)g(space)h(motion,)g(and)f(in)f(the)h(case)h(of)g +(nearb)m(y)f(stars)g(will)d(c)m(hange)0 464 y(with)c(time)h(due)g(to)h +(p)s(ersp)s(ectiv)m(e.)0 640 y(SLALIB)i(do)s(es)g(not)h(pro)m(vide)f +(facilities)f(for)h(handling)f(parallax)g(and)h(radial-v)m(elo)s(cit)m +(y)g(on)h(their)e(o)m(wn,)j(but)0 752 y(their)22 b(con)m(tribution)f +(is)g(allo)m(w)m(ed)i(for)f(in)f(suc)m(h)h(routines)g(as)h(sla)p +Fq(_)p FA(PM,)f(sla)p Fq(_)p FA(MAP)g(and)g(sla)p Fq(_)p +FA(FK425.)39 b(Catalogue)0 865 y(mean)31 b(places)h(do)f(not)h(include) +d(the)i(e\013ects)i(of)f(parallax)e(and)h(are)g(therefore)h +Fn(b)-5 b(aryc)g(entric)p FA(;)34 b(when)c(p)s(oin)m(ting)0 +978 y(telescop)s(es)39 b Fn(etc.)f FA(it)g(is)f(usually)f(most)j +(e\016cien)m(t)g(to)g(apply)e(the)h(slo)m(wly-c)m(hanging)g(parallax)f +(correction)i(to)0 1091 y(the)32 b(mean)h(place)f(of)g(the)h(target)g +(early)f(on)g(and)g(to)h(w)m(ork)f(with)f(the)i Fn(ge)-5 +b(o)g(c)g(entric)38 b FA(mean)32 b(place.)47 b(This)30 +b(latter)0 1204 y(approac)m(h)h(is)e(implied)e(in)i(Figure)h(1.)0 +1540 y Fs(4.9)112 b(Ab)s(erration)0 1780 y FA(The)32 +b(\014nite)g(sp)s(eed)g(of)h(ligh)m(t)f(com)m(bined)f(with)h(the)h +(motion)f(of)h(the)g(observ)m(er)g(around)f(the)h(Sun)e(during)f(the)0 +1893 y(y)m(ear)g(causes)g(apparen)m(t)g(displacemen)m(ts)e(of)i(the)f +(p)s(ositions)f(of)h(the)h(stars.)41 b(The)29 b(e\013ect)i(is)d(called) +h(the)g Fn(annual)0 2006 y(ab)-5 b(err)g(ation)40 b FA(\(or)e +(\\stellar")f(ab)s(erration\).)61 b(Its)38 b(maxim)m(um)e(size,)j(ab)s +(out)f(20)2628 1969 y Fh(0)l(0)2632 2006 y Fi(:)p FA(5,)i(o)s(ccurs)e +(for)f(stars)g(90)3517 1973 y Fm(\016)3595 2006 y FA(from)0 +2118 y(the)g(p)s(oin)m(t)f(to)m(w)m(ards)i(whic)m(h)d(the)i(Earth)g(is) +f(headed)h(as)g(it)f(orbits)g(the)h(Sun;)i(a)e(star)g(exactly)h(in)e +(line)f(with)0 2231 y(the)42 b(Earth's)f(motion)h(is)e(not)i +(displaced.)73 b(T)-8 b(o)42 b(receiv)m(e)g(the)g(ligh)m(t)f(of)h(a)g +(star,)i(the)e(telescop)s(e)g(has)g(to)g(b)s(e)0 2344 +y(o\013set)30 b(sligh)m(tly)e(in)g(the)i(direction)e(of)i(the)f +(Earth's)h(motion.)40 b(A)29 b(familiar)e(analogy)j(is)f(the)h(need)f +(to)h(tilt)f(y)m(our)0 2457 y(um)m(brella)34 b(forw)m(ard)h(when)g(on)g +(the)h(mo)m(v)m(e,)j(to)d(a)m(v)m(oid)h(getting)f(w)m(et.)58 +b(This)34 b(Newtonian)h(mo)s(del)g(is,)h(in)e(fact,)0 +2570 y(highly)22 b(misleading)f(in)i(the)h(con)m(text)i(of)e(ligh)m(t)f +(as)i(opp)s(osed)e(to)h(rain,)h(but)e(happ)s(ens)f(to)j(giv)m(e)f(the)g +(same)h(answ)m(er)0 2683 y(as)31 b(a)f(relativistic)f(treatmen)m(t)j +(to)f(\014rst)f(order)g(\(b)s(etter)g(than)h(1)f(milliarcsecond\).)0 +2858 y(Before)f(the)f(IA)m(U)h(1976)g(resolutions,)e(di\013eren)m(t)h +(v)-5 b(alues)27 b(for)h(the)g(appro)m(ximately)f(20)2916 +2821 y Fh(0)m(0)2920 2858 y Fi(:)p FA(5)j Fn(ab)-5 b(err)g(ation)33 +b(c)-5 b(onstant)0 2971 y FA(w)m(ere)33 b(emplo)m(y)m(ed)h(at)f +(di\013eren)m(t)g(times,)g(and)f(this)g(can)h(complicate)h(comparisons) +e(b)s(et)m(w)m(een)h(di\013eren)m(t)g(cata-)0 3084 y(logues.)39 +b(Another)27 b(complication)e(comes)j(from)e(the)h(so-called)f +Fn(E-terms)j(of)h(ab)-5 b(err)g(ation)p FA(,)30 b(that)d(small)e(part)h +(of)0 3197 y(the)31 b(ann)m(ual)e(ab)s(erration)h(correction)h(that)g +(is)f(a)g(function)g(of)g(the)h(eccen)m(tricit)m(y)h(of)f(the)f +(Earth's)h(orbit.)40 b(The)0 3310 y(E-terms,)29 b(maxim)m(um)e +(amplitude)f(ab)s(out)i(0)1516 3273 y Fh(0)m(0)1520 3310 +y Fi(:)p FA(3,)i(happ)s(en)d(to)i(b)s(e)f(appro)m(ximately)f(constan)m +(t)j(for)e(a)h(giv)m(en)f(star,)0 3423 y(and)k(so)h(they)f(used)g(to)h +(b)s(e)f(incorp)s(orated)f(in)h(the)g(catalogue)i([)15 +b Fi(\013;)g(\016)21 b FA(])32 b(to)h(reduce)g(the)f(lab)s(our)f(of)i +(con)m(v)m(erting)0 3536 y(to)38 b(and)e(from)g(apparen)m(t)h(place.)61 +b(The)36 b(E-terms)h(can)g(b)s(e)g(remo)m(v)m(ed)g(from)g(a)g +(catalogue)i([)15 b Fi(\013;)g(\016)20 b FA(])37 b(b)m(y)g(calling)0 +3649 y(sla)p Fq(_)p FA(SUBET)29 b(or)h(applied)e(\(for)j(example)f(to)h +(allo)m(w)f(a)g(pulsar)f(timing-p)s(osition)e(to)k(b)s(e)e(plotted)h +(on)h(a)f(B1950)0 3762 y(\014nding)36 b(c)m(hart\))j(b)m(y)f(calling)e +(sla)p Fq(_)p FA(ADDET;)j(the)f(E-terms)g(v)m(ector)i(itself)d(can)h(b) +s(e)f(obtained)h(b)m(y)g(calling)e(s-)0 3874 y(la)p Fq(_)p +FA(ETRMS.)28 b(Star)h(p)s(ositions)e(p)s(ost)i(IA)m(U)g(1976)i(are)e +(free)h(of)f(these)g(distortions,)f(and)h(to)h(apply)d(corrections)0 +3987 y(for)32 b(ann)m(ual)g(ab)s(erration)g(in)m(v)m(olv)m(es)h(the)g +(actual)g(barycen)m(tric)f(v)m(elo)s(cit)m(y)i(of)e(the)h(Earth)g +(rather)f(than)h(the)g(use)0 4100 y(of)e(canonical)f(circular-orbit)e +(mo)s(dels.)0 4276 y(The)40 b(ann)m(ual)f(ab)s(erration)h(is)f(the)i +(ab)s(erration)e(correction)i(for)f(an)g(imaginary)f(observ)m(er)i(at)g +(the)g(Earth's)0 4389 y(cen)m(tre.)h(The)30 b(motion)g(of)h(a)g(real)f +(observ)m(er)g(around)g(the)g(Earth's)h(rotation)g(axis)e(in)h(the)g +(course)h(of)f(the)h(da)m(y)0 4501 y(mak)m(es)e(a)g(small)e(extra)i +(con)m(tribution)e(to)i(the)g(total)g(ab)s(erration)f(e\013ect)i +(called)d(the)i Fn(diurnal)j(ab)-5 b(err)g(ation)p FA(.)42 +b(Its)0 4614 y(maxim)m(um)29 b(amplitude)g(is)g(ab)s(out)h(0)1245 +4578 y Fh(0)l(0)1249 4614 y Fi(:)p FA(2.)0 4790 y(No)k(SLALIB)e +(routine)h(is)f(pro)m(vided)g(for)h(calculating)f(the)i(ab)s(erration)e +(on)h(its)g(o)m(wn,)h(though)f(the)g(required)0 4903 +y(v)m(elo)s(cit)m(y)26 b(v)m(ectors)h(can)e(b)s(e)g(generated)h(using)e +(sla)p Fq(_)p FA(EVP)g(and)h(sla)p Fq(_)p FA(GEOC.)f(Ann)m(ual)g(and)h +(diurnal)d(ab)s(erration)0 5016 y(are)34 b(allo)m(w)m(ed)f(for)g(where) +f(required,)h(for)g(example)g(in)f(sla)p Fq(_)p FA(MAP)h +Fn(etc)p FA(.)g(and)f(sla)p Fq(_)p FA(A)m(OP)h Fn(etc)p +FA(.)49 b(Note)35 b(that)f(this)0 5128 y(sort)28 b(of)g(ab)s(erration)g +(is)f(di\013eren)m(t)g(from)h(the)g Fn(planetary)33 b(ab)-5 +b(err)g(ation)p FA(,)31 b(whic)m(h)c(is)g(the)h(apparen)m(t)g +(displacemen)m(t)0 5241 y(of)d(a)g(solar-system)f(b)s(o)s(dy)-8 +b(,)25 b(with)e(resp)s(ect)i(to)g(the)g(ephemeris)e(p)s(osition,)h(as)h +(a)f(consequence)i(of)e(the)h(motion)f(of)0 5354 y Fn(b)-5 +b(oth)38 b FA(the)30 b(Earth)g(and)f(the)i(source.)40 +b(The)30 b(planetary)f(ab)s(erration)g(can)i(b)s(e)e(computed)h(either) +f(b)m(y)h(correcting)0 5467 y(the)h(p)s(osition)d(of)j(the)f +(solar-system)h(b)s(o)s(dy)d(for)j(ligh)m(t-time,)e(follo)m(w)m(ed)h(b) +m(y)h(the)f(ordinary)f(stellar)g(ab)s(erration)0 5580 +y(correction,)c(or)e(more)g(directly)e(b)m(y)i(expressing)e(the)i(p)s +(osition)e(and)h(v)m(elo)s(cit)m(y)i(of)f(the)g(source)g(in)e(the)i +(observ)m(er's)0 5693 y(frame)30 b(and)g(correcting)h(for)f(ligh)m +(t-time)g(alone.)p eop +%%Page: 177 179 +177 178 bop 0 52 a Ft(SUN/67.45)3206 b FA(177)0 351 y +Fs(4.10)112 b(Di\013eren)m(t)37 b(Sorts)g(of)h(Mean)g(Place)0 +590 y FA(A)26 b(particularly)e(confusing)h(asp)s(ect)h(of)g(published)d +(mean)j(places)g(is)f(that)i(they)f(are)h(sensitiv)m(e)e(to)i(the)f +(precise)0 703 y(w)m(a)m(y)40 b(they)g(w)m(ere)g(determined.)66 +b(A)39 b(mean)g(place)h(is)e(not)i(directly)e(observ)-5 +b(able,)41 b(ev)m(en)f(with)e(fundamen)m(tal)0 816 y(instrumen)m(ts)c +(suc)m(h)i(as)g(transit)f(circles,)i(and)f(to)g(pro)s(duce)f(a)h(mean)g +(place)g(will)e(in)m(v)m(olv)m(e)i(relying)e(on)i(some)0 +929 y(existing)g(star)h(catalogue,)k(for)c(example)f(the)i(fundamen)m +(tal)d(catalogues)k(FK4)e(and)g(FK5,)i(and)e(applying)0 +1042 y(giv)m(en)h(mathematical)g(mo)s(dels)e(of)i(precession,)h(n)m +(utation,)h(ab)s(erration)d(and)g(so)h(on.)63 b(Note)39 +b(in)d(particular)0 1155 y(that)29 b(no)g(star)g(catalogue,)i(ev)m(en)e +(a)g(fundamen)m(tal)f(catalogue)j(suc)m(h)d(as)h(FK4)g(or)g(FK5,)h +(de\014nes)d(a)j(co)s(ordinate)0 1268 y(system,)43 b(strictly)c(sp)s +(eaking;)k(it)d(is)f(merely)g(a)h(list)f(of)h(star)g(p)s(ositions)e +(and)h(prop)s(er)f(motions.)69 b(Ho)m(w)m(ev)m(er,)0 +1381 y(once)42 b(the)g(stars)g(from)g(a)g(giv)m(en)f(catalogue)j(are)e +(used)f(as)h(p)s(osition)e(calibrators,)k Fn(e.g.)d FA(for)h +(transit-circle)0 1494 y(observ)-5 b(ations)44 b(or)h(for)g(plate)g +(reductions,)i(then)e(a)g(broader)f(sense)h(of)g(there)g(b)s(eing)f(a)h +(co)s(ordinate)g(grid)0 1607 y(naturally)28 b(arises,)i(and)f(suc)m(h)g +(phrases)g(as)h(\\in)f(the)h(system)g(of)g(the)f(FK4")i(can)f +(legitimately)f(b)s(e)g(emplo)m(y)m(ed.)0 1719 y(Ho)m(w)m(ev)m(er,)43 +b(there)d(is)e(no)h(formal)f(link)f(b)s(et)m(w)m(een)i(the)g(t)m(w)m(o) +i(concepts)f({)f(no)g(\\standard)f(least)i(squares)e(\014t")0 +1832 y(b)s(et)m(w)m(een)c(realit)m(y)e(and)h(the)g(inevitably)e(\015a)m +(w)m(ed)i(catalogues.)2118 1799 y Fr(5)2208 1832 y FA(All)f(suc)m(h)h +(catalogues)h(su\013er)f(at)g(some)h(lev)m(el)0 1945 +y(from)k(systematic,)k(zonal)c(distortions)f(of)i(b)s(oth)f(the)h(star) +g(p)s(ositions)e(and)h(of)g(the)h(prop)s(er)f(motions,)i(and)0 +2058 y(include)28 b(measuremen)m(t)j(errors)f(p)s(eculiar)e(to)j +(individual)26 b(stars.)0 2233 y(Man)m(y)21 b(of)g(these)f +(complications)g(are)g(of)h(little)e(signi\014cance)h(except)h(to)g(sp) +s(ecialists.)35 b(Ho)m(w)m(ev)m(er,)25 b(observ)-5 b(ational)0 +2346 y(astronomers)37 b(cannot)g(escap)s(e)f(exp)s(osure)g(to)h(at)g +(least)g(the)f(t)m(w)m(o)i(main)d(v)-5 b(arieties)36 +b(of)h(mean)f(place,)i(lo)s(osely)0 2459 y(called)33 +b(FK4)h(and)f(FK5,)i(and)e(should)e(b)s(e)i(a)m(w)m(are)i(of)f(certain) +f(pitfalls.)48 b(F)-8 b(or)34 b(most)g(practical)g(purp)s(oses)d(the)0 +2572 y(more)38 b(recen)m(t)h(system,)h(FK5,)h(is)c(free)h(of)g +(surprises)d(and)j(tolerates)h(naiv)m(e)f(use)f(w)m(ell.)63 +b(FK4,)40 b(in)d(con)m(trast,)0 2685 y(con)m(tains)31 +b(t)m(w)m(o)g(imp)s(ortan)m(t)f(traps:)136 2952 y Fl(\017)46 +b FA(The)40 b(FK4)h(system)g(rotates)h(at)g(ab)s(out)e(0)1698 +2915 y Fh(0)l(0)1702 2952 y Fi(:)p FA(5)h(p)s(er)f(cen)m(tury)h +(relativ)m(e)g(to)g(distan)m(t)f(galaxies.)72 b(This)38 +b(is)227 3065 y(manifested)26 b(as)h(a)h(systematic)f(distortion)f(in)f +(the)i(prop)s(er)f(motions)g(of)h(all)f(FK4-deriv)m(ed)h(catalogues,) +227 3178 y(whic)m(h)43 b(will)e(in)i(turn)g(p)s(ollute)f(an)m(y)i +(astrometry)h(done)e(using)g(those)h(catalogues.)83 b(F)-8 +b(or)45 b(example,)227 3291 y(FK4-based)35 b(astrometry)h(of)e(a)h(QSO) +f(using)f(plates)h(tak)m(en)i(decades)f(apart)g(will)d(rev)m(eal)j(a)g +(non-zero)227 3404 y Fn(\014ctitious)f(pr)-5 b(op)g(er)36 +b(motion)p FA(,)d(and)e(an)m(y)h(FK4)f(star)h(whic)m(h)e(happ)s(ens)g +(to)i(ha)m(v)m(e)g(zero)g(prop)s(er)e(motion)h(is,)227 +3516 y(in)e(fact,)j(slo)m(wly)d(mo)m(ving)h(against)h(the)f(distan)m(t) +g(bac)m(kground.)41 b(The)30 b(FK4)h(frame)f(rotates)i(b)s(ecause)e(it) +227 3629 y(w)m(as)e(established)d(b)s(efore)i(the)g(nature)g(of)g(the)h +(Milky)e(W)-8 b(a)m(y)g(,)30 b(and)c(hence)i(the)f(existence)h(of)f +(systematic)227 3742 y(motions)j(of)h(nearb)m(y)f(stars,)h(had)e(b)s +(een)h(recognized.)136 3954 y Fl(\017)46 b FA(Star)27 +b(p)s(ositions)f(in)g(the)h(FK4)h(system)g(are)f(part-corrected)i(for)e +(ann)m(ual)f(ab)s(erration)h(\(see)h(ab)s(o)m(v)m(e\))h(and)227 +4067 y(em)m(b)s(o)s(dy)h(the)g(so-called)g(E-terms)h(of)f(ab)s +(erration.)0 4334 y(The)i(c)m(hange)j(from)d(the)h(old)f(FK4-based)i +(system)f(to)h(FK5)f(o)s(ccurred)f(at)i(the)f(b)s(eginning)e(of)i(1984) +h(as)g(part)0 4447 y(of)f(a)h(pac)m(k)-5 b(age)35 b(of)f(resolutions)d +(made)i(b)m(y)h(the)f(IA)m(U)h(in)e(1976,)k(along)d(with)f(the)h +(adoption)g(of)g(J2000)i(as)e(the)0 4560 y(reference)i(ep)s(o)s(c)m(h.) +52 b(Star)34 b(p)s(ositions)f(in)g(the)h(new)m(er,)i(FK5,)g(system)e +(are)h(free)f(from)g(the)h(E-terms,)h(and)d(the)0 4673 +y(system)e(is)e(a)i(m)m(uc)m(h)f(b)s(etter)h(appro)m(ximation)e(to)i +(an)f(inertial)f(frame)h(\(ab)s(out)g(\014v)m(e)h(times)f(b)s(etter\).) +0 4848 y(It)f(ma)m(y)h(o)s(ccasionally)e(b)s(e)h(con)m(v)m(enien)m(t)h +(to)g(sp)s(ecify)e(the)i(FK4)f(\014ctitious)f(prop)s(er)g(motion)h +(directly)-8 b(.)39 b(In)29 b(FK4,)0 4961 y(the)i(cen)m(tennial)e(prop) +s(er)g(motion)h(of)h(\(for)f(example\))h(a)g(QSO)e(is:)0 +5135 y Fi(\026)55 5149 y Fc(\013)130 5135 y FA(=)24 b +Fl(\000)p FA(0)341 5102 y Fr(s)346 5135 y Fi(:)p FA(015869+\(\(0)827 +5102 y Fr(s)832 5135 y Fi(:)p FA(029032)52 b(sin)14 b +Fi(\013)p FA(+0)1480 5102 y Fr(s)1485 5135 y Fi(:)p FA(000340)48 +b(cos)16 b Fi(\013)p FA(\))f(sin)g Fi(\016)s Fl(\000)p +FA(0)2360 5102 y Fr(s)2365 5135 y Fi(:)p FA(000105)49 +b(cos)16 b Fi(\013)p Fl(\000)p FA(0)3020 5102 y Fr(s)3025 +5135 y Fi(:)p FA(000083)48 b(sin)14 b Fi(\013)p FA(\))h(sec)i +Fi(\016)0 5248 y(\026)55 5263 y Fc(\016)133 5248 y FA(=)25 +b(+0)340 5211 y Fh(0)l(0)344 5248 y Fi(:)p FA(43549)48 +b(cos)16 b Fi(\013)p Fl(\000)p FA(0)948 5211 y Fh(0)l(0)952 +5248 y Fi(:)p FA(00510)48 b(sin)14 b Fi(\013)21 b FA(+)f(\(0)1622 +5211 y Fh(0)l(0)1626 5248 y Fi(:)p FA(00158)48 b(sin)14 +b Fi(\013)p Fl(\000)p FA(0)2220 5211 y Fh(0)m(0)2224 +5248 y Fi(:)p FA(00125)49 b(cos)16 b Fi(\013)p FA(\))f(sin)f +Fi(\016)s Fl(\000)p FA(0)3049 5211 y Fh(0)m(0)3053 5248 +y Fi(:)p FA(00066)49 b(cos)16 b Fi(\016)p 0 5334 1512 +4 v 104 5387 a Fp(5)138 5419 y Fo(This)26 b(w)n(as)g(true)f(un)n(til)g +(the)g(inception)h(of)g(the)e(In)n(ternational)i(Celestial)i(Reference) +d(System,)f(whic)n(h)i(is)f(based)h(on)f(the)g(idea)0 +5510 y(of)h(axes)g(lo)r(c)n(k)n(ed)f(in)n(to)g(the)g(distan)n(t)g(bac)n +(kground.)34 b(The)25 b(co)r(ordinates)i(of)f(the)f(extragalactic)i +(sources)f(whic)n(h)f(realize)i(these)e(axes)0 5602 y(ha)n(v)n(e)31 +b(no)g(individual)g(signi\014cance;)36 b(there)31 b(is)h(a)g(\\no)g +(net)f(rotation")h(condition)g(whic)n(h)f(has)h(to)g(b)r(e)f +(satis\014ed)h(eac)n(h)f(time)g(an)n(y)0 5693 y(revisions)c(tak)n(e)e +(place.)p eop +%%Page: 178 180 +178 179 bop 0 52 a FA(178)0 351 y Fs(4.11)112 b(Mean)39 +b(Place)d(T)-9 b(ransformations)0 573 y FA(Figure)28 +b(1)h(is)f(based)h(up)s(on)e(three)i(v)-5 b(arieties)28 +b(of)h(mean)g([)15 b Fi(\013;)g(\016)20 b FA(])29 b(all)f(of)h(whic)m +(h)e(are)j(of)f(practical)f(signi\014cance)g(to)0 686 +y(observing)h(astronomers)i(in)e(the)i(presen)m(t)f(era:)136 +925 y Fl(\017)46 b FA(Old)37 b(st)m(yle)i(\(FK4\))h(with)d(kno)m(wn)h +(prop)s(er)f(motion)h(in)f(the)i(FK4)g(system,)i(and)c(with)h(parallax) +f(and)227 1038 y(radial)29 b(v)m(elo)s(cit)m(y)i(either)f(kno)m(wn)g +(or)g(assumed)g(zero.)136 1226 y Fl(\017)46 b FA(Old)34 +b(st)m(yle)i(\(FK4\))h(with)e(zero)h(prop)s(er)e(motion)i(in)e(FK5,)k +(and)d(with)f(parallax)h(and)g(radial)f(v)m(elo)s(cit)m(y)227 +1339 y(assumed)c(zero.)136 1528 y Fl(\017)46 b FA(New)24 +b(st)m(yle)g(\(FK5\))h(with)d(prop)s(er)g(motion,)j(parallax)e(and)g +(radial)f(v)m(elo)s(cit)m(y)i(either)f(kno)m(wn)h(or)f(assumed)227 +1640 y(zero.)0 1879 y(The)35 b(\014gure)f(outlines)g(the)i(steps)f +(required)e(to)j(con)m(v)m(ert)h(p)s(ositions)c(in)h(an)m(y)i(of)f +(these)h(systems)f(to)h(a)g(J2000)0 1992 y([)15 b Fi(\013;)g(\016)20 +b FA(])34 b(for)g(the)g(curren)m(t)f(ep)s(o)s(c)m(h,)i(as)f(migh)m(t)f +(b)s(e)g(required)f(in)g(a)j(telescop)s(e-con)m(trol)g(program)e(for)h +(example.)0 2105 y(Most)28 b(of)f(the)g(steps)g(can)g(b)s(e)g(carried)f +(out)h(b)m(y)g(calling)e(a)j(single)d(SLALIB)i(routines;)g(there)g(are) +h(other)f(SLAL-)0 2218 y(IB)35 b(routines)g(whic)m(h)f(o\013er)h +(set-piece)i(end-to-end)e(transformation)g(routines)f(for)h(common)g +(cases.)57 b(Note,)0 2331 y(ho)m(w)m(ev)m(er,)34 b(that)e(SLALIB)f(do)s +(es)g(not)h(set)g(out)g(to)g(pro)m(vide)f(the)h(capabilit)m(y)e(for)i +(arbitrary)e(transformations)0 2443 y(of)e(star-catalogue)j(data)e(b)s +(et)m(w)m(een)f(all)g(p)s(ossible)d(systems)j(of)h(mean)f([)15 +b Fi(\013;)g(\016)20 b FA(].)41 b(Only)26 b(in)h(the)h(\(common\))i +(cases)0 2556 y(of)e(FK4,)h(equino)m(x)e(and)g(ep)s(o)s(c)m(h)g(B1950,) +k(to)d(FK5,)h(equino)m(x)e(and)g(ep)s(o)s(c)m(h)g(J2000,)j(and)d +Fn(vic)-5 b(e)30 b(versa)35 b FA(are)28 b(prop)s(er)0 +2669 y(motion,)h(parallax)e(and)h(radial)f(v)m(elo)s(cit)m(y)h +(transformed)g(along)g(with)f(the)i(star)g(p)s(osition)d(itself,)i(the) +g(fo)s(cus)g(of)0 2782 y(SLALIB)i(supp)s(ort.)0 2945 +y(As)d(an)h(example)f(of)g(using)f(SLALIB)h(to)h(transform)f(mean)g +(places,)h(here)g(is)e(a)i(program)f(whic)m(h)f(implemen)m(ts)0 +3058 y(the)35 b(top-left)g(path)f(of)h(Figure)f(1.)53 +b(An)34 b(FK4)h([)15 b Fi(\013;)g(\016)21 b FA(])34 b(of)h(arbitrary)f +(equino)m(x)g(and)f(ep)s(o)s(c)m(h)i(and)f(with)f(kno)m(wn)0 +3171 y(prop)s(er)40 b(motion)h(and)g(parallax)g(is)f(transformed)h(in)m +(to)h(an)f(FK5)h(J2000)h([)15 b Fi(\013;)g(\016)20 b +FA(])42 b(for)f(the)h(curren)m(t)f(ep)s(o)s(c)m(h.)0 +3284 y(As)c(a)g(test)g(star)g(w)m(e)g(will)d(use)i Fi(\013)g +FA(=16)1331 3251 y Fr(h)1390 3284 y FA(09)1480 3251 y +Fr(m)1559 3284 y FA(55)1649 3251 y Fr(s)1654 3284 y Fi(:)p +FA(13,)k Fi(\016)g FA(=)p Fl(\000)p FA(75)2146 3251 y +Fm(\016)2201 3284 y FA(59)2291 3247 y Fh(0)2333 3284 +y FA(27)2418 3247 y Fh(0)m(0)2422 3284 y Fi(:)p FA(2,)g(equino)m(x)c +(1900,)41 b(ep)s(o)s(c)m(h)36 b(1963.087,)0 3397 y Fi(\026)55 +3411 y Fc(\013)130 3397 y FA(=)p Fl(\000)p FA(0)317 3364 +y Fr(s)322 3397 y Fi(:)p FA(0312)p Fi(=y)s FA(,)31 b +Fi(\026)731 3412 y Fc(\016)793 3397 y FA(=+0)975 3360 +y Fh(0)l(0)979 3397 y Fi(:)p FA(103)p Fi(=y)s FA(,)g(parallax)d(=)g(0) +1777 3360 y Fh(0)l(0)1781 3397 y Fi(:)p FA(062,)j(radial)c(v)m(elo)s +(cit)m(y)i(=)f Fl(\000)p FA(34)p Fi(:)p FA(22)j(km/s.)40 +b(The)28 b(ep)s(o)s(c)m(h)g(of)0 3510 y(observ)-5 b(ation)30 +b(is)f(1994.35.)573 3774 y Fq(IMPLICIT)45 b(NONE)573 +3886 y(DOUBLE)h(PRECISION)f(AS2R,S2R)573 3999 y(PARAMETER)g +(\(AS2R=4.8481368110953599)o(D-6,)o(S2R=)o(7.2)o(7220)o(5216)o(643)o +(0399)o(D-5\))573 4112 y(INTEGER)h(J,I)573 4225 y(DOUBLE)g(PRECISION)f +(R0,D0,EQ0,EP0,PR,PD,PX,RV)o(,EP)o(1,R1)o(,D1,)o(R2,)o(D2,R)o(3,D3)o(,) +525 4338 y(:)811 b(R4,D4,R5,D5,R6,D6,EP1D,EP)o(1B,)o(W\(3\))o(,EB\()o +(3\),)o(PXR,)o(V\(3\))573 4451 y(DOUBLE)46 b(PRECISION)f +(sla_EPB,sla_EPJ2D)286 4677 y(*)96 b(RA,)46 b(Dec)h(etc)g(of)g(example) +f(star)573 4790 y(CALL)g(sla_DTF2R\(16,09,55.13D0,R0)o(,J\))573 +4903 y(CALL)g(sla_DAF2R\(75,59,27.2D0,D0,)o(J\))573 5016 +y(D0=-D0)573 5128 y(EQ0=1900D0)573 5241 y(EP0=1963.087D0)573 +5354 y(PR=-0.0312D0*S2R)573 5467 y(PD=+0.103D0*AS2R)573 +5580 y(PX=0.062D0)573 5693 y(RV=-34.22D0)p eop +%%Page: 179 181 +179 180 bop 0 52 a Ft(SUN/67.45)3206 b FA(179)573 351 +y Fq(EP1=1994.35D0)286 577 y(*)96 b(Epoch)46 b(of)h(observation)e(as)i +(MJD)g(and)g(Besselian)e(epoch)573 690 y(EP1D=sla_EPJ2D\(EP1\))573 +803 y(EP1B=sla_EPB\(EP1D\))286 1029 y(*)96 b(Space)46 +b(motion)g(to)h(the)g(current)f(epoch)573 1142 y(CALL)g +(sla_PM\(R0,D0,PR,PD,PX,RV,E)o(P0,)o(EP1B)o(,R1,)o(D1\))286 +1367 y(*)96 b(Remove)46 b(E-terms)f(of)j(aberration)d(for)i(the)f +(original)g(equinox)573 1480 y(CALL)g(sla_SUBET\(R1,D1,EQ0,R2,D2\))286 +1706 y(*)96 b(Precess)45 b(to)j(B1950)573 1819 y(R3=R2)573 +1932 y(D3=D2)573 2045 y(CALL)e(sla_PRECES\('FK4',EQ0,1950D)o(0,R)o +(3,D3)o(\))286 2271 y(*)96 b(Add)46 b(E-terms)g(for)h(the)g(standard)f +(equinox)f(B1950)573 2384 y(CALL)h(sla_ADDET\(R3,D3,1950D0,R4,)o(D4\)) +286 2609 y(*)96 b(Transform)45 b(to)i(J2000,)f(no)h(proper)f(motion)573 +2722 y(CALL)g(sla_FK45Z\(R4,D4,EP1B,R5,D5)o(\))286 2948 +y(*)96 b(Parallax)573 3061 y(CALL)46 b(sla_EVP\(sla_EPJ2D\(EP1\),200)o +(0D0)o(,W,E)o(B,W,)o(W\))573 3174 y(PXR=PX*AS2R)573 3287 +y(CALL)g(sla_DCS2C\(R5,D5,V\))573 3400 y(DO)h(I=1,3)716 +3513 y(V\(I\)=V\(I\)-PXR*EB\(I\))573 3626 y(END)g(DO)573 +3739 y(CALL)f(sla_DCC2S\(V,R6,D6\))620 3851 y(:)0 4073 +y FA(It)30 b(is)g(in)m(teresting)g(to)h(lo)s(ok)f(at)h(ho)m(w)f(the)h +([)15 b Fi(\013;)g(\016)20 b FA(])31 b(c)m(hanges)g(during)d(the)j +(course)f(of)h(the)f(calculation:)702 4274 y Fq(16)47 +b(09)g(55.130)f(-75)h(59)h(27.20)113 b Fn(original)34 +b(e)-5 b(quinox)33 b(and)g(ep)-5 b(o)g(ch)702 4387 y +Fq(16)47 b(09)g(54.155)f(-75)h(59)h(23.98)113 b Fn(with)34 +b(sp)-5 b(ac)g(e)34 b(motion)702 4500 y Fq(16)47 b(09)g(54.229)f(-75)h +(59)h(24.18)113 b Fn(with)34 b(old)f(E-terms)g(r)-5 b(emove)g(d)702 +4613 y Fq(16)47 b(16)g(28.213)f(-76)h(06)h(54.57)113 +b Fn(pr)-5 b(e)g(c)g(esse)g(d)35 b(to)e(1950.0)702 4726 +y Fq(16)47 b(16)g(28.138)f(-76)h(06)h(54.37)113 b Fn(with)34 +b(new)e(E-terms)702 4839 y Fq(16)47 b(23)g(07.901)f(-76)h(13)h(58.87) +113 b Fn(J2000,)34 b(curr)-5 b(ent)33 b(ep)-5 b(o)g(ch)702 +4951 y Fq(16)47 b(23)g(07.907)f(-76)h(13)h(58.92)113 +b Fn(including)33 b(p)-5 b(ar)g(al)5 b(lax)0 5153 y FA(Other)30 +b(remarks)g(ab)s(out)g(the)h(ab)s(o)m(v)m(e)g(\(un)m(usually)d +(complicated\))i(example:)136 5354 y Fl(\017)46 b FA(If)29 +b(the)g(original)e(equino)m(x)h(and)g(ep)s(o)s(c)m(h)h(w)m(ere)g +(B1950,)i(as)f(is)d(quite)i(lik)m(ely)-8 b(,)28 b(then)h(it)f(w)m(ould) +f(b)s(e)i(unneces-)227 5467 y(sary)c(to)i(treat)f(space)g(motions)f +(and)g(E-terms)g(explicitly)-8 b(.)37 b(T)-8 b(ransformation)25 +b(to)h(FK5)g(J2000)h(could)d(b)s(e)227 5580 y(accomplished)30 +b(simply)e(b)m(y)i(calling)f(sla)p Fq(_)p FA(FK425,)j(after)f(whic)m(h) +e(a)i(call)f(to)h(sla)p Fq(_)p FA(PM)f(and)g(the)h(parallax)227 +5693 y(co)s(de)g(w)m(ould)e(complete)i(the)f(w)m(ork.)p +eop +%%Page: 180 182 +180 181 bop 0 52 a FA(180)136 351 y Fl(\017)46 b FA(The)32 +b(rigorous)g(treatmen)m(t)i(of)e(the)h(E-terms)f(has)g(only)g(a)h +(small)e(e\013ect)j(on)e(the)g(result.)46 b(Suc)m(h)32 +b(re\014ne-)227 464 y(men)m(ts)f(are,)h(nev)m(ertheless,)f(w)m(orth)m +(while)f(in)g(order)g(to)i(facilitate)f(comparisons)f(and)g(to)i +(increase)e(the)227 577 y(c)m(hances)i(that)f(star)f(p)s(ositions)e +(from)i(di\013eren)m(t)g(suppliers)d(are)k(compatible.)136 +764 y Fl(\017)46 b FA(The)40 b(FK4)h(to)g(FK5)f(transformations,)j(sla) +p Fq(_)p FA(FK425)e(and)e(sla)p Fq(_)p FA(FK45Z,)h(are)h(not)g(as)f(is) +f(sometimes)227 877 y(assumed)24 b(simply)e(50)k(y)m(ears)f(of)g +(precession,)g(though)f(this)g(indeed)f(accoun)m(ts)j(for)e(most)h(of)g +(the)g(c)m(hange.)227 990 y(The)30 b(transformations)f(also)h(include)e +(adjustmen)m(ts)i(to)h(the)f(equino)m(x,)g(a)g(revised)f(precession)g +(mo)s(del,)227 1102 y(elimination)22 b(of)i(the)h(E-terms,)h(a)f(c)m +(hange)g(to)g(the)g(prop)s(er-motion)e(time)h(unit)f(and)g(so)i(on.)38 +b(The)24 b(reason)227 1215 y(there)34 b(are)f(t)m(w)m(o)i(routines)d +(rather)h(than)g(just)f(one)i(is)e(that)i(the)f(FK4)g(frame)h(rotates)g +(relativ)m(e)f(to)h(the)227 1328 y(bac)m(kground,)c(whereas)f(the)h +(FK5)g(frame)f(is)f(a)i(m)m(uc)m(h)g(b)s(etter)f(appro)m(ximation)f(to) +j(an)e(inertial)e(frame,)227 1441 y(and)39 b(zero)i(prop)s(er)d(motion) +h(in)f(FK4)i(do)s(es)f(not,)k(therefore,)f(mean)e(zero)g(prop)s(er)e +(motion)i(in)e(FK5.)227 1554 y(SLALIB)i(also)g(pro)m(vides)f(t)m(w)m(o) +i(routines,)g(sla)p Fq(_)p FA(FK524)g(and)e(sla)p Fq(_)p +FA(FK54Z,)h(to)h(p)s(erform)d(the)j(in)m(v)m(erse)227 +1667 y(transformations.)136 1854 y Fl(\017)46 b FA(Some)21 +b(star)h(catalogues)g(\(FK4)g(itself)e(is)g(one\))i(w)m(ere)g +(constructed)f(using)f(sligh)m(tly)f(di\013eren)m(t)i(pro)s(cedures)227 +1967 y(for)34 b(the)h(p)s(olar)e(regions)h(compared)h(with)e +(elsewhere.)52 b(SLALIB)34 b(ignores)g(this)f(inhomogeneit)m(y)h(and) +227 2079 y(alw)m(a)m(ys)25 b(applies)d(the)i(standard)f +(transformations)g(irresp)s(ectiv)m(e)f(of)i(lo)s(cation)g(on)g(the)g +(celestial)f(sphere.)0 2371 y Fs(4.12)112 b(Mean)39 b(Place)d(to)h +(Apparen)m(t)h(Place)0 2592 y FA(The)24 b Fn(ge)-5 b(o)g(c)g(entric)28 +b(app)-5 b(ar)g(ent)31 b(plac)-5 b(e)32 b FA(of)25 b(a)g(source,)h(or)f +Fn(app)-5 b(ar)g(ent)30 b(plac)-5 b(e)33 b FA(for)24 +b(short,)i(is)d(the)i([)15 b Fi(\013;)g(\016)20 b FA(])25 +b(if)f(view)m(ed)g(from)0 2705 y(the)32 b(cen)m(tre)i(of)e(the)h +(Earth,)g(with)e(resp)s(ect)h(to)h(the)f(true)g(equator)h(and)f(equino) +m(x)g(of)g(date.)47 b(T)-8 b(ransformation)0 2817 y(of)32 +b(an)g(FK5)h(mean)f([)15 b Fi(\013;)g(\016)20 b FA(],)33 +b(equino)m(x)e(J2000,)j(curren)m(t)e(ep)s(o)s(c)m(h,)h(to)g(apparen)m +(t)f(place)g(in)m(v)m(olv)m(es)g(the)g(follo)m(wing)0 +2930 y(e\013ects:)136 3189 y Fl(\017)46 b FA(Ligh)m(t)30 +b(de\015ection)h({)f(the)h(gra)m(vitational)f(lens)g(e\013ect)i(of)e +(the)h(sun.)136 3375 y Fl(\017)46 b FA(Ann)m(ual)29 b(ab)s(erration.) +136 3562 y Fl(\017)46 b FA(Precession/n)m(utation.)0 +3820 y(The)30 b Fn(light)k(de\015e)-5 b(ction)39 b FA(is)31 +b(seldom)f(signi\014can)m(t.)41 b(Its)31 b(v)-5 b(alue)31 +b(at)g(the)h(lim)m(b)d(of)i(the)g(Sun)f(is)g(ab)s(out)g(1)3351 +3784 y Fh(0)m(0)3355 3820 y Fi(:)p FA(74;)j(it)e(falls)0 +3933 y(o\013)g(rapidly)d(with)h(distance)h(from)g(the)g(Sun)f(and)h +(has)g(shrunk)e(to)j(ab)s(out)f(0)2605 3896 y Fh(0)m(0)2609 +3933 y Fi(:)p FA(02)i(at)f(an)g(elongation)f(of)h(20)3627 +3900 y Fm(\016)3667 3933 y FA(.)0 4095 y(As)g(already)f(describ)s(ed,)f +(the)h Fn(annual)k(ab)-5 b(err)g(ation)40 b FA(is)30 +b(a)h(function)e(of)i(the)g(Earth's)f(v)m(elo)s(cit)m(y)h(relativ)m(e)g +(to)g(the)0 4208 y(solar)j(system)h(barycen)m(tre)g(\(a)m(v)-5 +b(ailable)34 b(through)g(the)h(SLALIB)f(routine)g(sla)p +Fq(_)p FA(EVP\))g(and)g(pro)s(duces)f(shifts)0 4321 y(of)e(up)e(to)i +(ab)s(out)f(20)691 4284 y Fh(0)m(0)695 4321 y Fi(:)p +FA(5.)0 4483 y(The)38 b Fn(pr)-5 b(e)g(c)g(ession/nutation)p +FA(,)44 b(from)37 b(J2000)j(to)f(the)f(curren)m(t)g(ep)s(o)s(c)m(h,)i +(is)d(expressed)g(b)m(y)h(a)h(rotation)f(matrix)0 4595 +y(whic)m(h)29 b(is)h(a)m(v)-5 b(ailable)29 b(through)h(the)h(SLALIB)e +(routine)h(sla)p Fq(_)p FA(PRENUT.)0 4757 y(The)i(whole)f +(mean-to-apparen)m(t)j(transformation)d(can)i(b)s(e)e(done)h(using)f +(the)h(SLALIB)g(routine)f(sla)p Fq(_)p FA(MAP)-8 b(.)0 +4870 y(As)28 b(a)h(demonstration,)f(here)g(is)f(a)i(program)f(whic)m(h) +f(lists)f(the)j Fn(North)i(Polar)h(Distanc)-5 b(e)36 +b FA(\(90)3156 4837 y Fm(\016)3212 4870 y Fl(\000)16 +b Fi(\016)s FA(\))29 b(of)f(P)m(olaris)0 4983 y(for)i(the)h(decade)g +(of)f(closest)h(approac)m(h)g(to)g(the)f(P)m(ole:)573 +5241 y Fq(IMPLICIT)45 b(NONE)573 5354 y(DOUBLE)h(PRECISION)f +(PI,PIBY2,D2R,S2R,AS2R)573 5467 y(PARAMETER)g +(\(PI=3.141592653589793238)o(4626)o(43D0)o(\))573 5580 +y(PARAMETER)g(\(D2R=PI/180D0,)525 5693 y(:)525 b(PIBY2=PI/2D0,)p +eop +%%Page: 181 183 +181 182 bop 0 52 a Ft(SUN/67.45)3206 b FA(181)525 351 +y Fq(:)525 b(S2R=PI/\(12D0*3600D0\),)525 464 y(:)g +(AS2R=PI/\(180D0*3600D0\)\))573 577 y(DOUBLE)46 b(PRECISION)f +(RM,DM,PR,PD,DATE,RA,DA)573 690 y(INTEGER)h(J,IDS,IDE,ID,IYMDF\(4\),I) +573 803 y(DOUBLE)g(PRECISION)f(sla_EPJ2D)573 1029 y(CALL)h +(sla_DTF2R\(02,31,49.8131D0,)o(RM,)o(J\))573 1142 y(CALL)g +(sla_DAF2R\(89,15,50.661D0,D)o(M,J)o(\))573 1255 y +(PR=+21.7272D0*S2R/100D0)573 1367 y(PD=-1.571D0*AS2R/100D0)573 +1480 y(WRITE)g(\(*,'\(1X,'//)525 1593 y(:)572 b('''Polaris)45 +b(north)i(polar)f(distance)g(\(deg\))g(2096-2105''/\)'\))573 +1706 y(WRITE)g(\(*,'\(4X,''Date'',7X''NPD')o('/\))o('\))573 +1819 y(CALL)g(sla_CLDJ\(2096,1,1,DATE,J\))573 1932 y(IDS=NINT\(DATE\)) +573 2045 y(CALL)g(sla_CLDJ\(2105,12,31,DATE,J)o(\))573 +2158 y(IDE=NINT\(DATE\))573 2271 y(DO)h(ID=IDS,IDE,10)716 +2384 y(DATE=DBLE\(ID\))716 2497 y(CALL)g(sla_DJCAL\(0,DATE,IYMDF,)o +(J\))716 2609 y(CALL)g(sla_MAP\(RM,DM,PR,PD,0D0)o(,0D)o(0,20)o(00D0)o +(,DA)o(TE,R)o(A,DA)o(\))716 2722 y(WRITE)f +(\(*,'\(1X,I4,2I3.2,F9.5\)'\))41 b(\(IYMDF\(I\),I=1,3\),\(PIBY2-DA)o +(\)/D2)o(R)573 2835 y(END)47 b(DO)573 3061 y(END)0 3331 +y FA(F)-8 b(or)32 b(cases)g(where)f(the)g(transformation)g(has)g(to)h +(b)s(e)e(rep)s(eated)h(for)g(di\013eren)m(t)g(times)g(or)g(for)g(more)g +(than)g(one)0 3444 y(star,)26 b(the)g(straigh)m(tforw)m(ard)e(sla)p +Fq(_)p FA(MAP)h(approac)m(h)g(is)f(apt)h(to)h(b)s(e)e(w)m(asteful)h(as) +g(b)s(oth)f(the)h(Earth)g(v)m(elo)s(cit)m(y)g(and)0 3557 +y(the)31 b(precession/n)m(utation)e(matrix)h(can)h(b)s(e)e +(re-calculated)i(relativ)m(ely)f(infrequen)m(tly)e(without)h(ill)f +(e\013ect.)42 b(A)0 3669 y(more)c(e\016cien)m(t)f(metho)s(d)g(is)g(to)h +(p)s(erform)e(the)h(target-indep)s(enden)m(t)g(calculations)g(only)f +(when)g(necessary)-8 b(,)0 3782 y(b)m(y)35 b(calling)f(sla)p +Fq(_)p FA(MAPP)-8 b(A,)35 b(and)g(then)g(to)h(use)f(either)g(sla)p +Fq(_)p FA(MAPQKZ,)f(when)g(only)g(the)i([)15 b Fi(\013;)g(\016)20 +b FA(])35 b(is)g(kno)m(wn,)0 3895 y(or)41 b(sla)p Fq(_)p +FA(MAPQK,)f(when)g(full)f(catalogue)j(p)s(ositions,)g(including)c(prop) +s(er)h(motion,)44 b(parallax)c(and)g(radial)0 4008 y(v)m(elo)s(cit)m(y) +-8 b(,)32 b(are)f(a)m(v)-5 b(ailable.)40 b(Ho)m(w)31 +b(frequen)m(tly)f(to)h(call)f(sla)p Fq(_)p FA(MAPP)-8 +b(A)31 b(dep)s(ends)e(on)h(the)h(accuracy)g(ob)5 b(jectiv)m(es;)0 +4121 y(once)31 b(p)s(er)e(nigh)m(t)h(will)e(deliv)m(er)h(sub-arcsecond) +h(accuracy)i(for)e(example.)0 4286 y(The)40 b(routines)f(sla)p +Fq(_)p FA(AMP)h(and)g(sla)p Fq(_)p FA(AMPQK)f(allo)m(w)h(the)g(rev)m +(erse)h(transformation,)h(from)e(apparen)m(t)h(to)0 4399 +y(mean)30 b(place.)0 4701 y Fs(4.13)112 b(Apparen)m(t)38 +b(Place)e(to)h(Observ)m(ed)i(Place)0 4926 y FA(The)24 +b Fn(observe)-5 b(d)28 b(plac)-5 b(e)33 b FA(of)24 b(a)h(source)g(is)f +(its)g(p)s(osition)e(as)j(seen)g(b)m(y)f(a)h(p)s(erfect)f(theo)s +(dolite)g(at)i(the)e(lo)s(cation)h(of)f(the)0 5038 y(observ)m(er.)41 +b(T)-8 b(ransformation)29 b(of)i(an)f(apparen)m(t)h([)15 +b Fi(\013;)g(\016)20 b FA(])31 b(to)g(observ)m(ed)f(place)h(in)m(v)m +(olv)m(es)f(the)g(follo)m(wing)f(e\013ects:)136 5308 +y Fl(\017)46 b FA([)15 b Fi(\013;)g(\016)21 b FA(])30 +b(to)h([)15 b Fi(h;)g(\016)20 b FA(].)136 5501 y Fl(\017)46 +b FA(Diurnal)29 b(ab)s(erration.)136 5693 y Fl(\017)46 +b FA([)15 b Fi(h;)g(\016)20 b FA(])31 b(to)g([)15 b Fi(Az)t(;)g(E)5 +b(l)34 b FA(].)p eop +%%Page: 182 184 +182 183 bop 0 52 a FA(182)136 351 y Fl(\017)46 b FA(Refraction.)0 +618 y(The)29 b(transformation)f(from)h(apparen)m(t)g([)15 +b Fi(\013;)g(\016)20 b FA(])29 b(to)h(apparen)m(t)f([)15 +b Fi(h;)g(\016)21 b FA(])29 b(is)f(made)h(b)m(y)g(allo)m(wing)f(for)h +Fn(Earth)j(r)-5 b(ota-)0 731 y(tion)38 b FA(through)30 +b(the)g Fn(sider)-5 b(e)g(al)35 b(time)p FA(,)30 b Fi(\022)s +FA(:)1696 846 y Fi(h)25 b FA(=)g Fi(\022)e Fl(\000)c +Fi(\013)0 1015 y FA(F)-8 b(or)33 b(this)e(equation)h(to)h(w)m(ork,)g +Fi(\013)f FA(m)m(ust)g(b)s(e)g(the)g(apparen)m(t)h(righ)m(t)e +(ascension)h(for)g(the)g(time)g(of)g(observ)-5 b(ation,)0 +1128 y(and)30 b Fi(\022)i FA(m)m(ust)f(b)s(e)e(the)i +Fn(lo)-5 b(c)g(al)34 b(app)-5 b(ar)g(ent)36 b(sider)-5 +b(e)g(al)34 b(time)p FA(.)41 b(The)30 b(latter)h(is)e(obtained)h(as)g +(follo)m(ws:)111 1369 y(1.)46 b(from)30 b(civil)f(time)h(obtain)g(the)g +(co)s(ordinated)g(univ)m(ersal)e(time,)j(UTC)f(\(more)g(later)h(on)f +(this\);)111 1560 y(2.)46 b(add)30 b(the)h(UT1)p Fl(\000)p +FA(UTC)e(\(t)m(ypically)h(a)h(few)f(ten)m(ths)h(of)f(a)h(second\))g(to) +g(giv)m(e)g(the)f(UT;)111 1750 y(3.)46 b(from)30 b(the)h(UT)f(compute)h +(the)f(Green)m(wic)m(h)g(mean)h(sidereal)e(time)h(\(using)f(sla)p +Fq(_)p FA(GMST\);)111 1941 y(4.)46 b(add)30 b(the)h(observ)m(er's)f +(\(east\))i(longitude,)e(giving)f(the)h(lo)s(cal)g(mean)g(sidereal)g +(time;)111 2132 y(5.)46 b(add)30 b(the)h(equation)f(of)g(the)h(equino)m +(xes)f(\(using)f(sla)p Fq(_)p FA(EQEQX\).)0 2373 y(The)39 +b Fn(e)-5 b(quation)41 b(of)g(the)g(e)-5 b(quinoxes)47 +b FA(\(=)39 b(\001)p Fi( )19 b FA(cos)d Fi(\017)38 b +FA(plus)g(small)f(terms\))i(is)f(the)i(e\013ect)g(of)g(n)m(utation)e +(on)h(the)0 2486 y(sidereal)32 b(time.)48 b(Its)33 b(v)-5 +b(alue)33 b(is)f(t)m(ypically)g(a)i(second)f(or)g(less.)48 +b(It)33 b(is)f(in)m(teresting)h(to)h(note)g(that)f(if)f(the)i(ob)5 +b(ject)0 2598 y(of)33 b(the)f(exercise)h(is)e(to)i(transform)f(a)h +(mean)f(place)h(all)e(the)h(w)m(a)m(y)i(in)m(to)e(an)g(observ)m(ed)h +(place)f(\(v)m(ery)h(often)g(the)0 2711 y(case\),)e(then)d(the)i +(equation)e(of)h(the)g(equino)m(xes)g(and)f(the)h(longitude)f(comp)s +(onen)m(t)h(of)g(n)m(utation)g(can)g(b)s(oth)f(b)s(e)0 +2824 y(omitted,)c(remo)m(ving)f(a)f(great)i(deal)e(of)h(computation.)38 +b(Ho)m(w)m(ev)m(er,)26 b(SLALIB)c(follo)m(ws)f(the)i(normal)e(con)m(v)m +(en)m(tion)0 2937 y(and)30 b(w)m(orks)g Fn(via)38 b FA(the)30 +b(apparen)m(t)h(place.)0 3101 y(Note)k(that)g(for)f(v)m(ery)g(precise)f +(w)m(ork)h(the)h(observ)m(er's)f(longitude)f(should)f(b)s(e)h +(corrected)i(for)f Fn(p)-5 b(olar)38 b(motion)p FA(.)0 +3214 y(This)d(can)j(b)s(e)f(done)g(with)f(sla)p Fq(_)p +FA(POLMO.)g(The)h(corrections)g(are)h(alw)m(a)m(ys)g(less)e(than)h(ab)s +(out)g(0)3335 3177 y Fh(0)l(0)3339 3214 y Fi(:)p FA(3,)j(and)d(are)0 +3327 y(futile)29 b(unless)g(the)h(p)s(osition)f(of)h(the)h(observ)m +(er's)f(telescop)s(e)h(is)f(kno)m(wn)g(to)h(b)s(etter)f(than)g(a)h(few) +f(metres.)0 3491 y(T)-8 b(ables)33 b(of)h(observ)m(ed)g(and)f +(predicted)g(UT1)p Fl(\000)p FA(UTC)g(corrections)h(and)f(p)s(olar)g +(motion)h(data)g(are)g(published)0 3604 y(ev)m(ery)d(few)f(w)m(eeks)h +(b)m(y)g(the)f(In)m(ternational)g(Earth)g(Rotation)h(Service.)0 +3768 y(The)37 b(transformation)h(from)f(apparen)m(t)h([)15 +b Fi(h;)g(\016)20 b FA(])38 b(to)h Fn(top)-5 b(o)g(c)g(entric)45 +b FA([)15 b Fi(h;)g(\016)21 b FA(])38 b(consists)f(of)h(allo)m(wing)f +(for)g Fn(diurnal)0 3881 y(ab)-5 b(err)g(ation)p FA(.)72 +b(This)39 b(e\013ect,)44 b(maxim)m(um)39 b(amplitude)f(0)1902 +3844 y Fh(0)l(0)1906 3881 y Fi(:)p FA(2,)44 b(w)m(as)c(describ)s(ed)e +(earlier.)69 b(There)40 b(is)f(no)h(sp)s(eci\014c)0 3994 +y(SLALIB)24 b(routine)f(for)h(computing)g(the)g(diurnal)d(ab)s +(erration,)k(though)f(the)h(routines)e(sla)p Fq(_)p FA(A)m(OP)h +Fn(etc.)g FA(include)0 4107 y(it,)30 b(and)g(the)g(required)f(v)m(elo)s +(cit)m(y)i(v)m(ector)h(can)f(b)s(e)e(determined)g(b)m(y)i(calling)d +(sla)p Fq(_)p FA(GEOC.)0 4271 y(The)38 b(next)g(stage)i(is)e(the)g(ma)5 +b(jor)39 b(co)s(ordinate)f(rotation)h(from)f(lo)s(cal)g(equatorial)g +(co)s(ordinates)g([)15 b Fi(h;)g(\016)20 b FA(])38 b(in)m(to)0 +4384 y(horizon)25 b(co)s(ordinates.)39 b(The)25 b(SLALIB)g(routines)g +(sla)p Fq(_)p FA(E2H)g Fn(etc.)g FA(can)h(b)s(e)f(used)g(for)h(this.)38 +b(F)-8 b(or)26 b(high-precision)0 4497 y(applications)j(the)h(mean)h +(geo)s(detic)g(latitude)e(should)f(b)s(e)i(corrected)i(for)e(p)s(olar)f +(motion.)0 4792 y Fy(4.13.1)106 b(Refraction)0 5016 y +FA(The)35 b(\014nal)g(correction)h(is)f(for)h(atmospheric)f +(refraction.)57 b(This)34 b(e\013ect,)39 b(whic)m(h)c(dep)s(ends)f(on)i +(lo)s(cal)f(meteo-)0 5128 y(rological)h(conditions)f(and)g(the)i +(e\013ectiv)m(e)h(colour)e(of)g(the)h(source/detector)h(com)m +(bination,)f(increases)f(the)0 5241 y(observ)m(ed)e(elev)-5 +b(ation)35 b(of)f(the)h(source)f(b)m(y)h(a)f(signi\014can)m(t)g +(e\013ect)h(ev)m(en)g(at)h(mo)s(derate)e(zenith)g(distances,)h(and)0 +5354 y(near)c(the)g(horizon)f(b)m(y)g(o)m(v)m(er)j(0)1051 +5321 y Fm(\016)1057 5354 y Fi(:)r FA(5.)42 b(The)31 b(amoun)m(t)g(of)g +(refraction)f(can)i(b)m(y)e(computed)h(b)m(y)g(calling)e(the)i(SLAL-)0 +5467 y(IB)k(routine)e(sla)p Fq(_)p FA(REFR)m(O;)h(ho)m(w)m(ev)m(er,)j +(this)c(requires)g(as)i(input)d(the)j(observ)m(ed)f(zenith)g(distance,) +h(whic)m(h)e(is)0 5580 y(what)g(w)m(e)g(are)g(trying)e(to)j(predict.)46 +b(F)-8 b(or)34 b(high)d(precision)g(it)h(is)f(therefore)j(necessary)f +(to)g(iterate,)h(using)d(the)0 5693 y(top)s(o)s(cen)m(tric)g(zenith)e +(distance)h(as)h(the)f(initial)e(estimate)j(of)g(the)f(observ)m(ed)h +(zenith)f(distance.)p eop +%%Page: 183 185 +183 184 bop 0 52 a Ft(SUN/67.45)3206 b FA(183)0 351 y(The)28 +b(full)e(sla)p Fq(_)p FA(REFR)m(O)i(refraction)g(calculation)f(is)g +(onerous,)i(and)f(for)g(zenith)g(distances)f(of)i(less)e(than,)i(sa)m +(y)-8 b(,)0 464 y(75)90 431 y Fm(\016)161 464 y FA(the)30 +b(follo)m(wing)f(mo)s(del)g(can)i(b)s(e)f(used)f(instead:)1180 +725 y Fi(\020)1220 739 y Fc(v)r(ac)1354 725 y Fl(\031)c +Fi(\020)1490 740 y Fc(obs)1611 725 y FA(+)20 b Fi(A)15 +b FA(tan)h Fi(\020)1972 740 y Fc(obs)2093 725 y FA(+)k +Fi(B)g FA(tan)2404 687 y Fr(3)2458 725 y Fi(\020)2498 +740 y Fc(obs)0 921 y FA(where)29 b Fi(\020)302 935 y +Fc(v)r(ac)440 921 y FA(is)f(the)i(top)s(o)s(cen)m(tric)g(zenith)e +(distance)h(\(i.e.)h Fn(in)i(vacuo)p FA(\),)e Fi(\020)2434 +936 y Fc(obs)2564 921 y FA(is)f(the)h(observ)m(ed)f(zenith)g(distance)0 +1033 y(\(i.e.)h(a\013ected)i(b)m(y)d(refraction\),)i(and)e +Fi(A)h FA(and)f Fi(B)35 b FA(are)30 b(constan)m(ts,)h(ab)s(out)f(60) +2592 997 y Fh(0)m(0)2663 1033 y FA(and)f Fl(\000)p FA(0)2950 +997 y Fh(0)l(0)2954 1033 y Fi(:)p FA(06)i(resp)s(ectiv)m(ely)e(for)h(a) +0 1146 y(sea-lev)m(el)f(site.)39 b(The)28 b(t)m(w)m(o)h(constan)m(ts)g +(can)f(b)s(e)g(calculated)g(for)f(a)i(giv)m(en)f(set)g(of)g(conditions) +f(b)m(y)h(calling)e(either)0 1259 y(sla)p Fq(_)p FA(REF)m(CO)k(or)g +(sla)p Fq(_)p FA(REF)m(COQ.)0 1419 y(sla)p Fq(_)p FA(REF)m(CO)24 +b(w)m(orks)g(b)m(y)g(calling)f(sla)p Fq(_)p FA(REFR)m(O)h(for)g(t)m(w)m +(o)h(zenith)f(distances)g(and)g(\014tting)f Fi(A)i FA(and)e +Fi(B)29 b FA(to)c(matc)m(h.)0 1532 y(The)i(calculation)g(is)f(onerous,) +i(but)f(deliv)m(ers)f(accurate)j(results)d(whatev)m(er)j(the)e +(conditions.)39 b(sla)p Fq(_)p FA(REF)m(COQ)0 1645 y(uses)h(a)g(direct) +g(form)m(ulation)f(of)i Fi(A)f FA(and)g Fi(B)k FA(and)c(is)f(m)m(uc)m +(h)i(faster;)k(it)40 b(is)f(sligh)m(tly)g(less)h(accurate)h(than)f(s-)0 +1758 y(la)p Fq(_)p FA(REF)m(CO)30 b(but)f(more)i(than)f(adequate)h(for) +g(most)f(practical)g(purp)s(oses.)0 1918 y(Lik)m(e)36 +b(the)g(full)d(refraction)j(mo)s(del,)g(the)g(t)m(w)m(o-term)i(form)m +(ulation)d(w)m(orks)h(in)e(the)i(wrong)g(direction)e(for)i(our)0 +2031 y(purp)s(oses,)f(predicting)e(the)i Fn(in)i(vacuo)k +FA(\(top)s(o)s(cen)m(tric\))36 b(zenith)e(distance)h(giv)m(en)g(the)g +(refracted)h(\(observ)m(ed\))0 2144 y(zenith)h(distance,)j(rather)e +(than)g Fn(vic)-5 b(e)39 b(versa)p FA(.)64 b(The)38 b(ob)m(vious)f +(approac)m(h)i(of)f(in)m(terc)m(hanging)g Fi(\020)3308 +2158 y Fc(v)r(ac)3454 2144 y FA(and)g Fi(\020)3679 2159 +y Fc(obs)0 2257 y FA(and)i(rev)m(ersing)h(the)g(signs,)i(though)e +(appro)m(ximately)f(correct,)45 b(giv)m(es)c(a)m(v)m(oidable)g(errors)g +(whic)m(h)f(are)h(just)0 2370 y(signi\014can)m(t)33 b(in)h(some)g +(applications;)h(for)f(example)h(ab)s(out)f(0)2123 2333 +y Fh(0)l(0)2127 2370 y Fi(:)p FA(2)h(at)g(70)2437 2337 +y Fm(\016)2512 2370 y FA(zenith)f(distance.)52 b(A)35 +b(m)m(uc)m(h)f(b)s(etter)0 2482 y(result)29 b(can)i(easily)e(b)s(e)h +(obtained,)g(b)m(y)g(using)f(one)i(Newton-Raphson)f(iteration)g(as)h +(follo)m(ws:)1014 2776 y Fi(\020)1054 2791 y Fc(obs)1180 +2776 y Fl(\031)25 b Fi(\020)1316 2790 y Fc(v)r(ac)1445 +2776 y Fl(\000)1694 2714 y Fi(A)15 b FA(tan)h Fi(\020)1964 +2728 y Fc(v)r(ac)2093 2714 y FA(+)k Fi(B)g FA(tan)2404 +2681 y Fr(3)2458 2714 y Fi(\020)2498 2728 y Fc(v)r(ac)p +1545 2755 1211 4 v 1545 2838 a FA(1)h(+)f(\()p Fi(A)h +FA(+)f(3)p Fi(B)g FA(tan)2182 2808 y Fr(2)2237 2838 y +Fi(\020)2277 2852 y Fc(v)r(ac)2385 2838 y FA(\))15 b(sec)2553 +2812 y Fr(2)2607 2838 y Fi(\020)2647 2852 y Fc(v)r(ac)0 +3062 y FA(The)27 b(e\013ect)i(of)f(refraction)f(can)h(b)s(e)f(applied)e +(to)k(an)e(unrefracted)g(zenith)g(distance)g(b)m(y)h(calling)e(sla)p +Fq(_)p FA(REFZ)g(or)0 3175 y(to)i(an)g(unrefracted)f([)15 +b Fi(x;)g(y)s(;)g(z)20 b FA(])28 b(b)m(y)f(calling)f(sla)p +Fq(_)p FA(REFV.)h(Ov)m(er)h(most)g(of)g(the)f(sky)g(these)h(t)m(w)m(o)h +(routines)e(deliv)m(er)0 3288 y(almost)j(iden)m(tical)e(results,)h(but) +g(b)s(ey)m(ond)g Fi(\020)i FA(=)25 b(83)1710 3255 y Fm(\016)1780 +3288 y FA(sla)p Fq(_)p FA(REFV)k(b)s(ecomes)h(unacceptably)g +(inaccurate)f(while)0 3401 y(sla)p Fq(_)p FA(REFZ)g(remains)h(usable.) +40 b(\(Ho)m(w)m(ev)m(er)33 b(sla)p Fq(_)p FA(REFV)d(is)g(signi\014can)m +(tly)f(faster,)i(whic)m(h)e(ma)m(y)i(b)s(e)f(imp)s(ortan)m(t)0 +3514 y(in)f(some)h(applications.\))39 b(SLALIB)30 b(also)g(pro)m(vides) +f(a)i(routine)e(for)g(computing)h(the)g(airmass,)f(the)i(function)0 +3627 y(sla)p Fq(_)p FA(AIRMAS.)0 3787 y(The)h(refraction)h(\\constan)m +(ts")i(returned)d(b)m(y)h(sla)p Fq(_)p FA(REF)m(CO)f(and)h(sla)p +Fq(_)p FA(REF)m(COQ)e(are)j(sligh)m(tly)d(a\013ected)k(b)m(y)0 +3900 y(colour,)30 b(esp)s(ecially)e(at)j(the)g(blue)d(end)i(of)g(the)g +(sp)s(ectrum.)40 b(Where)30 b(v)-5 b(alues)30 b(for)g(more)g(than)g +(one)g(w)m(a)m(v)m(elength)0 4012 y(are)f(needed,)g(rather)g(than)f +(calling)g(sla)p Fq(_)p FA(REF)m(CO)g(sev)m(eral)h(times)f(it)h(is)e +(more)i(e\016cien)m(t)h(to)f(call)f(sla)p Fq(_)p FA(REF)m(CO)0 +4125 y(just)j(once,)h(for)f(a)h(selected)g(\\base")g(w)m(a)m(v)m +(elength,)h(and)e(then)g(to)h(call)f(sla)p Fq(_)p FA(A)-8 +b(TMDSP)31 b(once)h(for)f(eac)m(h)h(w)m(a)m(v)m(e-)0 +4238 y(length)e(of)g(in)m(terest.)0 4398 y(All)h(the)h(SLALIB)f +(refraction)h(routines)f(w)m(ork)h(for)g(radio)f(w)m(a)m(v)m(elengths)j +(as)e(w)m(ell)f(as)h(the)g(optical/IR)g(band.)0 4511 +y(The)k(radio)f(refraction)h(is)f(v)m(ery)i(dep)s(enden)m(t)e(on)h(h)m +(umidit)m(y)-8 b(,)36 b(and)g(an)g(accurate)h(v)-5 b(alue)36 +b(m)m(ust)g(b)s(e)f(supplied.)0 4624 y(There)k(is)g(no)h(w)m(a)m(v)m +(elength)h(dep)s(endence,)h(ho)m(w)m(ev)m(er.)71 b(The)39 +b(c)m(hoice)i(of)f(optical/IR)g(or)g(radio)f(is)g(made)h(b)m(y)0 +4737 y(sp)s(ecifying)28 b(a)j(w)m(a)m(v)m(elength)h(greater)f(than)f +(100)p Fi(\026m)i FA(for)e(the)g(radio)g(case.)0 5023 +y Fy(4.13.2)106 b(E\016ciency)36 b(considerations)0 5241 +y FA(The)31 b(complete)i(apparen)m(t)f(place)g(to)g(observ)m(ed)g +(place)g(transformation)f(can)i(b)s(e)e(carried)g(out)h(b)m(y)g +(calling)e(s-)0 5354 y(la)p Fq(_)p FA(A)m(OP)-8 b(.)23 +b(F)-8 b(or)24 b(impro)m(v)m(ed)e(e\016ciency)i(in)d(cases)j(of)f(more) +h(than)e(one)i(star)f(or)g(a)g(sequence)h(of)f(times,)h(the)g(target-)0 +5467 y(indep)s(enden)m(t)k(calculations)i(can)h(b)s(e)f(done)g(once)i +(b)m(y)e(calling)f(sla)p Fq(_)p FA(A)m(OPP)-8 b(A,)31 +b(the)g(time)f(can)h(b)s(e)f(up)s(dated)g(b)m(y)0 5580 +y(calling)j(sla)p Fq(_)p FA(A)m(OPP)-8 b(A)g(T,)35 b(and)g(sla)p +Fq(_)p FA(A)m(OPQK)e(can)i(then)g(b)s(e)f(used)g(to)h(p)s(erform)f(the) +h(apparen)m(t-to-observ)m(ed)0 5693 y(transformation.)74 +b(The)42 b(rev)m(erse)g(transformation)g(is)e(a)m(v)-5 +b(ailable)42 b(through)f(sla)p Fq(_)p FA(O)m(AP)g(and)g(sla)p +Fq(_)p FA(O)m(APQK.)p eop +%%Page: 184 186 +184 185 bop 0 52 a FA(184)0 351 y(\()p Fn(n.b.)24 b FA(These)g +(routines)f(use)h(accurate)h(but)f(computationally-exp)s(ensiv)m(e)e +(refraction)i(algorithms)f(for)h(zenith)0 464 y(distances)32 +b(b)s(ey)m(ond)g(ab)s(out)g(76)1062 431 y Fm(\016)1103 +464 y FA(.)47 b(F)-8 b(or)33 b(man)m(y)g(purp)s(oses,)e(in-line)f(co)s +(de)j(tailored)f(to)h(the)g(accuracy)g(require-)0 577 +y(men)m(ts)h(of)f(the)g(application)f(will)f(b)s(e)h(preferable,)h(for) +g(example)g(ignoring)f(UT1)p Fl(\000)p FA(UTC,)h(omitting)f(diurnal)0 +690 y(ab)s(erration)d(and)h(using)f(sla)p Fq(_)p FA(REFZ)g(to)i(apply)e +(the)i(refraction.\))0 997 y Fs(4.14)112 b(The)38 b(Hipparcos)f +(Catalogue)h(and)g(the)f(ICRS)0 1225 y FA(With)26 b(e\013ect)h(from)f +(the)g(b)s(eginning)e(of)i(1998,)j(the)d(IA)m(U)h(adopted)f(a)h(new)e +(reference)i(system)f(to)h(replace)f(FK5)0 1338 y(J2000.)75 +b(The)40 b(new)h(system,)j(called)d(the)g(In)m(ternational)g(Celestial) +f(Reference)i(System)f(\(ICRS\),)g(di\013ers)0 1450 y(profoundly)33 +b(from)i(all)f(predecessors)i(in)e(that)i(the)g(link)d(with)h +(solar-system)i(dynamics)e(w)m(as)i(brok)m(en;)i(the)0 +1563 y(ICRS)32 b(axes)h(are)g(de\014ned)f(in)f(terms)i(of)g(the)g +(directions)e(of)i(a)g(set)g(of)g(extragalactic)i(sources,)e(not)g(in)f +(terms)0 1676 y(of)41 b(the)g(mean)f(equator)i(and)e(equino)m(x)g(at)h +(a)h(giv)m(en)e(reference)h(ep)s(o)s(c)m(h.)72 b(Although)40 +b(the)g(ICRS)g(and)g(FK5)0 1789 y(co)s(ordinates)i(of)h(an)m(y)g(giv)m +(en)g(ob)5 b(ject)44 b(are)f(almost)g(the)f(same,)47 +b(the)c(orien)m(tation)f(of)h(the)g(new)f(frame)h(w)m(as)0 +1902 y(essen)m(tially)d(arbitrary)-8 b(,)43 b(and)e(the)g(close)h(matc) +m(h)g(to)g(FK5)f(J2000)i(w)m(as)e(con)m(triv)m(ed)h(purely)d(for)i +(reasons)g(of)0 2015 y(con)m(tin)m(uit)m(y)30 b(and)g(con)m(v)m +(enience.)0 2182 y(A)d(distinction)e(is)h(made)h(b)s(et)m(w)m(een)g +(the)g(reference)h Fn(system)35 b FA(\(the)27 b(ICRS\))f(and)h +Fn(fr)-5 b(ame)35 b FA(\(ICRF\).)27 b(The)g(ICRS)e(is)0 +2295 y(the)32 b(set)h(of)g(prescriptions)c(and)j(con)m(v)m(en)m(tions)h +(together)h(with)d(the)h(mo)s(delling)e(required)g(to)j(de\014ne,)f(at) +h(an)m(y)0 2408 y(time,)e(a)f(triad)g(of)h(axes.)42 b(The)30 +b(ICRF)g(is)f(a)i(practical)g(realization,)f(and)g(curren)m(tly)f +(consists)h(of)h(a)g(catalogue)0 2521 y(of)g(equatorial)f(co)s +(ordinates)g(for)g(608)h(extragalactic)i(radio)c(sources)i(observ)m(ed) +f(b)m(y)g(VLBI.)0 2687 y(The)37 b(b)s(est)g(optical)g(realization)g(of) +g(the)h(ICRF)f(curren)m(tly)f(a)m(v)-5 b(ailable)37 b(is)f(the)i +(Hipparcos)f(catalogue.)63 b(The)0 2800 y(extragalactic)43 +b(sources)e(w)m(ere)g(not)h(directly)d(observ)-5 b(able)41 +b(b)m(y)g(the)g(Hipparcos)f(satellite)h(and)f(so)h(the)h(link)0 +2913 y(from)37 b(Hipparcos)f(to)i(ICRF)e(w)m(as)i(established)d +(through)i(a)g(v)-5 b(ariet)m(y)38 b(of)f(indirect)e(tec)m(hniques:)54 +b(VLBI)37 b(and)0 3026 y(con)m(v)m(en)m(tional)c(in)m(terferometry)g +(of)f(radio)g(stars,)h(photographic)f(astrometry)h(and)f(so)h(on.)46 +b(The)32 b(Hipparcos)0 3139 y(frame)e(is)g(aligned)f(to)i(the)g(ICRF)f +(to)h(within)d(ab)s(out)i(0.5)h(mas)f(and)g(0.5)i(mas/y)m(ear)f(\(at)h +(ep)s(o)s(c)m(h)e(1991.25\).)0 3306 y(The)k(Hipparcos)f(catalogue)j +(includes)c(all)h(of)h(the)h(FK5)g(stars,)g(whic)m(h)e(has)h(enabled)f +(the)i(orien)m(tation)f(and)0 3419 y(spin)22 b(of)h(the)h(latter)g(to)g +(b)s(e)f(studied.)37 b(A)m(t)25 b(ep)s(o)s(c)m(h)e(J2000,)k(the)c +(misalignmen)m(t)f(of)i(the)g(FK5)g(frame)f(with)f(resp)s(ect)0 +3532 y(to)34 b(Hipparcos)f(\(and)g(hence)h(ICRS\))f(are)h(ab)s(out)f +(32)h(mas)g(and)f(1)h(mas/y)m(ear)h(resp)s(ectiv)m(ely)-8 +b(.)50 b(Consequen)m(tly)-8 b(,)0 3645 y(for)35 b(man)m(y)g(practical)f +(purp)s(oses,)g(including)e(p)s(oin)m(ting)h(telescop)s(es,)j(the)g(IA) +m(U)f(1976-1982)k(con)m(v)m(en)m(tions)d(on)0 3758 y(reference)30 +b(frames)f(and)f(Earth)h(orien)m(tation)g(remain)g(adequate)h(and)e +(there)i(is)e(no)h(need)g(to)h(c)m(hange)g(to)g(Hip-)0 +3870 y(parcos)g(co)s(ordinates,)g(new)f(precession/n)m(utation)g(mo)s +(dels)f(and)h(so)h(on.)40 b(Ho)m(w)m(ev)m(er,)33 b(for)c(the)h(most)g +(exacting)0 3983 y(astrometric)g(applications,)e(SLALIB)g(pro)m(vides)g +(some)i(supp)s(ort)d(for)i(Hipparcos)g(co)s(ordinates)g(in)f(the)h +(form)0 4096 y(of)35 b(four)g(new)f(routines:)49 b(sla)p +Fq(_)p FA(FK52H)36 b(and)e(sla)p Fq(_)p FA(H2FK5,)j(whic)m(h)d +(transform)g(FK5)h(p)s(ositions)e(and)i(prop)s(er)0 4209 +y(motions)40 b(to)g(the)h(Hipparcos)e(frame)h(and)f Fn(vic)-5 +b(e)42 b(versa,)g FA(and)e(sla)p Fq(_)p FA(FK5HZ)f(and)h(sla)p +Fq(_)p FA(HFK5Z,)g(where)f(the)0 4322 y(transformations)30 +b(are)g(for)g(stars)h(whose)f(Hipparcos)g(prop)s(er)f(motion)h(is)f +(zero.)0 4489 y(F)-8 b(urther)44 b(information)e(on)i(the)g(ICRS)f(can) +h(b)s(e)g(found)f(in)f(the)j(pap)s(er)e(b)m(y)g(M.)16 +b(F)-8 b(eissel)44 b(and)f(F.)16 b(Mignard,)0 4602 y(Astron.)f(Astroph) +m(ys.)41 b(331,)32 b(L33-L36)g(\(1988\).)0 4909 y Fs(4.15)112 +b(Timescales)0 5136 y FA(SLALIB)43 b(pro)m(vides)g(for)g(con)m(v)m +(ersion)h(b)s(et)m(w)m(een)g(sev)m(eral)g(timescales,)j(and)c(in)m(v)m +(olv)m(es)h(use)f(of)h(one)g(or)f(t)m(w)m(o)0 5249 y(others.)e(The)30 +b(full)e(list)h(is)g(as)i(follo)m(ws:)136 5497 y Fl(\017)46 +b FA(T)-8 b(AI:)31 b(In)m(ternational)f(A)m(tomic)h(Time)136 +5693 y Fl(\017)46 b FA(UTC:)30 b(Co)s(ordinated)f(Univ)m(ersal)h(Time)p +eop +%%Page: 185 187 +185 186 bop 0 52 a Ft(SUN/67.45)3206 b FA(185)136 351 +y Fl(\017)46 b FA(UT:)31 b(Univ)m(ersal)e(Time)136 538 +y Fl(\017)46 b FA(GMST:)31 b(Green)m(wic)m(h)f(Mean)h(Sidereal)e(Time) +136 724 y Fl(\017)46 b FA(LAST:)30 b(Lo)s(cal)g(Apparen)m(t)g(Sidereal) +f(Time)136 910 y Fl(\017)46 b FA(TT:)30 b(T)-8 b(errestrial)29 +b(Time)136 1096 y Fl(\017)46 b FA(TDB:)31 b(Barycen)m(tric)g(Dynamical) +f(Time.)0 1329 y(Three)g(obsolete)h(timescales)f(should)f(b)s(e)g(men)m +(tioned)h(here)g(to)i(a)m(v)m(oid)e(confusion.)136 1562 +y Fl(\017)46 b FA(GMT:)31 b(Green)m(wic)m(h)f(Mean)h(Time)f({)h(can)f +(mean)h(either)f(UTC)f(or)i(UT.)136 1748 y Fl(\017)46 +b FA(ET:)30 b(Ephemeris)f(Time)g({)i(more)f(or)h(less)f(the)g(same)h +(as)f(either)g(TT)g(or)g(TDB.)136 1935 y Fl(\017)46 b +FA(TDT:)31 b(T)-8 b(errestrial)29 b(Dynamical)h(Time)f({)i(former)f +(name)g(of)h(TT.)0 2222 y Fy(4.15.1)106 b(A)m(tomic)34 +b(Time:)46 b(T)-9 b(AI)0 2443 y Fn(International)41 b(A)n(tomic)d(Time) +43 b FA(T)-8 b(AI)36 b(is)g(a)h(lab)s(oratory)f(timescale.)59 +b(Its)36 b(unit)f(is)h(the)g(SI)g(second,)i(whic)m(h)d(is)0 +2556 y(de\014ned)k(in)h(terms)g(of)h(a)g(de\014ned)e(n)m(um)m(b)s(er)h +(of)g(w)m(a)m(v)m(elengths)i(of)f(the)g(radiation)e(pro)s(duced)g(b)m +(y)i(a)g(certain)0 2668 y(electronic)g(transition)f(in)g(the)h(caesium) +g(133)i(atom.)74 b(It)42 b(is)e(realized)g(through)h(a)h(c)m(hanging)f +(p)s(opulation)0 2781 y(of)d(high-precision)e(atomic)j(clo)s(c)m(ks)f +(held)f(at)i(standards)e(institutes)g(in)g(v)-5 b(arious)37 +b(coun)m(tries.)64 b(There)37 b(is)h(an)0 2894 y(elab)s(orate)30 +b(pro)s(cess)f(of)h(con)m(tin)m(uous)f(in)m(tercomparison,)g(leading)f +(to)j(a)f(w)m(eigh)m(ted)g(a)m(v)m(erage)i(of)e(all)e(the)i(clo)s(c)m +(ks)0 3007 y(in)m(v)m(olv)m(ed.)0 3169 y(Though)22 b(T)-8 +b(AI)24 b(shares)f(the)h(same)g(second)f(as)h(the)f(more)h(familiar)d +(UTC,)i(the)h(t)m(w)m(o)h(timescales)e(are)h(noticeably)0 +3281 y(separated)34 b(in)f(ep)s(o)s(c)m(h)h(b)s(ecause)f(of)i(the)f +(build-up)c(of)k(leap)f(seconds.)52 b(A)m(t)34 b(the)g(time)g(of)g +(writing,)f(UTC)h(lags)0 3394 y(ab)s(out)c(half)f(a)i(min)m(ute)f(b)s +(ehind)d(T)-8 b(AI.)0 3556 y(F)g(or)37 b(an)m(y)f(giv)m(en)g(date,)i +(the)e(di\013erence)g(T)-8 b(AI)p Fl(\000)p FA(UTC)35 +b(can)h(b)s(e)f(obtained)h(b)m(y)f(calling)g(the)h(SLALIB)f(routine)0 +3669 y(sla)p Fq(_)p FA(D)m(A)-8 b(T.)27 b(Note,)j(ho)m(w)m(ev)m(er,)f +(that)e(an)g(up-to-date)h(cop)m(y)f(of)g(the)h(routine)d(m)m(ust)i(b)s +(e)f(used)g(if)g(the)h(most)g(recen)m(t)0 3782 y(leap)45 +b(seconds)g(are)h(required.)83 b(F)-8 b(or)46 b(applications)e(where)h +(this)f(is)g(critical,)k(mec)m(hanisms)d(indep)s(enden)m(t)0 +3894 y(of)40 b(SLALIB)f(and)g(under)f(lo)s(cal)i(con)m(trol)g(m)m(ust)f +(b)s(e)g(set)i(up;)i(in)c(suc)m(h)g(cases)i(sla)p Fq(_)p +FA(D)m(A)-8 b(T)40 b(can)g(b)s(e)f(useful)f(as)0 4007 +y(an)44 b(indep)s(enden)m(t)f(c)m(hec)m(k,)50 b(for)44 +b(test)i(dates)f(within)d(the)j(range)f(of)h(the)g(a)m(v)-5 +b(ailable)44 b(v)m(ersion.)83 b(Up-to-date)0 4120 y(information)29 +b(on)h(T)-8 b(AI)p Fl(\000)p FA(UTC)30 b(is)f(a)m(v)-5 +b(ailable)30 b(from)g Fq(ftp://maia.usno.navy.mi)o(l/s)o(er7/)o(tai-)o +(utc)o(.dat)o FA(.)0 4408 y Fy(4.15.2)106 b(Univ)m(ersal)35 +b(Time:)46 b(UTC,)34 b(UT1)0 4628 y Fn(Co)-5 b(or)g(dinate)g(d)35 +b(Universal)d(Time)j FA(UTC)29 b(is)f(the)h(basis)e(of)i(civil)e(timek) +m(eeping.)40 b(Most)30 b(time)f(zones)g(di\013er)f(from)0 +4741 y(UTC)33 b(b)m(y)g(an)h(in)m(teger)g(n)m(um)m(b)s(er)e(of)i +(hours,)f(though)g(a)h(few)f(\()p Fn(e.g.)h FA(parts)f(of)h(Canada)f +(and)g(Australia\))g(di\013er)0 4854 y(b)m(y)e Fi(n)21 +b FA(+)g(0)p Fi(:)p FA(5)32 b(hours.)43 b(The)31 b(UTC)g(second)h(is)f +(the)g(same)h(as)g(the)g(SI)e(second,)j(as)e(for)h(T)-8 +b(AI.)31 b(In)g(the)h(long)f(term,)0 4967 y(UTC)c(k)m(eeps)h(in)e(step) +h(with)f(the)i(Sun.)38 b(It)27 b(do)s(es)g(so)h(ev)m(en)g(though)f(the) +h(Earth's)f(rotation)h(is)e(sligh)m(tly)g(v)-5 b(ariable)0 +5080 y(\(due)37 b(to)i(large)e(scale)h(mo)m(v)m(emen)m(ts)i(of)e(w)m +(ater)g(and)f(atmosphere)h(among)g(other)g(things\))f(b)m(y)g(o)s +(ccasionally)0 5193 y(in)m(tro)s(ducing)28 b(a)j Fn(le)-5 +b(ap)34 b(se)-5 b(c)g(ond)p FA(.)0 5354 y Fn(Universal)32 +b(Time)37 b FA(UT,)30 b(or)g(more)f(sp)s(eci\014cally)f(UT1,)i(is)f(in) +g(e\013ect)i(the)f(mean)g(solar)f(time.)40 b(It)30 b(is)f(con)m(tin)m +(uous)0 5467 y(\()p Fn(i.e.)42 b FA(there)h(are)g(no)g(leap)f +(seconds\))h(but)f(has)g(a)h(v)-5 b(ariable)42 b(rate)h(b)s(ecause)g +(of)g(the)f(Earth's)h(non-uniform)0 5580 y(rotation)38 +b(p)s(erio)s(d.)59 b(It)37 b(is)g(needed)g(for)g(computing)f(the)i +(sidereal)e(time,)j(an)e(essen)m(tial)g(part)g(of)h(p)s(oin)m(ting)d(a) +0 5693 y(telescop)s(e)j(at)g(a)g(celestial)f(source.)63 +b(T)-8 b(o)38 b(obtain)f(UT1,)j(y)m(ou)e(ha)m(v)m(e)h(to)f(lo)s(ok)f +(up)g(the)g(v)-5 b(alue)37 b(of)h(UT1)p Fl(\000)p FA(UTC)p +eop +%%Page: 186 188 +186 187 bop 0 52 a FA(186)0 351 y(for)40 b(the)g(date)g(concerned)g(in) +f(tables)g(published)d(b)m(y)k(the)g(In)m(ternational)f(Earth)h +(Rotation)g(Service;)45 b(this)0 464 y(quan)m(tit)m(y)-8 +b(,)28 b(k)m(ept)g(in)d(the)i(range)g Fl(\006)p FA(0)1192 +431 y Fr(s)1197 464 y Fi(:)p FA(9)g(b)m(y)f(means)h(of)g(UTC)f(leap)g +(seconds,)i(is)d(then)i(added)e(to)j(the)f(UTC.)f(The)0 +577 y(quan)m(tit)m(y)37 b(UT1)p Fl(\000)p FA(UTC,)f(whic)m(h)g(t)m +(ypically)g(c)m(hanges)h(b)m(y)g(1)g(or)g(2)g(ms)f(p)s(er)g(da)m(y)-8 +b(,)39 b(can)e(only)f(b)s(e)g(obtained)h(b)m(y)0 690 +y(observ)-5 b(ation,)34 b(though)g(seasonal)f(trends)g(are)h(kno)m(wn)f +(and)g(the)g(IERS)g(listings)e(are)j(able)f(to)i(predict)d(some)0 +803 y(w)m(a)m(y)f(in)m(to)g(the)f(future)g(with)f(adequate)i(accuracy)h +(for)e(p)s(oin)m(ting)e(telescop)s(es.)0 961 y(UTC)g(leap)g(seconds)g +(are)h(in)m(tro)s(duced)e(as)h(necessary)-8 b(,)30 b(usually)c(at)j +(the)g(end)f(of)g(Decem)m(b)s(er)h(or)g(June.)39 b(On)27 +b(the)0 1074 y(a)m(v)m(erage)33 b(the)e(solar)f(da)m(y)h(is)e(sligh)m +(tly)g(longer)h(than)g(the)h(nominal)e(86,400)k(SI)c(seconds)i(and)f +(so)g(leap)h(seconds)0 1186 y(are)e(alw)m(a)m(ys)f(p)s(ositiv)m(e;)g +(ho)m(w)m(ev)m(er,)j(pro)m(vision)26 b(exists)i(for)g(negativ)m(e)h +(leap)f(seconds)g(if)f(needed.)39 b(The)28 b(form)g(of)g(a)0 +1299 y(leap)i(second)g(can)h(b)s(e)f(seen)g(from)g(the)h(follo)m(wing)e +(description)f(of)i(the)h(end)f(of)g(June)g(1994:)1180 +1562 y(UTC)166 b(UT1)p Fl(\000)p FA(UTC)256 b(UT1)353 +1788 y(1994)101 b(June)e(30)i(23)31 b(59)g(58)186 b Fl(\000)p +FA(0)p Fi(:)p FA(218)i(23)31 b(59)g(57.782)1113 1901 +y(23)g(59)g(59)186 b Fl(\000)p FA(0)p Fi(:)p FA(218)i(23)31 +b(59)g(58.782)1113 2014 y(23)g(59)g(60)186 b Fl(\000)p +FA(0)p Fi(:)p FA(218)i(23)31 b(59)g(59.782)634 2127 y(July)162 +b(1)100 b(00)31 b(00)g(00)186 b(+0)p Fi(:)p FA(782)i(00)31 +b(00)g(00.782)1113 2240 y(00)g(00)g(01)186 b(+0)p Fi(:)p +FA(782)i(00)31 b(00)g(01.782)0 2395 y(Note)36 b(that)g(UTC)f(has)f(to)i +(b)s(e)f(expressed)f(as)h(hours,)h(min)m(utes)e(and)g(seconds)h(\(or)h +(at)g(least)f(in)f(seconds)h(for)0 2508 y(a)j(giv)m(en)g(date\))h(if)e +(leap)g(seconds)h(are)g(to)h(b)s(e)e(tak)m(en)i(in)m(to)f(accoun)m(t.) +65 b(It)37 b(is)g(improp)s(er)f(to)i(express)g(a)g(UTC)0 +2620 y(as)32 b(a)f(Julian)e(Date,)34 b(for)d(example,)g(b)s(ecause)h +(there)f(will)e(b)s(e)i(an)g(am)m(biguit)m(y)g(during)e(a)j(leap)e +(second)i(\(in)e(the)0 2733 y(ab)s(o)m(v)m(e)f(example,)e(1994)j(June)c +(30)i(23)1266 2700 y Fr(h)1326 2733 y FA(59)1416 2700 +y Fr(m)1495 2733 y FA(60)1585 2700 y Fr(s)1590 2733 y +Fi(:)p FA(0)g(and)f(1994)i(July)d(1)i(00)2432 2700 y +Fr(h)2491 2733 y FA(00)2581 2700 y Fr(m)2660 2733 y FA(00)2750 +2700 y Fr(s)2755 2733 y Fi(:)p FA(0)h(w)m(ould)d Fn(b)-5 +b(oth)35 b FA(come)29 b(out)e(as)0 2846 y(MJD)e(49534.00000\).)44 +b(Although)23 b(in)h(the)g(v)-5 b(ast)25 b(ma)5 b(jorit)m(y)25 +b(of)g(cases)g(this)e(w)m(on't)j(matter,)g(there)f(are)g(p)s(oten)m +(tial)0 2959 y(problems)j(in)h(on-line)f(data)i(acquisition)e(systems)i +(and)f(in)g(applications)f(in)m(v)m(olving)g(taking)i(the)g +(di\013erence)0 3072 y(b)s(et)m(w)m(een)g(t)m(w)m(o)h(times.)40 +b(Note)31 b(that)f(although)e(the)i(routines)e(sla)p +Fq(_)p FA(D)m(A)-8 b(T)30 b(and)f(sla)p Fq(_)p FA(DTT)f(exp)s(ect)i +(UTC)f(in)f(the)0 3185 y(form)k(of)h(an)g(MJD,)g(the)g(meaning)f(here)h +(is)f(really)f(a)i(whole-n)m(um)m(b)s(er)e Fn(date)41 +b FA(rather)32 b(than)h(a)g(time.)47 b(Though)0 3298 +y(the)38 b(routines)f(will)e(accept)k(a)f(fractional)f(part)h(and)f +(will)e(almost)j(alw)m(a)m(ys)g(function)f(correctly)-8 +b(,)40 b(on)e(a)g(da)m(y)0 3411 y(whic)m(h)29 b(ends)g(with)f(a)j(leap) +e(second)h(incorrect)g(results)e(w)m(ould)h(b)s(e)g(obtained)h(during)d +(the)j(leap)g(second)g(itself)0 3524 y(b)s(ecause)g(b)m(y)h(then)f(the) +g(MJD)h(w)m(ould)e(ha)m(v)m(e)j(mo)m(v)m(ed)f(in)m(to)g(the)f(next)h +(da)m(y)-8 b(.)0 3806 y Fy(4.15.3)106 b(Sidereal)35 b(Time:)45 +b(GMST,)35 b(LAST)0 4023 y FA(Sidereal)23 b(Time)g(is)g(the)i(\\time)f +(of)h(da)m(y")g(relativ)m(e)f(to)h(the)g(stars)f(rather)g(than)g(to)h +(the)g(Sun.)37 b(After)24 b(one)h(sidereal)0 4136 y(da)m(y)e(the)g +(stars)f(come)i(bac)m(k)f(to)h(the)e(same)h(place)g(in)e(the)i(sky)-8 +b(,)25 b(apart)e(from)f(sub-arcsecond)g(precession)g(e\013ects.)0 +4249 y(Because)33 b(the)e(Earth)g(rotates)i(faster)f(relativ)m(e)f(to)h +(the)g(stars)f(than)g(to)h(the)g(Sun)e(b)m(y)h(one)h(da)m(y)f(p)s(er)g +(y)m(ear,)h(the)0 4361 y(sidereal)d(second)h(is)g(shorter)g(than)g(the) +h(solar)f(second;)g(the)h(ratio)f(is)g(ab)s(out)g(0.9973.)0 +4519 y(The)k Fn(Gr)-5 b(e)g(enwich)38 b(Me)-5 b(an)36 +b(Sider)-5 b(e)g(al)38 b(Time)k FA(GMST)34 b(is)f(link)m(ed)g(to)i(UT1) +g(b)m(y)f(a)h(n)m(umerical)e(form)m(ula)g(whic)m(h)g(is)0 +4632 y(implemen)m(ted)26 b(in)g(the)h(SLALIB)g(routines)f(sla)p +Fq(_)p FA(GMST)h(and)f(sla)p Fq(_)p FA(GMST)-8 b(A.)28 +b(There)e(are,)j(of)e(course,)i(no)e(leap)0 4745 y(seconds)h(in)f +(GMST,)h(but)f(the)h(second)g(c)m(hanges)h(in)e(length)g(along)h(with)f +(the)h(UT1)g(second,)h(and)e(also)h(v)-5 b(aries)0 4858 +y(o)m(v)m(er)28 b(long)e(p)s(erio)s(ds)e(of)i(time)h(b)s(ecause)f(of)h +(slo)m(w)f(c)m(hanges)h(in)e(the)i(Earth's)f(orbit.)39 +b(This)24 b(mak)m(es)k(the)e(timescale)0 4971 y(unsuitable)i(for)i(ev)m +(erything)g(except)i(predicting)c(the)j(apparen)m(t)f(directions)f(of)i +(celestial)f(sources.)0 5128 y(The)h Fn(L)-5 b(o)g(c)g(al)35 +b(App)-5 b(ar)g(ent)35 b(Sider)-5 b(e)g(al)36 b(Time)i +FA(LAST)30 b(is)g(the)h(apparen)m(t)h(righ)m(t)f(ascension)f(of)i(the)f +(lo)s(cal)g(meridian,)0 5241 y(from)25 b(whic)m(h)g(the)g(hour)g(angle) +h(of)g(an)m(y)g(star)f(can)h(b)s(e)f(determined)g(kno)m(wing)g(its)g +Fi(\013)p FA(.)39 b(It)26 b(can)g(b)s(e)f(obtained)g(from)0 +5354 y(the)36 b(GMST)f(b)m(y)g(adding)f(the)i(east)h(longitude)d +(\(corrected)j(for)e(p)s(olar)f(motion)h(in)g(precise)f(w)m(ork\))i +(and)f(the)0 5467 y Fn(e)-5 b(quation)33 b(of)g(the)g(e)-5 +b(quinoxes)p FA(.)41 b(The)30 b(latter,)h(already)f(describ)s(ed,)f(is) +g(an)h(asp)s(ect)h(of)f(the)h(n)m(utation)f(e\013ect)i(and)0 +5580 y(can)j(b)s(e)e(predicted)g(b)m(y)h(calling)f(the)i(SLALIB)e +(routine)h(sla)p Fq(_)p FA(EQEQX)e(or,)k(neglecting)e(certain)g(v)m +(ery)h(small)0 5693 y(terms,)c(b)m(y)f(calling)f(sla)p +Fq(_)p FA(NUTC)g(and)h(using)f(the)h(expression)f(\001)p +Fi( )19 b FA(cos)d Fi(\017)p FA(.)p eop +%%Page: 187 189 +187 188 bop 0 52 a Ft(SUN/67.45)3206 b FA(187)0 351 y +Fy(4.15.4)106 b(Dynamical)34 b(Time:)46 b(TT,)34 b(TDB)0 +588 y FA(Dynamical)26 b(time)g(is)f(the)h(indep)s(enden)m(t)e(v)-5 +b(ariable)25 b(in)g(the)h(theories)g(whic)m(h)f(describ)s(e)g(the)h +(motions)g(of)g(b)s(o)s(dies)0 701 y(in)33 b(the)h(solar)g(system.)51 +b(When)34 b(y)m(ou)h(use)e(published)e(form)m(ulae)i(whic)m(h)g(mo)s +(del)g(the)h(p)s(osition)e(of)j(the)f(Earth)0 814 y(in)c(its)g(orbit,)h +(for)g(example,)g(or)g(lo)s(ok)f(up)g(the)i(Mo)s(on's)f(p)s(osition)e +(in)h(a)h(precomputed)g(ephemeris,)f(the)h(date)0 927 +y(and)38 b(time)g(y)m(ou)h(use)f(m)m(ust)g(b)s(e)g(in)f(terms)h(of)h +(one)f(of)h(the)f(dynamical)f(timescales.)65 b(It)38 +b(is)g(a)h(common)f(but)0 1040 y(understandable)25 b(mistak)m(e)j(to)h +(use)e(UT)g(directly)-8 b(,)28 b(in)e(whic)m(h)g(case)j(the)e(results)g +(will)d(b)s(e)j(ab)s(out)h(1)g(min)m(ute)e(out)0 1153 +y(\(in)j(the)i(presen)m(t)f(era\).)0 1326 y(It)37 b(is)f(not)h(hard)f +(to)i(see)f(wh)m(y)g(suc)m(h)f(timescales)h(are)g(necessary)-8 +b(.)61 b(UTC)37 b(w)m(ould)e(clearly)i(b)s(e)f(unsuitable)e(as)0 +1439 y(the)28 b(argumen)m(t)g(of)g(an)f(ephemeris)f(b)s(ecause)i(of)g +(leap)f(seconds.)40 b(A)27 b(solar-system)h(ephemeris)e(based)i(on)f +(UT1)0 1552 y(or)42 b(sidereal)f(time)g(w)m(ould)g(someho)m(w)i(ha)m(v) +m(e)g(to)g(include)c(the)k(unpredictable)c(v)-5 b(ariations)41 +b(of)h(the)h(Earth's)0 1665 y(rotation.)71 b(T)-8 b(AI)41 +b(w)m(ould)e(w)m(ork,)k(but)d(ev)m(en)m(tually)g(the)h(ephemeris)e(and) +h(the)h(ensem)m(ble)f(of)g(atomic)h(clo)s(c)m(ks)0 1778 +y(w)m(ould)33 b(drift)h(apart.)54 b(In)34 b(e\013ect,)j(the)e +(ephemeris)f Fn(is)42 b FA(a)35 b(clo)s(c)m(k,)h(with)e(the)h(b)s(o)s +(dies)d(of)j(the)g(solar)f(system)h(the)0 1891 y(hands.)0 +2064 y(Only)25 b(t)m(w)m(o)i(of)g(the)f(dynamical)f(timescales)h(are)h +(of)g(an)m(y)f(great)i(imp)s(ortance)d(to)i(observ)-5 +b(ational)26 b(astronomers,)0 2177 y(TT)k(and)f(TDB.)i(\(The)g +(obsolete)g(timescale)f(ET,)g(ephemeris)f(time,)h(w)m(as)h(more)g(or)f +(less)g(the)g(same)h(as)g(TT.\))0 2350 y Fn(T)-7 b(err)i(estrial)43 +b(Time)j FA(TT)39 b(is)f(the)i(theoretical)g(timescale)f(of)h(apparen)m +(t)g(geo)s(cen)m(tric)g(ephemerides)e(of)i(solar)0 2463 +y(system)35 b(b)s(o)s(dies.)51 b(It)35 b(applies,)f(in)g(principle,)e +(to)k(an)e(Earth)m(b)s(ound)f(clo)s(c)m(k,)j(at)g(sea-lev)m(el,)g(and)e +(for)h(practical)0 2576 y(purp)s(oses)30 b(it)h(is)f(tied)h(to)h(A)m +(tomic)g(Time)f(T)-8 b(AI)31 b(through)g(the)g(form)m(ula)g(TT)g(=)g(T) +-8 b(AI)31 b(+)g(32)3090 2543 y Fr(s)3095 2576 y Fi(:)p +FA(184.)46 b(In)31 b(practice,)0 2689 y(therefore,)f(the)g(units)e(of)h +(TT)g(are)g(ordinary)f(SI)h(seconds,)g(and)g(the)h(o\013set)g(of)f(32) +2797 2656 y Fr(s)2802 2689 y Fi(:)p FA(184)j(with)c(resp)s(ect)h(to)h +(T)-8 b(AI)0 2802 y(is)28 b(\014xed.)40 b(The)29 b(SLALIB)g(routine)g +(sla)p Fq(_)p FA(DTT)f(returns)g(TT)p Fl(\000)p FA(UTC)g(for)h(a)h(giv) +m(en)g(UTC)e(\()p Fn(n.b.)i FA(sla)p Fq(_)p FA(DTT)e(calls)0 +2915 y(sla)p Fq(_)p FA(D)m(A)-8 b(T,)37 b(and)e(the)h(latter)g(m)m(ust) +g(b)s(e)f(an)h(up-to-date)h(v)m(ersion)e(if)g(recen)m(t)i(leap)e +(seconds)h(are)g(to)h(b)s(e)e(tak)m(en)0 3028 y(in)m(to)30 +b(accoun)m(t\).)0 3201 y Fn(Baryc)-5 b(entric)35 b(Dynamic)-5 +b(al)36 b(Time)j FA(TDB)32 b(di\013ers)f(from)g(TT)g(b)m(y)h(an)g +(amoun)m(t)h(whic)m(h)d(cycles)j(bac)m(k)f(and)g(forth)0 +3314 y(b)m(y)d(a)h(millisecond)c(or)j(t)m(w)m(o)i(due)d(to)i +(relativistic)e(e\013ects.)42 b(The)29 b(v)-5 b(ariation)28 +b(is)g(negligible)f(for)i(most)h(purp)s(oses,)0 3427 +y(but)j(unless)f(tak)m(en)j(in)m(to)f(accoun)m(t)h(w)m(ould)e(sw)m(amp) +g(long-term)h(analysis)e(of)i(pulse)e(arriv)-5 b(al)33 +b(times)g(from)g(the)0 3540 y(millisecond)22 b(pulsars.)36 +b(It)25 b(is)f(a)h(consequence)h(of)f(the)g(TT)f(clo)s(c)m(k)h(b)s +(eing)e(on)i(the)g(Earth)f(rather)h(than)g(in)e(empt)m(y)0 +3653 y(space:)57 b(the)39 b(ellipticit)m(y)d(of)j(the)f(Earth's)h +(orbit)e(means)i(that)g(the)f(TT)g(clo)s(c)m(k's)h(sp)s(eed)e(and)h +(gra)m(vitational)0 3766 y(p)s(oten)m(tial)k(v)-5 b(ary)43 +b(sligh)m(tly)e(during)f(the)j(course)f(of)h(the)g(y)m(ear,)k(and)42 +b(as)h(a)g(consequence)g(its)f(rate)h(as)g(seen)0 3879 +y(from)31 b(an)g(outside)g(observ)m(er)h(v)-5 b(aries)31 +b(due)g(to)h(transv)m(erse)g(Doppler)e(e\013ect)j(and)e(gra)m +(vitational)h(redshift.)42 b(By)0 3991 y(de\014nition,)21 +b(TDB)h(and)e(TT)h(di\013er)f(only)g(b)m(y)h(p)s(erio)s(dic)e(terms,)k +(and)e(the)g(main)f(e\013ect)j(is)d(a)i(sin)m(usoidal)c(v)-5 +b(ariation)0 4104 y(of)22 b(amplitude)e(0)561 4071 y +Fr(s)566 4104 y Fi(:)p FA(0016;)27 b(the)c(largest)f(planetary)g(terms) +g(are)g(nearly)f(t)m(w)m(o)j(orders)d(of)h(magnitude)f(smaller.)37 +b(The)0 4217 y(SLALIB)31 b(routine)g(sla)p Fq(_)p FA(R)m(CC)g(pro)m +(vides)g(a)h(mo)s(del)f(of)g(TDB-TT)h(accurate)i(to)e(a)g(few)g +(nanoseconds.)45 b(There)0 4330 y(are)39 b(other)g(dynamical)e +(timescales,)k(not)e(supp)s(orted)e(b)m(y)i(SLALIB)f(routines,)i(whic)m +(h)d(include)g(allo)m(w)m(ance)0 4443 y(also)30 b(for)g(the)h(secular)f +(terms.)40 b(These)31 b(timescales)f(gain)g(on)g(TT)g(and)g(TDB)g(b)m +(y)h(ab)s(out)f(0)3087 4410 y Fr(s)3092 4443 y Fi(:)p +FA(0013/da)m(y)-8 b(.)0 4616 y(F)g(or)40 b(most)f(purp)s(oses)f(the)h +(more)h(accessible)e(TT)h(is)f(the)h(timescale)h(to)g(use,)h(for)e +(example)g(when)f(calling)0 4729 y(sla)p Fq(_)p FA(PRENUT)28 +b(to)i(generate)h(a)e(precession/n)m(utation)g(matrix)f(or)h(when)f +(calling)g(sla)p Fq(_)p FA(EVP)g(to)i(predict)e(the)0 +4842 y(Earth's)39 b(p)s(osition)f(and)h(v)m(elo)s(cit)m(y)-8 +b(.)68 b(F)-8 b(or)41 b(some)e(purp)s(oses)f(TDB)i(is)e(the)i(correct)h +(timescale,)h(for)d(example)0 4955 y(when)33 b(in)m(terrogating)i(the)f +(JPL)g(planetary)f(ephemeris)g(\(see)j Fn(Starlink)h(User)f(Note)g(87) +12 b FA(\),)37 b(though)d(in)f(most)0 5068 y(cases)e(TT)f(will)e(b)s(e) +h(near)i(enough)f(and)g(will)d(in)m(v)m(olv)m(e)k(less)e(computation.)0 +5241 y(In)m(v)m(estigations)k(of)f(top)s(o)s(cen)m(tric)h(solar-system) +g(phenomena)f(suc)m(h)g(as)g(o)s(ccultations)h(and)e(eclipses)h +(require)0 5354 y(solar)g(time)g(as)g(w)m(ell)f(as)h(dynamical)f(time.) +46 b(TT/TDB/ET)32 b(is)f(all)g(that)i(is)e(required)g(in)g(order)g(to)i +(compute)0 5467 y(the)28 b(geo)s(cen)m(tric)h(circumstances,)f(but)g +(if)e(horizon)h(co)s(ordinates)h(or)g(geo)s(cen)m(tric)h(parallax)e +(are)h(to)g(b)s(e)g(tac)m(kled)0 5580 y(UT)g(is)e(also)i(needed.)40 +b(A)27 b(rough)h(estimate)g(of)g(\001T)d(=)g(ET)14 b +Fl(\000)h FA(UT)27 b(is)g(a)m(v)-5 b(ailable)27 b(via)h(the)g(routine)e +(sla)p Fq(_)p FA(DT.)i(F)-8 b(or)0 5693 y(a)31 b(giv)m(en)f(ep)s(o)s(c) +m(h)g(\()p Fn(e.g.)g FA(1650\))j(this)c(returns)g(an)h(appro)m +(ximation)g(to)h(\001T)f(in)f(seconds.)p eop +%%Page: 188 190 +188 189 bop 0 52 a FA(188)0 351 y Fs(4.16)112 b(Calendars)0 +565 y FA(The)38 b(ordinary)f Fn(Gr)-5 b(e)g(gorian)43 +b(Calendar)f(Date)p FA(,)f(together)f(with)e(a)h(time)f(of)h(da)m(y)-8 +b(,)42 b(can)d(b)s(e)f(used)g(to)i(express)0 678 y(an)e(ep)s(o)s(c)m(h) +g(in)f(an)m(y)h(desired)f(timescale.)64 b(F)-8 b(or)39 +b(man)m(y)f(purp)s(oses,)g(ho)m(w)m(ev)m(er,)k(a)c(con)m(tin)m(uous)g +(coun)m(t)h(of)f(da)m(ys)0 791 y(is)e(more)h(con)m(v)m(enien)m(t,)k +(and)36 b(for)h(this)f(purp)s(ose)g(the)h(system)g(of)g +Fn(Julian)i(Day)g(Numb)-5 b(er)47 b FA(can)38 b(b)s(e)e(used.)60 +b(JD)0 904 y(zero)36 b(is)e(lo)s(cated)i(ab)s(out)f(7000)i(y)m(ears)f +(ago,)i(w)m(ell)d(b)s(efore)g(the)g(historical)f(era,)j(and)e(is)f +(formally)g(de\014ned)g(in)0 1017 y(terms)e(of)g(Green)m(wic)m(h)h(no)s +(on;)f(Julian)e(Da)m(y)k(Num)m(b)s(er)d(2449444)k(b)s(egan)d(at)h(no)s +(on)f(on)g(1994)i(April)c(1.)46 b Fn(Julian)0 1130 y(Date)c +FA(is)34 b(the)h(same)h(system)f(but)f(with)g(a)h(fractional)g(part)g +(app)s(ended;)h(Julian)c(Date)37 b(2449443.5)i(w)m(as)c(the)0 +1242 y(midnigh)m(t)29 b(on)i(whic)m(h)f(1994)j(April)c(1)j(commenced.) +43 b(Because)33 b(of)e(the)h(un)m(wieldy)c(size)j(of)h(Julian)c(Dates) +33 b(and)0 1355 y(the)27 b(a)m(wkw)m(ardness)f(of)g(the)h(half-da)m(y)f +(o\013set,)i(it)e(is)f(accepted)j(practice)e(to)i(remo)m(v)m(e)f(the)g +(leading)e(`24')j(and)d(the)0 1468 y(trailing)d(`.5',)27 +b(pro)s(ducing)21 b(what)j(is)f(called)h(the)g Fn(Mo)-5 +b(di\014e)g(d)28 b(Julian)f(Date)p FA(:)38 b(MJD)24 b(=)g(JD)p +Fl(\000)p FA(2400000)p Fi(:)p FA(5.)42 b(SLALIB)0 1581 +y(routines)25 b(use)i(MJD,)g(as)f(opp)s(osed)g(to)h(JD,)g(throughout,)g +(largely)f(to)h(a)m(v)m(oid)g(loss)f(of)h(precision.)38 +b(1994)28 b(April)c(1)0 1694 y(commenced)31 b(at)g(MJD)g(49443.0.)0 +1849 y(Despite)h(JD)g(\(and)f(hence)h(MJD\))h(b)s(eing)d(de\014ned)g +(in)h(terms)g(of)h(\(in)f(e\013ect\))j(UT,)d(the)h(system)g(can)g(b)s +(e)f(used)0 1962 y(in)25 b(conjunction)g(with)g(other)i(timescales)f +(suc)m(h)g(as)g(T)-8 b(AI,)27 b(TT)e(and)h(TDB)g(\(and)g(ev)m(en)h +(sidereal)e(time)h(through)0 2075 y(the)31 b(concept)g(of)f +Fn(Gr)-5 b(e)g(enwich)35 b(Sider)-5 b(e)g(al)34 b(Date)p +FA(\).)41 b(Ho)m(w)m(ev)m(er,)33 b(it)d(is)f(improp)s(er)f(to)j +(express)f(a)h(UTC)f(as)g(a)h(JD)f(or)0 2188 y(MJD)h(b)s(ecause)f(of)h +(leap)f(seconds.)0 2343 y(SLALIB)43 b(has)f(six)g(routines)g(for)h(con) +m(v)m(erting)h(to)g(and)e(from)h(dates)h(in)d(the)j(Gregorian)f +(calendar.)78 b(The)0 2456 y(routines)43 b(sla)p Fq(_)p +FA(CLDJ)g(and)g(sla)p Fq(_)p FA(CALDJ)h(b)s(oth)f(con)m(v)m(ert)j(a)e +(calendar)g(date)h(in)m(to)f(an)g(MJD,)h(the)f(former)0 +2569 y(in)m(terpreting)38 b(y)m(ears)j(b)s(et)m(w)m(een)g(0)f(and)f(99) +i(as)f(1st)g(cen)m(tury)g(and)g(the)g(latter)g(as)g(late)g(20th)h(or)f +(early)f(21st)0 2682 y(cen)m(tury)-8 b(.)76 b(The)42 +b(routines)f(sla)p Fq(_)p FA(DJCL)g(and)g(sla)p Fq(_)p +FA(DJCAL)g(b)s(oth)h(con)m(v)m(ert)h(an)f(MJD)h(in)m(to)f(calendar)f(y) +m(ear,)0 2795 y(mon)m(th,)24 b(da)m(y)e(and)g(fraction)g(of)g(a)h(da)m +(y;)i(the)d(latter)h(p)s(erforms)d(rounding)g(to)j(a)g(sp)s(eci\014ed)d +(precision,)i(imp)s(ortan)m(t)0 2907 y(to)42 b(a)m(v)m(oid)g(dates)g +(lik)m(e)e(`)p Fq(94)47 b(04)h(01.***)p FA(')39 b(app)s(earing)h(in)g +(messages.)75 b(Some)41 b(of)g(SLALIB's)g(lo)m(w-precision)0 +3020 y(ephemeris)33 b(routines)h(\(sla)p Fq(_)p FA(EAR)-8 +b(TH,)34 b(sla)p Fq(_)p FA(MOON)g(and)g(sla)p Fq(_)p +FA(ECOR\))f(w)m(ork)i(in)e(terms)i(of)g(y)m(ear)g(plus)e(da)m(y-)0 +3133 y(in-y)m(ear)38 b(\(where)f(da)m(y)h(1)g(=)f(Jan)m(uary)g(1st,)k +(at)d(least)g(for)f(the)h(mo)s(dern)e(era\).)63 b(This)36 +b(form)h(of)h(date)g(can)g(b)s(e)0 3246 y(generated)25 +b(b)m(y)f(calling)e(sla)p Fq(_)p FA(CAL)-8 b(YD)24 b(\(whic)m(h)e +(defaults)h(y)m(ears)i(0-99)g(in)m(to)f(1950-2049\))k(or)c(sla)p +Fq(_)p FA(CL)-8 b(YD)23 b(\(whic)m(h)0 3359 y(co)m(v)m(ers)32 +b(the)f(full)d(range)i(from)g(prehistoric)f(times\).)0 +3641 y Fs(4.17)112 b(Geo)s(cen)m(tric)36 b(Co)s(ordinates)0 +3855 y FA(The)27 b(lo)s(cation)g(of)h(the)g(observ)m(er)g(on)g(the)g +(Earth)f(is)g(signi\014can)m(t)f(in)h(a)h(n)m(um)m(b)s(er)e(of)i(w)m(a) +m(ys.)41 b(The)27 b(most)h(ob)m(vious,)0 3968 y(of)33 +b(course,)g(is)f(the)h(e\013ect)h(of)f(latitude)e(on)i(the)g(observ)m +(ed)f([)15 b Fi(Az)t(;)g(E)5 b(l)36 b FA(])d(of)g(a)g(star.)48 +b(Less)32 b(ob)m(vious)g(is)g(the)h(need)0 4081 y(to)d(allo)m(w)g(for)f +(geo)s(cen)m(tric)i(parallax)e(when)f(\014nding)g(the)i(Mo)s(on)g(with) +e(a)i(telescop)s(e)g(\(and)g(when)f(doing)g(high-)0 4193 +y(precision)g(w)m(ork)j(in)m(v)m(olving)d(the)i(Sun)f(or)h(planets\),)g +(and)g(the)g(need)g(to)h(correct)g(observ)m(ed)f(radial)f(v)m(elo)s +(cities)0 4306 y(and)g(apparen)m(t)g(pulsar)f(p)s(erio)s(ds)f(for)i +(the)g(e\013ects)i(of)f(the)f(Earth's)h(rotation.)0 4461 +y(The)38 b(SLALIB)g(routine)g(sla)p Fq(_)p FA(OBS)f(supplies)f(details) +h(of)i(groundbased)e(observ)-5 b(atories)39 b(from)f(an)h(in)m(ternal)0 +4574 y(list.)g(This)27 b(is)g(useful)g(when)h(writing)f(applications)g +(that)i(apply)e(to)j(more)f(than)f(one)h(observ)-5 b(atory;)30 +b(the)f(user)0 4687 y(can)h(en)m(ter)g(a)g(brief)e(name,)i(or)f(bro)m +(wse)h(through)e(a)i(list,)f(and)g(b)s(e)f(spared)h(the)h(trouble)e(of) +i(t)m(yping)f(in)f(the)i(full)0 4800 y(latitude,)c(longitude)e +Fn(etc)p FA(.)39 b(The)26 b(follo)m(wing)e(F)-8 b(ortran)27 +b(co)s(de)f(returns)e(the)i(full)e(name,)j(longitude)d(and)h(latitude)0 +4913 y(of)31 b(a)f(sp)s(eci\014ed)f(observ)-5 b(atory:)573 +5145 y Fq(CHARACTER)45 b(IDENT*10,NAME*40)573 5258 y(DOUBLE)h +(PRECISION)f(W,P,H)620 5370 y(:)573 5483 y(CALL)h +(sla_OBS\(0,IDENT,NAME,W,P,H)o(\))573 5596 y(IF)h(\(NAME.EQ.'?'\))d +(...)620 b(\(not)46 b(recognized\))p eop +%%Page: 189 191 +189 190 bop 0 52 a Ft(SUN/67.45)3206 b FA(189)0 351 y(\(Bew)m(are)24 +b(of)e(the)g(longitude)f(sign)g(con)m(v)m(en)m(tion,)k(whic)m(h)c(is)g +(w)m(est)h(+v)m(e)h(for)f(historical)e(reasons.\))38 +b(The)22 b(follo)m(wing)0 464 y(lists)29 b(all)g(the)i(supp)s(orted)d +(observ)-5 b(atories:)620 686 y Fq(:)573 799 y(INTEGER)46 +b(N)620 911 y(:)573 1024 y(N=1)573 1137 y(NAME=')g(')573 +1250 y(DO)h(WHILE)f(\(NAME.NE.'?'\))716 1363 y(CALL)h +(sla_OBS\(N,IDENT,NAME,W,)o(P,H)o(\))716 1476 y(IF)g(\(NAME.NE.'?'\))d +(THEN)859 1589 y(WRITE)i(\(*,'\(1X,I3,4X,A,4X,A\)'\))c(N,IDENT,NAME)859 +1702 y(N=N+1)716 1815 y(END)47 b(IF)573 1928 y(END)g(DO)0 +2149 y FA(The)c(routine)f(sla)p Fq(_)p FA(GEOC)h(con)m(v)m(erts)i(a)f +Fn(ge)-5 b(o)g(detic)45 b(latitude)51 b FA(\(one)45 b(referred)d(to)i +(the)g(lo)s(cal)f(horizon\))g(to)h(a)0 2262 y(geo)s(cen)m(tric)39 +b(p)s(osition,)e(taking)h(in)m(to)g(accoun)m(t)h(the)e(Earth's)h +(oblateness)f(and)g(also)h(the)g(heigh)m(t)f(ab)s(o)m(v)m(e)i(sea)0 +2375 y(lev)m(el)c(of)h(the)g(observ)m(er.)56 b(The)35 +b(results)g(are)h(expressed)f(in)f(v)m(ector)j(form,)g(namely)e(as)h +(the)f(distance)h(of)f(the)0 2488 y(observ)m(er)43 b(from)f(the)h(spin) +e(axis)h(and)g(equator)h(resp)s(ectiv)m(ely)-8 b(.)78 +b(The)42 b Fn(ge)-5 b(o)g(c)g(entric)45 b(latitude)51 +b FA(can)43 b(b)s(e)f(found)0 2601 y(b)s(e)37 b(ev)-5 +b(aluating)38 b(A)-8 b(T)g(AN2)39 b(of)f(the)h(t)m(w)m(o)g(n)m(um)m(b)s +(ers.)62 b(A)38 b(full)e(3-D)j(v)m(ector)h(description)c(of)i(the)g(p)s +(osition)e(and)0 2714 y(v)m(elo)s(cit)m(y)i(of)f(the)h(observ)m(er)g +(is)e(a)m(v)-5 b(ailable)37 b(through)f(the)i(routine)e(sla)p +Fq(_)p FA(PV)m(OBS.)h(F)-8 b(or)38 b(a)g(sp)s(eci\014ed)e(geo)s(detic)0 +2827 y(latitude,)24 b(heigh)m(t)g(ab)s(o)m(v)m(e)h(sea)f(lev)m(el,)i +(and)d(lo)s(cal)g(sidereal)f(time,)j(sla)p Fq(_)p FA(PV)m(OBS)e +(generates)j(a)e(6-elemen)m(t)h(v)m(ector)0 2940 y(con)m(taining)32 +b(the)h(p)s(osition)e(and)h(v)m(elo)s(cit)m(y)h(with)e(resp)s(ect)i(to) +g(the)g(true)f(equator)i(and)e(equino)m(x)g(of)g(date)i(\()p +Fn(i.e.)0 3052 y FA(compatible)k(with)f(apparen)m(t)h([)15 +b Fi(\013;)g(\016)20 b FA(]\).)66 b(F)-8 b(or)39 b(some)f(applications) +f(it)h(will)e(b)s(e)h(necessary)i(to)g(con)m(v)m(ert)h(to)f(a)0 +3165 y(mean)31 b([)15 b Fi(\013;)g(\016)20 b FA(])30 +b(frame)h(\(notably)f(FK5,)h(J2000\))i(b)m(y)d(m)m(ultiplying)d(elemen) +m(ts)k(1-3)g(and)f(4-6)i(resp)s(ectiv)m(ely)e(with)0 +3278 y(the)i(appropriate)e(precession)h(matrix.)44 b(\(In)31 +b(theory)h(an)f(additional)f(correction)i(to)g(the)g(v)m(elo)s(cit)m(y) +g(v)m(ector)h(is)0 3391 y(needed)d(to)h(allo)m(w)f(for)g(di\013eren)m +(tial)f(precession,)h(but)f(this)h(correction)g(is)g(alw)m(a)m(ys)h +(negligible.\))0 3544 y(See)g(also)f(the)h(discussion)c(of)k(the)f +(routine)g(sla)p Fq(_)p FA(R)-10 b(VER)m(OT,)29 b(later.)0 +3822 y Fs(4.18)112 b(Ephemerides)0 4033 y FA(SLALIB)34 +b(includes)f(routines)h(for)g(generating)i(p)s(ositions)d(and)h(v)m +(elo)s(cities)g(of)h(Solar-System)g(b)s(o)s(dies.)52 +b(The)0 4146 y(accuracy)43 b(ob)5 b(jectiv)m(es)43 b(are)f(mo)s(dest,)j +(and)c(the)h(SLALIB)g(facilities)e(do)h(not)i(attempt)g(to)f(comp)s +(ete)h(with)0 4259 y(precomputed)28 b(ephemerides)f(suc)m(h)h(as)g +(those)h(pro)m(vided)e(b)m(y)h(JPL,)g(or)h(with)e(mo)s(dels)g(con)m +(taining)h(thousands)0 4372 y(of)23 b(terms.)38 b(It)23 +b(is)f(also)h(w)m(orth)f(noting)h(that)g(SLALIB's)f(v)m(ery)i(accurate) +g(star)f(co)s(ordinate)f(con)m(v)m(ersion)i(routines)0 +4485 y(are)37 b(not)g(strictly)f(applicable)f(to)i(solar-system)g +(cases,)j(though)c(they)h(are)g(adequate)h(for)f(most)g(practical)0 +4598 y(purp)s(oses.)0 4750 y(Earth/Sun)30 b(ephemerides)f(can)j(b)s(e)e +(generated)i(using)e(the)h(routine)f(sla)p Fq(_)p FA(EVP)-8 +b(,)31 b(whic)m(h)f(predicts)g(Earth)h(p)s(o-)0 4863 +y(sition)k(and)i(v)m(elo)s(cit)m(y)g(with)e(resp)s(ect)i(to)h(b)s(oth)e +(the)h(solar-system)g(barycen)m(tre)g(and)f(the)i(Sun.)58 +b(Maxim)m(um)0 4976 y(v)m(elo)s(cit)m(y)28 b(error)g(is)e(0.42)k +(metres)e(p)s(er)e(second;)j(maxim)m(um)e(helio)s(cen)m(tric)f(p)s +(osition)g(error)i(is)e(1600)k(km)d(\(ab)s(out)0 5089 +y(2)40 5052 y Fh(0)l(0)81 5089 y FA(\),)j(with)f(barycen)m(tric)h(p)s +(osition)e(errors)h(ab)s(out)h(4)g(times)f(w)m(orse.)41 +b(\(The)30 b(Sun's)f(p)s(osition)f(as)i(seen)g(from)f(the)0 +5202 y(Earth)h(can,)h(of)f(course,)h(b)s(e)f(obtained)f(simply)f(b)m(y) +i(rev)m(ersing)g(the)g(signs)f(of)i(the)f(Cartesian)g(comp)s(onen)m(ts) +g(of)0 5315 y(the)h(Earth)15 b(:)g(Sun)29 b(v)m(ector.\))0 +5467 y(Geo)s(cen)m(tric)34 b(Mo)s(on)f(ephemerides)f(are)h(a)m(v)-5 +b(ailable)33 b(from)f(sla)p Fq(_)p FA(DMOON,)h(whic)m(h)f(predicts)g +(the)h(Mo)s(on's)h(p)s(o-)0 5580 y(sition)27 b(and)h(v)m(elo)s(cit)m(y) +i(with)d(resp)s(ect)i(to)g(the)g(Earth's)f(cen)m(tre.)42 +b(Direction)28 b(accuracy)i(is)e(usually)e(b)s(etter)j(than)0 +5693 y(10)i(km)f(\(5)350 5656 y Fh(0)m(0)391 5693 y FA(\))h(and)f +(distance)g(accuracy)h(a)g(little)e(w)m(orse.)p eop +%%Page: 190 192 +190 191 bop 0 52 a FA(190)0 351 y(Lo)m(w)m(er-precision)23 +b(but)h(faster)g(predictions)e(for)i(the)g(Sun)f(and)g(Mo)s(on)i(can)f +(b)s(e)f(made)h(b)m(y)g(calling)f(sla)p Fq(_)p FA(EAR)-8 +b(TH)0 464 y(and)28 b(sla)p Fq(_)p FA(MOON.)f(Both)i(are)f(single)f +(precision)g(and)g(accept)j(dates)e(in)f(the)i(form)e(of)i(y)m(ear,)g +(da)m(y-in-y)m(ear)g(and)0 577 y(fraction)40 b(of)f(da)m(y)i +(\(starting)e(from)h(a)g(calendar)f(date)i(y)m(ou)f(need)f(to)i(call)e +(sla)p Fq(_)p FA(CL)-8 b(YD)39 b(or)h(sla)p Fq(_)p FA(CAL)-8 +b(YD)40 b(to)0 690 y(get)34 b(the)g(required)d(y)m(ear)j(and)f(da)m +(y\).)49 b(The)33 b(sla)p Fq(_)p FA(EAR)-8 b(TH)33 b(routine)f(returns) +g(the)h(helio)s(cen)m(tric)f(p)s(osition)f(and)0 803 +y(v)m(elo)s(cit)m(y)e(of)g(the)g(Earth's)g(cen)m(tre)h(for)e(the)h +(mean)g(equator)g(and)f(equino)m(x)h(of)g(date.)40 b(The)29 +b(accuracy)h(is)d(b)s(etter)0 916 y(than)37 b(20,000)j(km)c(in)g(p)s +(osition)g(and)g(10)i(metres)g(p)s(er)e(second)h(in)f(sp)s(eed.)60 +b(The)37 b(p)s(osition)e(and)i(v)m(elo)s(cit)m(y)g(of)0 +1029 y(the)d(Mo)s(on)h(with)d(resp)s(ect)j(to)f(the)h(Earth's)f(cen)m +(tre)h(for)f(the)g(mean)g(equator)h(and)f(ecliptic)f(of)h(date)h(can)f +(b)s(e)0 1142 y(obtained)41 b(b)m(y)h(calling)e(sla)p +Fq(_)p FA(MOON.)h(The)g(p)s(ositional)e(accuracy)k(is)e(b)s(etter)g +(than)h(30)3043 1105 y Fh(0)l(0)3125 1142 y FA(in)f(direction)f(and)0 +1255 y(1000)32 b(km)e(in)f(distance.)0 1420 y(Appro)m(ximate)35 +b(ephemerides)f(for)h(all)f(the)i(ma)5 b(jor)35 b(planets)f(can)i(b)s +(e)e(generated)j(b)m(y)e(calling)f(sla)p Fq(_)p FA(PLANET)0 +1533 y(or)k(sla)p Fq(_)p FA(RDPLAN.)f(These)g(routines)g(o\013er)h +(arcmin)m(ute)f(accuracy)i(\(m)m(uc)m(h)f(b)s(etter)f(for)h(the)f +(inner)f(planets)0 1645 y(and)f(for)h(Pluto\))g(o)m(v)m(er)h(a)f(span)f +(of)h(sev)m(eral)h(millennia)32 b(\(but)k(only)f Fl(\006)p +FA(100)i(y)m(ears)f(for)g(Pluto\).)57 b(The)35 b(routine)0 +1758 y(sla)p Fq(_)p FA(PLANET)20 b(pro)s(duces)h(helio)s(cen)m(tric)f +(p)s(osition)g(and)h(v)m(elo)s(cit)m(y)h(in)e(the)i(form)f(of)g +(equatorial)h([)15 b Fi(x;)g(y)s(;)g(z)t(;)32 b FA(_)-42 +b Fi(x)q(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 +b FA(])0 1871 y(for)26 b(the)h(mean)g(equator)g(and)f(equino)m(x)g(of)h +(J2000.)41 b(The)26 b(v)m(ectors)i(pro)s(duced)d(b)m(y)i(sla)p +Fq(_)p FA(PLANET)e(can)i(b)s(e)f(used)0 1984 y(in)35 +b(a)i(v)-5 b(ariet)m(y)36 b(of)h(w)m(a)m(ys)g(according)f(to)h(the)g +(requiremen)m(ts)e(of)i(the)f(application)f(concerned.)59 +b(The)35 b(routine)0 2097 y(sla)p Fq(_)p FA(RDPLAN)30 +b(uses)f(sla)p Fq(_)p FA(PLANET)g(and)g(sla)p Fq(_)p +FA(DMOON)g(to)i(deal)e(with)g(the)h(common)g(case)h(of)f(predicting)0 +2210 y(a)h(planet's)f(apparen)m(t)g([)15 b Fi(\013;)g(\016)21 +b FA(])30 b(and)g(angular)f(size)i(as)f(seen)h(b)m(y)f(a)h(terrestrial) +e(observ)m(er.)0 2375 y(Note)f(that)f(in)e(predicting)g(the)i(p)s +(osition)d(in)i(the)g(sky)h(of)f(a)h(solar-system)g(b)s(o)s(dy)e(it)h +(is)f(necessary)i(to)h(allo)m(w)e(for)0 2488 y(geo)s(cen)m(tric)35 +b(parallax.)50 b(This)32 b(correction)i(is)f Fn(essential)44 +b FA(in)32 b(the)i(case)h(of)f(the)g(Mo)s(on,)h(where)e(the)h(observ)m +(er's)0 2601 y(p)s(osition)41 b(on)i(the)g(Earth)g(can)g(a\013ect)h +(the)f(Mo)s(on's)h([)15 b Fi(\013;)g(\016)20 b FA(])43 +b(b)m(y)g(up)f(to)h(1)2593 2568 y Fm(\016)2633 2601 y +FA(.)78 b(The)43 b(calculation)f(can)h(most)0 2714 y(con)m(v)m(enien)m +(tly)28 b(b)s(e)e(done)h(b)m(y)g(calling)f(sla)p Fq(_)p +FA(PV)m(OBS)h(and)f(subtracting)h(the)g(resulting)e(6-v)m(ector)30 +b(from)d(the)g(one)0 2827 y(pro)s(duced)i(b)m(y)h(sla)p +Fq(_)p FA(DMOON,)g(as)h(is)e(demonstrated)i(b)m(y)f(the)h(follo)m(wing) +d(example:)286 3096 y Fq(*)96 b(Demonstrate)44 b(the)j(size)g(of)g(the) +g(geocentric)e(parallax)g(correction)286 3209 y(*)96 +b(in)47 b(the)g(case)f(of)h(the)g(Moon.)94 b(The)47 b(test)g(example)f +(is)h(for)g(the)g(AAT,)286 3322 y(*)96 b(before)46 b(midnight,)f(in)i +(summer,)f(near)h(first)f(quarter.)573 3548 y(IMPLICIT)f(NONE)573 +3661 y(CHARACTER)g(NAME*40,SH,SD)573 3774 y(INTEGER)h +(J,I,IHMSF\(4\),IDMSF\(4\))573 3886 y(DOUBLE)g(PRECISION)f +(SLONGW,SLAT,H,DJUTC,FDUTC)o(,DJ)o(UT1,)o(DJTT)o(,ST)o(L,)525 +3999 y(:)811 b(RMATN\(3,3\),PMM\(6\),PMT\(6\),)o(RM,)o(DM,P)o(VO\(6)o +(\),T)o(L)573 4112 y(DOUBLE)46 b(PRECISION)f(sla_DTT,sla_GMST,sla_EQEQ) +o(X,s)o(la_D)o(RANR)o(M)286 4338 y(*)96 b(Get)46 b(AAT)h(longitude)f +(and)h(latitude)e(in)i(radians)f(and)h(height)f(in)h(metres)573 +4451 y(CALL)f(sla_OBS\(0,'AAT',NAME,SLONG)o(W,S)o(LAT,)o(H\))286 +4677 y(*)96 b(UTC)46 b(\(1992)h(January)f(13,)h(11)g(13)g(59\))g(to)g +(MJD)573 4790 y(CALL)f(sla_CLDJ\(1992,1,13,DJUTC,J)o(\))573 +4903 y(CALL)g(sla_DTF2D\(11,13,59.0D0,FDU)o(TC,)o(J\))573 +5016 y(DJUTC=DJUTC+FDUTC)286 5241 y(*)96 b(UT1)46 b(\(UT1-UTC)g(value)g +(of)i(-0.152)e(sec)h(is)g(from)f(IERS)h(Bulletin)f(B\))573 +5354 y(DJUT1=DJUTC+\(-0.152D0\)/)o(8640)o(0D0)286 5580 +y(*)96 b(TT)573 5693 y(DJTT=DJUTC+sla_DTT\(DJUT)o(C\)/8)o(6400)o(D0)p +eop +%%Page: 191 193 +191 192 bop 0 52 a Ft(SUN/67.45)3206 b FA(191)286 464 +y Fq(*)96 b(Local)46 b(apparent)f(sidereal)h(time)573 +577 y(STL=sla_GMST\(DJUT1\)-SLO)o(NGW+)o(sla_)o(EQE)o(QX\(D)o(JTT\))286 +803 y(*)96 b(Geocentric)45 b(position/velocity)e(of)k(Moon)f(\(mean)h +(of)g(date\))573 916 y(CALL)f(sla_DMOON\(DJTT,PMM\))286 +1142 y(*)96 b(Nutation)45 b(to)i(true)g(equinox)f(of)h(date)573 +1255 y(CALL)f(sla_NUT\(DJTT,RMATN\))573 1367 y(CALL)g +(sla_DMXV\(RMATN,PMM,PMT\))573 1480 y(CALL)g +(sla_DMXV\(RMATN,PMM\(4\),PMT\()o(4\)\))286 1706 y(*)96 +b(Report)46 b(geocentric)f(HA,Dec)573 1819 y(CALL)h +(sla_DCC2S\(PMT,RM,DM\))573 1932 y(CALL)g(sla_DR2TF\(2,sla_DRANRM\(STL) +o(-RM)o(\),SH)o(,IHM)o(SF\))573 2045 y(CALL)g +(sla_DR2AF\(1,DM,SD,IDMSF\))573 2158 y(WRITE)g(\(*,'\(1X,'')f +(geocentric:'',2X,A,I2.2,2)o(I3.)o(2,'')o(.'',)o(I2.)o(2,'/)o(/)525 +2271 y(:)1432 b('1X,A,I2.2,2I3.2,''.'',)o(I1\))o('\))525 +2384 y(:)2291 b(SH,IHMSF,SD,IDMSF)286 2609 y(*)96 b(Geocentric)45 +b(position)g(of)i(observer)f(\(true)g(equator)g(and)h(equinox)f(of)h +(date\))573 2722 y(CALL)f(sla_PVOBS\(SLAT,H,STL,PVO\))286 +2948 y(*)96 b(Place)46 b(origin)g(at)h(observer)573 3061 +y(DO)g(I=1,6)716 3174 y(PMT\(I\)=PMT\(I\)-PVO\(I\))573 +3287 y(END)g(DO)286 3513 y(*)96 b(Allow)46 b(for)h(planetary)e +(aberration)573 3626 y(TL=499.004782D0*SQRT\(PM)o(T\(1\))o(**2+)o(PMT)o +(\(2\)*)o(*2+P)o(MT\()o(3\)**)o(2\))573 3739 y(DO)i(I=1,3)716 +3851 y(PMT\(I\)=PMT\(I\)-TL*PMT\(I+3)o(\))573 3964 y(END)g(DO)286 +4190 y(*)96 b(Report)46 b(topocentric)e(HA,Dec)573 4303 +y(CALL)i(sla_DCC2S\(PMT,RM,DM\))573 4416 y(CALL)g +(sla_DR2TF\(2,sla_DRANRM\(STL)o(-RM)o(\),SH)o(,IHM)o(SF\))573 +4529 y(CALL)g(sla_DR2AF\(1,DM,SD,IDMSF\))573 4642 y(WRITE)g +(\(*,'\(1X,''topocentric:'',)o(2X,)o(A,I2)o(.2,2)o(I3.)o(2,'')o(.'',)o +(I2.)o(2,'/)o(/)525 4755 y(:)1432 b('1X,A,I2.2,2I3.2,''.'',)o(I1\))o +('\))525 4868 y(:)2291 b(SH,IHMSF,SD,IDMSF)573 4981 y(END)0 +5227 y FA(The)30 b(output)g(pro)s(duced)f(is)g(as)i(follo)m(ws:)334 +5473 y Fq(geocentric:)93 b(+03)46 b(06)i(55.59)e(+15)h(03)g(39.0)286 +5585 y(topocentric:)93 b(+03)46 b(09)i(23.79)e(+15)h(40)g(51.5)p +eop +%%Page: 192 194 +192 193 bop 0 52 a FA(192)0 351 y(\(An)26 b(easier)g(but)g(less)g +(instructiv)m(e)f(metho)s(d)g(of)i(estimating)f(the)g(top)s(o)s(cen)m +(tric)h(apparen)m(t)f(place)g(of)h(the)f(Mo)s(on)0 464 +y(is)j(to)j(call)d(the)i(routine)e(sla)p Fq(_)p FA(RDPLAN.\))0 +617 y(As)24 b(an)h(example)f(of)g(using)f(sla)p Fq(_)p +FA(PLANET,)h(the)g(follo)m(wing)f(program)h(estimates)h(the)g(geo)s +(cen)m(tric)h(separation)0 730 y(b)s(et)m(w)m(een)39 +b(V)-8 b(en)m(us)39 b(and)g(Jupiter)e(during)f(a)j(close)g(conjunction) +f(in)f(2)16 b(BC,)39 b(whic)m(h)f(is)f(a)i(star-of-Bethlehem)0 +842 y(candidate:)286 1064 y Fq(*)96 b(Compute)45 b(time)i(and)g +(minimum)f(geocentric)f(apparent)g(separation)286 1177 +y(*)96 b(between)45 b(Venus)i(and)g(Jupiter)e(during)i(the)f(close)h +(conjunction)e(of)i(2)g(BC.)573 1402 y(IMPLICIT)e(NONE)573 +1628 y(DOUBLE)h(PRECISION)f(SEPMIN,DJD0,FD,DJD,DJDM,D)o(F,P)o(V\(6\))o +(,RMA)o(TP\()o(3,3\))o(,)525 1741 y(:)811 b +(PVM\(6\),PVE\(6\),TL,RV,DV,RJ)o(,DJ)o(,SEP)573 1854 +y(INTEGER)46 b(IHOUR,IMIN,J,I,IHMIN,IM)o(MIN)573 1967 +y(DOUBLE)g(PRECISION)f(sla_EPJ,sla_DSEP)286 2306 y(*)96 +b(Search)46 b(for)h(closest)e(approach)h(on)h(the)g(given)f(day)573 +2419 y(DJD0=1720859.5D0)573 2532 y(SEPMIN=1D10)573 2644 +y(DO)h(IHOUR=20,22)716 2757 y(DO)g(IMIN=0,59)859 2870 +y(CALL)g(sla_DTF2D\(IHOUR,IMIN,0D)o(0,FD)o(,J\))286 3096 +y(*)382 b(Julian)46 b(date)h(and)g(MJD)859 3209 y(DJD=DJD0+FD)859 +3322 y(DJDM=DJD-2400000.5D0)286 3548 y(*)382 b(Earth)46 +b(to)h(Moon)g(\(mean)f(of)i(date\))859 3661 y(CALL)f +(sla_DMOON\(DJDM,PV\))286 3886 y(*)382 b(Precess)46 b(Moon)g(position)g +(to)h(J2000)859 3999 y(CALL)g(sla_PRECL\(sla_EPJ\(DJDM\))o(,200)o(0D0,) +o(RMA)o(TP\))859 4112 y(CALL)g(sla_DMXV\(RMATP,PV,PVM\))286 +4338 y(*)382 b(Sun)47 b(to)g(Earth-Moon)e(Barycentre)g(\(mean)h +(J2000\))859 4451 y(CALL)h(sla_PLANET\(DJDM,3,PVE,J)o(\))286 +4677 y(*)382 b(Correct)46 b(from)g(EMB)h(to)g(Earth)859 +4790 y(DO)g(I=1,3)1002 4903 y(PV\(I\)=PVE\(I\)-0.012150581D)o(0*PV)o +(M\(I\))859 5016 y(END)g(DO)286 5241 y(*)382 b(Sun)47 +b(to)g(Venus)859 5354 y(CALL)g(sla_PLANET\(DJDM,2,PV,J\))286 +5580 y(*)382 b(Earth)46 b(to)h(Venus)859 5693 y(DO)g(I=1,6)p +eop +%%Page: 193 195 +193 194 bop 0 52 a Ft(SUN/67.45)3206 b FA(193)1002 351 +y Fq(PV\(I\)=PV\(I\)-PVE\(I\))859 464 y(END)47 b(DO)286 +690 y(*)382 b(Light)46 b(time)h(to)g(Venus)f(\(sec\))859 +803 y(TL=499.004782D0*SQRT\(\(PV\()o(1\)-)o(PVE\()o(1\)\)*)o(*2+)525 +916 y(:)1288 b(\(PV\(2\)-PVE\(2\)\)**2+)525 1029 y(:)g +(\(PV\(3\)-PVE\(3\)\)**2\))286 1255 y(*)382 b(Extrapolate)45 +b(backwards)g(in)i(time)g(by)g(that)g(much)859 1367 y(DO)g(I=1,3)1002 +1480 y(PV\(I\)=PV\(I\)-TL*PV\(I+3\))859 1593 y(END)g(DO)286 +1819 y(*)334 b(To)47 b(RA,Dec)859 1932 y(CALL)g(sla_DCC2S\(PV,RV,DV\)) +286 2158 y(*)382 b(Same)47 b(for)f(Jupiter)859 2271 y(CALL)h +(sla_PLANET\(DJDM,5,PV,J\))859 2384 y(DO)g(I=1,6)1002 +2497 y(PV\(I\)=PV\(I\)-PVE\(I\))859 2609 y(END)g(DO)859 +2722 y(TL=499.004782D0*SQRT\(\(PV\()o(1\)-)o(PVE\()o(1\)\)*)o(*2+)525 +2835 y(:)1288 b(\(PV\(2\)-PVE\(2\)\)**2+)525 2948 y(:)g +(\(PV\(3\)-PVE\(3\)\)**2\))859 3061 y(DO)47 b(I=1,3)1002 +3174 y(PV\(I\)=PV\(I\)-TL*PV\(I+3\))859 3287 y(END)g(DO)859 +3400 y(CALL)g(sla_DCC2S\(PV,RJ,DJ\))286 3626 y(*)382 +b(Separation)45 b(\(arcsec\))859 3739 y(SEP=sla_DSEP\(RV,DV,RJ,DJ\))286 +3964 y(*)382 b(Keep)47 b(if)g(smallest)e(so)i(far)859 +4077 y(IF)g(\(SEP.LT.SEPMIN\))d(THEN)1002 4190 y(IHMIN=IHOUR)1002 +4303 y(IMMIN=IMIN)1002 4416 y(SEPMIN=SEP)859 4529 y(END)j(IF)716 +4642 y(END)g(DO)573 4755 y(END)g(DO)286 4981 y(*)96 b(Report)573 +5093 y(WRITE)46 b(\(*,'\(1X,I2.2,'':'',I2.2,F)o(6.1)o(\)'\))41 +b(IHMIN,IMMIN,)525 5206 y(:)1813 b(206264.8062D0*SEPMIN)573 +5432 y(END)0 5693 y FA(The)29 b(output)g(pro)s(duced)f(\(the)h +(Ephemeris)f(Time)g(on)i(the)f(da)m(y)h(in)e(question,)h(and)g(the)g +(closest)h(approac)m(h)g(in)p eop +%%Page: 194 196 +194 195 bop 0 52 a FA(194)0 351 y(arcseconds\))31 b(is)f(as)g(follo)m +(ws:)286 618 y Fq(21:19)94 b(33.7)0 884 y FA(F)-8 b(or)22 +b(comparison,)g(accurate)g(predictions)d(based)i(on)g(the)g(JPL)f(DE)c +(102)22 b(ephemeris)d(giv)m(e)j(a)f(separation)g(ab)s(out)0 +997 y(8)40 960 y Fh(0)l(0)118 997 y FA(less)36 b(than)h(the)g(ab)s(o)m +(v)m(e)h(estimate,)i(o)s(ccurring)c(ab)s(out)h(half)f(an)h(hour)f +(earlier)g(\(see)i Fn(Sky)h(and)g(T)-7 b(elesc)i(op)g(e,)0 +1110 y FA(April)28 b(1987,)k(p)15 b(357\).)0 1274 y(The)30 +b(follo)m(wing)f(program)h(demonstrates)h(sla)p Fq(_)p +FA(RDPLAN.)286 1515 y Fq(*)96 b(For)46 b(a)i(given)e(date,)h(time)f +(and)h(geographical)e(location,)g(output)286 1628 y(*)96 +b(a)47 b(table)f(of)i(planetary)d(positions)g(and)i(diameters.)573 +1854 y(IMPLICIT)e(NONE)573 1967 y(CHARACTER)g(PNAMES\(0:9\)*7,B*80,S) +573 2080 y(INTEGER)h(I,NP,IY,J,IM,ID,IHMSF\(4)o(\),I)o(DMSF)o(\(4\))573 +2193 y(DOUBLE)g(PRECISION)f(R2AS,FD,DJM,ELONG,PHI,RA,)o(DEC)o(,DIA)o(M) +573 2306 y(PARAMETER)g(\(R2AS=206264.80625D0\))573 2419 +y(DATA)h(PNAMES)g(/)i('Sun','Mercury','Venus',)o('Moo)o(n',)o('Mar)o +(s',')o(Jup)o(iter)o(',)525 2532 y(:)668 b('Saturn','Uranus','Neptu)o +(ne',)41 b('Pluto')46 b(/)286 2870 y(*)96 b(Loop)46 b(until)h('end')f +(typed)573 2983 y(B=')h(')573 3096 y(DO)g(WHILE)f +(\(B.NE.'END'.AND.B.NE.'end)o('\))286 3322 y(*)239 b(Get)47 +b(date,)f(time)h(and)g(observer's)e(location)716 3435 +y(PRINT)h(*,'Date?)g(\(Y,M,D,)g(Gregorian\)')716 3548 +y(READ)h(\(*,'\(A\)'\))e(B)716 3661 y(IF)i(\(B.NE.'END'.AND.B.NE.'end)o +('\))41 b(THEN)859 3774 y(I=1)859 3886 y(CALL)47 b +(sla_INTIN\(B,I,IY,J\))859 3999 y(CALL)g(sla_INTIN\(B,I,IM,J\))859 +4112 y(CALL)g(sla_INTIN\(B,I,ID,J\))859 4225 y(PRINT)f(*,'Time?)g +(\(H,M,S,)g(dynamical\)')859 4338 y(READ)h(\(*,'\(A\)'\))e(B)859 +4451 y(I=1)859 4564 y(CALL)i(sla_DAFIN\(B,I,FD,J\))859 +4677 y(FD=FD*2.38732414637843003)o(65D)o(0)859 4790 y(CALL)g +(sla_CLDJ\(IY,IM,ID,DJM,J)o(\))859 4903 y(DJM=DJM+FD)859 +5016 y(PRINT)f(*,'Longitude?)f(\(D,M,S,)g(east)i(+ve\)')859 +5128 y(READ)g(\(*,'\(A\)'\))e(B)859 5241 y(I=1)859 5354 +y(CALL)i(sla_DAFIN\(B,I,ELONG,J\))859 5467 y(PRINT)f(*,'Latitude?)f +(\(D,M,S,)h(\(geodetic\)')859 5580 y(READ)h(\(*,'\(A\)'\))e(B)859 +5693 y(I=1)p eop +%%Page: 195 197 +195 196 bop 0 52 a Ft(SUN/67.45)3206 b FA(195)859 351 +y Fq(CALL)47 b(sla_DAFIN\(B,I,PHI,J\))286 577 y(*)382 +b(Loop)47 b(planet)f(by)h(planet)859 690 y(DO)g(NP=0,8)286 +916 y(*)525 b(Get)47 b(RA,Dec)f(and)h(diameter)1002 1029 +y(CALL)g(sla_RDPLAN\(DJM,NP,ELONG,)o(PHI,)o(RA,)o(DEC,)o(DIAM)o(\))286 +1255 y(*)525 b(One)47 b(line)g(of)g(report)1002 1367 +y(CALL)g(sla_DR2TF\(2,RA,S,IHMSF\))1002 1480 y(CALL)g +(sla_DR2AF\(1,DEC,S,IDMSF\))1002 1593 y(WRITE)g(\(*,)525 +1706 y(:)g('\(1X,A,2X,3I3.2,''.'',I2.2)o(,2X,)o(A,I)o(2.2,)o(2I3.)o +(2,')o('.'')o(,I1,)o(F8.)o(1\)'\))525 1819 y(:)1241 b +(PNAMES\(NP\),IHMSF,S,IDMS)o(F,R2)o(AS*)o(DIAM)286 2045 +y(*)525 b(Next)47 b(planet)859 2158 y(END)g(DO)859 2271 +y(PRINT)f(*,')h(')716 2384 y(END)g(IF)286 2609 y(*)239 +b(Next)46 b(case)573 2722 y(END)h(DO)573 2948 y(END)0 +3172 y FA(En)m(tering)30 b(the)g(follo)m(wing)f(data)i(\(for)g(1927)h +(June)d(29)i(at)h(5)2003 3139 y Fr(h)2062 3172 y FA(25)2152 +3139 y Fr(m)2246 3172 y FA(ET)e(and)f(the)i(p)s(osition)d(of)j +(Preston,)f(UK.\):)286 3395 y Fq(1927)47 b(6)g(29)286 +3508 y(5)h(25)286 3621 y(-2)g(42)286 3734 y(53)g(46)0 +3958 y FA(pro)s(duces)29 b(the)i(follo)m(wing)d(rep)s(ort:)286 +4181 y Fq(Sun)334 b(06)47 b(28)g(14.03)94 b(+23)47 b(17)g(17.5)95 +b(1887.8)286 4294 y(Mercury)142 b(08)47 b(08)g(58.62)94 +b(+19)47 b(20)g(57.3)238 b(9.3)286 4407 y(Venus)g(09)47 +b(38)g(53.64)94 b(+15)47 b(35)g(32.9)190 b(22.8)286 4520 +y(Moon)286 b(06)47 b(28)g(18.30)94 b(+23)47 b(18)g(37.3)95 +b(1903.9)286 4633 y(Mars)286 b(09)47 b(06)g(49.34)94 +b(+17)47 b(52)g(26.7)238 b(4.0)286 4746 y(Jupiter)142 +b(00)47 b(11)g(12.06)94 b(-00)47 b(10)g(57.5)190 b(41.1)286 +4859 y(Saturn)g(16)47 b(01)g(43.34)94 b(-18)47 b(36)g(55.9)190 +b(18.2)286 4972 y(Uranus)g(00)47 b(13)g(33.53)94 b(+00)47 +b(39)g(36.0)238 b(3.5)286 5085 y(Neptune)142 b(09)47 +b(49)g(35.75)94 b(+13)47 b(38)g(40.8)238 b(2.2)286 5198 +y(Pluto)g(07)47 b(05)g(29.50)94 b(+21)47 b(25)g(04.2)285 +b(.1)0 5421 y FA(Insp)s(ection)29 b(of)h(the)h(Sun)e(and)h(Mo)s(on)g +(data)h(rev)m(eals)g(that)g(a)g(total)g(solar)f(eclipse)f(is)h(in)f +(progress.)0 5580 y(SLALIB)23 b(also)h(pro)m(vides)e(for)i(the)g(case)g +(where)g(orbital)e(elemen)m(ts)i(\(with)f(resp)s(ect)g(to)i(the)f +(J2000)h(equino)m(x)e(and)0 5693 y(ecliptic\))31 b(are)h(a)m(v)-5 +b(ailable.)45 b(This)30 b(allo)m(ws)h(predictions)f(to)i(b)s(e)g(made)g +(for)f(minor-planets)f(and)h(\(if)h(y)m(ou)g(ignore)p +eop +%%Page: 196 198 +196 197 bop 0 52 a FA(196)0 351 y(non-gra)m(vitational)34 +b(e\013ects\))h(comets.)51 b(F)-8 b(urthermore,)35 b(if)d(ma)5 +b(jor-planet)34 b(elemen)m(ts)g(for)f(an)h(ep)s(o)s(c)m(h)f(close)h(to) +0 464 y(the)g(date)h(in)e(question)g(are)i(a)m(v)-5 b(ailable,)35 +b(more)f(accurate)h(predictions)e(can)h(b)s(e)g(made)g(than)g(are)g +(o\013ered)h(b)m(y)0 577 y(sla)p Fq(_)p FA(RDPLAN)30 +b(and)g(sla)p Fq(_)p FA(PLANET.)0 735 y(The)37 b(SLALIB)f +(planetary-prediction)f(routines)h(that)i(w)m(ork)f(with)f(orbital)g +(elemen)m(ts)h(are)h(sla)p Fq(_)p FA(PLANTE)0 848 y(\(the)h +(orbital-elemen)m(ts)g(equiv)-5 b(alen)m(t)38 b(of)h(sla)p +Fq(_)p FA(RDPLAN\),)g(whic)m(h)f(predicts)f(the)i(top)s(o)s(cen)m(tric) +g([)15 b Fi(\013;)g(\016)21 b FA(],)41 b(and)0 961 y(sla)p +Fq(_)p FA(PLANEL)e(\(the)i(orbital-elemen)m(ts)f(equiv)-5 +b(alen)m(t)40 b(of)g(sla)p Fq(_)p FA(PLANET\),)g(whic)m(h)f(predicts)g +(the)i(helio)s(cen-)0 1074 y(tric)f([)15 b Fi(x;)g(y)s(;)g(z)t(;)32 +b FA(_)-42 b Fi(x)q(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(])40 b(with)f(resp)s(ect)h(to)h(the)f(J2000)h(equino)m +(x)f(and)f(equator.)70 b(In)39 b(addition,)i(the)f(routine)0 +1187 y(sla)p Fq(_)p FA(PV2EL)35 b(do)s(es)h(the)g(in)m(v)m(erse)g(of)g +(sla)p Fq(_)p FA(PLANEL,)f(transforming)g([)15 b Fi(x;)g(y)s(;)g(z)t(;) +32 b FA(_)-42 b Fi(x)q(;)32 b FA(_)-42 b Fi(y)t(;)31 +b FA(_)-41 b Fi(z)19 b FA(])37 b(in)m(to)f Fn(osculating)i(ele-)0 +1300 y(ments.)0 1458 y FA(Osculating)c(elemen)m(ts)i(describ)s(e)e(the) +h(unp)s(erturb)s(ed)d(2-b)s(o)s(dy)j(orbit.)55 b(This)34 +b(is)g(a)i(go)s(o)s(d)f(appro)m(ximation)g(to)0 1571 +y(the)d(actual)h(orbit)e(for)h(a)g(few)g(w)m(eeks)h(either)e(side)g(of) +h(the)h(sp)s(eci\014ed)d(ep)s(o)s(c)m(h,)j(outside)e(whic)m(h)g(p)s +(erturbations)0 1684 y(due)j(to)h(the)g(other)g(b)s(o)s(dies)e(of)i +(the)g(Solar)f(System)g(lead)g(to)i(increasing)d(errors.)53 +b(Giv)m(en)35 b(a)g(minor)e(planet's)0 1797 y(osculating)k(elemen)m(ts) +h(for)g(a)g(particular)e(date,)41 b(predictions)36 b(for)h(a)h(date)h +(ev)m(en)f(just)g(100)h(da)m(ys)f(earlier)e(or)0 1910 +y(later)27 b(are)g(lik)m(ely)e(to)i(b)s(e)f(in)f(error)h(b)m(y)h(sev)m +(eral)g(arcseconds.)40 b(These)26 b(errors)g(can)h(b)s(e)f(reduced)g +(if)f(new)h(elemen)m(ts)0 2023 y(are)g(generated)h(whic)m(h)e(tak)m(e)i +(accoun)m(t)g(of)f(the)g(p)s(erturbations)e(of)i(the)g(ma)5 +b(jor)26 b(planets,)g(and)f(this)g(is)g(what)g(the)0 +2136 y(routine)31 b(sla)p Fq(_)p FA(PER)-8 b(TEL)31 b(do)s(es.)46 +b(Once)32 b(sla)p Fq(_)p FA(PER)-8 b(TEL)31 b(has)h(b)s(een)f(called,)h +(to)h(pro)m(vide)f(osculating)f(elemen)m(ts)0 2249 y(close)h(to)h(the)f +(required)e(date,)j(the)f(elemen)m(ts)g(can)g(b)s(e)g(passed)f(to)h +(sla)p Fq(_)p FA(PLANEL)f(or)h(sla)p Fq(_)p FA(PLANTE)f(in)f(the)0 +2362 y(normal)35 b(w)m(a)m(y)-8 b(.)58 b(Predictions)35 +b(of)h(arcsecond)g(accuracy)h(o)m(v)m(er)g(a)f(span)f(of)h(a)h(decade)f +(or)g(more)g(are)g(a)m(v)-5 b(ailable)0 2474 y(using)29 +b(this)g(tec)m(hnique.)0 2633 y(Three)34 b(di\013eren)m(t)h(com)m +(binations)f(of)h(orbital)e(elemen)m(ts)i(are)g(pro)m(vided)f(for,)i +(matc)m(hing)f(the)g(usual)e(con)m(v)m(en-)0 2746 y(tions)28 +b(for)g(ma)5 b(jor)28 b(planets,)g(minor)f(planets)g(and)h(comets)h +(resp)s(ectiv)m(ely)-8 b(.)40 b(The)28 b(c)m(hoice)h(is)e(made)i +(through)e(the)0 2859 y(argumen)m(t)k Fq(JFORM)p FA(:)p +394 3020 1302 4 v 392 3133 4 113 v 444 3099 a Fq(JFORM=1)p +826 3133 V 97 w(JFORM=2)p 1260 3133 V 98 w(JFORM=3)p +1693 3133 V 394 3137 1302 4 v 394 3153 V 392 3266 4 113 +v 575 3232 a Fi(t)608 3246 y Fr(0)p 826 3266 V 1008 3232 +a Fi(t)1041 3246 y Fr(0)p 1260 3266 V 1445 3232 a Fi(T)p +1693 3266 V 394 3269 1302 4 v 392 3382 4 113 v 595 3348 +a(i)p 826 3382 V 403 w(i)p 1260 3382 V 403 w(i)p 1693 +3382 V 394 3386 1302 4 v 392 3499 4 113 v 578 3465 a +FA(\012)p 826 3499 V 368 w(\012)p 1260 3499 V 367 w(\012)p +1693 3499 V 394 3502 1302 4 v 392 3615 4 113 v 572 3581 +a Fi($)p 826 3615 V 368 w(!)p 1260 3615 V 376 w(!)p 1693 +3615 V 394 3618 1302 4 v 392 3731 4 113 v 587 3697 a(a)p +826 3731 V 385 w(a)p 1260 3731 V 388 w(q)p 1693 3731 +V 394 3734 1302 4 v 392 3847 4 113 v 590 3813 a(e)p 826 +3847 V 391 w(e)p 1260 3847 V 392 w(e)p 1693 3847 V 394 +3851 1302 4 v 392 3963 4 113 v 580 3930 a(L)p 826 3963 +V 353 w(M)p 1260 3963 V 1693 3963 V 394 3967 1302 4 v +392 4080 4 113 v 584 4046 a(n)p 826 4080 V 1260 4080 +V 1693 4080 V 394 4083 1302 4 v 0 4342 a FA(The)f(sym)m(b)s(ols)f(ha)m +(v)m(e)i(the)g(follo)m(wing)e(meanings:)366 4564 y Fi(t)399 +4578 y Fr(0)588 4564 y FA(ep)s(o)s(c)m(h)h(at)i(whic)m(h)d(the)h +(elemen)m(ts)h(w)m(ere)g(correct)366 4677 y Fi(T)169 +b FA(ep)s(o)s(c)m(h)30 b(of)h(p)s(erihelion)c(passage)366 +4790 y Fi(i)191 b FA(inclination)28 b(of)i(the)h(orbit)366 +4903 y(\012)156 b(longitude)29 b(of)i(the)f(ascending)g(no)s(de)366 +5016 y Fi($)147 b FA(longitude)29 b(of)i(p)s(erihelion)c(\()p +Fi($)h FA(=)d(\012)20 b(+)g Fi(!)s FA(\))366 5128 y Fi(!)165 +b FA(argumen)m(t)31 b(of)g(p)s(erihelion)366 5241 y Fi(a)174 +b FA(semi-ma)5 b(jor)30 b(axis)g(of)h(the)f(orbital)f(ellipse)366 +5354 y Fi(q)181 b FA(p)s(erihelion)27 b(distance)366 +5467 y Fi(e)180 b FA(orbital)30 b(eccen)m(tricit)m(y)366 +5580 y Fi(L)160 b FA(mean)31 b(longitude)e(\()p Fi(L)c +FA(=)g Fi($)e FA(+)d Fi(M)10 b FA(\))366 5693 y Fi(M)134 +b FA(mean)31 b(anomaly)p eop +%%Page: 197 199 +197 198 bop 0 52 a Ft(SUN/67.45)3206 b FA(197)366 351 +y Fi(n)167 b FA(mean)31 b(motion)0 722 y(The)g(mean)g(motion,)h +Fi(n)p FA(,)f(tells)g(sla)p Fq(_)p FA(PLANEL)f(the)i(mass)f(of)h(the)f +(planet.)43 b(If)31 b(it)g(is)g(not)g(a)m(v)-5 b(ailable,)32 +b(it)e(should)0 835 y(b)s(e)d(claculated)h(from)g Fi(n)816 +802 y Fr(2)855 835 y Fi(a)903 802 y Fr(3)967 835 y FA(=)d +Fi(k)1113 802 y Fr(2)1153 835 y FA(\(1)16 b(+)f Fi(m)p +FA(\),)29 b(where)f Fi(k)g FA(=)d(0)p Fi(:)p FA(01720209895)34 +b(and)27 b(m)h(is)f(the)h(mass)g(of)g(the)g(planet)0 +948 y(\()p Fi(M)123 962 y Fm(\014)208 948 y FA(=)d(1\);)31 +b Fi(a)g FA(is)e(in)g(A)m(U.)0 1118 y(Con)m(v)m(en)m(tional)38 +b(elemen)m(ts)g(are)g(not)g(the)g(only)e(w)m(a)m(y)j(of)f(sp)s +(ecifying)d(an)j(orbit.)61 b(The)38 b([)15 b Fi(x;)g(y)s(;)g(z)t(;)32 +b FA(_)-42 b Fi(x)q(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(])38 b(state)0 1231 y(v)m(ector)g(is)d(an)h(equally)g(v) +-5 b(alid)34 b(sp)s(eci\014cation,)j(and)f(the)g(so-called)g +Fn(metho)-5 b(d)40 b(of)f(universal)f(variables)45 b +FA(allo)m(ws)0 1344 y(orbital)d(calculations)f(to)j(b)s(e)e(made)h +(directly)-8 b(,)45 b(b)m(ypassing)d(angular)g(quan)m(tities)g(and)g(a) +m(v)m(oiding)h(Kepler's)0 1457 y(Equation.)51 b(The)33 +b(univ)m(ersal-v)-5 b(ariables)31 b(approac)m(h)j(has)g(v)-5 +b(arious)33 b(adv)-5 b(an)m(tages,)37 b(including)30 +b(b)s(etter)k(handling)0 1570 y(of)h(near-parab)s(olic)e(cases)i(and)f +(greater)i(e\016ciency)-8 b(.)54 b(SLALIB)34 b(uses)g(univ)m(ersal)e(v) +-5 b(ariables)34 b(for)g(its)g(in)m(ternal)0 1683 y(calculations)29 +b(and)h(also)h(o\013ers)f(a)h(n)m(um)m(b)s(er)e(of)i(routines)e(whic)m +(h)g(applications)f(can)j(call.)0 1854 y(The)k(univ)m(ersal)f(elemen)m +(ts)h(are)h(the)g([)15 b Fi(x;)g(y)s(;)g(z)t(;)32 b FA(_)-42 +b Fi(x)q(;)32 b FA(_)-42 b Fi(y)t(;)31 b FA(_)-41 b Fi(z)20 +b FA(])35 b(and)g(its)g(ep)s(o)s(c)m(h,)i(plus)c(the)j(mass)f(of)h(the) +f(b)s(o)s(dy)-8 b(.)55 b(The)0 1967 y(SLALIB)38 b(routines)g(supplemen) +m(t)f(these)i(elemen)m(ts)g(with)f(certain)g(redundan)m(t)g(v)-5 +b(alues)38 b(in)f(order)h(to)i(a)m(v)m(oid)0 2080 y(unnecessary)30 +b(recomputation)g(when)f(the)i(elemen)m(ts)g(are)g(next)f(used.)0 +2250 y(The)40 b(routines)f(sla)p Fq(_)p FA(EL2UE)h(and)f(sla)p +Fq(_)p FA(UE2EL)h(transform)g(con)m(v)m(en)m(tional)h(elemen)m(ts)f(in) +m(to)h(the)f(univ)m(ersal)0 2363 y(form)h(and)g Fn(vic)-5 +b(e)43 b(versa.)74 b FA(The)41 b(routine)g(sla)p Fq(_)p +FA(PV2UE)g(tak)m(es)i(an)f([)15 b Fi(x;)g(y)s(;)g(z)t(;)32 +b FA(_)-42 b Fi(x)r(;)31 b FA(_)-41 b Fi(y)s(;)31 b FA(_)-41 +b Fi(z)20 b FA(])41 b(and)g(forms)g(the)h(set)g(of)0 +2476 y(univ)m(ersal)24 b(elemen)m(ts;)k(sla)p Fq(_)p +FA(UE2PV)d(tak)m(es)i(a)f(set)g(of)g(univ)m(ersal)e(elemen)m(ts)i(and)f +(predicts)g(the)h([)15 b Fi(x;)g(y)s(;)g(z)t(;)32 b FA(_)-42 +b Fi(x)q(;)32 b FA(_)-42 b Fi(y)s(;)31 b FA(_)-41 b Fi(z)20 +b FA(])0 2589 y(for)37 b(a)h(sp)s(eci\014ed)d(ep)s(o)s(c)m(h.)62 +b(The)36 b(routine)h(sla)p Fq(_)p FA(PER)-8 b(TUE)36 +b(pro)m(vides)g(up)s(dated)g(univ)m(ersal)g(elemen)m(ts,)k(taking)0 +2702 y(in)m(to)30 b(accoun)m(t)i(p)s(erturbations)c(from)i(the)h(ma)5 +b(jor)30 b(planets.)0 3022 y Fs(4.19)112 b(Radial)37 +b(V)-9 b(elo)s(cit)m(y)34 b(and)39 b(Ligh)m(t-Time)c(Corrections)0 +3256 y FA(When)25 b(publishing)20 b(high-resolution)j(sp)s(ectral)h +(observ)-5 b(ations)25 b(it)f(is)g(necessary)i(to)f(refer)g(them)g(to)h +(a)f(sp)s(eci\014ed)0 3368 y(standard)38 b(of)h(rest.)67 +b(This)37 b(in)m(v)m(olv)m(es)i(kno)m(wing)f(the)h(comp)s(onen)m(t)g +(in)e(the)i(direction)f(of)h(the)g(source)g(of)g(the)0 +3481 y(v)m(elo)s(cit)m(y)44 b(of)g(the)f(observ)m(er.)81 +b(SLALIB)43 b(pro)m(vides)f(a)i(n)m(um)m(b)s(er)f(of)g(routines)g(for)g +(this)f(purp)s(ose,)k(allo)m(wing)0 3594 y(observ)-5 +b(ations)40 b(to)g(b)s(e)g(referred)f(to)i(the)f(Earth's)g(cen)m(tre,)k +(the)c(Sun,)i(a)e(Lo)s(cal)g(Standard)f(of)h(Rest)h(\(either)0 +3707 y(dynamical)29 b(or)h(kinematical\),)f(the)i(cen)m(tre)g(of)f(the) +g(Galaxy)-8 b(,)32 b(and)d(the)h(mean)h(motion)e(of)i(the)f(Lo)s(cal)g +(Group.)0 3878 y(The)j(routine)f(sla)p Fq(_)p FA(R)-10 +b(VER)m(OT)32 b(corrects)i(for)f(the)g(diurnal)d(rotation)j(of)h(the)f +(observ)m(er)g(around)f(the)i(Earth's)0 3991 y(axis.)40 +b(This)29 b(is)g(alw)m(a)m(ys)i(less)f(than)g(0.5)h(km/s.)0 +4162 y(No)k(sp)s(eci\014c)e(routine)g(is)g(pro)m(vided)g(to)i(correct)g +(a)g(radial)d(v)m(elo)s(cit)m(y)j(from)f(geo)s(cen)m(tric)h(to)g(helio) +s(cen)m(tric,)f(but)0 4275 y(this)29 b(can)i(easily)e(b)s(e)h(done)g(b) +m(y)h(calling)d(sla)p Fq(_)p FA(EVP)i(as)h(follo)m(ws)e(\(arra)m(y)i +(declarations)f Fn(etc)p FA(.)h(omitted\):)620 4561 y +Fq(:)286 4674 y(*)96 b(Star)46 b(vector,)g(J2000)573 +4787 y(CALL)g(sla_DCS2C\(RM,DM,V\))286 5013 y(*)96 b(Earth/Sun)45 +b(velocity)g(and)i(position,)f(J2000)573 5126 y(CALL)g +(sla_EVP\(TDB,2000D0,DVB,DPB)o(,DV)o(H,DP)o(H\))286 5351 +y(*)96 b(Radial)46 b(velocity)f(correction)g(due)i(to)g(Earth)g(orbit)f +(\(km/s\))573 5464 y(VCORB)g(=)i(-sla_DVDV\(V,DVH\)*149.59)o(787)o(0D6) +620 5577 y(:)p eop +%%Page: 198 200 +198 199 bop 0 52 a FA(198)0 351 y(The)29 b(maxim)m(um)g(v)-5 +b(alue)29 b(of)h(this)e(correction)i(is)f(the)h(Earth's)f(orbital)g(sp) +s(eed)g(of)g(ab)s(out)h(30)g(km/s.)41 b(A)30 b(related)0 +464 y(routine,)38 b(sla)p Fq(_)p FA(ECOR,)e(computes)h(the)g(ligh)m +(t-time)g(correction)g(with)f(resp)s(ect)h(to)h(the)g(Sun.)59 +b(It)37 b(w)m(ould)f(b)s(e)0 577 y(used)c(when)g(reducing)f(observ)-5 +b(ations)32 b(of)h(a)g(rapid)e(v)-5 b(ariable-star)32 +b(for)g(instance.)47 b(Note,)35 b(ho)m(w)m(ev)m(er,)g(that)e(the)0 +690 y(accuracy)24 b(ob)5 b(jectiv)m(es)25 b(for)e(pulsar)e(w)m(ork)j +(are)f(b)s(ey)m(ond)g(the)g(scop)s(e)h(of)f(these)h(SLALIB)f(routines,) +h(and)e(ev)m(en)i(the)0 803 y(sup)s(erior)e(sla)p Fq(_)p +FA(EVP)i(routine)g(is)g(unsuitable)e(for)i(arriv)-5 b(al-time)23 +b(calculations)h(of)h(b)s(etter)g(than)f(25)i(millisecond)0 +916 y(accuracy)-8 b(.)0 1078 y(T)g(o)31 b(remo)m(v)m(e)i(the)e(in)m +(trinsic)d Fl(\030)e FA(20)32 b(km/s)f(motion)f(of)i(the)f(Sun)e +(relativ)m(e)i(to)h(other)f(stars)g(in)e(the)j(solar)e(neigh-)0 +1191 y(b)s(ourho)s(o)s(d,)g(a)i(v)m(elo)s(cit)m(y)g(correction)g(to)g +(a)g Fn(lo)-5 b(c)g(al)36 b(standar)-5 b(d)37 b(of)d(r)-5 +b(est)41 b FA(\(LSR\))31 b(is)g(required.)43 b(There)31 +b(are)h(opp)s(or-)0 1304 y(tunities)25 b(for)h(mistak)m(es)h(here.)40 +b(There)26 b(are)h(t)m(w)m(o)h(sorts)f(of)f(LSR,)h Fn(dynamic)-5 +b(al)38 b FA(and)26 b Fn(kinematic)-5 b(al)p FA(,)29 +b(and)d(m)m(ultiple)0 1417 y(de\014nitions)e(exist)j(for)g(the)g +(latter.)40 b(The)26 b(dynamical)g(LSR)g(is)g(a)h(p)s(oin)m(t)f(near)h +(the)g(Sun)e(whic)m(h)h(is)g(in)g(a)h(circular)0 1530 +y(orbit)38 b(around)f(the)i(Galactic)g(cen)m(tre;)44 +b(the)39 b(Sun)e(has)h(a)h(\\p)s(eculiar")e(motion)h(relativ)m(e)h(to)g +(the)g(dynamical)0 1643 y(LSR.)i(A)g(kinematical)f(LSR)g(is)g(the)i +(mean)f(standard)f(of)h(rest)h(of)f(sp)s(eci\014ed)e(star)j(catalogues) +g(or)f(stellar)0 1756 y(p)s(opulations,)c(and)g(its)f(precise)h +(de\014nition)e(dep)s(ends)h(on)h(whic)m(h)f(catalogues)j(or)e(p)s +(opulations)e(w)m(ere)j(used)0 1869 y(and)g(ho)m(w)g(the)h(analysis)d +(w)m(as)j(carried)f(out.)64 b(The)38 b(Sun's)f(motion)h(with)f(resp)s +(ect)h(to)h(a)g(kinematical)e(LSR)0 1982 y(is)h(called)g(the)h +(\\standard")g(solar)f(motion.)66 b(Radial)37 b(v)m(elo)s(cit)m(y)i +(corrections)g(to)h(the)f(dynamical)e(LSR)h(are)0 2094 +y(pro)s(duced)d(b)m(y)h(the)h(routine)e(sla)p Fq(_)p +FA(R)-10 b(VLSRD)36 b(and)f(to)j(the)e(adopted)h(kinematical)e(LSR)h(b) +m(y)g(sla)p Fq(_)p FA(R)-10 b(VLSRK.)0 2207 y(See)32 +b(the)f(individual)c(sp)s(eci\014cations)j(for)h(these)h(routines)f +(for)g(the)g(precise)g(de\014nition)e(of)j(the)g(LSR)e(in)g(eac)m(h)0 +2320 y(case.)0 2483 y(F)-8 b(or)28 b(extragalactic)g(sources,)g(the)f +(cen)m(tre)h(of)f(the)g(Galaxy)g(can)g(b)s(e)f(used)g(as)h(a)g +(standard)f(of)h(rest.)40 b(The)26 b(radial)0 2596 y(v)m(elo)s(cit)m(y) +35 b(correction)g(from)g(the)f(dynamical)g(LSR)g(to)h(the)g(Galactic)g +(cen)m(tre)h(can)f(b)s(e)f(obtained)g(b)m(y)h(calling)0 +2709 y(sla)p Fq(_)p FA(R)-10 b(V)m(GALC.)30 b(Its)h(maxim)m(um)e(v)-5 +b(alue)30 b(is)f(220)j(km/s.)0 2871 y(F)-8 b(or)42 b(v)m(ery)f(distan)m +(t)g(sources)g(it)g(is)f(appropriate)g(to)i(w)m(ork)g(relativ)m(e)f(to) +h(the)f(mean)g(motion)g(of)g(the)h(Lo)s(cal)0 2984 y(Group.)d(The)29 +b(routine)e(for)i(computing)e(the)i(radial)e(v)m(elo)s(cit)m(y)j +(correction)f(in)e(this)g(case)j(is)e(sla)p Fq(_)p FA(R)-10 +b(VLG.)28 b(Note)0 3097 y(that)g(in)e(this)h(case)h(the)g(correction)g +(is)f(with)f(resp)s(ect)i(to)g(the)g(dynamical)e(LSR,)h(not)g(the)h +(Galactic)h(cen)m(tre)f(as)0 3210 y(migh)m(t)33 b(b)s(e)f(exp)s(ected.) +49 b(This)32 b(conforms)h(to)g(the)h(IA)m(U)f(de\014nition,)f(and)g +(confers)h(imm)m(unit)m(y)f(from)g(revisions)0 3323 y(of)f(the)f +(Galactic)h(rotation)g(sp)s(eed.)0 3616 y Fs(4.20)112 +b(F)-9 b(o)s(cal-Plane)37 b(Astrometry)0 3837 y FA(The)k(relationship)f +(b)s(et)m(w)m(een)i(the)g(p)s(osition)e(of)i(a)g(star)g(image)g(in)f +(the)h(fo)s(cal)g(plane)e(of)i(a)h(telescop)s(e)f(and)0 +3950 y(the)35 b(star's)g(celestial)g(co)s(ordinates)g(is)f(usually)e +(describ)s(ed)h(in)h(terms)h(of)g(the)g Fn(tangent)j(plane)43 +b FA(or)35 b Fn(gnomonic)0 4063 y FA(pro)5 b(jection.)38 +b(This)23 b(is)g(the)h(pro)5 b(jection)24 b(pro)s(duced)e(b)m(y)j(a)f +(pin-hole)e(camera)j(and)f(is)f(a)i(go)s(o)s(d)f(appro)m(ximation)f(to) +0 4176 y(the)k(pro)5 b(jection)27 b(geometry)i(of)f(a)f(traditional)f +(large)h Fn(f)19 b FA(-ratio)28 b(astrographic)f(refractor.)40 +b(SLALIB)27 b(includes)e(a)0 4289 y(group)31 b(of)h(routines)f(whic)m +(h)f(transform)i(star)g(p)s(ositions)d(b)s(et)m(w)m(een)k(their)e +(observ)m(ed)h(places)f(on)h(the)g(celestial)0 4401 y(sphere)e(and)g +(their)g([)15 b Fi(x;)g(y)k FA(])31 b(co)s(ordinates)f(in)g(the)h +(tangen)m(t)h(plane.)41 b(The)30 b(spherical)f(co)s(ordinate)i(system)g +(do)s(es)0 4514 y(not)c(ha)m(v)m(e)h(to)f(b)s(e)f([)15 +b Fi(\013;)g(\016)21 b FA(])26 b(but)g(usually)f(is.)38 +b(The)26 b(so-called)h Fn(standar)-5 b(d)32 b(c)-5 b(o)g(or)g(dinates) +37 b FA(of)27 b(a)g(star)g(are)g(the)g(tangen)m(t)0 4627 +y(plane)h([)15 b Fi(x;)g(y)k FA(],)30 b(in)e(radians,)g(with)g(resp)s +(ect)h(to)g(an)g(origin)f(at)i(the)f(tangen)m(t)i(p)s(oin)m(t,)d(with)g +(the)i Fi(y)s FA(-axis)e(p)s(oin)m(ting)0 4740 y(north)36 +b(and)h(the)g Fi(x)p FA(-axis)g(p)s(oin)m(ting)e(east)j(\(in)e(the)h +(direction)f(of)h(increasing)f Fi(\013)p FA(\).)61 b(The)37 +b(factor)h(relating)e(the)0 4853 y(standard)k(co)s(ordinates)g(to)i +(the)f(actual)g([)15 b Fi(x;)g(y)k FA(])40 b(co)s(ordinates)h(in,)h(sa) +m(y)-8 b(,)45 b(millimetres)38 b(is)h(simply)g(the)i(fo)s(cal)0 +4966 y(length)30 b(of)g(the)h(telescop)s(e.)0 5128 y(Giv)m(en)e(the)g +([)15 b Fi(\013;)g(\016)20 b FA(])30 b(of)f(the)g Fn(plate)k(c)-5 +b(entr)g(e)36 b FA(\(the)30 b(tangen)m(t)g(p)s(oin)m(t\))f(and)f(the)h +([)15 b Fi(\013;)g(\016)21 b FA(])29 b(of)g(a)h(star)f(within)d(the)k +(\014eld,)0 5241 y(the)23 b(standard)f(co)s(ordinates)h(can)g(b)s(e)f +(determined)g(b)m(y)h(calling)e(sla)p Fq(_)p FA(S2TP)h(\(single)g +(precision\))f(or)i(sla)p Fq(_)p FA(DS2TP)0 5354 y(\(double)31 +b(precision\).)46 b(The)32 b(rev)m(erse)h(transformation,)g(where)f +(the)g([)15 b Fi(x;)g(y)k FA(])33 b(is)e(kno)m(wn)h(and)g(w)m(e)h(wish) +e(to)i(\014nd)0 5467 y(the)38 b([)15 b Fi(\013;)g(\016)21 +b FA(],)40 b(is)d(carried)h(out)g(b)m(y)g(calling)f(sla)p +Fq(_)p FA(TP2S)f(or)j(sla)p Fq(_)p FA(DTP2S.)e(Occasionally)g(w)m(e)i +(kno)m(w)f(the)g(b)s(oth)0 5580 y(the)33 b([)15 b Fi(x;)g(y)j +FA(])33 b(and)f(the)h([)15 b Fi(\013;)g(\016)20 b FA(])33 +b(of)g(a)f(star)h(and)f(need)g(to)i(deduce)e(the)h([)15 +b Fi(\013;)g(\016)20 b FA(])33 b(of)f(the)h(tangen)m(t)h(p)s(oin)m(t;)f +(this)e(can)0 5693 y(b)s(e)g(done)h(b)m(y)g(calling)e(sla)p +Fq(_)p FA(TPS2C)h(or)h(sla)p Fq(_)p FA(DTPS2C.)f(\(All)g(of)h(these)g +(transformations)f(apply)g(not)h(just)g(to)p eop +%%Page: 199 201 +199 200 bop 0 52 a Ft(SUN/67.45)3206 b FA(199)0 351 y([)15 +b Fi(\013;)g(\016)20 b FA(])38 b(but)e(to)i(other)g(spherical)d(co)s +(ordinate)i(systems,)i(of)f(course.\))62 b(Equiv)-5 b(alen)m(t)36 +b(\(and)h(faster\))h(routines)0 464 y(are)h(pro)m(vided)e(whic)m(h)h(w) +m(ork)h(directly)e(in)h([)15 b Fi(x;)g(y)s(;)g(z)20 b +FA(])39 b(instead)f(of)h(spherical)e(co)s(ordinates:)57 +b(sla)p Fq(_)p FA(V2TP)38 b(and)0 577 y(sla)p Fq(_)p +FA(D)m(V2TP)-8 b(,)31 b(sla)p Fq(_)p FA(TP2V)f(and)g(sla)p +Fq(_)p FA(DTP2V,)g(sla)p Fq(_)p FA(TPV2C)g(and)g(sla)p +Fq(_)p FA(DTPV2C.)0 747 y(Ev)m(en)42 b(at)h(the)f(b)s(est)f(of)h +(times,)j(the)d(tangen)m(t)h(plane)e(pro)5 b(jection)42 +b(is)f(merely)g(an)h(appro)m(ximation.)74 b(Some)0 860 +y(telescop)s(es)40 b(and)e(cameras)i(exhibit)d(considerable)h +(pincushion)e(or)j(barrel)f(distortion)g(and)g(some)i(ha)m(v)m(e)g(a)0 +973 y(curv)m(ed)h(fo)s(cal)g(surface.)72 b(F)-8 b(or)42 +b(example,)i(neither)c(Sc)m(hmidt)f(cameras)j(nor)f(\(esp)s(ecially\))f +(large)h(re\015ecting)0 1086 y(telescop)s(es)32 b(with)f(wide-\014eld)f +(corrector)j(lenses)e(are)i(adequately)f(mo)s(delled)e(b)m(y)i(tangen)m +(t-plane)g(geometry)-8 b(.)0 1199 y(In)38 b(suc)m(h)h(cases,)k(ho)m(w)m +(ev)m(er,)g(it)c(is)f(still)f(p)s(ossible)g(to)j(do)f(most)g(of)h(the)f +(w)m(ork)g(using)f(the)i(\(mathematically)0 1312 y(con)m(v)m(enien)m +(t\))f(tangen)m(t-plane)g(pro)5 b(jection)37 b(b)m(y)g(inserting)f(an)i +(extra)g(step)g(whic)m(h)e(applies)g(or)h(remo)m(v)m(es)i(the)0 +1425 y(distortion)32 b(p)s(eculiar)f(to)k(the)e(system)h(concerned.)50 +b(A)34 b(simple)e Fi(r)2245 1439 y Fr(1)2314 1425 y FA(=)f +Fi(r)2457 1439 y Fr(0)2496 1425 y FA(\(1)23 b(+)f Fi(K)7 +b(r)2820 1392 y Fr(2)2817 1448 y(0)2859 1425 y FA(\))34 +b(la)m(w)f(w)m(orks)h(w)m(ell)e(in)g(the)0 1538 y(ma)5 +b(jorit)m(y)34 b(of)g(cases;)j Fi(r)782 1552 y Fr(0)856 +1538 y FA(is)c(the)h(radial)e(distance)i(in)e(the)j(tangen)m(t)g +(plane,)f Fi(r)2647 1552 y Fr(1)2721 1538 y FA(is)f(the)h(radial)e +(distance)i(after)0 1651 y(adding)23 b(the)i(distortion,)g(and)e +Fi(K)32 b FA(is)23 b(a)i(constan)m(t)h(whic)m(h)e(dep)s(ends)e(on)j +(the)g(telescop)s(e)g(\()p Fi(\022)i FA(is)c(una\013ected\).)40 +b(The)0 1764 y(routine)33 b(sla)p Fq(_)p FA(PCD)h(applies)e(the)j +(distortion)e(to)i(an)f([)15 b Fi(x;)g(y)k FA(])34 b(and)g(sla)p +Fq(_)p FA(UNPCD)g(remo)m(v)m(es)h(it.)52 b(F)-8 b(or)36 +b([)15 b Fi(x;)g(y)j FA(])35 b(in)0 1876 y(radians,)25 +b Fi(K)32 b FA(v)-5 b(alues)25 b(range)h(from)f Fl(\000)p +FA(1)p Fi(=)p FA(3)h(for)g(the)f(tin)m(y)g(amoun)m(t)h(of)g(barrel)e +(distortion)g(in)g(Sc)m(hmidt)g(geometry)0 1989 y(to)29 +b(sev)m(eral)f(h)m(undred)e(for)i(the)g(serious)f(pincushion)d +(distortion)j(pro)s(duced)f(b)m(y)i(wide-\014eld)e(correctors)j(in)d +(big)0 2102 y(re\015ecting)k(telescop)s(es)h(\(the)g(AA)-8 +b(T)31 b(prime)d(fo)s(cus)i(triplet)f(corrector)j(is)d(ab)s(out)h +Fi(K)i FA(=)25 b(+178)p Fi(:)p FA(6\).)0 2273 y(SLALIB)e(includes)f(a)i +(group)g(of)g(routines)f(whic)m(h)g(can)h(b)s(e)f(put)h(together)h(to)g +(build)c(a)j(simple)e(plate-reduction)0 2386 y(program.)48 +b(The)32 b(heart)h(of)g(the)g(group)f(is)f(sla)p Fq(_)p +FA(FITXY,)i(whic)m(h)e(\014ts)i(a)g(linear)e(mo)s(del)h(to)h(relate)g +(t)m(w)m(o)h(sets)f(of)0 2498 y([)15 b Fi(x;)g(y)k FA(])37 +b(co)s(ordinates,)h(in)d(the)i(case)h(of)f(a)g(plate)f(reduction)g(the) +h(measured)f(p)s(ositions)f(of)i(the)f(images)h(of)g(a)0 +2611 y(set)32 b(of)f(reference)g(stars)g(and)f(the)i(standard)e(co)s +(ordinates)g(deriv)m(ed)g(from)h(their)f(catalogue)j(p)s(ositions.)40 +b(The)0 2724 y(mo)s(del)29 b(is)h(of)g(the)h(form:)1494 +2849 y Fi(x)1546 2863 y Fc(p)1611 2849 y FA(=)25 b Fi(a)20 +b FA(+)g Fi(bx)1957 2863 y Fc(m)2044 2849 y FA(+)g Fi(cy)2219 +2863 y Fc(m)1489 3040 y Fi(y)1534 3054 y Fc(p)1599 3040 +y FA(=)25 b Fi(d)20 b FA(+)g Fi(ex)1947 3054 y Fc(m)2034 +3040 y FA(+)g Fi(f)10 b(y)2225 3054 y Fc(m)0 3278 y FA(where)26 +b(the)g Fn(p)33 b FA(subscript)24 b(indicates)h(\\predicted")h(co)s +(ordinates)g(\(the)h(mo)s(del's)e(appro)m(ximation)g(to)i(the)g(ideal)0 +3391 y(\\exp)s(ected")32 b(co)s(ordinates\))e(and)g(the)h +Fn(m)38 b FA(subscript)28 b(indicates)h(\\measured)i(co)s(ordinates".) +41 b(The)30 b(six)g(co)s(e\016-)0 3504 y(cien)m(ts)f +Fn(a{f)48 b FA(can)29 b(optionally)e(b)s(e)h(constrained)g(to)h +(represen)m(t)g(a)g(\\solid)e(b)s(o)s(dy)g(rotation")j(free)f(of)f(an)m +(y)h(squash)0 3616 y(or)42 b(shear)g(distortions.)74 +b(Without)42 b(this)f(constrain)m(t)h(the)g(mo)s(del)f(can,)46 +b(to)c(some)h(exten)m(t,)k(accommo)s(date)0 3729 y(e\013ects)28 +b(lik)m(e)e(refraction,)i(allo)m(wing)d(mean)i(places)g(to)h(b)s(e)e +(used)g(directly)f(and)i(a)m(v)m(oiding)f(the)h(extra)h(complica-)0 +3842 y(tions)g(of)g(a)g(full)e(mean-apparen)m(t-observ)m(ed)k +(transformation)d(for)h(eac)m(h)h(star.)41 b(Ha)m(ving)28 +b(obtained)g(the)g(linear)0 3955 y(mo)s(del,)c(sla)p +Fq(_)p FA(PXY)g(can)g(b)s(e)g(used)f(to)i(pro)s(cess)e(the)i(set)f(of)h +(measured)e(and)h(exp)s(ected)g(co)s(ordinates,)h(giving)e(the)0 +4068 y(predicted)29 b(co)s(ordinates)i(and)f(determining)e(the)j(RMS)g +(residuals)d(in)h Fn(x)42 b FA(and)30 b Fn(y)p FA(.)41 +b(The)30 b(routine)g(sla)p Fq(_)p FA(XY2XY)0 4181 y(transforms)i(one)h +([)15 b Fi(x;)g(y)k FA(])33 b(in)m(to)g(another)g(using)f(the)h(linear) +e(mo)s(del.)47 b(A)33 b(mo)s(del)f(can)h(b)s(e)f(in)m(v)m(erted)h(b)m +(y)g(calling)0 4294 y(sla)p Fq(_)p FA(INVF,)27 b(and)f(decomp)s(osed)h +(in)m(to)g(zero)g(p)s(oin)m(ts,)g(scales,)h Fi(x=y)i +FA(nonp)s(erp)s(endicularit)m(y)22 b(and)27 b(orien)m(tation)g(b)m(y)0 +4407 y(calling)i(sla)p Fq(_)p FA(DCMPF.)0 4726 y Fs(4.21)112 +b(Numerical)35 b(Metho)s(ds)0 4958 y FA(SLALIB)27 b(con)m(tains)i(a)f +(small)f(n)m(um)m(b)s(er)f(of)j(simple,)d(general-purp)s(ose)h(n)m +(umerical-metho)s(ds)f(routines.)39 b(They)0 5071 y(ha)m(v)m(e)30 +b(no)f(sp)s(eci\014c)e(connection)i(with)e(p)s(ositional)g(astronom)m +(y)i(but)f(ha)m(v)m(e)i(pro)m(v)m(ed)f(useful)e(in)h(applications)f(to) +0 5184 y(do)j(with)f(sim)m(ulation)g(and)h(\014tting.)0 +5354 y(A)m(t)g(the)g(heart)f(of)g(man)m(y)h(sim)m(ulation)d(programs)i +(is)f(the)h(generation)h(of)f(pseudo-random)f(n)m(um)m(b)s(ers,)h(ev)m +(enly)0 5467 y(distributed)39 b(in)i(a)i(giv)m(en)f(range:)64 +b(sla)p Fq(_)p FA(RANDOM)43 b(do)s(es)e(this.)76 b(Pseudo-random)41 +b(normal)g(deviates,)k(or)0 5580 y(\\Gaussian)26 b(residuals",)g(are)h +(often)g(required)d(to)k(sim)m(ulate)d(noise)h(and)g(can)h(b)s(e)f +(generated)i(b)m(y)e(means)h(of)f(the)0 5693 y(function)35 +b(sla)p Fq(_)p FA(GRESID.)h(Neither)h(routine)f(will)e(pass)i(sup)s +(er-sophisticated)e(statistical)j(tests,)i(but)d(they)p +eop +%%Page: 200 202 +200 201 bop 0 52 a FA(200)0 351 y(w)m(ork)38 b(adequately)g(for)g(most) +g(practical)g(purp)s(oses)e(and)i(a)m(v)m(oid)g(the)g(need)g(to)h(call) +e(non-standard)g(library)0 464 y(routines)29 b(p)s(eculiar)f(to)k(one)e +(sort)h(of)f(computer.)0 628 y(Applications)39 b(whic)m(h)g(p)s(erform) +h(a)h(least-squares)g(\014t)g(using)f(a)h(traditional)e +(normal-equations)h(metho)s(ds)0 741 y(can)c(accomplish)e(the)i +(required)d(matrix-in)m(v)m(ersion)h(b)m(y)h(calling)f(either)h(sla)p +Fq(_)p FA(SMA)-8 b(T)35 b(\(single)f(precision\))g(or)0 +854 y(sla)p Fq(_)p FA(DMA)-8 b(T)27 b(\(double\).)38 +b(A)27 b(generally)f(b)s(etter)g(w)m(a)m(y)h(to)h(p)s(erform)d(suc)m(h) +h(\014ts)g(is)f(to)i(use)g(singular)d(v)-5 b(alue)26 +b(decom-)0 967 y(p)s(osition.)38 b(SLALIB)29 b(pro)m(vides)f(a)i +(routine)e(to)i(do)f(the)g(decomp)s(osition)f(itself,)h(sla)p +Fq(_)p FA(SVD,)f(and)h(t)m(w)m(o)i(routines)0 1080 y(to)g(use)f(the)h +(results:)40 b(sla)p Fq(_)p FA(SVDSOL)28 b(generates)k(the)f(solution,) +e(and)h(sla)p Fq(_)p FA(SVDCO)m(V)g(pro)s(duces)f(the)i(co)m(v)-5 +b(ari-)0 1192 y(ance)29 b(matrix.)39 b(A)28 b(simple)e(demonstration)h +(of)h(the)g(use)f(of)h(the)h(SLALIB)e(SVD)h(routines)e(is)h(giv)m(en)h +(b)s(elo)m(w.)39 b(It)0 1305 y(generates)29 b(500)g(sim)m(ulated)e +(data)h(p)s(oin)m(ts)f(and)g(\014ts)g(them)h(to)g(a)h(mo)s(del)d(whic)m +(h)h(has)g(4)h(unkno)m(wn)e(co)s(e\016cien)m(ts.)0 1418 +y(\(The)h(arra)m(ys)h(in)e(the)h(example)g(are)g(sized)g(to)h(accept)h +(up)d(to)i(1000)h(p)s(oin)m(ts)d(and)g(20)j(unkno)m(wns.\))38 +b(The)27 b(mo)s(del)0 1531 y(is:)1225 1646 y Fi(y)h FA(=)d +Fi(C)1459 1660 y Fr(1)1518 1646 y FA(+)20 b Fi(C)1674 +1660 y Fr(2)1714 1646 y Fi(x)g FA(+)g Fi(C)1942 1660 +y Fr(3)1981 1646 y Fi(sinx)g FA(+)g Fi(C)2338 1660 y +Fr(4)2377 1646 y Fi(cosx)0 1814 y FA(The)31 b(test)i(v)-5 +b(alues)31 b(for)h(the)g(four)f(co)s(e\016cien)m(ts)i(are)f +Fi(C)1809 1828 y Fr(1)1861 1814 y FA(=)13 b(+50)p Fi(:)p +FA(0,)33 b Fi(C)2299 1828 y Fr(2)2351 1814 y FA(=)13 +b Fl(\000)p FA(2)p Fi(:)p FA(0,)33 b Fi(C)2744 1828 y +Fr(3)2796 1814 y FA(=)13 b Fl(\000)p FA(10)p Fi(:)p FA(0)32 +b(and)g Fi(C)3387 1828 y Fr(4)3439 1814 y FA(=)13 b(+25)p +Fi(:)p FA(0.)0 1927 y(Gaussian)30 b(noise,)g Fi(\033)e +FA(=)d(5)p Fi(:)p FA(0,)32 b(is)d(added)h(to)h(eac)m(h)g(\\observ)-5 +b(ation".)573 2193 y Fq(IMPLICIT)45 b(NONE)286 2419 y(*)96 +b(Sizes)46 b(of)h(arrays,)f(physical)f(and)i(logical)573 +2532 y(INTEGER)f(MP,NP,NC,M,N)573 2644 y(PARAMETER)f +(\(MP=1000,NP=10,NC=20,M=5)o(00,N)o(=4\))286 2870 y(*)96 +b(The)46 b(unknowns)g(we)h(are)g(going)f(to)i(solve)e(for)573 +2983 y(DOUBLE)g(PRECISION)f(C1,C2,C3,C4)573 3096 y(PARAMETER)g +(\(C1=50D0,C2=-2D0,C3=-10D)o(0,C4)o(=25D)o(0\))286 3322 +y(*)96 b(Arrays)573 3435 y(DOUBLE)46 b(PRECISION)f +(A\(MP,NP\),W\(NP\),V\(NP,NP\),)525 3548 y(:)811 b +(WORK\(NP\),B\(MP\),X\(NP\),CVM\()o(NC,)o(NC\))573 3774 +y(DOUBLE)46 b(PRECISION)f(VAL,BF1,BF2,BF3,BF4,SD2,D)o(,VA)o(R)573 +3886 y(REAL)h(sla_GRESID)573 3999 y(INTEGER)g(I,J)286 +4225 y(*)96 b(Fill)46 b(the)h(design)f(matrix)573 4338 +y(DO)h(I=1,M)286 4564 y(*)239 b(Dummy)46 b(independent)f(variable)716 +4677 y(VAL=DBLE\(I\)/10D0)286 4903 y(*)239 b(The)47 b(basis)f +(functions)716 5016 y(BF1=1D0)716 5128 y(BF2=VAL)716 +5241 y(BF3=SIN\(VAL\))716 5354 y(BF4=COS\(VAL\))286 5580 +y(*)239 b(The)47 b(observed)e(value,)h(including)g(deliberate)f +(Gaussian)g(noise)716 5693 y(B\(I\)=C1*BF1+C2*BF2+C3*BF)o(3+C4)o(*BF)o +(4+DB)o(LE\(s)o(la_)o(GRES)o(ID\(5)o(.0\))o(\))p eop +%%Page: 201 203 +201 202 bop 0 52 a Ft(SUN/67.45)3206 b FA(201)286 464 +y Fq(*)239 b(Fill)46 b(one)h(row)g(of)g(the)g(design)f(matrix)716 +577 y(A\(I,1\)=BF1)716 690 y(A\(I,2\)=BF2)716 803 y(A\(I,3\)=BF3)716 +916 y(A\(I,4\)=BF4)573 1029 y(END)h(DO)286 1255 y(*)96 +b(Factorize)45 b(the)i(design)f(matrix,)g(solve)g(and)h(generate)e +(covariance)g(matrix)573 1367 y(CALL)h(sla_SVD\(M,N,MP,NP,A,W,V,WO)o +(RK,)o(J\))573 1480 y(CALL)g(sla_SVDSOL\(M,N,MP,NP,B,A,W)o(,V,)o(WORK)o +(,X\))573 1593 y(CALL)g(sla_SVDCOV\(N,NP,NC,W,V,WOR)o(K,C)o(VM\))286 +1819 y(*)96 b(Compute)45 b(the)i(variance)573 1932 y(SD2=0D0)573 +2045 y(DO)g(I=1,M)716 2158 y(VAL=DBLE\(I\)/10D0)716 2271 +y(BF1=1D0)716 2384 y(BF2=VAL)716 2497 y(BF3=SIN\(VAL\))716 +2609 y(BF4=COS\(VAL\))716 2722 y(D=B\(I\)-\(X\(1\)*BF1+X\(2\)*BF)o +(2+X\()o(3\)*)o(BF3+)o(X\(4\))o(*BF)o(4\))716 2835 y(SD2=SD2+D*D)573 +2948 y(END)g(DO)573 3061 y(VAR=SD2/DBLE\(M\))286 3287 +y(*)96 b(Report)46 b(the)h(RMS)f(and)h(the)g(solution)573 +3400 y(WRITE)f(\(*,'\(1X,''RMS)e(='',F5.2/\)'\))h(SQRT\(VAR\))573 +3513 y(DO)i(I=1,N)716 3626 y(WRITE)f(\(*,'\(1X,''C'',I1,'')d +(='',F7.3,'')i(+/-'',F6.3\)'\))525 3739 y(:)1957 b +(I,X\(I\),SQRT\(VAR*CVM\(I,I)o(\)\))573 3851 y(END)47 +b(DO)573 3964 y(END)0 4239 y FA(The)30 b(program)g(pro)s(duces)f(the)i +(follo)m(wing)d(output:)573 4515 y Fq(RMS)47 b(=)g(4.88)573 +4740 y(C1)g(=)g(50.192)f(+/-)h(0.439)573 4853 y(C2)g(=)g(-2.002)f(+/-)h +(0.015)573 4966 y(C3)g(=)g(-9.771)f(+/-)h(0.310)573 5079 +y(C4)g(=)g(25.275)f(+/-)h(0.310)0 5354 y FA(In)29 b(this)g(ab)s(o)m(v)m +(e)i(example,)f(essen)m(tially)f(iden)m(tical)f(results)h(w)m(ould)g(b) +s(e)g(obtained)g(if)g(the)h(more)g(commonplace)0 5467 +y(normal-equations)e(metho)s(d)g(had)g(b)s(een)g(used,)g(and)h(the)f +(large)h(1000)19 b Fl(\002)d FA(20)30 b(arra)m(y)f(w)m(ould)f(ha)m(v)m +(e)i(b)s(een)e(a)m(v)m(oid-)0 5580 y(ed.)57 b(Ho)m(w)m(ev)m(er,)40 +b(the)c(SVD)g(metho)s(d)g(comes)g(in)m(to)g(its)g(o)m(wn)g(when)f(the)h +(opp)s(ortunit)m(y)e(is)h(tak)m(en)i(to)g(edit)e(the)0 +5693 y(W-matrix)41 b(\(the)g(so-called)g(\\singular)e(v)-5 +b(alues"\))41 b(in)f(order)g(to)i(con)m(trol)f(p)s(ossible)e +(ill-conditioning.)68 b(The)p eop +%%Page: 202 204 +202 203 bop 0 52 a FA(202)0 351 y(pro)s(cedure)34 b(in)m(v)m(olv)m(es)i +(replacing)e(with)g(zero)s(es)i(an)m(y)g(W-elemen)m(ts)g(smaller)e +(than)h(a)h(nominated)e(v)-5 b(alue,)37 b(for)0 464 y(example)32 +b(0.001)j(times)d(the)g(largest)h(W-elemen)m(t.)48 b(Small)31 +b(W-elemen)m(ts)i(indicate)f(ill-conditioning,)d(whic)m(h)0 +577 y(in)f(the)h(case)h(of)f(the)h(normal-equations)e(metho)s(d)g(w)m +(ould)g(pro)s(duce)g(spurious)f(large)i(co)s(e\016cien)m(t)h(v)-5 +b(alues)28 b(and)0 690 y(p)s(ossible)23 b(arithmetic)i(o)m(v)m(er\015o) +m(ws.)41 b(Using)24 b(SVD,)i(the)g(e\013ect)h(on)f(the)g(solution)e(of) +i(setting)g(suspiciously)c(small)0 803 y(W-elemen)m(ts)31 +b(to)g(zero)g(is)e(to)i(restrain)e(the)h(o\013ending)f(co)s(e\016cien)m +(ts)i(from)f(mo)m(ving)f(v)m(ery)i(far.)40 b(The)30 b(fact)h(that)0 +916 y(action)i(w)m(as)g(tak)m(en)h(can)f(b)s(e)f(rep)s(orted)g(to)i +(sho)m(w)f(the)f(program)h(user)f(that)h(something)g(is)e(amiss.)47 +b(F)-8 b(urther-)0 1029 y(more,)32 b(if)e(elemen)m(t)i(W\(J\))g(w)m(as) +f(set)h(to)g(zero,)h(the)e(ro)m(w)g(n)m(um)m(b)s(ers)f(of)i(the)f(t)m +(w)m(o)i(biggest)e(elemen)m(ts)h(in)e(the)h(Jth)0 1142 +y(column)e(of)i(the)f(V-matrix)g(iden)m(tify)f(the)i(pair)e(of)i +(solution)d(co)s(e\016cien)m(ts)k(that)f(are)f(dep)s(enden)m(t.)0 +3191 y(A)f(more)g(detailed)f(description)f(of)i(SVD)g(and)f(its)g(use)h +(in)e(least-squares)i(problems)f(w)m(ould)f(b)s(e)h(out)h(of)h(place)0 +3304 y(here,)40 b(and)d(the)g(reader)h(is)e(urged)h(to)i(refer)e(to)i +(the)e(relev)-5 b(an)m(t)38 b(sections)g(of)g(the)f(b)s(o)s(ok)g +Fn(Numeric)-5 b(al)40 b(R)-5 b(e)g(cip)g(es)0 3417 y +FA(\(Press)30 b Fn(et)j(al.)p FA(,)e(Cam)m(bridge)e(Univ)m(ersit)m(y)h +(Press,)g(1987\).)0 5467 y(The)21 b(routines)g(sla)p +Fq(_)p FA(COMBN)h(and)f(sla)p Fq(_)p FA(PERMUT)g(are)h(useful)f(for)g +(problems)f(whic)m(h)h(in)m(v)m(olv)m(e)h(com)m(binations)0 +5580 y(\(di\013eren)m(t)35 b(subsets\))f(and)g(p)s(erm)m(utations)g +(\(di\013eren)m(t)h(orders\).)53 b(Both)36 b(return)d(the)i(next)g(in)f +(a)h(sequence)g(of)0 5693 y(results,)29 b(cycling)h(through)g(all)f +(the)h(p)s(ossible)e(results)i(as)g(the)h(routine)e(is)h(called)f(rep)s +(eatedly)-8 b(.)p eop +%%Page: 203 205 +203 204 bop 0 52 a Ft(SUN/67.45)3206 b FA(203)0 351 y +Fu(5)135 b(SUMMAR)-11 b(Y)43 b(OF)h(CALLS)0 604 y FA(The)20 +b(basic)g(trigonometrical)g(and)h(n)m(umerical)e(facilities)g(are)i +(supplied)c(in)j(b)s(oth)g(single)f(and)h(double)f(precision)0 +717 y(v)m(ersions.)46 b(Most)34 b(of)e(the)h(more)f(esoteric)i(p)s +(osition)c(and)i(time)g(routines)f(use)i(double)e(precision)f(argumen)m +(ts)0 829 y(only)-8 b(,)45 b(ev)m(en)f(in)d(cases)i(where)f(single)f +(precision)g(w)m(ould)g(normally)g(b)s(e)h(adequate)i(in)d(practice.)77 +b(Certain)0 942 y(routines)32 b(with)h(mo)s(dest)g(accuracy)i(ob)5 +b(jectiv)m(es)34 b(are)g(supplied)c(in)i(single)g(precision)g(v)m +(ersions)h(only)-8 b(.)49 b(In)33 b(the)0 1055 y(calling)38 +b(sequences)h(whic)m(h)f(follo)m(w,)i(no)f(attempt)h(has)f(b)s(een)g +(made)g(to)g(distinguish)d(b)s(et)m(w)m(een)j(single)f(and)0 +1168 y(double)30 b(precision)f(argumen)m(t)j(names,)g(and)e(frequen)m +(tly)h(the)g(same)h(name)g(is)e(used)g(on)i(di\013eren)m(t)e(o)s +(ccasions)0 1281 y(to)39 b(mean)f(di\013eren)m(t)g(things.)63 +b(Ho)m(w)m(ev)m(er,)42 b(none)c(of)g(the)h(routines)e(uses)h(a)g +(mixture)f(of)h(single)f(and)h(double)0 1394 y(precision)29 +b(argumen)m(ts;)h(eac)m(h)i(routine)d(is)h(either)g(wholly)e(single)h +(precision)g(or)h(wholly)e(double)h(precision.)0 1556 +y(In)h(the)i(classi\014ed)d(list,)i(b)s(elo)m(w,)f Fn(subr)-5 +b(outine)39 b FA(subprograms)30 b(are)h(those)h(whose)f(names)g(and)f +(argumen)m(t)i(lists)0 1669 y(are)39 b(preceded)g(b)m(y)f(`CALL',)h +(whereas)g Fn(function)46 b FA(subprograms)37 b(are)j(those)f(b)s +(eginning)d(`R=')j(\(when)f(the)0 1782 y(result)29 b(is)h(REAL\))g(or)h +(`D=')f(\(when)g(the)h(result)e(is)g(DOUBLE)i(PRECISION\).)0 +1944 y(The)e(list)f(is,)i(of)f(course,)i(merely)e(for)g(quic)m(k)g +(reference;)i(inexp)s(erienced)c(users)i Fy(m)m(ust)g +FA(refer)g(to)i(the)e(detailed)0 2057 y(sp)s(eci\014cations)34 +b(giv)m(en)h(later.)55 b(In)34 b(particular,)h Fy(don't)40 +b(guess)c FA(whether)e(argumen)m(ts)i(are)f(single)f(or)h(double)0 +2170 y(precision;)29 b(the)i(result)e(could)h(b)s(e)g(a)h(program)f +(that)h(happ)s(ens)e(to)i(w)m(orks)g(on)f(one)h(sort)f(of)h(mac)m(hine) +f(but)g(not)0 2283 y(on)g(another.)0 2544 y Fs(String)36 +b(Deco)s(ding)236 2780 y FA(CALL)30 b(sla)p Fq(_)p FA(INTIN)f +(\(STRING,)i(NSTR)-8 b(T,)30 b(IRESL)-8 b(T,)29 b(JFLA)m(G\))472 +2893 y(Con)m(v)m(ert)j(free-format)f(string)e(in)m(to)i(in)m(teger)236 +3068 y(CALL)f(sla)p Fq(_)p FA(FLOTIN)f(\(STRING,)h(NSTR)-8 +b(T,)30 b(RESL)-8 b(T,)30 b(JFLA)m(G\))236 3181 y(CALL)g(sla)p +Fq(_)p FA(DFL)-8 b(TIN)30 b(\(STRING,)h(NSTR)-8 b(T,)30 +b(DRESL)-8 b(T,)30 b(JFLA)m(G\))472 3294 y(Con)m(v)m(ert)i(free-format) +f(string)e(in)m(to)i(\015oating-p)s(oin)m(t)e(n)m(um)m(b)s(er)236 +3469 y(CALL)h(sla)p Fq(_)p FA(AFIN)g(\(STRING,)g(NSTR)-8 +b(T,)30 b(RESL)-8 b(T,)30 b(JFLA)m(G\))236 3582 y(CALL)g(sla)p +Fq(_)p FA(D)m(AFIN)h(\(STRING,)f(NSTR)-8 b(T,)30 b(DRESL)-8 +b(T,)30 b(JFLA)m(G\))472 3694 y(Con)m(v)m(ert)i(free-format)f(string)e +(from)h(deg,arcmin,arcsec)h(to)g(radians)0 4029 y Fs(Sexagesimal)37 +b(Con)m(v)m(ersions)236 4265 y FA(CALL)30 b(sla)p Fq(_)p +FA(CTF2D)g(\(IHOUR,)h(IMIN,)g(SEC,)e(D)m(A)-8 b(YS,)32 +b(J\))236 4378 y(CALL)e(sla)p Fq(_)p FA(DTF2D)h(\(IHOUR,)g(IMIN,)f +(SEC,)g(D)m(A)-8 b(YS,)32 b(J\))472 4491 y(Hours,)f(min)m(utes,)e +(seconds)i(to)g(da)m(ys)236 4666 y(CALL)f(sla)p Fq(_)p +FA(CD2TF)g(\(NDP)-8 b(,)32 b(D)m(A)-8 b(YS,)32 b(SIGN,)e(IHMSF\))236 +4779 y(CALL)g(sla)p Fq(_)p FA(DD2TF)h(\(NDP)-8 b(,)32 +b(D)m(A)-8 b(YS,)32 b(SIGN,)e(IHMSF\))472 4892 y(Da)m(ys)i(to)f(hours,) +f(min)m(utes,)f(seconds)236 5067 y(CALL)h(sla)p Fq(_)p +FA(CTF2R)g(\(IHOUR,)g(IMIN,)h(SEC,)f(RAD,)h(J\))236 5180 +y(CALL)f(sla)p Fq(_)p FA(DTF2R)g(\(IHOUR,)h(IMIN,)g(SEC,)e(RAD,)j(J\)) +472 5292 y(Hours,)f(min)m(utes,)e(seconds)i(to)g(radians)236 +5467 y(CALL)f(sla)p Fq(_)p FA(CR2TF)g(\(NDP)-8 b(,)31 +b(ANGLE,)g(SIGN,)g(IHMSF\))236 5580 y(CALL)f(sla)p Fq(_)p +FA(DR2TF)g(\(NDP)-8 b(,)32 b(ANGLE,)f(SIGN,)g(IHMSF\))472 +5693 y(Radians)f(to)h(hours,)e(min)m(utes,)h(seconds)p +eop +%%Page: 204 206 +204 205 bop 0 52 a FA(204)236 351 y(CALL)30 b(sla)p Fq(_)p +FA(CAF2R)g(\(IDEG,)i(IAMIN,)e(ASEC,)g(RAD,)h(J\))236 +464 y(CALL)f(sla)p Fq(_)p FA(D)m(AF2R)h(\(IDEG,)h(IAMIN,)f(ASEC,)e +(RAD,)j(J\))472 577 y(Degrees,)h(arcmin)m(utes,)d(arcseconds)g(to)i +(radians)236 747 y(CALL)e(sla)p Fq(_)p FA(CR2AF)g(\(NDP)-8 +b(,)32 b(ANGLE,)f(SIGN,)f(IDMSF\))236 860 y(CALL)g(sla)p +Fq(_)p FA(DR2AF)h(\(NDP)-8 b(,)32 b(ANGLE,)f(SIGN,)f(IDMSF\))472 +973 y(Radians)g(to)h(degrees,)g(arcmin)m(utes,)f(arcseconds)0 +1284 y Fs(Angles,)37 b(V)-9 b(ectors)36 b(and)j(Rotation)d(Matrices)236 +1505 y FA(R)30 b(=)g(sla)p Fq(_)p FA(RANGE)h(\(ANGLE\))236 +1618 y(D)g(=)f(sla)p Fq(_)p FA(DRANGE)h(\(ANGLE\))472 +1731 y(Normalize)g(angle)f(in)m(to)g(range)h Fl(\006)p +Fi(\031)236 1901 y FA(R)f(=)g(sla)p Fq(_)p FA(RANORM)g(\(ANGLE\))236 +2014 y(D)h(=)f(sla)p Fq(_)p FA(DRANRM)h(\(ANGLE\))472 +2127 y(Normalize)g(angle)f(in)m(to)g(range)h(0)5 b Fl(\000)g +FA(2)p Fi(\031)236 2297 y FA(CALL)30 b(sla)p Fq(_)p FA(CS2C)f(\(A,)i +(B,)g(V\))236 2410 y(CALL)f(sla)p Fq(_)p FA(DCS2C)f(\(A,)i(B,)g(V\))472 +2523 y(Spherical)e(co)s(ordinates)h(to)h([)15 b Fi(x;)g(y)s(;)g(z)20 +b FA(])236 2694 y(CALL)30 b(sla)p Fq(_)p FA(CC2S)f(\(V,)i(A,)g(B\))236 +2807 y(CALL)f(sla)p Fq(_)p FA(DCC2S)f(\(V,)i(A,)g(B\))472 +2919 y([)15 b Fi(x;)g(y)s(;)g(z)21 b FA(])30 b(to)i(spherical)c(co)s +(ordinates)236 3090 y(R)i(=)g(sla)p Fq(_)p FA(VD)m(V)h(\(V)-10 +b(A,)32 b(VB\))236 3203 y(D)f(=)f(sla)p Fq(_)p FA(D)m(VD)m(V)i(\(V)-10 +b(A,)31 b(VB\))472 3316 y(Scalar)f(pro)s(duct)g(of)g(t)m(w)m(o)i(3-v)m +(ectors)236 3486 y(CALL)e(sla)p Fq(_)p FA(VXV)g(\(V)-10 +b(A,)31 b(VB,)g(V)m(C\))236 3599 y(CALL)f(sla)p Fq(_)p +FA(D)m(VXV)h(\(V)-10 b(A,)31 b(VB,)g(V)m(C\))472 3712 +y(V)-8 b(ector)33 b(pro)s(duct)c(of)h(t)m(w)m(o)i(3-v)m(ectors)236 +3882 y(CALL)e(sla)p Fq(_)p FA(VN)g(\(V,)h(UV,)g(VM\))236 +3995 y(CALL)f(sla)p Fq(_)p FA(D)m(VN)h(\(V,)g(UV,)g(VM\))472 +4108 y(Normalize)g(a)f(3-v)m(ector)j(also)d(giving)g(the)g(mo)s(dulus) +236 4279 y(R)g(=)g(sla)p Fq(_)p FA(SEP)f(\(A1,)j(B1,)f(A2,)g(B2\))236 +4391 y(D)g(=)f(sla)p Fq(_)p FA(DSEP)f(\(A1,)j(B1,)f(A2,)g(B2\))472 +4504 y(Angle)g(b)s(et)m(w)m(een)g(t)m(w)m(o)g(p)s(oin)m(ts)f(on)g(a)h +(sphere)236 4675 y(R)f(=)g(sla)p Fq(_)p FA(BEAR)g(\(A1,)i(B1,)f(A2,)h +(B2\))236 4788 y(D)f(=)f(sla)p Fq(_)p FA(DBEAR)g(\(A1,)i(B1,)f(A2,)h +(B2\))472 4901 y(Direction)e(of)h(one)g(p)s(oin)m(t)e(on)h(a)h(sphere)f +(seen)g(from)g(another)236 5071 y(R)g(=)g(sla)p Fq(_)p +FA(P)-8 b(A)e(V)31 b(\(V1,)g(V2\))236 5184 y(D)g(=)f(sla)p +Fq(_)p FA(DP)-8 b(A)e(V)31 b(\(V1,)g(V2\))472 5297 y(P)m(osition-angle) +g(of)f(one)h([)15 b Fi(x;)g(y)s(;)g(z)20 b FA(])31 b(with)e(resp)s(ect) +h(to)h(another)236 5467 y(CALL)f(sla)p Fq(_)p FA(EULER)f(\(ORDER,)i +(PHI,)f(THET)-8 b(A,)31 b(PSI,)f(RMA)-8 b(T\))236 5580 +y(CALL)30 b(sla)p Fq(_)p FA(DEULER)g(\(ORDER,)g(PHI,)h(THET)-8 +b(A,)30 b(PSI,)g(RMA)-8 b(T\))472 5693 y(F)g(orm)31 b(rotation)g +(matrix)f(from)g(three)g(Euler)f(angles)p eop +%%Page: 205 207 +205 206 bop 0 52 a Ft(SUN/67.45)3206 b FA(205)236 351 +y(CALL)30 b(sla)p Fq(_)p FA(A)-10 b(V2M)31 b(\(AXVEC,)g(RMA)-8 +b(T\))236 464 y(CALL)30 b(sla)p Fq(_)p FA(D)m(A)-10 b(V2M)32 +b(\(AXVEC,)f(RMA)-8 b(T\))472 577 y(F)g(orm)31 b(rotation)g(matrix)f +(from)g(axial)f(v)m(ector)236 747 y(CALL)h(sla)p Fq(_)p +FA(M2A)-10 b(V)31 b(\(RMA)-8 b(T,)31 b(AXVEC\))236 860 +y(CALL)f(sla)p Fq(_)p FA(DM2A)-10 b(V)31 b(\(RMA)-8 b(T,)32 +b(AXVEC\))472 973 y(Determine)f(axial)f(v)m(ector)i(from)d(rotation)i +(matrix)236 1144 y(CALL)f(sla)p Fq(_)p FA(MXV)g(\(RM,)h(V)-10 +b(A,)31 b(VB\))236 1256 y(CALL)f(sla)p Fq(_)p FA(DMXV)h(\(DM,)g(V)-10 +b(A,)31 b(VB\))472 1369 y(Rotate)i(v)m(ector)f(forw)m(ards)236 +1540 y(CALL)e(sla)p Fq(_)p FA(IMXV)g(\(RM,)h(V)-10 b(A,)31 +b(VB\))236 1653 y(CALL)f(sla)p Fq(_)p FA(DIMXV)h(\(DM,)g(V)-10 +b(A,)31 b(VB\))472 1765 y(Rotate)i(v)m(ector)f(bac)m(kw)m(ards)236 +1936 y(CALL)e(sla)p Fq(_)p FA(MXM)g(\(A,)i(B,)e(C\))236 +2049 y(CALL)g(sla)p Fq(_)p FA(DMXM)h(\(A,)g(B,)g(C\))472 +2162 y(Pro)s(duct)f(of)h(t)m(w)m(o)g(3x3)g(matrices)236 +2332 y(CALL)f(sla)p Fq(_)p FA(CS2C6)f(\(A,)i(B,)g(R,)g(AD,)g(BD,)g(RD,) +g(V\))236 2445 y(CALL)f(sla)p Fq(_)p FA(DS2C6)g(\(A,)h(B,)g(R,)g(AD,)g +(BD,)g(RD,)g(V\))472 2558 y(Con)m(v)m(ersion)24 b(of)g(p)s(osition)e +(and)h(v)m(elo)s(cit)m(y)h(in)f(spherical)e(co)s(ordinates)j(to)g +(Cartesian)g(co)s(ordinates)236 2728 y(CALL)30 b(sla)p +Fq(_)p FA(CC62S)f(\(V,)i(A,)g(B,)g(R,)g(AD,)g(BD,)g(RD\))236 +2841 y(CALL)f(sla)p Fq(_)p FA(DC62S)g(\(V,)h(A,)g(B,)g(R,)f(AD,)i(BD,)f +(RD\))472 2954 y(Con)m(v)m(ersion)24 b(of)g(p)s(osition)e(and)h(v)m +(elo)s(cit)m(y)h(in)f(Cartesian)g(co)s(ordinates)g(to)i(spherical)d(co) +s(ordinates)0 3264 y Fs(Calendars)236 3485 y FA(CALL)30 +b(sla)p Fq(_)p FA(CLDJ)f(\(IY,)i(IM,)g(ID,)g(DJM,)g(J\))472 +3598 y(Gregorian)g(Calendar)e(to)i(Mo)s(di\014ed)e(Julian)f(Date)236 +3768 y(CALL)i(sla)p Fq(_)p FA(CALDJ)f(\(IY,)i(IM,)g(ID,)g(DJM,)g(J\)) +472 3881 y(Gregorian)g(Calendar)e(to)i(Mo)s(di\014ed)e(Julian)f(Date,)k +(p)s(ermitting)c(cen)m(tury)j(default)236 4051 y(CALL)f(sla)p +Fq(_)p FA(DJCAL)f(\(NDP)-8 b(,)32 b(DJM,)f(IYMDF,)h(J\))472 +4164 y(Mo)s(di\014ed)39 b(Julian)e(Date)k(to)g(Gregorian)f(Calendar,)h +(in)d(a)i(form)f(con)m(v)m(enien)m(t)i(for)f(formatted)472 +4277 y(output)236 4447 y(CALL)30 b(sla)p Fq(_)p FA(DJCL)f(\(DJM,)j(IY,) +e(IM,)h(ID,)g(FD,)g(J\))472 4560 y(Mo)s(di\014ed)e(Julian)f(Date)k(to)f +(Gregorian)g(Y)-8 b(ear,)31 b(Mon)m(th,)g(Da)m(y)-8 b(,)33 +b(F)-8 b(raction)236 4730 y(CALL)30 b(sla)p Fq(_)p FA(CAL)-8 +b(YD)30 b(\(IY,)h(IM,)g(ID,)g(NY,)g(ND,)g(J\))472 4843 +y(Calendar)f(to)h(y)m(ear)g(and)f(da)m(y)g(in)f(y)m(ear,)j(p)s +(ermitting)c(cen)m(tury)j(default)236 5014 y(CALL)f(sla)p +Fq(_)p FA(CL)-8 b(YD)30 b(\(IY,)h(IM,)g(ID,)g(NY,)g(ND,)g(J\))472 +5127 y(Calendar)f(to)h(y)m(ear)g(and)f(da)m(y)g(in)f(y)m(ear)236 +5297 y(D)i(=)f(sla)p Fq(_)p FA(EPB)g(\(D)m(A)-8 b(TE\))472 +5410 y(Mo)s(di\014ed)29 b(Julian)f(Date)k(to)f(Besselian)f(Ep)s(o)s(c)m +(h)236 5580 y(D)h(=)f(sla)p Fq(_)p FA(EPB2D)h(\(EPB\))472 +5693 y(Besselian)f(Ep)s(o)s(c)m(h)g(to)h(Mo)s(di\014ed)e(Julian)f(Date) +p eop +%%Page: 206 208 +206 207 bop 0 52 a FA(206)236 351 y(D)31 b(=)f(sla)p +Fq(_)p FA(EPJ)f(\(D)m(A)-8 b(TE\))472 464 y(Mo)s(di\014ed)29 +b(Julian)f(Date)k(to)f(Julian)d(Ep)s(o)s(c)m(h)236 640 +y(D)j(=)f(sla)p Fq(_)p FA(EPJ2D)g(\(EPJ\))472 753 y(Julian)e(Ep)s(o)s +(c)m(h)i(to)h(Mo)s(di\014ed)e(Julian)f(Date)0 1092 y +Fs(Timescales)236 1331 y FA(D)j(=)f(sla)p Fq(_)p FA(GMST)f(\(UT1\))472 +1444 y(Con)m(v)m(ersion)h(from)g(Univ)m(ersal)g(Time)f(to)i(sidereal)e +(time)236 1620 y(D)i(=)f(sla)p Fq(_)p FA(GMST)-8 b(A)30 +b(\(D)m(A)-8 b(TE,)32 b(UT1\))472 1732 y(Con)m(v)m(ersion)e(from)g +(Univ)m(ersal)g(Time)f(to)i(sidereal)e(time,)h(rounding)e(errors)i +(minimized)236 1908 y(D)h(=)f(sla)p Fq(_)p FA(EQEQX)f(\(D)m(A)-8 +b(TE\))472 2021 y(Equation)30 b(of)h(the)f(equino)m(xes)236 +2197 y(D)h(=)f(sla)p Fq(_)p FA(D)m(A)-8 b(T)31 b(\(DJU\))472 +2310 y(O\013set)g(of)g(A)m(tomic)g(Time)e(from)h(Co)s(ordinated)f(Univ) +m(ersal)g(Time:)40 b(T)-8 b(AI)p Fl(\000)p FA(UTC)236 +2486 y(D)31 b(=)f(sla)p Fq(_)p FA(DT)g(\(EPOCH\))472 +2599 y(Appro)m(ximate)h(o\013set)g(b)s(et)m(w)m(een)g(dynamical)e(time) +h(and)g(univ)m(ersal)e(time)236 2775 y(D)j(=)f(sla)p +Fq(_)p FA(DTT)f(\(DJU\))472 2888 y(O\013set)i(of)g(T)-8 +b(errestrial)29 b(Time)g(from)h(Co)s(ordinated)f(Univ)m(ersal)g(Time:) +40 b(TT)p Fl(\000)p FA(UTC)236 3064 y(D)31 b(=)f(sla)p +Fq(_)p FA(R)m(CC)f(\(TDB,)j(UT1,)f(WL,)f(U,)h(V\))472 +3176 y(Relativistic)e(clo)s(c)m(k)i(correction:)41 b(TDB)p +Fl(\000)p FA(TT)0 3516 y Fs(Precession)c(and)h(Nutation)236 +3754 y FA(CALL)30 b(sla)p Fq(_)p FA(NUT)g(\(D)m(A)-8 +b(TE,)32 b(RMA)-8 b(TN\))472 3867 y(Nutation)31 b(matrix)236 +4043 y(CALL)f(sla)p Fq(_)p FA(NUTC)f(\(D)m(A)-8 b(TE,)32 +b(DPSI,)e(DEPS,)h(EPS0\))472 4156 y(Longitude)f(and)g(obliquit)m(y)e +(comp)s(onen)m(ts)j(of)f(n)m(utation,)h(and)e(mean)i(obliquit)m(y)236 +4332 y(CALL)f(sla)p Fq(_)p FA(PREC)f(\(EP0,)i(EP1,)g(RMA)-8 +b(TP\))472 4445 y(Precession)30 b(matrix)g(\(IA)m(U\))236 +4621 y(CALL)g(sla)p Fq(_)p FA(PRECL)f(\(EP0,)i(EP1,)g(RMA)-8 +b(TP\))472 4734 y(Precession)30 b(matrix)g(\(suitable)f(for)h(long)g(p) +s(erio)s(ds\))236 4909 y(CALL)g(sla)p Fq(_)p FA(PRENUT)f(\(EPOCH,)h(D)m +(A)-8 b(TE,)32 b(RMA)-8 b(TPN\))472 5022 y(Com)m(bined)29 +b(precession/n)m(utation)h(matrix)236 5198 y(CALL)g(sla)p +Fq(_)p FA(PREBN)g(\(BEP0,)h(BEP1,)g(RMA)-8 b(TP\))472 +5311 y(Precession)30 b(matrix,)g(old)g(system)236 5487 +y(CALL)g(sla)p Fq(_)p FA(PRECES)e(\(SYSTEM,)i(EP0,)h(EP1,)g(RA,)f(DC\)) +472 5600 y(Precession,)h(in)e(either)h(the)g(old)g(or)g(the)h(new)e +(system)p eop +%%Page: 207 209 +207 208 bop 0 52 a Ft(SUN/67.45)3206 b FA(207)0 351 y +Fs(Prop)s(er)37 b(Motion)236 557 y FA(CALL)30 b(sla)p +Fq(_)p FA(PM)g(\(R0,)h(D0,)h(PR,)e(PD,)h(PX,)f(R)-10 +b(V,)31 b(EP0,)g(EP1,)f(R1,)h(D1\))472 670 y(Adjust)f(for)g(prop)s(er)f +(motion)0 956 y Fs(FK4/FK5/Hipparcos)38 b(Con)m(v)m(ersions)236 +1162 y FA(CALL)30 b(sla)p Fq(_)p FA(FK425)h(\(R1950,)i(D1950,)f +(DR1950,)h(DD1950,)g(P1950,)g(V1950,)1000 1275 y(R2000,)g(D2000,)f +(DR2000,)h(DD2000,)g(P2000,)g(V2000\))472 1369 y(Con)m(v)m(ert)f +(B1950.0)h(FK4)e(star)f(data)h(to)g(J2000.0)i(FK5)236 +1535 y(CALL)d(sla)p Fq(_)p FA(FK45Z)g(\(R1950,)j(D1950,)g(EPOCH,)c +(R2000,)k(D2000\))472 1648 y(Con)m(v)m(ert)j(B1950.0)j(FK4)c(p)s +(osition)f(to)h(J2000.0)j(FK5)e(assuming)d(zero)j(FK5)g(prop)s(er)e +(motion)472 1761 y(and)c(no)g(parallax)236 1927 y(CALL)g(sla)p +Fq(_)p FA(FK524)h(\(R2000,)i(D2000,)f(DR2000,)h(DD2000,)g(P2000,)g +(V2000,)1000 2040 y(R1950,)g(D1950,)f(DR1950,)h(DD1950,)g(P1950,)g +(V1950\))472 2134 y(Con)m(v)m(ert)f(J2000.0)g(FK5)f(star)g(data)g(to)g +(B1950.0)i(FK4)236 2300 y(CALL)d(sla)p Fq(_)p FA(FK54Z)g(\(R2000,)j +(D2000,)g(BEPOCH,)d(R1950,)i(D1950,)h(DR1950,)g(DD1950\))472 +2413 y(Con)m(v)m(ert)j(J2000.0)i(FK5)e(p)s(osition)d(to)j(B1950.0)i +(FK4)e(assuming)d(zero)j(FK5)g(prop)s(er)e(motion)472 +2526 y(and)c(no)g(parallax)236 2692 y(CALL)g(sla)p Fq(_)p +FA(FK52H)h(\(R5,)g(D5,)g(DR5,)h(DD5,)g(RH,)e(DH,)i(DRH,)f(DDH\))472 +2805 y(Con)m(v)m(ert)h(J2000.0)g(FK5)f(star)g(data)g(to)g(Hipparcos)236 +2971 y(CALL)f(sla)p Fq(_)p FA(FK5HZ)g(\(R5,)h(D5,)h(EPOCH,)d(RH,)i(DH)g +(\))472 3084 y(Con)m(v)m(ert)c(J2000.0)i(FK5)d(p)s(osition)e(to)j +(Hipparcos)e(assuming)g(zero)i(Hipparcos)e(prop)s(er)g(motion)236 +3250 y(CALL)30 b(sla)p Fq(_)p FA(H2FK5)h(\(RH,)g(DH,)g(DRH,)g(DDH,)h +(R5,)f(D5,)g(DR5,)g(DD5\))472 3362 y(Con)m(v)m(ert)h(Hipparcos)d(star)i +(data)g(to)g(J2000.0)h(FK5)236 3528 y(CALL)e(sla)p Fq(_)p +FA(HFK5Z)g(\(RH,)h(DH,)g(EPOCH,)f(R5,)h(D5,)g(DR5,)h(DD5\))472 +3641 y(Con)m(v)m(ert)27 b(Hipparcos)f(p)s(osition)e(to)j(J2000.0)h(FK5) +e(assuming)f(zero)i(Hipparcos)e(prop)s(er)g(motion)236 +3807 y(CALL)30 b(sla)p Fq(_)p FA(DBJIN)g(\(STRING,)g(NSTR)-8 +b(T,)30 b(DRESL)-8 b(T,)31 b(J1,)f(J2\))472 3920 y(Lik)m(e)h(sla)p +Fq(_)p FA(DFL)-8 b(TIN)30 b(but)g(with)f(extensions)h(to)h(accept)h +(leading)d(`B')i(and)f(`J')236 4086 y(CALL)g(sla)p Fq(_)p +FA(KBJ)f(\(JB,)i(E,)g(K,)f(J\))472 4199 y(Select)h(ep)s(o)s(c)m(h)f +(pre\014x)f(`B')j(or)e(`J')236 4365 y(D)h(=)f(sla)p Fq(_)p +FA(EPCO)f(\(K0,)i(K,)f(E\))472 4478 y(Con)m(v)m(ert)i(an)e(ep)s(o)s(c)m +(h)g(in)m(to)g(the)h(appropriate)e(form)h({)h(`B')g(or)g(`J')0 +4765 y Fs(Elliptic)i(Ab)s(erration)236 4970 y FA(CALL)d(sla)p +Fq(_)p FA(ETRMS)f(\(EP)-8 b(,)31 b(EV\))472 5083 y(E-terms)236 +5249 y(CALL)f(sla)p Fq(_)p FA(SUBET)f(\(R)m(C,)i(DC,)g(EQ,)f(RM,)h +(DM\))472 5362 y(Remo)m(v)m(e)i(the)d(E-terms)236 5528 +y(CALL)g(sla)p Fq(_)p FA(ADDET)g(\(RM,)h(DM,)h(EQ,)e(R)m(C,)g(DC\))472 +5641 y(Add)g(the)h(E-terms)p eop +%%Page: 208 210 +208 209 bop 0 52 a FA(208)0 351 y Fs(Geographical)37 +b(and)h(Geo)s(cen)m(tric)f(Co)s(ordinates)236 563 y FA(CALL)30 +b(sla)p Fq(_)p FA(OBS)f(\(NUMBER,)j(ID,)f(NAME,)g(WLONG,)g(PHI,)f +(HEIGHT\))472 675 y(In)m(terrogate)j(list)c(of)h(observ)-5 +b(atory)31 b(parameters)236 843 y(CALL)f(sla)p Fq(_)p +FA(GEOC)f(\(P)-8 b(,)31 b(H,)g(R,)g(Z\))472 956 y(Con)m(v)m(ert)h(geo)s +(detic)f(p)s(osition)d(to)j(geo)s(cen)m(tric)236 1124 +y(CALL)f(sla)p Fq(_)p FA(POLMO)f(\(ELONGM,)i(PHIM,)g(XP)-8 +b(,)31 b(YP)-8 b(,)31 b(ELONG,)f(PHI,)h(D)m(AZ\))472 +1237 y(P)m(olar)g(motion)236 1404 y(CALL)f(sla)p Fq(_)p +FA(PV)m(OBS)g(\(P)-8 b(,)31 b(H,)g(STL,)e(PV\))472 1517 +y(P)m(osition)h(and)g(v)m(elo)s(cit)m(y)h(of)f(observ)-5 +b(atory)0 1813 y Fs(Apparen)m(t)38 b(and)g(Observ)m(ed)g(Place)236 +2024 y FA(CALL)30 b(sla)p Fq(_)p FA(MAP)g(\(RM,)h(DM,)g(PR,)g(PD,)g +(PX,)f(R)-10 b(V,)31 b(EQ,)f(D)m(A)-8 b(TE,)32 b(RA,)e(D)m(A\))472 +2137 y(Mean)h(place)g(to)g(geo)s(cen)m(tric)g(apparen)m(t)g(place)236 +2305 y(CALL)f(sla)p Fq(_)p FA(MAPP)-8 b(A)30 b(\(EQ,)h(D)m(A)-8 +b(TE,)32 b(AMPRMS\))472 2418 y(Precompute)f(mean)f(to)i(apparen)m(t)e +(parameters)236 2586 y(CALL)g(sla)p Fq(_)p FA(MAPQK)f(\(RM,)j(DM,)f +(PR,)f(PD,)h(PX,)g(R)-10 b(V,)30 b(AMPRMS,)h(RA,)g(D)m(A\))472 +2699 y(Mean)g(to)h(apparen)m(t)e(using)f(precomputed)h(parameters)236 +2866 y(CALL)g(sla)p Fq(_)p FA(MAPQKZ)f(\(RM,)i(DM,)g(AMPRMS,)g(RA,)g(D) +m(A\))472 2979 y(Mean)h(to)g(apparen)m(t)g(using)d(precomputed)i +(parameters,)h(for)f(zero)h(prop)s(er)d(motion,)j(parallax)472 +3092 y(and)e(radial)f(v)m(elo)s(cit)m(y)236 3260 y(CALL)h(sla)p +Fq(_)p FA(AMP)g(\(RA,)h(D)m(A,)h(D)m(A)-8 b(TE,)31 b(EQ,)f(RM,)h(DM\)) +472 3373 y(Geo)s(cen)m(tric)h(apparen)m(t)e(place)h(to)g(mean)f(place) +236 3540 y(CALL)g(sla)p Fq(_)p FA(AMPQK)f(\(RA,)i(D)m(A,)h(A)m(OPRMS,)f +(RM,)f(DM\))472 3653 y(Apparen)m(t)h(to)g(mean)f(using)f(precomputed)h +(parameters)236 3821 y(CALL)g(sla)p Fq(_)p FA(A)m(OP)g(\(RAP)-8 +b(,)31 b(D)m(AP)-8 b(,)32 b(UTC,)e(DUT,)h(ELONGM,)g(PHIM,)g(HM,)g(XP)-8 +b(,)31 b(YP)-8 b(,)932 3934 y(TDK,)31 b(PMB,)g(RH,)f(WL,)h(TLR,)f(A)m +(OB,)h(ZOB,)g(HOB,)f(DOB,)i(R)m(OB\))472 4028 y(Apparen)m(t)f(place)f +(to)h(observ)m(ed)g(place)236 4196 y(CALL)f(sla)p Fq(_)p +FA(A)m(OPP)-8 b(A)30 b(\(UTC,)h(DUT,)g(ELONGM,)f(PHIM,)h(HM,)g(XP)-8 +b(,)31 b(YP)-8 b(,)1054 4309 y(TDK,)31 b(PMB,)g(RH,)g(WL,)g(TLR,)f(A)m +(OPRMS\))472 4403 y(Precompute)h(apparen)m(t)g(to)g(observ)m(ed)f +(parameters)236 4570 y(CALL)g(sla)p Fq(_)p FA(A)m(OPP)-8 +b(A)g(T)30 b(\(UTC,)h(A)m(OPRMS\))472 4683 y(Up)s(date)g(sidereal)e +(time)h(in)f(apparen)m(t)h(to)i(observ)m(ed)e(parameters)236 +4851 y(CALL)g(sla)p Fq(_)p FA(A)m(OPQK)f(\(RAP)-8 b(,)32 +b(D)m(AP)-8 b(,)31 b(A)m(OPRMS,)g(A)m(OB,)g(ZOB,)g(HOB,)f(DOB,)i(R)m +(OB\))472 4964 y(Apparen)m(t)f(to)g(observ)m(ed)f(using)f(precomputed)h +(parameters)236 5132 y(CALL)g(sla)p Fq(_)p FA(O)m(AP)g(\(TYPE,)g(OB1,)h +(OB2,)h(UTC,)e(DUT,)g(ELONGM,)h(PHIM,)g(HM,)g(XP)-8 b(,)31 +b(YP)-8 b(,)932 5245 y(TDK,)31 b(PMB,)g(RH,)f(WL,)h(TLR,)f(RAP)-8 +b(,)31 b(D)m(AP\))472 5339 y(Observ)m(ed)f(to)h(apparen)m(t)236 +5506 y(CALL)f(sla)p Fq(_)p FA(O)m(APQK)f(\(TYPE,)i(OB1,)g(OB2,)g(A)m +(OPRMS,)f(RA,)h(D)m(A\))472 5619 y(Observ)m(ed)f(to)h(apparen)m(t)g +(using)e(precomputed)g(parameters)p eop +%%Page: 209 211 +209 210 bop 0 52 a Ft(SUN/67.45)3206 b FA(209)0 351 y +Fs(Azim)m(uth)35 b(and)k(Elev)-6 b(ation)236 628 y FA(CALL)30 +b(sla)p Fq(_)p FA(AL)-8 b(T)g(AZ)30 b(\(HA,)h(DEC,)g(PHI,)1033 +741 y(AZ,)f(AZD,)h(AZDD,)g(EL,)g(ELD,)f(ELDD,)h(P)-8 +b(A,)31 b(P)-8 b(AD,)32 b(P)-8 b(ADD\))472 835 y(P)m(ositions,)30 +b(v)m(elo)s(cities)g Fn(etc.)g FA(for)g(an)h(altazim)m(uth)f(moun)m(t) +236 1033 y(CALL)g(sla)p Fq(_)p FA(E2H)g(\(HA,)h(DEC,)g(PHI,)f(AZ,)h +(EL\))236 1146 y(CALL)f(sla)p Fq(_)p FA(DE2H)h(\(HA,)g(DEC,)f(PHI,)h +(AZ,)f(EL\))472 1259 y([)15 b Fi(h;)g(\016)21 b FA(])30 +b(to)h([)15 b Fi(Az)t(;)g(E)5 b(l)34 b FA(])236 1458 +y(CALL)c(sla)p Fq(_)p FA(H2E)g(\(AZ,)h(EL,)f(PHI,)g(HA,)h(DEC\))236 +1571 y(CALL)f(sla)p Fq(_)p FA(DH2E)h(\(AZ,)f(EL,)g(PHI,)h(HA,)g(DEC\)) +472 1684 y([)15 b Fi(Az)t(;)g(E)5 b(l)34 b FA(])d(to)g([)15 +b Fi(h;)g(\016)20 b FA(])236 1882 y(CALL)30 b(sla)p Fq(_)p +FA(PD)m(A2H)h(\(P)-8 b(,)31 b(D,)g(A,)g(H1,)g(J1,)g(H2,)g(J2\))472 +1995 y(Hour)f(Angle)h(corresp)s(onding)d(to)j(a)g(giv)m(en)f(azim)m +(uth)236 2194 y(CALL)g(sla)p Fq(_)p FA(PDQ2H)g(\(P)-8 +b(,)31 b(D,)g(Q,)g(H1,)g(J1,)g(H2,)g(J2\))472 2306 y(Hour)f(Angle)h +(corresp)s(onding)d(to)j(a)g(giv)m(en)f(parallactic)g(angle)236 +2505 y(D)h(=)f(sla)p Fq(_)p FA(P)-8 b(A)30 b(\(HA,)h(DEC,)g(PHI\))472 +2618 y([)15 b Fi(h;)g(\016)21 b FA(])30 b(to)h(parallactic)f(angle)236 +2817 y(D)h(=)f(sla)p Fq(_)p FA(ZD)g(\(HA,)h(DEC,)f(PHI\))472 +2929 y([)15 b Fi(h;)g(\016)21 b FA(])30 b(to)h(zenith)f(distance)0 +3337 y Fs(Refraction)36 b(and)j(Air)d(Mass)236 3613 y +FA(CALL)30 b(sla)p Fq(_)p FA(REFR)m(O)g(\(ZOBS,)g(HM,)h(TDK,)f(PMB,)h +(RH,)g(WL,)g(PHI,)f(TLR,)g(EPS,)g(REF\))472 3726 y(Change)h(in)e +(zenith)h(distance)g(due)f(to)i(refraction)236 3925 y(CALL)f(sla)p +Fq(_)p FA(REF)m(CO)g(\(HM,)h(TDK,)f(PMB,)i(RH,)e(WL,)h(PHI,)f(TLR,)g +(EPS,)g(REF)-10 b(A,)31 b(REFB\))472 4038 y(Constan)m(ts)g(for)f +(simple)f(refraction)h(mo)s(del)f(\(accurate\))236 4236 +y(CALL)h(sla)p Fq(_)p FA(REF)m(COQ)f(\(TDK,)i(PMB,)g(RH,)g(WL,)g(REF) +-10 b(A,)30 b(REFB\))472 4349 y(Constan)m(ts)h(for)f(simple)f +(refraction)h(mo)s(del)f(\(fast\))236 4548 y(CALL)g(sla)p +Fq(_)p FA(A)-8 b(TMDSP)30 b(\()g(TDK,)f(PMB,)i(RH,)f(WL1,)g(REF)-10 +b(A1,)31 b(REFB1,)g(WL2,)g(REF)-10 b(A2,)31 b(REFB2)f(\))472 +4660 y(Adjust)g(refraction)g(constan)m(ts)i(for)e(colour)236 +4859 y(CALL)g(sla)p Fq(_)p FA(REFZ)f(\(ZU,)i(REF)-10 +b(A,)31 b(REFB,)g(ZR\))472 4972 y(Unrefracted)g(to)g(refracted)g(ZD,)f +(simple)f(mo)s(del)236 5171 y(CALL)h(sla)p Fq(_)p FA(REFV)g(\(VU,)h +(REF)-10 b(A,)31 b(REFB,)g(VR\))472 5283 y(Unrefracted)g(to)g +(refracted)g([)15 b Fi(Az)t(;)g(E)5 b(l)34 b FA(])c(v)m(ector,)i +(simple)d(mo)s(del)236 5482 y(D)i(=)f(sla)p Fq(_)p FA(AIRMAS)g(\(ZD\)) +472 5595 y(Air)g(mass)p eop +%%Page: 210 212 +210 211 bop 0 52 a FA(210)0 351 y Fs(Ecliptic)34 b(Co)s(ordinates)236 +592 y FA(CALL)c(sla)p Fq(_)p FA(ECMA)-8 b(T)30 b(\(D)m(A)-8 +b(TE,)32 b(RMA)-8 b(T\))472 705 y(Equatorial)30 b(to)h(ecliptic)e +(rotation)i(matrix)236 882 y(CALL)f(sla)p Fq(_)p FA(EQECL)f(\(DR,)i +(DD,)g(D)m(A)-8 b(TE,)32 b(DL,)f(DB\))472 995 y(J2000.0)i(`FK5')e(to)g +(ecliptic)f(co)s(ordinates)236 1172 y(CALL)g(sla)p Fq(_)p +FA(ECLEQ)f(\(DL,)i(DB,)g(D)m(A)-8 b(TE,)32 b(DR,)f(DD\))472 +1285 y(Ecliptic)e(co)s(ordinates)h(to)h(J2000.0)i(`FK5')0 +1627 y Fs(Galactic)j(Co)s(ordinates)236 1868 y FA(CALL)30 +b(sla)p Fq(_)p FA(EG50)h(\(DR,)g(DD,)g(DL,)g(DB\))472 +1981 y(B1950.0)j(`FK4')d(to)g(galactic)236 2158 y(CALL)f(sla)p +Fq(_)p FA(GE50)h(\(DL,)g(DB,)g(DR,)g(DD\))472 2271 y(Galactic)h(to)f +(B1950.0)i(`FK4')236 2448 y(CALL)d(sla)p Fq(_)p FA(EQGAL)g(\(DR,)h(DD,) +g(DL,)g(DB\))472 2561 y(J2000.0)i(`FK5')e(to)g(galactic)236 +2738 y(CALL)f(sla)p Fq(_)p FA(GALEQ)g(\(DL,)h(DB,)g(DR,)g(DD\))472 +2851 y(Galactic)h(to)f(J2000.0)h(`FK5')0 3193 y Fs(Sup)s(ergalactic)37 +b(Co)s(ordinates)236 3434 y FA(CALL)30 b(sla)p Fq(_)p +FA(GALSUP)f(\(DL,)j(DB,)f(DSL,)f(DSB\))472 3547 y(Galactic)i(to)f(sup)s +(ergalactic)236 3724 y(CALL)f(sla)p Fq(_)p FA(SUPGAL)f(\(DSL,)i(DSB,)g +(DL,)g(DB\))472 3837 y(Sup)s(ergalactic)f(to)h(galactic)0 +4180 y Fs(Ephemerides)236 4420 y FA(CALL)f(sla)p Fq(_)p +FA(DMOON)g(\(D)m(A)-8 b(TE,)32 b(PV\))472 4533 y(Appro)m(ximate)f(geo)s +(cen)m(tric)g(p)s(osition)e(and)g(v)m(elo)s(cit)m(y)i(of)g(the)f(Mo)s +(on)236 4710 y(CALL)g(sla)p Fq(_)p FA(EAR)-8 b(TH)30 +b(\(IY,)h(ID,)g(FD,)g(PV\))472 4823 y(Appro)m(ximate)g(helio)s(cen)m +(tric)e(p)s(osition)f(and)i(v)m(elo)s(cit)m(y)h(of)f(the)h(Earth)236 +5000 y(CALL)f(sla)p Fq(_)p FA(EVP)g(\(D)m(A)-8 b(TE,)31 +b(DEQX,)g(D)m(VB,)h(DPB,)g(D)m(VH,)f(DPH\))472 5113 y(Barycen)m(tric)h +(and)d(helio)s(cen)m(tric)g(v)m(elo)s(cit)m(y)i(and)f(p)s(osition)f(of) +h(the)h(Earth)236 5290 y(CALL)f(sla)p Fq(_)p FA(MOON)g(\(IY,)g(ID,)h +(FD,)h(PV\))472 5403 y(Appro)m(ximate)f(geo)s(cen)m(tric)g(p)s(osition) +e(and)g(v)m(elo)s(cit)m(y)i(of)g(the)f(Mo)s(on)236 5580 +y(CALL)g(sla)p Fq(_)p FA(PLANET)f(\(D)m(A)-8 b(TE,)32 +b(NP)-8 b(,)31 b(PV,)g(JST)-8 b(A)g(T\))472 5693 y(Appro)m(ximate)31 +b(helio)s(cen)m(tric)e(p)s(osition)f(and)i(v)m(elo)s(cit)m(y)h(of)f(a)h +(planet)p eop +%%Page: 211 213 +211 212 bop 0 52 a Ft(SUN/67.45)3206 b FA(211)236 351 +y(CALL)30 b(sla)p Fq(_)p FA(RDPLAN)g(\(D)m(A)-8 b(TE,)32 +b(NP)-8 b(,)31 b(ELONG,)f(PHI,)h(RA,)g(DEC,)f(DIAM\))472 +464 y(Appro)m(ximate)h(top)s(o)s(cen)m(tric)f(apparen)m(t)h(place)f(of) +h(a)f(planet)236 636 y(CALL)g(sla)p Fq(_)p FA(PLANEL)f(\(D)m(A)-8 +b(TE,)32 b(JF)m(ORM,)f(EPOCH,)f(ORBINC,)g(ANODE,)h(PERIH,)1107 +749 y(A)m(OR)m(Q,)h(E,)e(A)m(ORL,)h(DM,)g(PV,)g(JST)-8 +b(A)g(T\))472 843 y(Helio)s(cen)m(tric)21 b(p)s(osition)f(and)h(v)m +(elo)s(cit)m(y)h(of)g(a)g(planet,)h(asteroid)e(or)g(comet,)k(starting)d +(from)f(orbital)472 956 y(elemen)m(ts)236 1128 y(CALL)30 +b(sla)p Fq(_)p FA(PLANTE)f(\(D)m(A)-8 b(TE,)32 b(ELONG,)f(PHI,)f(JF)m +(ORM,)h(EPOCH,)f(ORBINC,)g(ANODE,)1116 1241 y(PERIH,)h(A)m(OR)m(Q,)g +(E,)f(A)m(ORL,)h(DM,)g(RA,)g(DEC,)f(R,)h(JST)-8 b(A)g(T\))472 +1335 y(T)g(op)s(o)s(cen)m(tric)31 b(apparen)m(t)h(place)f(of)g(a)g +(Solar-System)g(ob)5 b(ject)32 b(whose)f(helio)s(cen)m(tric)e(orbital)h +(ele-)472 1448 y(men)m(ts)h(are)g(kno)m(wn)236 1620 y(CALL)f(sla)p +Fq(_)p FA(PV2EL)g(\(PV,)h(D)m(A)-8 b(TE,)31 b(PMASS,)f(JF)m(ORMR,)h(JF) +m(ORM,)g(EPOCH,)f(ORBINC,)1028 1733 y(ANODE,)h(PERIH,)f(A)m(OR)m(Q,)h +(E,)g(A)m(ORL,)f(DM,)i(JST)-8 b(A)g(T\))472 1827 y(Orbital)29 +b(elemen)m(ts)i(of)f(a)h(planet)f(from)g(instan)m(taneous)g(p)s +(osition)e(and)i(v)m(elo)s(cit)m(y)236 1999 y(CALL)g(sla)p +Fq(_)p FA(PER)-8 b(TEL)29 b(\(JF)m(ORM,)i(D)m(A)-8 b(TE0,)32 +b(D)m(A)-8 b(TE1,)1101 2111 y(EPOCH0,)31 b(ORBI0,)g(ANODE0,)g(PERIH0,)g +(A)m(OR)m(Q0,)g(E0,)g(AM0,)1101 2224 y(EPOCH1,)g(ORBI1,)g(ANODE1,)g +(PERIH1,)g(A)m(OR)m(Q1,)g(E1,)g(AM1,)1101 2337 y(JST)-8 +b(A)g(T\))472 2431 y(Up)s(date)31 b(elemen)m(ts)f(b)m(y)h(applying)d(p) +s(erturbations)236 2603 y(CALL)i(sla)p Fq(_)p FA(EL2UE)g(\(D)m(A)-8 +b(TE,)32 b(JF)m(ORM,)f(EPOCH,)f(ORBINC,)g(ANODE,)1028 +2716 y(PERIH,)g(A)m(OR)m(Q,)h(E,)g(A)m(ORL,)f(DM,)1028 +2829 y(U,)h(JST)-8 b(A)g(T\))472 2923 y(T)g(ransform)30 +b(con)m(v)m(en)m(tional)h(elemen)m(ts)g(to)g(univ)m(ersal)e(elemen)m +(ts)236 3095 y(CALL)h(sla)p Fq(_)p FA(UE2EL)g(\(U,)h(JF)m(ORMR,)1028 +3208 y(JF)m(ORM,)g(EPOCH,)f(ORBINC,)g(ANODE,)h(PERIH,)1028 +3321 y(A)m(OR)m(Q,)g(E,)g(A)m(ORL,)f(DM,)i(JST)-8 b(A)g(T\))472 +3415 y(T)g(ransform)30 b(univ)m(ersal)e(elemen)m(ts)j(to)g(con)m(v)m +(en)m(tional)h(elemen)m(ts)236 3587 y(CALL)e(sla)p Fq(_)p +FA(PV2UE)g(\(PV,)h(D)m(A)-8 b(TE,)32 b(PMASS,)e(U,)g(JST)-8 +b(A)g(T\))472 3700 y(P)m(ac)m(k)j(age)34 b(a)c(p)s(osition)f(and)h(v)m +(elo)s(cit)m(y)h(for)f(use)g(as)g(univ)m(ersal)f(elemen)m(ts)236 +3872 y(CALL)h(sla)p Fq(_)p FA(UE2PV)g(\(D)m(A)-8 b(TE,)32 +b(U,)f(PV,)f(JST)-8 b(A)g(T\))472 3985 y(Extract)32 b(the)e(p)s +(osition)f(and)h(v)m(elo)s(cit)m(y)g(from)g(univ)m(ersal)f(elemen)m(ts) +236 4156 y(CALL)h(sla)p Fq(_)p FA(PER)-8 b(TUE)29 b(\(D)m(A)-8 +b(TE,)32 b(U,)f(JST)-8 b(A)g(T\))472 4269 y(Up)s(date)31 +b(univ)m(ersal)d(elemen)m(ts)j(b)m(y)f(applying)e(p)s(erturbations)236 +4441 y(R)i(=)g(sla)p Fq(_)p FA(R)-10 b(VER)m(OT)30 b(\(PHI,)g(RA,)h(D)m +(A,)h(ST\))472 4554 y(V)-8 b(elo)s(cit)m(y)31 b(comp)s(onen)m(t)g(due)f +(to)h(rotation)g(of)f(the)h(Earth)236 4726 y(CALL)f(sla)p +Fq(_)p FA(ECOR)f(\(RM,)i(DM,)g(IY,)g(ID,)g(FD,)g(R)-10 +b(V,)31 b(TL\))472 4839 y(Comp)s(onen)m(ts)f(of)h(v)m(elo)s(cit)m(y)g +(and)e(ligh)m(t)h(time)g(due)g(to)h(Earth)f(orbital)f(motion)236 +5011 y(R)h(=)g(sla)p Fq(_)p FA(R)-10 b(VLSRD)30 b(\(R2000,)i(D2000\)) +472 5124 y(V)-8 b(elo)s(cit)m(y)31 b(comp)s(onen)m(t)g(due)f(to)h +(solar)f(motion)g(wrt)g(dynamical)f(LSR)236 5295 y(R)h(=)g(sla)p +Fq(_)p FA(R)-10 b(VLSRK)29 b(\(R2000,)k(D2000\))472 5408 +y(V)-8 b(elo)s(cit)m(y)31 b(comp)s(onen)m(t)g(due)f(to)h(solar)f +(motion)g(wrt)g(kinematical)f(LSR)236 5580 y(R)h(=)g(sla)p +Fq(_)p FA(R)-10 b(V)m(GALC)31 b(\(R2000,)h(D2000\))472 +5693 y(V)-8 b(elo)s(cit)m(y)31 b(comp)s(onen)m(t)g(due)f(to)h(rotation) +g(of)f(the)h(Galaxy)p eop +%%Page: 212 214 +212 213 bop 0 52 a FA(212)236 351 y(R)30 b(=)g(sla)p +Fq(_)p FA(R)-10 b(VLG)30 b(\(R2000,)j(D2000\))472 464 +y(V)-8 b(elo)s(cit)m(y)37 b(comp)s(onen)m(t)g(due)e(to)i(rotation)f +(and)g(translation)f(of)h(the)h(Galaxy)-8 b(,)38 b(relativ)m(e)e(to)h +(the)472 577 y(mean)31 b(motion)f(of)g(the)h(lo)s(cal)f(group)0 +948 y Fs(Astrometry)236 1205 y FA(CALL)g(sla)p Fq(_)p +FA(S2TP)f(\(RA,)i(DEC,)g(RAZ,)f(DECZ,)g(XI,)g(ET)-8 b(A,)31 +b(J\))236 1318 y(CALL)f(sla)p Fq(_)p FA(DS2TP)g(\(RA,)h(DEC,)f(RAZ,)g +(DECZ,)g(XI,)h(ET)-8 b(A,)31 b(J\))472 1431 y(T)-8 b(ransform)30 +b(spherical)e(co)s(ordinates)i(in)m(to)h(tangen)m(t)h(plane)236 +1617 y(CALL)e(sla)p Fq(_)p FA(V2TP)g(\(V,)h(V0,)g(XI,)g(ET)-8 +b(A,)30 b(J\))236 1730 y(CALL)g(sla)p Fq(_)p FA(D)m(V2TP)h(\(V,)g(V0,)g +(XI,)g(ET)-8 b(A,)30 b(J\))472 1843 y(T)-8 b(ransform)30 +b([)15 b Fi(x;)g(y)s(;)g(z)20 b FA(])31 b(in)m(to)f(tangen)m(t)i(plane) +d(co)s(ordinates)236 2030 y(CALL)h(sla)p Fq(_)p FA(DTP2S)g(\(XI,)g(ET) +-8 b(A,)31 b(RAZ,)f(DECZ,)g(RA,)h(DEC\))236 2143 y(CALL)f(sla)p +Fq(_)p FA(TP2S)f(\(XI,)i(ET)-8 b(A,)31 b(RAZ,)f(DECZ,)g(RA,)h(DEC\))472 +2255 y(T)-8 b(ransform)30 b(tangen)m(t)i(plane)d(co)s(ordinates)h(in)m +(to)h(spherical)d(co)s(ordinates)236 2442 y(CALL)i(sla)p +Fq(_)p FA(DTP2V)g(\(XI,)h(ET)-8 b(A,)31 b(V0,)g(V\))236 +2555 y(CALL)f(sla)p Fq(_)p FA(TP2V)g(\(XI,)h(ET)-8 b(A,)30 +b(V0,)i(V\))472 2668 y(T)-8 b(ransform)30 b(tangen)m(t)i(plane)d(co)s +(ordinates)h(in)m(to)h([)15 b Fi(x;)g(y)s(;)g(z)20 b +FA(])236 2854 y(CALL)30 b(sla)p Fq(_)p FA(DTPS2C)f(\(XI,)i(ET)-8 +b(A,)31 b(RA,)f(DEC,)h(RAZ1,)g(DECZ1,)f(RAZ2,)h(DECZ2,)f(N\))236 +2967 y(CALL)g(sla)p Fq(_)p FA(TPS2C)f(\(XI,)i(ET)-8 b(A,)30 +b(RA,)h(DEC,)g(RAZ1,)f(DECZ1,)h(RAZ2,)f(DECZ2,)h(N\))472 +3080 y(Get)h(plate)e(cen)m(tre)i(from)d(star)i([)15 b +Fi(\013;)g(\016)20 b FA(])31 b(and)f(tangen)m(t)h(plane)f(co)s +(ordinates)236 3267 y(CALL)g(sla)p Fq(_)p FA(DTPV2C)g(\(XI,)h(ET)-8 +b(A,)30 b(V,)h(V01,)h(V02,)f(N\))236 3380 y(CALL)f(sla)p +Fq(_)p FA(TPV2C)f(\(XI,)i(ET)-8 b(A,)31 b(V,)g(V01,)g(V02,)h(N\))472 +3493 y(Get)g(plate)e(cen)m(tre)i(from)d(star)i([)15 b +Fi(x;)g(y)s(;)g(z)20 b FA(])31 b(and)f(tangen)m(t)i(plane)d(co)s +(ordinates)236 3679 y(CALL)h(sla)p Fq(_)p FA(PCD)g(\(DISCO,)g(X,)g(Y\)) +472 3792 y(Apply)f(pincushion/barrel)e(distortion)236 +3979 y(CALL)j(sla)p Fq(_)p FA(UNPCD)g(\(DISCO,)g(X,)h(Y\))472 +4092 y(Remo)m(v)m(e)i(pincushion/barrel)26 b(distortion)236 +4278 y(CALL)k(sla)p Fq(_)p FA(FITXY)g(\(ITYPE,)g(NP)-8 +b(,)31 b(XYE,)g(XYM,)g(COEFFS,)f(J\))472 4391 y(Fit)h(a)f(linear)f(mo)s +(del)g(to)j(relate)e(t)m(w)m(o)i(sets)f(of)f([)15 b Fi(x;)g(y)k +FA(])31 b(co)s(ordinates)236 4578 y(CALL)f(sla)p Fq(_)p +FA(PXY)g(\(NP)-8 b(,)31 b(XYE,)g(XYM,)g(COEFFS,)f(XYP)-8 +b(,)31 b(XRMS,)g(YRMS,)f(RRMS\))472 4691 y(Compute)g(predicted)g(co)s +(ordinates)g(and)f(residuals)236 4877 y(CALL)h(sla)p +Fq(_)p FA(INVF)g(\(FWDS,)i(BKWDS,)f(J\))472 4990 y(In)m(v)m(ert)g(a)g +(linear)e(mo)s(del)236 5177 y(CALL)h(sla)p Fq(_)p FA(XY2XY)h(\(X1,)g +(Y1,)h(COEFFS,)d(X2,)j(Y2\))472 5290 y(T)-8 b(ransform)30 +b(one)h([)15 b Fi(x;)g(y)j FA(])236 5476 y(CALL)30 b(sla)p +Fq(_)p FA(DCMPF)g(\(COEFFS,)h(XZ,)f(YZ,)g(XS,)g(YS,)h(PERP)-8 +b(,)30 b(ORIENT\))472 5589 y(Decomp)s(ose)i(a)f(linear)d(\014t)j(in)m +(to)f(scales)h Fn(etc.)p eop +%%Page: 213 215 +213 214 bop 0 52 a Ft(SUN/67.45)3206 b FA(213)0 351 y +Fs(Numerical)35 b(Metho)s(ds)236 589 y FA(CALL)30 b(sla)p +Fq(_)p FA(COMBN)g(\(NSEL,)g(NCAND,)h(LIST,)f(J\))472 +702 y(Next)i(com)m(bination)d(\(subset)h(from)g(a)h(sp)s(eci\014ed)e(n) +m(um)m(b)s(er)g(of)h(items\))236 877 y(CALL)g(sla)p Fq(_)p +FA(PERMUT)f(\(N,)j(IST)-8 b(A)g(TE,)30 b(IORDER,)g(J\))472 +990 y(Next)i(p)s(erm)m(utation)d(of)i(a)f(sp)s(eci\014ed)f(n)m(um)m(b)s +(er)g(of)i(items)236 1165 y(CALL)f(sla)p Fq(_)p FA(SMA)-8 +b(T)30 b(\(N,)h(A,)g(Y,)f(D,)h(JF,)g(IW\))236 1278 y(CALL)f(sla)p +Fq(_)p FA(DMA)-8 b(T)31 b(\(N,)g(A,)f(Y,)h(D,)g(JF,)g(IW\))472 +1391 y(Matrix)g(in)m(v)m(ersion)e(and)h(solution)f(of)h(sim)m +(ultaneous)f(equations)236 1566 y(CALL)h(sla)p Fq(_)p +FA(SVD)g(\(M,)h(N,)g(MP)-8 b(,)31 b(NP)-8 b(,)31 b(A,)g(W,)g(V,)f(W)m +(ORK,)h(JST)-8 b(A)g(T\))472 1679 y(Singular)28 b(v)-5 +b(alue)30 b(decomp)s(osition)f(of)i(a)f(matrix)236 1854 +y(CALL)g(sla)p Fq(_)p FA(SVDSOL)f(\(M,)i(N,)g(MP)-8 b(,)31 +b(NP)-8 b(,)31 b(B,)g(U,)g(W,)g(V,)f(W)m(ORK,)h(X\))472 +1967 y(Solution)e(from)h(giv)m(en)g(v)m(ector)i(plus)d(SVD)236 +2142 y(CALL)h(sla)p Fq(_)p FA(SVDCO)m(V)g(\(N,)h(NP)-8 +b(,)31 b(NC,)f(W,)h(V,)g(W)m(ORK,)g(CVM\))472 2255 y(Co)m(v)-5 +b(ariance)31 b(matrix)f(from)g(SVD)236 2430 y(R)g(=)g(sla)p +Fq(_)p FA(RANDOM)h(\(SEED\))472 2543 y(Generate)h(pseudo-random)d(real) +h(n)m(um)m(b)s(er)f(in)g(the)i(range)g(0)25 b Fl(\024)g +Fi(x)h(<)f FA(1)236 2718 y(R)30 b(=)g(sla)p Fq(_)p FA(GRESID)g(\(S\)) +472 2831 y(Generate)i(pseudo-random)d(normal)h(deviate)g(\()p +Fl(\021)h FA(`Gaussian)e(residual'\))0 3168 y Fs(Real-time)236 +3406 y FA(CALL)h(sla)p Fq(_)p FA(W)-10 b(AIT)30 b(\(DELA)-8 +b(Y\))472 3519 y(In)m(terv)j(al)31 b(w)m(ait)p eop +%%Trailer +end +userdict /end-hook known{end-hook}if +%%EOF