*     X04ACF Example Program Text
*     Mark 19 Release. NAG Copyright 1999.
*     .. Parameters ..
      INTEGER          NOUT
      PARAMETER        (NOUT=6)
      INTEGER          IOUNIT
      PARAMETER        (IOUNIT=4)
      CHARACTER*19     FILE
      PARAMETER        (FILE='x04acfe_success.res')
*     .. Local Scalars ..
      INTEGER          IFAIL, MODE
*     .. External Subroutines ..
      EXTERNAL         X04ACF
*     .. Executable Statements ..
      WRITE (NOUT,*) 'X04ACF Example Program Results'
*
*     Test successful open for write
*
      MODE = 1
      IFAIL = 1
*
      CALL X04ACF(IOUNIT,FILE,MODE,IFAIL)
*
      IF (IFAIL.EQ.0) THEN
         WRITE (NOUT,99998)
         WRITE (IOUNIT,99998)
      ELSE
         WRITE (NOUT,99999) FILE, IOUNIT
      END IF
*
99999 FORMAT (' ** FAILS to open "',A,'" and connect file to channel ',
     +       I2)
99998 FORMAT (' OK file successfully opened for writing')
      END