s20adf

Purpose

Synopsis

[fun_value,ifail] = s20adf(x<,ifail>)

Description

 
 This routine evaluates an approximation to the Fresnel Integral
 
                            x            
                            /   ( (pi) 2)
                      C(x)= |cos( ----t )dt.
                            /   (  2    )
                            0            
 
 Note: C(x)=-C(-x), so the approximation need only consider 
 x>=0.0.
 

Parameters

s20adf

Required Input Arguments:

x                                     real

Optional Input Arguments:                       <Default>

ifail                                 integer  -1

Output Arguments:

ifail                                 integer