SUBROUTINE CLISTDAT
C============================================================
C Write data to a file in .CAL file format.
C
C     J.T. Armstrong      16 Jan 1991
C============================================================

      INCLUDE 'BINFIT.INC'

      CHARACTER*64 DATNAM, MODNAM
      INTEGER*4    VLBOPE, GETIN, IER, LEN1

      WRITE(OUTC,*) ' Enter name of file for fake data: '
      READ(INC,*) DATNAM

      INQUIRE (UNIT=OUTDAT,NAME=DATNAM)
      CLOSE (UNIT=INMOD)

   10 IER = VLBOPE(OUTDAT, DATNAM, 'TEXT', 'NEW', DATNAM)
      IF(IER.NE.1) THEN
        IER=GETIN(DATNAM,' Enter name of file for fake data: ',
     1              L)
          IF(IER.NE.1) CALL EXIT
          GO TO 10
      END IF

C Write some lines of description
      WRITE (OUTDAT,1000) '! Model file:  ',MODDSN(1:L)
      WRITE (OUTDAT,1001) STARNAME, DATE
      WRITE (OUTDAT,1000) '! Model:'
      CALL CWRITEMD(OUTDAT,'!',PARM,0,0)

C Write the header line
      WRITE(OUTDAT,1002) DATE, BASELINE(1), (LAMBDA0(I),I=1,3)

C Write the data
      DO ID=1,NDATA
          WRITE(OUTDAT,1003) HOURS(ID),STARNO,VIS2(ID,1),VISERR(ID,1),
     1        VIS2(ID,2),VISERR(ID,2),VIS2(ID,3),VISERR(ID,3)
      END DO

      CLOSE(OUTDAT)

      RETURN

 1000 FORMAT (A,A,A,A)
 1001 FORMAT ('! Star: ',A,' Date: ',I6)
 1002 FORMAT (1X,I8,1X,I5,F7.1,2(14X,F8.1))
 1003 FORMAT (1X,F9.6,I5,7X,2F7.3,8X,2F7.3,8X,2F7.3)

      END