! G02HFF Example Program Text ! Mark 24 Release. NAG Copyright 2012. Module g02hffe_mod ! G02HFF 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 :: tc = 1.5_nag_wp Integer, Parameter :: nin = 5, nout = 6 Contains Function psi(t) ! .. Function Return Value .. Real (Kind=nag_wp) :: psi ! .. Scalar Arguments .. Real (Kind=nag_wp), Intent (In) :: t ! .. Intrinsic Procedures .. Intrinsic :: abs ! .. Executable Statements .. If (t<=-tc) Then psi = -tc Else If (abs(t)