Program x04acfe

!     X04ACF Example Program Text

!     Mark 30.1 Release. NAG Copyright 2024.

!     .. Use Statements ..
      Use nag_library, Only: x04acf
!     .. Implicit None Statement ..
      Implicit None
!     .. Parameters ..
      Integer, Parameter               :: iounit = 4, nout = 6
      Character (*), Parameter         :: file = 'x04acfe_success.res'
!     .. Local Scalars ..
      Integer                          :: ifail, mode
!     .. Executable Statements ..
      Write (nout,*) 'X04ACF Example Program Results'

!     Test successful open for write

      mode = 1

      ifail = 0
      Call x04acf(iounit,file,mode,ifail)

      Write (nout,99999)
      Write (iounit,99999)

99999 Format (' OK file successfully opened for writing')
    End Program x04acfe