eqnred - nicolob/pep-full GitHub Wiki

eqnred

Type: subroutine

Defined in: eqnred.f

Definition: subroutine EQNRED(in0,nstop,init)

Revision History

  • Modified for *command July 1978 R.B. Goldstein

Description

for j=1,...,numeqn we have
Eqnsit(j)= First four characters of eight character optical
observing site name.
If '@REF', then the correction is a pure rotation
vector expressed in arcsec, instead of eq-eq-lat.
Eqnser(j)= Four characters giving observation series name.
Denox(j)= Correction in seconds of time to equinox.
Includes correction to longitude (mu=phi+psi).
Dequat(j)= Correction in seconds of arc to equator (theta).
Dlat(j)=   Correction in seconds of arc to site latitude.
Leqn(i,j)=0  no adjustment to Denox,Dequat,Dlat  for i=1,2,3
Leqn(i,j)=1     adjustment to Denox,Dequat,Dlat  for i=1,2,3
vii. equinox-equator-latitude corrections  (EQNRED)
for each optical site and observation series
columns
1- 4  site name  first four characters                  (1a4)
6- 9  observation series name  (four characters)        (1a4)
17  l1=1,0  equinox  correction is adjusted or not    (i1)
19  l2=1,0  equator  correction is adjusted or not    (i1)
21  l3=1,0  latitude correction is adjusted or not    (i1)
37-48  equinox  correction                               (e12.5)
49-60  equator  correction                               (e12.5)
61-72  latitude correction                               (e12.5)
Limitation:  no more than u_mxeqx sites allowed

Included Files

  • globdefs.inc
  • eqenox.inc
  • inodta.inc

Arguments

  • in0
  • nstop
  • init

Calls

Called By

  • ...

Notes

  • ...
⚠️ **GitHub.com Fallback** ⚠️