◆ ep_initds()
| integer function special_functions_gbl::cfp_initds::ep_initds |
( |
real(kind=ep1), dimension(*) |
OS, |
|
|
integer |
NOS, |
|
|
real |
ETA |
|
) |
| |
Quad prec version of wp_initds.
◆ wp_initds()
| integer function special_functions_gbl::cfp_initds::wp_initds |
( |
real(kind=wp), dimension(*) |
OS, |
|
|
integer |
NOS, |
|
|
real |
ETA |
|
) |
| |
***PURPOSE Determine the number of terms needed in an orthogonal
polynomial series so that it meets a specified accuracy.
***LIBRARY SLATEC (FNLIB)
***CATEGORY C3A2
***TYPE REAL(kind=wp) (INITS-S, wp_initds-D)
***KEYWORDS CHEBYSHEV, FNLIB, INITIALIZE, ORTHOGONAL POLYNOMIAL,
ORTHOGONAL SERIES, SPECIAL FUNCTIONS
***AUTHOR Fullerton, W., (LANL)
***DESCRIPTION
Initialize the orthogonal series, represented by the array OS, so
that wp_initds is the number of terms needed to insure the error is no
larger than ETA. Ordinarily, ETA will be chosen to be one-tenth
machine precision.
Input Arguments --
OS REAL(kind=wp) array of NOS coefficients in an orthogonal
series.
NOS number of coefficients in OS.
ETA single precision scalar containing requested accuracy of
series.
***REFERENCES (NONE)
***ROUTINES CALLED XERMSG
***REVISION HISTORY (YYMMDD)
770601 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890831 Modified array declarations. (WRB)
891115 Modified error message. (WRB)
891115 REVISION DATE from Version 3.2
891214 Prologue converted to Version 4.0 format. (BAB)
900315 CALLs to XERROR changed to CALLs to XERMSG. (THJ)
The documentation for this interface was generated from the following file:
