Program a00aa_a1w_fe
! A00AA_A1W_F Example Program Text
! Mark 30.1 Release. NAG Copyright 2024.
! .. Use Statements ..
Use nagad_library, Only: a00aa_a1w_f
! .. Implicit None Statement ..
Implicit None
! .. Parameters ..
Integer, Parameter :: nout = 6
! .. Executable Statements ..
Write (nout,*) 'A00AA_A1W_F Example Program Results'
Write (nout,*)
Flush (nout)
Call a00aa_a1w_f
End Program a00aa_a1w_fe