C**** QDF.S    List record titles on console    96-09-03
C****
C**** QDF lists on the console the record titles of the datafile
C**** specified on the command line.
C****
      CHARACTER*80 FILEIN,TITLE
C****
      IF(IARGC().ne.1)  GO TO 800
      CALL GETARG (1,FILEIN)
      OPEN (1,FILE=FILEIN,FORM='UNFORMATTED',STATUS='OLD',ERR=810)
      NREC=0
   10 READ (1,END=20,ERR=20) TITLE
      NREC=NREC+1
      WRITE (6,901) NREC,TITLE
      GO TO 10
   20 GO TO 999
C****
  800 WRITE (0,*) 'Usage: QDF datafile    ',
     *            'List record titles on console    96-09-03'
      GO TO 999
  810 WRITE (0,*) 'Error accessing ',FILEIN
      STOP
C****
  901 FORMAT (I5,': ',A72)
  999 END