Program x04adfe

!     X04ADF Example Program Text

!     Mark 30.2 Release. NAG Copyright 2024.

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

!     Test successful open and close for write

      ifail = 0
      Call x04acf(iounit,fname,1,ifail)

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

      ifail = 0
      Call x04adf(iounit,ifail)

      Write (nout,99998)

!     Test successful open and close for read

      ifail = 0
      Call x04acf(iounit,fname,0,ifail)

      Write (nout,99997)

      ifail = 0
      Call x04adf(iounit,ifail)

      Write (nout,99998)

99999 Format (' OK file successfully opened for writing')
99998 Format (' OK file successfully closed')
99997 Format (' OK file successfully opened for reading')
    End Program x04adfe