NAG Library Manual, Mark 30.2
Interfaces:  FL   CL   CPP   AD 

NAG FL Interface Introduction
Example description
    Program a00acfe

!     A00ACF Example Program Text

!     Mark 30.2 Release. NAG Copyright 2024.

!     .. Use Statements ..
      Use nag_library, Only: a00acf
!     .. Implicit None Statement ..
      Implicit None
!     .. Parameters ..
      Integer, Parameter               :: nout = 6
!     .. Local Scalars ..
      Logical                          :: lmok
!     .. Executable Statements ..
      Write (nout,*) 'A00ACF Example Program Results'

      Write (nout,*)

      lmok = a00acf()

      If (lmok) Then
        Write (nout,*) 'A valid licence key is available'
      Else
        Write (nout,*) 'No valid licence key was found'
      End If

    End Program a00acfe