C-----------------------------------------------------------------------
C CONSTNTS.INC 
C-----------------------------------------------------------------------
C This block contains all parameter statements for the BINAFIT software.
C
      INTEGER*4  MXFILT,MMXFILT,MXSTARS,MXREC,MXREC2,MXSCN,MXSCN2
      INTEGER*4  MXDATES,MXPL,MXEPL, NUSTEPS
      INTEGER*4  MXMOD,MXPARM,MAXIT,MAXITG,MAXITC
      INTEGER*4  INC,OUTC,OUTDAT 
      REAL*8     PI,DEGRAD,RADHRS,TWOPI
      REAL*8     C,MAS2RAD,LONG,LAT

      PARAMETER (MXFILT=3)                   ! Max. no. of filters per baseline
      PARAMETER (MMXFILT=30)                 ! Max. no. of filters in data
      PARAMETER (MXSTARS=20)                 ! Max. no. of stars
      PARAMETER (MXREC=3000)                 ! Max. no. data records 
      PARAMETER (MXREC2=MXREC*MXFILT)        ! Max. no. data records 3 chan
      PARAMETER (MXSCN=200)                  ! Max. no. of scans per night
      PARAMETER (MXSCN2=MXSCN*MXFILT)        ! Max. no. of scans p. n. 3 chan
      PARAMETER (MXDATES=50)                 ! Max. no. of nights
      PARAMETER (MXPL=64) !Must be power of 2, Max. no. of vis. plot records
      PARAMETER (MXEPL=200)                  ! Max. no. of ellipse plot recs.
      PARAMETER (MXMOD=2)                    ! Max. no. of components
      PARAMETER (MXPARM=16)                  ! Max. no. of parameters
      PARAMETER (MAXIT=20)                   ! Max. no. of ML-iterations
      PARAMETER (MAXITG=50)                  ! Max. no. of rt-iterations
      PARAMETER (MAXITC=1000)                ! Max. no. of MtC-iterations
      PARAMETER (INC=5)                      ! Console input
      PARAMETER (OUTC=6)                     ! Console output
      PARAMETER (OUTDAT=10)                  ! Output for data, residuals
      PARAMETER (NUSTEPS=6)                  ! No. steps in freq. integral
C Conversion factors
      PARAMETER (PI=3.141592653589793D0)     ! pi
      PARAMETER (DEGRAD=PI/180.D0)           ! radians per degree
      PARAMETER (RADHRS=1.D0/(DEGRAD*15.D0)) ! Hours of UT per radian
      PARAMETER (TWOPI=2.0D0*PI)             ! pi*2
      PARAMETER (C=299792458.D0)             ! speed of light (m/s)
      PARAMETER (MAS2RAD=PI/(180.D0*3600.D0*1000.D0))  ! radians per mas
      PARAMETER (LONG=118.059167D0)          ! Mt. Wilson west longitude (deg)
      PARAMETER (LAT=34.2166944D0)           ! Mt. Wilson latitude (deg)