! G07DCF Example Program Text ! Mark 24 Release. NAG Copyright 2012. Module g07dcfe_mod ! G07DCF 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 :: h1 = 1.5_nag_wp Real (Kind=nag_wp), Parameter :: h2 = 3.0_nag_wp Real (Kind=nag_wp), Parameter :: h3 = 4.5_nag_wp Real (Kind=nag_wp), Parameter :: zero = 0.0_nag_wp Integer, Parameter :: nin = 5, nout = 6 Contains Function hampels_psi(t) ! Hampel's Piecewise Linear Function. ! .. Function Return Value .. Real (Kind=nag_wp) :: hampels_psi ! .. Scalar Arguments .. Real (Kind=nag_wp), Intent (In) :: t ! .. Local Scalars .. Real (Kind=nag_wp) :: abst ! .. Intrinsic Procedures .. Intrinsic :: abs, min ! .. Executable Statements .. abst = abs(t) If (abst