C     PARAMETR.INC

      INTEGER*4     OUTC,INC,INDATA,PR,NPARS,MAXPTS,ELLPTS,ORBPTS
      INTEGER*4     INSTA,INSORC,MA
      REAL*8        VELC,PI,RPDEG,RPHR
      CHARACTER*25  VERSN
C
      PARAMETER (VERSN=' 1.21 - 1990 Feb 15')
      PARAMETER (OUTC=6)              ! terminal output unit
      PARAMETER (INC=5)               ! terminal input unit
      PARAMETER (INDATA=11)           ! unit for station catalog
      PARAMETER (PR=8)                ! printer output
      PARAMETER (NPARS=55)            ! number of control parameters
      PARAMETER (MAXPTS=150)          ! max. number of input data
      PARAMETER (ELLPTS=365)          ! no. of pts in apparent ellipse + 5
      PARAMETER (ORBPTS=100)          ! no. of pts in calc. ellipse
      PARAMETER (MA=7)                ! max. parameters for l.s. fit
      PARAMETER (VELC=2.99792458D8)   ! velocity of light m/s
      PARAMETER (PI=3.14159265359D0)
      PARAMETER (RPDEG=PI/180D0)
      PARAMETER (RPHR=PI/12D0)