! G02HDF Example Program Text ! Mark 24 Release. NAG Copyright 2012. Module g02hdfe_mod ! G02HDF Example Program Module: ! Parameters and User-defined Routines ! .. Use Statements .. Use nag_library, Only: nag_wp ! .. Implicit None Statement .. Implicit None ! .. Parameters .. Real (Kind=nag_wp), Parameter :: dchi = 1.5_nag_wp Real (Kind=nag_wp), Parameter :: one = 1.0_nag_wp Real (Kind=nag_wp), Parameter :: two = 2.0_nag_wp Real (Kind=nag_wp), Parameter :: zero = 0.0_nag_wp Integer, Parameter :: iset = 1, nin = 5, nout = 6 Contains Function psi(t) ! .. Function Return Value .. Real (Kind=nag_wp) :: psi ! .. Parameters .. Real (Kind=nag_wp), Parameter :: c = 1.5_nag_wp ! .. Scalar Arguments .. Real (Kind=nag_wp), Intent (In) :: t ! .. Intrinsic Procedures .. Intrinsic :: abs ! .. Executable Statements .. If (t<=-c) Then psi = -c Else If (abs(t)