Program s22bbfe ! S22BAF Example Program Text ! Mark 24 Release. NAG Copyright 2012. ! .. Use Statements .. Use nag_library, Only: nag_wp, s22bbf, x02bhf, x02blf ! .. Implicit None Statement .. Implicit None ! .. Parameters .. Integer, Parameter :: nout = 6 ! .. Local Scalars .. Real (Kind=nag_wp) :: ai, ar, bi, br, delta, frm, scale, x Integer :: ifail, k, scm ! .. Local Arrays .. Real (Kind=nag_wp) :: frmv(2) Integer :: scmv(2) ! .. Intrinsic Procedures .. Intrinsic :: real ! .. Executable Statements .. Write (nout,*) 'S22BBF Example Program Results' ai = -10.0_nag_wp bi = 30.0_nag_wp delta = 1.0E-4_nag_wp ar = delta br = -delta x = 25.0_nag_wp Write (nout,99999) 'a', 'b', 'x', 'frm', 'scm', 'M(a,b,x)' Do k = 1, 2 If (k==2) Then ar = -ar br = -br End If ifail = -1 Call s22bbf(ai,ar,bi,br,x,frm,scm,ifail) If (ifail==2 .Or. ifail>3) Then ! Either the result has overflowed, no accuracy may be assumed,& ! or an input error has been detected. Write (nout,99996) ai + ar, bi + br, x, 'FAILED' Go To 100 Else If (scm