# NAG FL Interfaces20adf (fresnel_​c)

## ▸▿ Contents

Settings help

FL Name Style:

FL Specification Language:

## 1Purpose

s20adf returns a value for the Fresnel integral $C\left(x\right)$, via the function name.

## 2Specification

Fortran Interface
 Function s20adf ( x,
 Real (Kind=nag_wp) :: s20adf Integer, Intent (Inout) :: ifail Real (Kind=nag_wp), Intent (In) :: x
C Header Interface
#include <nag.h>
 double s20adf_ (const double *x, Integer *ifail)
The routine may be called by the names s20adf or nagf_specfun_fresnel_c.

## 3Description

s20adf evaluates an approximation to the Fresnel integral
 $C(x)=∫0xcos(π2t2)dt.$
Note:  $C\left(x\right)=-C\left(-x\right)$, so the approximation need only consider $x\ge 0.0$.
The routine is based on three Chebyshev expansions:
For $0,
 $C(x)=x∑′r=0arTr(t), with ​ t=2 (x3) 4-1.$
For $x>3$,
 $C(x)=12+f(x)xsin(π2x2)-g(x)x3cos(π2x2) ,$
where $f\left(x\right)=\underset{r=0}{{\sum }^{\prime }}\phantom{\rule{0.25em}{0ex}}{b}_{r}{T}_{r}\left(t\right)$,
and $g\left(x\right)=\underset{r=0}{{\sum }^{\prime }}\phantom{\rule{0.25em}{0ex}}{c}_{r}{T}_{r}\left(t\right)$,
with $t=2{\left(\frac{3}{x}\right)}^{4}-1$.
For small $x$, $C\left(x\right)\simeq x$. This approximation is used when $x$ is sufficiently small for the result to be correct to machine precision.
For large $x$, $f\left(x\right)\simeq \frac{1}{\pi }$ and $g\left(x\right)\simeq \frac{1}{{\pi }^{2}}$. Therefore, for moderately large $x$, when $\frac{1}{{\pi }^{2}{x}^{3}}$ is negligible compared with $\frac{1}{2}$, the second term in the approximation for $x>3$ may be dropped. For very large $x$, when $\frac{1}{\pi x}$ becomes negligible, $C\left(x\right)\simeq \frac{1}{2}$. However, there will be considerable difficulties in calculating $\mathrm{sin}\left(\frac{\pi }{2}{x}^{2}\right)$ accurately before this final limiting value can be used. Since $\mathrm{sin}\left(\frac{\pi }{2}{x}^{2}\right)$ is periodic, its value is essentially determined by the fractional part of ${x}^{2}$. If ${x}^{2}=N+\theta$, where $N$ is an integer and $0\le \theta <1$, then $\mathrm{sin}\left(\frac{\pi }{2}{x}^{2}\right)$ depends on $\theta$ and on $N$ modulo $4$. By exploiting this fact, it is possible to retain some significance in the calculation of $\mathrm{sin}\left(\frac{\pi }{2}{x}^{2}\right)$ either all the way to the very large $x$ limit, or at least until the integer part of $\frac{x}{2}$ is equal to the maximum integer allowed on the machine.

## 4References

NIST Digital Library of Mathematical Functions

## 5Arguments

1: $\mathbf{x}$Real (Kind=nag_wp) Input
On entry: the argument $x$ of the function.
2: $\mathbf{ifail}$Integer Input/Output
On entry: ifail must be set to $0$, $-1$ or $1$ to set behaviour on detection of an error; these values have no effect when no error is detected.
A value of $0$ causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of $-1$ means that an error message is printed while a value of $1$ means that it is not.
If halting is not appropriate, the value $-1$ or $1$ is recommended. If message printing is undesirable, then the value $1$ is recommended. Otherwise, the value $0$ is recommended. When the value $-\mathbf{1}$ or $\mathbf{1}$ is used it is essential to test the value of ifail on exit.
On exit: ${\mathbf{ifail}}={\mathbf{0}}$ unless the routine detects an error or a warning has been flagged (see Section 6).

## 6Error Indicators and Warnings

There are no failure exits from s20adf. The argument ifail has been included for consistency with other routines in this chapter.

## 7Accuracy

Let $\delta$ and $\epsilon$ be the relative errors in the argument and result respectively.
If $\delta$ is somewhat larger than the machine precision (i.e if $\delta$ is due to data errors etc.), then $\epsilon$ and $\delta$ are approximately related by:
 $ε≃ | x cos( π2x2) C(x) |δ.$
Figure 1 shows the behaviour of the error amplification factor $|\frac{x\mathrm{cos}\left(\frac{\pi }{2}{x}^{2}\right)}{C\left(x\right)}|$.
However, if $\delta$ is of the same order as the machine precision, then rounding errors could make $\epsilon$ slightly larger than the above relation predicts.
For small $x$, $\epsilon \simeq \delta$ and there is no amplification of relative error.
For moderately large values of $x$,
 $|ε|≃ |2xcos(π2x2)||δ|$
and the result will be subject to increasingly large amplification of errors. However, the above relation breaks down for large values of $x$ (i.e., when $\frac{1}{{x}^{2}}$ is of the order of the machine precision); in this region the relative error in the result is essentially bounded by $\frac{2}{\pi x}$.
Hence the effects of error amplification are limited and at worst the relative error loss should not exceed half the possible number of significant figures.

## 8Parallelism and Performance

Background information to multithreading can be found in the Multithreading documentation.
s20adf is not threaded in any implementation.

None.

## 10Example

This example reads values of the argument $x$ from a file, evaluates the function at each value of $x$ and prints the results.

### 10.1Program Text

Program Text (s20adfe.f90)

### 10.2Program Data

Program Data (s20adfe.d)

### 10.3Program Results

Program Results (s20adfe.r)