! X04AAF Example Program Text ! Mark 24 Release. NAG Copyright 2012. Module x04aafe_mod ! X04AAF Example Program Module: ! Parameters and User-defined Routines ! .. Implicit None Statement .. Implicit None ! .. Parameters .. Integer, Parameter :: nout = 6 Contains Subroutine dummy ! .. Use Statements .. Use nag_library, Only: x04aaf ! .. Local Scalars .. Integer :: nerr ! .. Executable Statements .. Call x04aaf(0,nerr) Write (nerr,*) Write (nerr,*) 'This is a dummy error message' Return End Subroutine dummy End Module x04aafe_mod Program x04aafe ! X04AAF Example Main Program ! .. Use Statements .. Use nag_library, Only: x04aaf Use x04aafe_mod, Only: dummy, nout ! .. Implicit None Statement .. Implicit None ! .. Local Scalars .. Integer :: outchn ! .. Executable Statements .. Write (nout,*) 'X04AAF Example Program Results' outchn = nout Call x04aaf(1,outchn) Call dummy End Program x04aafe