PROGRAM BINFAKE
C============================================================
C Create fake binary star data in the format used in the .CAL
C files associated with Mt. Wilson interferometer data.  Loosely
C based on FAKE from the Caltech VLBI package.  The INCLUDE file
C used here is also used in BINFIT, the program to fit separation,
C position angle, etc. to a night's data.
C
C     Version 1.0     16 Jan 1991     J.T. Armstrong
C============================================================

      INCLUDE 'BINFIT.INC'

      CALL CGETSTAR
C Get model
      FRSTRY = .TRUE.
      CALL CGETMOD
      WRITE(OUTC,'(A)') ' Starting model: '
      CALL CAFOUT(1)
D     WRITE(OUTC,*) ' Back from CAFOUT.'
      CALL PUTOUT(' ')
C Calculate visibilities
D     WRITE(OUTC,*) ' Going to CADJMOD.'
      CALL CADJMOD
D     WRITE(OUTC,*) ' Back from CADJMOD; going to BINVIS.'
      CALL BINVIS
C Write output file
D     WRITE(OUTC,*) ' Back from BINVIS; going to ADDERR.'
      CALL ADDERR
D     WRITE(OUTC,*) ' Back from ADDERR; going to CLISTDAT.'
      CALL CLISTDAT
D     WRITE(OUTC,*) ' Back from CLISTDAT.'

      STOP
      END